home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
logo
/
labybug
/
slinky.bug
< prev
next >
Wrap
Text File
|
1984-03-10
|
768b
|
61 lines
make "description [Circles; from "Logo for the Apple II", pgs. 53-55]
to "rcp :r
right 5
forward :r * 3.14159 / 18
right 5
end
to "lcp :r
left 5
forward :r * 3.14159 / 18
left 5
end
to "rarc :r
repeat 9 [rcp :r]
end
to "larc :r
repeat 9 [lcp :r]
end
to "rcircle :r
repeat 36 [rcp :r]
end
to "lcircle :r
repeat 36 [lcp :r]
end
to "shrinkcircle :size
if :size < 4 then stop
rcircle :size
shrinkcircle :size - 4
end
to "rslinky :size
rcircle :size
pu
rt 90
fd 10
lt 90
pd
rslinky :size
end
to "spinslink :size
rcircle :size
right 20
print heading
if heading = 0 then stop
spinslink :size
end
to "growcircle :size
repeat 12 [rcp :size]
growcircle :size + 5
end
if heading = 0 then stop
spin