;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <To be fair, you have to have a very high IQ to understand scheme. The funtional paradigm is extremely subtle, and without a solid grasp of >
;;;
;;; Description:
;;;   <To be fair, you have
;;;    to have quite a high IQ
;;;    to understand scheme>
(define (colorer i)
	(color (rgb (+ 0.5 (* 0.5 (sin (* 0.05 i))))
		(+ 0.5 (* 0.5 (sin (+ 90 (* 0.05 i)))))
		(+ 0.5 (* 0.5 (sin (+ 180 (* 0.05 i)))))))
  )
(define (circles o n c d)
  (if (> n 1)
    (begin (colorer c)
	   (begin_fill)
      	   (circle n 360)
	   (end_fill)
	   (circles o (/ n 1.05) (+ c 2) d)
	   (if (= o n)
	     (begin (pu)
		    (forward n)
		    (rt 45)
		    (pd)
		    (circles (/ n 1.2) (/ n 1.2) (+ c 2017) (/ n 1.2)))
	     nil)
	   )
    nil)
  )
(define (bger n c)
  (if (> n 1)
    (begin (colorer c)
	   (pu)(setpos n 0)(pd)
	   (begin_fill)
	   (circle n)
	   (end_fill)
	   (bger (/ n 1.05) (+ 2 c)))
    nil)
  )

(define (draw)
  (bgcolor "#000000")
  (ht)
  (bger 800 0)
  (pu)
  (setpos -342 -238)
  (pd)
  (circles 300 300 0 0)
  )
; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)