# Main Command: Go
# Sunflower by Guy Walker
# www.logoarts.co.uk

to new
  # set default screen, pen and turtle 
  ResetAll SetScreenSize [400 400] HideTurtle 
  SetSC Black SetPC Green SetPS 1 PenUp 
end

to drawseed
  Left 45 PenDown Repeat 4 [Back 7 Right 90] PenUp
  # Right 45 Back 5 Fill     # fill with yellow
  # PenDown Forward 16 PenUp     # thin lines
end

to go
  New SetPC Yellow
  For [Angle 200 90000 222.5] [     # 222.5=360/1.618 Also try 445
  Make "Radius 0.6 * Power :Angle 0.5
  Home SetH :Angle Forward :Radius
  DrawSeed]
end