Turbo Toolbox/Turbo_Toolbox.iso/sharew/logo/ladybug/tower.bug

Text File | 1989-11-09 | 256 b | 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