;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Swirlpool
;;;
;;; Description:
;;;    Fall into the depths
;;;    Practice problems, past exams
;;;    Please give me an A

(define blues
	(cons-stream "#036bcc" ; 1
		(cons-stream "#0570cc" ; 2
			(cons-stream "#0875cc" ; 3
				(cons-stream "#0a7acc" ; 4
					(cons-stream "#0d80cc" ; 5
						(cons-stream "#0f85cc" ; 6
							(cons-stream "#128acc" ; 7
								(cons-stream "#148fcc" ; 8
									(cons-stream "#1794cc" ; 9
										(cons-stream "#1a99cc" ; 10
											(cons-stream "#1c9ecc" ; 11
												(cons-stream "#1fa3cc" ; 12
													(cons-stream "#21a8cc" ; 13
														(cons-stream "#24adcc" ; 14
															(cons-stream "#26b2cc" ; 15
	(cons-stream "#29b8cc" ; 16
		(cons-stream "#26b2cc" ; 15
			(cons-stream "#24adcc" ; 14
				(cons-stream "#21a8cc" ; 13
					(cons-stream "#1fa3cc" ; 12
						(cons-stream "#1c9ecc" ; 11
							(cons-stream "#1a99cc" ; 10
								(cons-stream "#1794cc" ; 9
									(cons-stream "#148fcc" ; 8
										(cons-stream "#128acc" ; 7
											(cons-stream "#0f85cc" ; 6
												(cons-stream "#0d80cc" ; 5
													(cons-stream "#0a7acc" ; 4
														(cons-stream "#0875cc" ; 3
															(cons-stream "#0570cc" blues) ; 2, 1
	)))))))))))))))))))))))))))))
)

(define (multiwave)
	(circle 5 180) (circle -10 180) (circle 15 180) (circle -20 180) (circle 25 180) (circle -30 180)
	(circle 35 180) (circle -40 180) (circle 45 180) (circle -50 180))

(define (wave-ray head b)
	(if (= head 360)
		(pu)
		(begin 
			(pu) (setpos 0 0) (seth head) (color (car b)) (pd)
			(multiwave)
			(pu) (setpos 0 0) (seth (+ head 1)) (pd)
			(multiwave)
			(pu) (setpos 0 0) (seth (+ head 2)) (pd)
			(multiwave)
			(wave-ray (+ head 3) (cdr-stream b)))
	))

(define (draw)
	(wave-ray 0 blues)
	(bgcolor "#000000"))


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