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 PtoR :RadDist :Theta
  # convert polar to rectangular co-ordinates
  LocalMake "X :RadDist *Sin :Theta
  LocalMake "Y :RadDist *Cos :Theta
  Output List :X :Y
End

To Spiral :Ang
  # Twisted Rose Curve
  Make "Radius 180*Sin(6*:Ang)
  Make "Angle :Ang + (:Radius/4)
  Output PtoR :Radius :Angle
End

To Go
  New SetPC Yellow
  For [Ang 0 360] [
    SetPos Spiral :Ang PenDown]
End

To Spiral :Angle
  # Twisted Rose Curve2
  Make "Radius 180*Sin(4*:Angle)
  Make "Angle :Angle + :Radius
  Output PtoR :Radius :Angle
End

To Spiral :Angle
  # Twisted Rose Simple
  Make "Radius 160*Sin :Angle
  Make "Angle :Angle + :Radius
  Output PtoR :Radius :Angle
End