Lucas W

Sync On : Sync Rate 60 : Hide Mouse : autocam off
 
 
input "enter text: ", string$
 
For x = 1 To len( string$ )
   m$ = Lower$( mid$( string$, x ) )
   tt = x
   If m$ = "a" Then Restore a : makeLetter( tt )
   If m$ = "b" Then Restore b : makeLetter( tt )
   If m$ = "c" Then Restore c : makeLetter( tt )
   If m$ = "d" Then Restore d : makeLetter( tt )
   If m$ = "e" Then Restore e : makeLetter( tt )
   If m$ = "f" Then Restore f : makeLetter( tt )
   If m$ = "g" Then Restore g : makeLetter( tt )
   If m$ = "h" Then Restore h : makeLetter( tt )
   If m$ = "i" Then Restore i : makeLetter( tt )
   If m$ = "j" Then Restore j : makeLetter( tt )
   If m$ = "k" Then Restore k : makeLetter( tt )
   If m$ = "l" Then Restore l : makeLetter( tt )
   If m$ = "m" Then Restore m : makeLetter( tt )
   If m$ = "n" Then Restore n : makeLetter( tt )
   If m$ = "o" Then Restore o : makeLetter( tt )
   If m$ = "p" Then Restore p : makeLetter( tt )
   If m$ = "q" Then Restore q : makeLetter( tt )
   If m$ = "r" Then Restore r : makeLetter( tt )
   If m$ = "s" Then Restore s : makeLetter( tt )
   If m$ = "t" Then Restore t : makeLetter( tt )
   If m$ = "u" Then Restore u : makeLetter( tt )
   If m$ = "v" Then Restore v : makeLetter( tt )
   If m$ = "w" Then Restore w : makeLetter( tt )
   If m$ = "x" Then Restore x : makeLetter( tt )
   If m$ = "y" Then Restore y : makeLetter( tt )
   If m$ = "z" Then Restore z : makeLetter( tt )
Next x
 
 
cx# = 0
cy# = 50
cz# = -200
path# = len( string$ )*80
 
Do
 
   Inc myVar, 1
   cx# = cos( myVar )*path#
 
 
   Position Camera ((len( string$ )*80)/2)+(cx#/2), cy#, cz#
   Point camera ((len( string$ )*80)/2), 0, 0
 
Sync : Loop
 
Function makeLetter( pos )
   For w = 1 To 5
      For q = 1 To 6
         Read bool
         If bool =1
            obj = Free()
            Make Object Cube obj, 10
            Position Object obj, ((pos*100)-100)+(q*10), (5*10)-(w*10), 0.0
         EndIf
      Next w
   Next q
EndFunction
 
Function Free()
   j =0 : Repeat : Inc j, 1 : Until Object Exist(j) =0
EndFunction j
 
a:
Data 0, 0, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
 
b:
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 0, 0
 
c:
Data 0, 0, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 0, 1, 1, 1, 0
 
d:
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 0, 0
 
e:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 1, 0
 
f:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
 
g:
Data 0, 0, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0
 
h:
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
 
i:
Data 0, 0, 1, 0, 0, 0
Data 0, 0, 1, 0, 0, 0
Data 0, 0, 1, 0, 0, 0
Data 0, 0, 1, 0, 0, 0
Data 0, 0, 1, 0, 0, 0
 
j:
Data 0, 0, 0, 0, 1, 0
Data 0, 0, 0, 0, 1, 0
Data 0, 0, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 0, 1, 1, 0, 0
 
k:
Data 0, 1, 0, 1, 1, 0
Data 0, 1, 1, 0, 0, 0
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
 
l:
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 1, 0
 
m:
Data 0, 1, 1, 1, 1, 1
Data 0, 1, 0, 1, 0, 1
Data 0, 1, 0, 1, 0, 1
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 0, 0, 1
 
n:
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 1, 0, 0, 1
Data 0, 1, 0, 1, 0, 1
Data 0, 1, 0, 0, 1, 1
Data 0, 1, 0, 0, 0, 1
 
o:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0
 
p:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
 
q:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 1, 1, 0
Data 0, 1, 1, 1, 1, 1
 
r:
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
 
s:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 0, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0
 
t:
Data 0, 1, 1, 1, 1, 1
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 0, 1, 0, 0
 
u:
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0
 
v:
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 0, 0, 1
Data 0, 0, 1, 0, 1, 0
Data 0, 0, 0, 1, 0, 0
 
w:
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 1, 0, 1
Data 0, 1, 1, 0, 1, 1
Data 0, 1, 0, 0, 0, 1
 
x:
Data 0, 1, 0, 0, 0, 1
Data 0, 0, 1, 0, 1, 0
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 1, 0, 1, 0
Data 0, 1, 0, 0, 0, 1
 
y:
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 1, 1, 1, 1
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 0, 1, 0, 0
 
z:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 1, 0, 0, 0
Data 0, 1, 1, 1, 1, 0