aUCBLogo Demos and Tests / clovertest

to clovertest
   hideTurtle
   clover 3
end

to Clover :sides
   setPenSize  [4 4]
   setPenColor 10

   repeat :sides
   [   Petal ((360 / :sides) - 20) / 2
      right 360 / :sides
   ]
end

to Petal  :halfangle
   left    :halfangle
   forward (360 / pi) * (Sin (135 / 2)) / (Sin :halfangle)

   right  135 / 2 - (90 - :halfangle)
   repeat 180 [ forward 1 right 1 ]
   left   135
   repeat 180 [ forward 1 right 1 ]
   right  135 / 2 - (90 - :halfangle)

   forward (360 / pi) * (Sin (135 / 2)) / (Sin :halfangle)
   right 180 - :halfangle
end