;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Wheel of Fortune
;;;
;;; Description:
;;;    A shape comprised of
;;;    numerous dodecagons
;;;    splashed with some color.

(define (draw)
  ; *YOUR CODE HERE*

  (define (repeat n func) ; Repeat func k times.
  (if (> n 1)
    (begin (func) (repeat (- n 1) func))
    (func)))

  (define (polygon length sides)
    (define angle (/ 360 sides))
    (repeat sides 
            (lambda ()
              (fd length)
              (lt angle)
              )))

  (define (recurse depth colors sides length count turn-angle)
    (define (polygon-wheel colors count)
      (cond ((= count 0)) 
            (else
              (color (car colors)) 
              (polygon length sides)
              (lt turn-angle)
              (polygon-wheel  (append (cdr colors) (list (car colors))) 
                              (- count 1)
                              ))))

    (cond ((= depth 0))
          (else
            (polygon-wheel colors count)
            (recurse  (- depth 1)
                      colors
                      sides
                      (/ length 2)
                      count
                      turn-angle
                      ))))

  (speed 0)
  (define colors '("red" "orange" "yellow" "green" "blue" "purple"))
  (define sides 12)
  (define length 80)
  (define count 72)
  (define turn-angle (/ 360 count))
  (define depth 3)
  (pd)
  (recurse depth colors sides length count turn-angle)
  (pu)
  (fd 1336)
  (exitonclick))

; Please leave this last line alone.  You may add additional procedures above
; this line.  All Scheme tokens in this file (including the one below) count
; toward the token limit.
(draw)