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 Display :Order
  # write header title and curve level
  SetPC White SetPos [-190 180]
  Label Sentence [Pentagon Fractal] :Order
End

To Sier :Order :Side
  If :Order=0 [Pentagon :Side Stop]
  Repeat 5 [ Sier :Order-1 :Side*0.38
  PenUp Forward :Side PenDown Left 360/5 Wait 4]
End

To Pentagon :Side
  Repeat 5 [Forward :Side Left 360/5]
End

To Go :Order
  New Display :Order Home SetPC Purple
  Make "Side 232
  Back :Side/1.3 Right 90 Back :Side/2 PenDown
  Sier :Order :Side
End

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

To Display :Order
  # write header title and curve level
  SetPC White
  SetPos [-190 180] Label Sentence [Pentagon Fractal] :Order
End

To Fill_In
  SetPC DarkBlue Left 22 Forward 5 Fill
  Back 5 Right 22 SetPC Brown
End

To Pentagon :Order :Side
  If :Order < 0 [Stop]
  Right 180
  Repeat 5 [
    PenDown Forward :Side Left 72
    Pentagon :Order-1 :Side/1.618]
  PenUp Fill_In
  Left 180
End

To Go :Order
  New Display :Order
  SetPC Brown Make "Side 64
  SetPos List Minus :Side/2 Minus :Side/1.3 Left 90
  Pentagon :Order :Side
End