;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Your title here>
;;;
;;; Description:
;;;   <These polygons are
;;;    pretty interesting. They're 
;;;    equilateral.>

(define (repeater f n)
  (if (> n 0)
    (begin
      (f)
      (repeater f (- n 1))
    )
  )
)

(define (draw-poly n l)
  (define (forward-turn)
    (forward l)
    (left (/ 360 n))
  )
  (repeater forward-turn n)
)

(define (bloom n l c nc)
  (if (> n 2)
    (begin
      (color (rgb c c (- 1 c)))
      (draw-poly n l)
      (bloom (- n 1) l (+ c (/ 1 nc)) nc)
    )
  )
)

(define (rotate-repeater f n l total angle)
  (if (> total 0)
    (begin
      (f n l 0 n)
      (forward (/ l 2))
      (left angle)
      (backward (/ l 2))
      (rotate-repeater f n l (- total angle) angle)
    )
  )
)

(define (draw)
  (bgcolor "black")
  (speed 0)
  (rotate-repeater bloom 30 40 360 60)
)

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