Power-Programmierung/CD1.mdf/logo/labybug/shapes.bug

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