;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Your title here>
;;;
;;; Description:
;;;   <It's your masterpiece.
;;;    Use these three lines to describe
;;;    its inner meaning.>


(define (tenth-draw length)
  (define final-len (/ length 100))
  (if (< final-len 1)
    1
    (floor final-len)
  )
)

(define (swirl limit rot-angle draw-len k red green blue primary-color)
  (cond
    ((= k limit)
      (pu)
      (setpos 0 0)
      (pd)
    )
    (else
      (define draw-color (rgb red green blue))
      (color draw-color)
      (fd (tenth-draw draw-len))
      (pu)
      (fd (- draw-len (tenth-draw draw-len)))
      (left rot-angle)
      (pd)
      (cond
        ((eq? primary-color 'r)
          (swirl limit rot-angle (+ draw-len 1) (+ k 1) (- red 0.003) (+ green 0.0005) (+ blue 0.0005) primary-color)
        )
        ((eq? primary-color 'g)
          (swirl limit rot-angle (+ draw-len 1) (+ k 1) (+ red 0.0005) (- green 0.003) (+ blue 0.0005) primary-color)
        )
        (else
          (swirl limit rot-angle (+ draw-len 1) (+ k 1) (- red 0.003) (- green 0.003) (- blue 0.003) primary-color)
        )
      )
    )
  )
)


(define (draw)
  (bgcolor '"black")
  (speed 0)

  (swirl 250 71 0 0 1 1 1 'w)
  (swirl 200 73 0 0 0 1 0 'g)
  (swirl 200 71 0 0 1 0 0 'r)
  (swirl 150 73.5 0 0 0 1 0 'g)
  (swirl 200 70.5 0 0 1 0 0 'r)
  (swirl 250 73.1 0 0 0 1 0 'g)
  (swirl 250 70.9 0 0 1 0 0 'r)
  (swirl 250 73.2 0 0 0 1 0 'g)
  (swirl 250 70.8 0 0 1 0 0 'r)
  (swirl 150 73.3 0 0 0 1 0 'g)
  (swirl 150 70.7 0 0 1 0 0 'r)

  (ht)
  (exitonclick))

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