# Main Command: Go 6
# Peano2 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 Init :Order
  Make "Size 0     # make Size a global value
  Make "X (( Round :Order/2)-1)
  For (List "N 0 :X-1) [Make "Size :Size + Power 3 :N]
  Make "Size 1+(3*:Size)
  Make "Size 190/:Size
End

To Peano :Order :Parity
  If :Order < 1 [Stop]     # ie if = 0
  Right :Parity*90
  Peano :Order-1 Minus :Parity Forward :Size
  Peano :Order-1 :Parity Forward :Size
  Peano :Order-1 Minus :Parity
  Left :Parity*90
End

To Go :Order
  New Init :Order
  SetPC Yellow SetPW 9-:Order
  SetPos [-190 -190] PenDown
  Peano :Order 1
End