Yellow Sun

to yellowsun
  setscreencolor 0
  setpencolor    6
  repeat 25 [ repeat 100 [ forward repcount * 2 right 91 ] ]
end

yellowsun