;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Circles
;;;
;;; Description:
;;;   <Circles Circles Cir
;;;    cles Circles Circles Circles
;;;    Circles Circles Yes.>

(hideturtle)

(define (circle-draw k)
  (if (<= k 30)
    (begin (circle (* 10 k)) (circle-draw (+ 1 k)))))
(define (circle-draw2 k)
  (if (<= k 30)
    (begin (circle (* 15 k)) (circle-draw2 (+ 1 k)))))
(define (circle-draw3 k)
  (if (<= k 30)
    (begin (circle (* 20 k)) (circle-draw3 (+ 1 k)))))
(define (circle-draw4 k)
  (if (<= k 30)
    (begin (circle (* 25 k)) (circle-draw4 (+ 1 k)))))

(bgcolor "#000e1a")

(define (draw)
  (speed 0)
  (color "#f44242")
  (circle-draw 1)
  (rt 90)
  (color "#f47141")
  (circle-draw 1)
  (rt 90)
  (color "#f4a941")
  (circle-draw 1)
  (rt 90)
  (color "#f4d941")
  (circle-draw 1)
  (rt 45)
  (color "#dcf441")
  (circle-draw2 1)
  (rt 90)
  (color "#a3f441")
  (circle-draw2 1)
  (rt 90)
  (color "#7619c6")
  (circle-draw2 1)
  (rt 90)
  (color "#d14782")
  (circle-draw2 1)
  (rt 45)
  (color "#ff6247")
  (circle-draw3 1)
  (rt 90)
  (color "#ffbb47")
  (circle-draw3 1)
  (rt 90)
  (color "#97ff6a")
  (circle-draw3 1)
  (rt 90)
  (color "#7cf9de")
  (circle-draw3 1)
  (rt 45)
  (color "#f71d1d")
  (circle-draw4 1)
  (rt 90)
  (color "#ff9605")
  (circle-draw4 1)
  (rt 90)
  (color "#00d323")
  (circle-draw4 1)
  (rt 90)
  (color "#002dd2")
  (circle-draw4 1)
  (exitonclick))

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