home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
logo
/
labybug
/
shapes.bug
< prev
next >
Wrap
Text File
|
1989-11-13
|
384b
|
31 lines
to "poly :d :a
forward :d
right :a
poly :d :a
end
to "shapes :n
tri :n
square :n
rectangle :n
end
to "tri :end
repeat 3 [fd :n rt 120]
end
to "square :n
repeat 4 [fd :n rt 90]
end
to "rectangle :n
repeat 2 [fd :n rt 90 fd :n * 2 rt 90]
end
to "anyshape :r :d
repeat :r [fd :d rt 360 / :r]
end
to "rectangle :n
repeat 2 [fd :n rt 90 fd