Walk of Arcs

- random wander


The turtle draws a random series of 90 degree arcs. When the edge of the screen is reached the next curve is drawn in a different pen color.

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

To OnStage?
  # check turtle within window edges
  If (Or X<-190 X>190 Y<-190 Y>190) [Output False] [Output True]

To RightArc :Angle :Radius
  # arc drawn relative to turtle position, angle & radius positive
  PenUp Left 90 Back :Radius
  Arc :Radius Heading Heading+:Angle
  Right :Angle Forward :Radius Right 90 PenDown

To Go
  Repeat 4 [
    PenUp Home SetH RepCount*90 SetPC RepCount PenDown
    While [OnStage?] [
      Make "Parity Pick [-1 1]
      RightArc :Parity *90 12 Wait 2] ]

arc step
Arc Step

Procedures blue
Variables pink
Comments green
Library gray