;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Rainbow Succulent>
;;;
;;; Description:
;;;   <Life is succulent.
       It would suck to be a plant.
       Congrats! You are not.>

(define (draw)

      (hideturtle)

      (speed 0)
      (setposition 500 0)
      (begin_fill)
      (circle 500)
      (end_fill)
      (define (move-spirals head)
      (penup)
      (setposition 0 0)
      (pendown)
      (define orig-heading head)
      (define (rainbow size heading inc red green blue)

          (color (rgb red green blue))
          (setheading heading)
          (forward (/ inc 2))
          (pendown)
          (circle size)
          (circle (/ size 2))
          (forward (/ inc 2))
          (begin_fill)
          (circle (/ size 2))
          (end_fill)

          (cond
            ((> heading (+ 360 orig-heading)) nil)
            ((and (= red .9) (< green .9) (<= blue .1)) (rainbow (* size 1.17) (+ heading 10) (* inc 1.21) .9 (+ green .11) .1))
            ((and (>= red .1) (>= green .9) (= blue .1)) (rainbow (* size 1.17) (+ heading 10) (* inc 1.21) (- red .125) .9 .1))
            ((and (<= red .1) (= green .9) (< blue .9)) (rainbow (* size 1.17) (+ heading 10) (* inc 1.21) .1 .9 ( + blue .11)))
            ((and (= red .1) (>= green .1) (>= blue .9)) (rainbow (* size 1.17) (+ heading 10) (* inc 1.21) .1 (- green .11) .9))
            ((and (<= red .9) (<= green .1) (= blue .9)) (rainbow (* size 1.17) (+ heading 10) (* inc 1.21) (+ red .11) .1 .9))
            ((and (>= red .9) (= green .1) (>= blue .1)) (rainbow (* size 1.17) (+ heading 10) (* inc 1.21) .9 .1 (- blue .11)))

          )
      )

      (rainbow 1.2 head 1.2 .9 .1 .1)
      (cond
        ((> head 360) nil)

        (else (move-spirals (+ head 20)))
      )

      )
      (move-spirals 0)

  (exitonclick))






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