# Main Command: Go 3
# Peano Cesaro Curve by Guy Walker
# www.logoarts.co.uk

To New
  # set default screen, pen and turtle values
  ResetAll SetScreenSize [400 400] HideTurtle
  SetSC Black SetPC Green SetPS 1 PenUp
End

To Koch :Level :Side
  If :Level < 1 [Forward :Side Stop]
  Koch :Level-1 :Side/:Ratio Left :Angle
  Koch :Level-1 :Side/:Ratio Right 2*:Angle
  Koch :Level-1 :Side/:Ratio Left :Angle
  Koch :Level-1 :Side/:Ratio
End

To Go :Level
  New Animation
  For [Ang 0 84 3] [
    Wash SetPC Yellow
    # each curve uses a global angle and the resulting ratio of sides
    GlobalMake "Angle :Ang
    GlobalMake "Ratio 2*(1+Cos :Angle)
    SetPos [-190 -190] SetH 90 PenDown
    Repeat 4 [Koch :Level 380 Left 90]
    PenUp Home SetPC [32 0 64] Fill Refresh Wait 4]
End