;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: I'll be your daydream
;;;
;;; Description:
;;;   <Denero dripping
;;;    on my front porch, wearing a 
;;;    kilt made of dry ice.>


(define (draw)

	(define (draw-pie radius red green blue sector)
		(begin_fill)
		(pendown)
		(color (rgb red green blue))
		(circle radius sector)
		(penup)
		(end_fill)
	)

	(define (draw-swirl radius red green blue sector red-inc green-inc blue-inc)
		(cond 
			((= radius 0))
			((> red 1) (draw-swirl radius 0 green blue sector red-inc green-inc blue-inc))
			((> green 1) (draw-swirl radius red 0 blue sector red-inc green-inc blue-inc))
			((> blue 1) (draw-swirl radius red green 0 sector red-inc green-inc blue-inc))
			(else 
				(draw-pie radius red green blue sector)
				(draw-swirl (- radius 5) (+ red red-inc) (+ green green-inc) (+ blue blue-inc) (+ sector 10) red-inc green-inc blue-inc)
			)
		)
	)

	(define (draw-sepal radius sector green-inc x y)
		(setposition x y)
		(draw-swirl radius 0 0 0 sector 0 green-inc 0)
	)

	(define (draw-rose-ring num-roses radius red green blue sector red-inc green-inc blue-inc orig-x orig-y)
		(cond
			((= num-roses 0))
			(else
				(setposition orig-x orig-y)
				(draw-swirl radius red green blue sector red-inc green-inc blue-inc)
				(draw-rose-ring (- num-roses 1) radius red green blue sector red-inc green-inc blue-inc orig-x orig-y)
			)
		)
	)

	(define (draw-bouquet num-roses radius red green blue sector red-inc green-inc blue-inc orig-x orig-y)
		(draw-rose-ring num-roses radius red green blue sector red-inc green-inc blue-inc orig-x orig-y)
		(setheading 0)
		(setposition (+ orig-x radius) orig-y)
		(draw-swirl radius red green blue sector red-inc green-inc blue-inc)
	)

	(speed 0)
	(bgcolor (rgb 0.9 0.5 0.5))


	(draw-sepal 75 10 0.1 175 175)
	(draw-sepal 75 10 0.1 120 100)
	(draw-sepal 75 10 0.1 -125 175)
	(draw-sepal 75 10 0.1 -150 180)
	(draw-sepal 75 10 0.1 -175 175)
	(draw-sepal 75 10 0.1 -120 -80)
	(draw-sepal 75 10 0.1 -10 -90)
	(draw-sepal 75 10 0.1 109 -175)
	(draw-sepal 75 10 0.1 50 -50)
	(draw-sepal 75 10 0.1 275 275)
	(draw-sepal 75 10 0.1 -250 -250)

	(draw-bouquet 6 100 0 0 0 10 0.1 0 0 100 100)
	(draw-bouquet 6 100 0 0 0 10 0.1 0 0 150 150)
	(draw-bouquet 6 100 0 0 0 10 0.1 0 0 0 200)

	(draw-bouquet 6 100 0 0 0 10 0.1 0 0 -100 100)
	(draw-bouquet 6 100 0 0 0 10 0.1 0 0 -150 150)
	(draw-bouquet 6 100 0 0 0 10 0.1 0 0 -200 0)

	(draw-bouquet 6 100 0 0 0 10 0.1 0 0 -100 -100)
	(draw-bouquet 6 100 0 0 0 10 0.1 0 0 -150 -150)
	(draw-bouquet 6 100 0 0 0 10 0.1 0 0 0 -200)

	(draw-bouquet 6 100 0 0 0 10 0.1 0 0 100 -100)
	(draw-bouquet 6 100 0 0 0 10 0.1 0 0 150 -150)
	(draw-bouquet 6 100 0 0 0 10 0.1 0 0 200 0)

	(draw-bouquet 6 100 0 0 0 10 0.1 0 0 0 0)
	
  	(exitonclick)
)

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