;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Your title here>
;;;
;;; Description:
;;;   <It's your masterpiece.
;;;    Use these three lines to describe
;;;    its inner meaning.>

(define (draw)
  ; YOUR CODE HERE
  (define (center)
    (setposition 0 0)
  )
  (define (drawstar orig)
    (if (< orig 80)
      (begin
        (center)
        (setheading 0)
      )
      (begin
        (center)
        (pendown)
        (forward orig)
        (penup)
        (center)
        (right 13)
        (drawstar (/ orig 1.1))
      )


    )
  )
  (define (stardrawer start-len color-val start-angle)
    (if (< 1 color-val)
      (begin
        (center)
        (setheading 0)
      )
      (begin
        (setheading start-angle)
        (rgb_color (* 0.6 color-val) (* 0.8 color-val) color-val)
        (drawstar start-len)
        (stardrawer (/ start-len 1.01) (+ color-val 0.03) (- start-angle 0.4))
      )
    )
  )
  (speed 0)
  (pen_width 8)
  (rgb_background 0.6 0.8 1)
  (stardrawer 1500 0 0)
  (exitonclick)

)

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