;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Lost in Spirals
;;;
;;; Description:
;;;   <For just a moment,
;;;    Toss worries to this pool of
;;;    Spirals. And relax.>

(define (draw)
  (action -100 15)
  (ht)
  (exitonclick))

(define (circles pos rad col)
  (color col)
  (circ pos pos rad)
  (circ (+ pos 200) (+ pos 200) rad)
  (circ pos (+ pos 200) rad)
  (circ (+ pos 200) pos rad)
  )

(define (circ x y rad)
  (begin_fill)
  (pu)
  (setpos x y)
  (pd)
  (circle rad)
  (end_fill)
  )

(define (action num count)
  (if (<= count 0) nil
    (begin 
      (spiral num count 7)
      (spiral (+ num 100) count 6)
      (spiral (- num 100) count 8)
      (action (- num 2) (- count 1)))
    )
  )

(define (spiral num count mult)
  (define use (modulo num 10))
  (if (odd? (/ num 2)) (circles num (* count 7) "Black")
    (circles num (* count mult) "Grey"))
  )

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