home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
logo
/
labybug
/
spider.bug
< prev
next >
Wrap
Text File
|
1989-11-13
|
256b
|
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