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

Text File | 1989-11-09 | 256b | 22 lines

to "poly :d :a
forward :d
right :a
poly :d :a
end

to "tower  :size
if :size < 0 [stop]
square "size
tower :size - 10
square :size
fd :size
end

to "square  :size
repeat 4 [fd :size rt 90]
end

 0 [stop]
square "size
tower :size - 10