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

Text File | 1988-12-25 | 256 b | 27 lines

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

to "square
repeat 4 [fd 50 rt 90]
end

to "triangle
repeat 3 [ fd 50 rt 120]
end

to "roof
fd 50 rt 30 triangle
end

to "house
square
roof
end

nd

to "triangle
repeat 3 [