;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: stars are a lot harder to make than you think
;;;
;;; Description:
;;;   <everything will end.
;;;    like cs61a
;;;    and the avengers>


(define (shield x1 y1 size col)
  (color col)
  (goto x1 y1)
  (pd)
  (begin_fill)
  (circle size)
  (end_fill)
  (pu)
)

(define (draw-star L1 F1 L2 F2 L3 F3 L4 F4 L5 F5)
  (left L1)
  (forward F1)
  (left L2)
  (forward F2)
  (left L3)
  (forward F3)
  (left L4)
  (forward F4)
  (left L5)
  (forward F5)
)

(define (draw)
;circles
  (speed 0)
  (bgcolor "black")
  (shield 200 0 200 "red")

  (shield 160 0 160 "white")

  (shield 120 0 120 "red")

  (shield 80 0 80 "blue")
;stars
  (goto 75 15)
  (color "white")
  (pendown)
  (begin_fill)
  (draw-star 90 150 144 155 144 160 144 155 144 155)
  (end_fill)
  (penup)
  (goto 17 -32)
  (pendown)

;filling the star becuz i couldnt figure it out lol
  (begin_fill)
  (circle 30)
  (end_fill)
  (penup)
  (hideturtle)
  (exitonclick))

; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)