;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: The Light at the End of the Tunnel
;;;
;;; Description:
;;;    You're almost finished.
;;;    Assignments in ceaseless waves
;;;    Will it ever end?


(define (draw)

  (define (polygon len ang sides col)
    (color col)
    (cond ((= sides 0) 0)
      (else
        (forward len)
        (right ang)
        (polygon len ang (- sides 1) col)
      )
    )
  )

  (define (beauty start end len r g b)
  (cond ((= start end) (ht))
  (else
    (begin_fill)
    (polygon len (quotient 360 start) start (rgb r g b))
    (end_fill)
    (beauty (- start 1) end (/ len 1.01) (+ 0.027 r) (+ g 0.027) b))
  )
  )

  (bgcolor (rgb 0 0 0.2))
  (penup)
  (goto 281 -183)
  (pendown)
  (setheading 211.6)
  (beauty 40 2 60 0 0 0.2)


  (exitonclick)


  )

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