;;; 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 (overall radius angle)
  (if (< radius 50) 
  	penup 
  	(begin (penup) 
    	(goto (* radius (cos (modulo angle 360))) (* radius (sin (modulo angle 360))))
    	(pendown)
    	(circle-set (* radius (cos (modulo angle 360))) (* radius (sin (modulo angle 360))))
    	(overall (- radius 4) (+ angle 0.2))

    )))


(define (draw)
  (begin
    (penup)
    (overall 400 0)
    (square-bow)
    (color "red")
    (write_big 'SCHEME_ERROORRRRRR)
  )
)

(define (banner)
	(write 'Scheme_Error)
)

(define (square size x y color)
	(pixelsize size)
	(pixel x y color)
	(banner)
)

(define (square-bow)
	(penup)
	(square 100 0 0 "purple")
	(square 90 1 1 "red")
	(square 80 2 2 "orange")
	(square 70 3 3 "yellow")
	(square 60 4 4 "green")
	(square 50 5 5 "blue")
	(square 40 6 6 "purple")
	(square 30 7 7 "red")
	(square 20 8 8 "orange")
	(square 10 9 9 "yellow")
	(square 5 10 10 "green")
	(square 2 11 11 "blue")
	(square 1 12 12 "purple")
	(pendown)
)

(define (circle-set x y)
    (penup)
    (setposition x y)
    (pendown)
    (begin_fill)
    (speed 500)
    (draw-colored-circle 55 "black")
    (banner)
    (draw-colored-circle 50 "yellow")
    (banner)
    (setposition (- x 30) y)
    (draw-colored-circle 40 "white")
    (banner)
    (draw-colored-circle 30 "blue")
    (banner)
    (setposition x (- y 33))
    (left 180)
    (end_fill)
    (penup)
  )

(define (draw-colored-circle length clr)
    (begin
      (color clr)
      (begin_fill)
        (circle length 270)
        (end_fill)))

(define (square size x y clr)
	(pixelsize size)
	(pixel x y clr)
)

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