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

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

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

to "tri  :n
repeat 3 [fd :n rt 120]
end

to "hexagon  :n
repeat 6 [tri :n rt 60]
end

to "spiderweb  :n :x :y
hexagon :n
hexagon :n + :x
hexagon :n + ( :x * :y )
end

on  :n
repeat 6