;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Color Drain
;;;
;;; Description:
;;;   <Darkness reigns far out
;;;    Too far in has few colors
;;;    Stay in the middle>

(define (draw)
  (speed 0)
  (define (color_code n)
    (cond ((= n 1) "red")
	  ((= n 2) "orange")
	  ((= n 3) "yellow")
	  ((= n 4) "green")
	  ((= n 5) "blue")
	  ((= n 6) "violet")
	  (else "black")
	  ))
  (define (ring number radius color_num count)
    (if (= count number)
	(if (< number 50)
	    (ring (+ number 1) (* radius 1.2) 1 0)
	    'done)
	(begin ((pu)
		(goto 0 0)
		(forward radius)
		(pd)
		(color (color_code color_num))
		(begin_fill)
		(circle (/ radius 5))
		(end_fill)
		(right (/ 360 number))
		(ring number radius (+ color_num 1) (+ count 1))))))
  (ring 3 30 1 0)
  (exitonclick))

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