Category : Miscellaneous Language Source Code
Archive   : LADYBUG.ZIP
Filename : TANGRAMS.BUG

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

to "triangle :side
fd :side
rt 135
fd :side / sqrt 2
rt 90
fd :side / sqrt 2
rt 135
end

to "square :side
make "side1 :side / ( 2 * sqrt 2 )
repeat 4 [ fd :side1 lt 90 ]
end

make "side1 "'53.03301
to "triangle.med :side
fd 2 * ( :side / ( 2 * sqrt 2 ) )
rt 135
fd :side / 2
rt 90
fd :side / 2
rt 135
end

to "triangle.small :side
fd :side / 2
rt 135
fd ( :side / sqrt 2 ) / 2
rt 90
fd ( :side / sqrt 2 ) / 2
rt 135
end

to "pargram :side
repeat 2 [ fd :side / 2 lt 45 fd :side / ( 2 * sqrt 2 ) lt 135 ]
end

de / sqrt 2 ) / 2
rt 135
end