;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Spinning Wheel of Death>
;;;
;;; Description:
;;;   <One circle can win
;;;    So rainbow circles can win
;;;    Go ahead and vote>

(define (circles x)
 (if (<= x 15)
  (begin (circle (* 10 x)) (circles (+ 0.5 x)))
 )
)

(bgcolor "black")

(define (draw)
  (speed 20)
  (color "#ff0000")
  (circles 1)
  (lt 30)
  (color "#ff6347")
  (circles 1)
  (lt 30)
  (color "#ffa500")
  (circles 1)
  (lt 30)
  (color "#ffff00")
  (circles 1)
  (lt 30)
  (color "#9acd32")
  (circles 1)
  (lt 30)
  (color "#7fff00")
  (circles 1)
  (lt 30)
  (color "#7fffd4")
  (circles 1)
  (lt 30)
  (color "#00bfff")
  (circles 1)
  (lt 30)
  (color "#4169e1")
  (circles 1)
  (lt 30)
  (color "#8470ff")
  (circles 1)
  (lt 30)
  (color "#a020f0")
  (circles 1)
  (lt 30)
  (color "#ee82ee")
  (circles 1)
  (exitonclick)
)

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