Power-Programmierung/CD1.mdf/logo/labybug/slinky.bug

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