;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Rainbow Flower Ring>
;;;
;;; Description:
;;;   <Exam's in three days.
        Gaze upon this rainbow ring,
        deep breaths, and relax.>
(speed 0)(screen_width)(screen_height)(hideturtle)
(bgcolor "black")

(define (draw)
  
  (define (spiral n times factor)
    (cond
      ((= times 6)
       nil)
      ((= n 0) (pu) (rt 90) (fd (/ 120 factor)) (lt 90) (fd (/ 30 factor)) (lt 30)
        (spiral 100 (+ times 1) factor))
      (else
       (pd)
       (forward (/ (+ n 100) factor))
       (rt 90.911)
       (spiral (- n 1) times factor))))






   (color "red")
   (pu)
   (setpos 0 0)
   (fd 225)
   (spiral 100 0 2)
   (color "orange")
   (pu)
   (setpos 0 0)
   (rt 54)
   (fd 225)
   (spiral 100 0 2)
   (color "yellow")
   (pu)
   (setpos 0 0)
   (rt 54)
   (fd 225)
   (spiral 100 0 2)
   (color "green")
   (pu)
   (setpos 0 0)
   (rt 54)
   (fd 225)
   (spiral 100 0 2)
   (color "blue")
   (pu)
   (setpos 0 0)
   (rt 54)
   (fd 225)
   (spiral 100 0 2)
   (color "blue violet")
   (pu)
   (setpos 0 0)
   (rt 54)
   (fd 225)
   (spiral 100 0 2)

  (exitonclick))

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