(load "stk-turtle-stuff")

(define (rectangle x y s m)
  (pu)
  (setposition x y)
  (setheading 0)
  (pd)
  
  (begin_fill)
  (forward s)
  (right 90)
  (forward m)
  (right 90)
  (forward s)
  (end_fill)
)

(define (star s) ;s for length
  (begin_fill)
  (color 'yellow)
  (fd s) (rt 144) (fd s) (lt 72)
  (end_fill)
  (begin_fill)
  (color 'orange)
  (fd s) (rt 144) (fd s) (lt 72)
  (end_fill)
  (begin_fill)
  (color 'red)
  (fd s) (rt 144) (fd s) (lt 72)
  (end_fill)
  (begin_fill)
  (color 'green)
  (fd s) (rt 144) (fd s) (lt 72)
  (end_fill)
  (begin_fill)
  (color 'blue)
  (fd s) (rt 144) (fd s) (lt 72)
  (end_fill)
  (begin_fill)
  (color 'purple)
  (fd s) (rt 144) (fd s) (lt 72)
  (end_fill)
)

(color 'yellow)(rectangle -90 -210 210 5)
(color 'orange)(rectangle -85 -210 210 5)
(color 'red)(rectangle -80 -210 210 5)    
(color 'green)(rectangle -75 -210 210 5)
(color 'blue)(rectangle -70 -210 210 5)
(color 'purple)(rectangle -65 -210 210 5)


(pu)(setposition -75 0)(pd)
(repeat 20(star 17 )(pu) (fd 50) (rt 60) (fd 50)(pd))
(pu)(setposition -70 0)(pd)
(repeat 20(star 22 )(pu) (fd 55) (rt 60) (fd 55)(pd))
(pu)(setposition -70 180)(pd)
(repeat 20(star 20 )(pu) (fd 60) (rt 60) (fd 60)(pd))