Logo Arts

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

To GridSq :Order :Side
  # draw tile at each column x row position
  LocalMake "Offset (1+:Order)/2
  For (List "Col 1 :Order) [
    For (List "Row 1 :Order) [
      SetXY :Side*(:Col-:Offset) :Side*(:Row-:Offset)
      Tile :Col :Row :Side] ]
End

To Tile :Col :Row :Side
  If (:Row=1) [SetH :Col*30]
  Clam 0.8*:Side
  SetPC :Hue Fill Right 30 Wait 2
End

To Clam :Size
  # optical clam shape drawn from centre (tp)
  SetPC White Back :Size/3 Arch 112 0.6*:Size
  Forward :Size/3 Left 180
  SetPC Black Back :Size/3 Arch 112 0.6*:Size
  Forward :Size/3 Left 180
End

To Arch :Angle :Radius
  # symmetrical arc drawn relative to turtle heading
  Arc :Radius Heading-:Angle/2 Heading+:Angle/2
End

To Go :Order
  New SetPW 3
  SetSC Pick [ [102 204 51] [51 204 102] [204 204 0] ]
  GlobalMake "Hue Pick [ [153 102 0] [128 0 255] [0 128 255] ]
  GridSq :Order 384/:Order
End

To TileSq :Col :Row :Side
  SetH 90*Int (:Col+:Row)/2
  Square 0.8*:Side
  SetPC :Hue Fill Wait 2
End

To Square :Side
  # optical square drawn from centre (tp)
  Back :Side/2 Left 90 Back :Side/2 PenDown
  SetPC Black Forward :Side Right 90 Forward :Side Right 90
  SetPC White Forward :Side Right 90 Forward :Side Right 90
  PenUp Forward :Side/2 Right 90 Forward :Side/2
End