;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Breaking the Wheel
;;;
;;; Description:
;;;   <On and on it spins
;;;    Crushing all those on the ground
;;;    A beautiful dream.>

(define (draw)
  (speed 0)
  (goto -350 -300)
  (n-gon "black" 1000 4)
  (goto -400 0)
  (iteration (colorz) 75 34 31)
  (exitonclick))

(define (polygon clr size angle sides)
  (cond 
  	((> sides 0)
	  (color clr)
	  (fd size)
	  (rt angle)
	  (polygon clr size angle (- sides 1))))
)

(define (n-gon color size sides)
	(begin_fill)
	(polygon color size (quotient 360 sides) sides)
	(end_fill)
)

(define (iteration clr size sides levels)
	(cond
		((and (null? clr) (> levels 0)) 
			(color "black")
			(lines 12)
			(iteration (colorz) (- size 1) (- sides 1) (- levels 1)))
		((> levels 0) 
			(n-gon (car clr) size sides)
			(iteration (cdr clr) (- size 1) (- sides 1) (- levels 1)))
		
	)
)

(define (colorz) '("red" "orange" "yellow" "green" "blue" "purple"))

(define (lines levels)
	(cond 
		((> levels 0)
			(rt 30)
			(fd 1000)
			(rt 180)
			(fd 1000)
			(lines (- levels 1))))
)

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