Black Sun

TO SSHAPE
  REPEAT 750 [
    RIGHT 90
    REPEAT 4 [ FORWARD REPCOUNT * 3 RIGHT 72 ]
    RIGHT REPCOUNT
  ]
END

TO BLACKSUN
  REPEAT 24 [ SSHAPE ]
END

BLACKSUN