;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Gold @ the End of the Rainbow
;;;
;;; Description:
;;;   <We show up at Cal
;;;    In all kinds of colors, but
;;;    We all come out gold.

(define (terdragon length depth x-pos y-pos header id-num)
	(if (= depth 0) (pendown) (penup))
	(cond ((= id-num 0) (cond ((> y-pos 275) (color "#EDCC12"))
														((> y-pos 250) (color "#ECB710"))
														((> y-pos 225) (color "#EBA30E"))
														((> y-pos 200) (color "#EA8F0C"))
														((> y-pos 175) (color "#E97B0A"))
														((> y-pos 150) (color "#E96709"))
														((> y-pos 125) (color "#E85307"))
														((> y-pos 100) (color "#E73F05"))
														((> y-pos 75) (color "#E62B03"))
														((> y-pos 50) (color "#E51701"))
														(else (color "#E50300"))))
			  ((= id-num 1) (cond ((> x-pos 231) (color "#EDCC12"))
														((> x-pos 210) (color "#EBB727"))
														((> x-pos 189) (color "#EAA33C"))
														((> x-pos 168) (color "#E98E51"))
														((> x-pos 147) (color "#E87A66"))
														((> x-pos 126) (color "#E7667B"))
														((> x-pos 105) (color "#E65190"))
														((> x-pos 84) (color "#E53DA5"))
														((> x-pos 63) (color "#E428BA"))
														((> x-pos 42) (color "#E314CF"))
														(else (color "#E200E5"))))
				((= id-num 2) (cond ((> x-pos 187) (color "#EDCC12"))
														((> x-pos 170) (color "#D8B922"))
														((> x-pos 153) (color "#C3A633"))
														((> x-pos 136) (color "#AE9344"))
														((> x-pos 119) (color "#998155"))
														((> x-pos 102) (color "#846E66"))
														((> x-pos 85) (color "#6F5B77"))
														((> x-pos 68) (color "#5A4988"))
														((> x-pos 51) (color "#453699"))
														((> x-pos 34) (color "#3023AA"))
														(else (color "#1B11BB"))))
				((= id-num 3) (cond ((< y-pos (- 275)) (color "#EDCC12"))
														((< y-pos (- 250)) (color "#D7CA12"))
														((< y-pos (- 225)) (color "#C1C812"))
														((< y-pos (- 200)) (color "#ABC613"))
														((< y-pos (- 175)) (color "#95C513"))
														((< y-pos (- 150)) (color "#7FC314"))
														((< y-pos (- 125)) (color "#69C114"))
														((< y-pos (- 100)) (color "#53C014"))
														((< y-pos (- 75)) (color "#3DBE15"))
														((< y-pos (- 50)) (color "#27BC15"))
														(else (color "#11BB16"))))
				((= id-num 4) (cond ((< x-pos (- 231)) (color "#EDCC12"))
														((< x-pos (- 210)) (color "#D7B811"))
														((< x-pos (- 189)) (color "#C1A511"))
														((< x-pos (- 168)) (color "#AB9211"))
														((< x-pos (- 147)) (color "#957F10"))
														((< x-pos (- 126)) (color "#806C10"))
														((< x-pos (- 105)) (color "#6A5810"))
														((< x-pos (- 84)) (color "#54450F"))
														((< x-pos (- 63)) (color "#3E320F"))
														((< x-pos (- 42)) (color "#281F0F"))
														(else (color "#130C0F"))))
				((= id-num 5) (cond ((< x-pos (- 187)) (color "#EDCC12"))
														((< x-pos (- 170)) (color "#E5BB25"))
														((< x-pos (- 153)) (color "#DDAA39"))
														((< x-pos (- 136)) (color "#D5994D"))
														((< x-pos (- 119)) (color "#CE8860"))
														((< x-pos (- 102)) (color "#C67774"))
														((< x-pos (- 85)) (color "#BE6688"))
														((< x-pos (- 68)) (color "#B7559B"))
														((< x-pos (- 51)) (color "#AF44AF"))
														((< x-pos (- 34)) (color "#A733C3"))
														(else (color "#A023D7")))))
	(setpos x-pos y-pos)
	(seth header)
	(fd length)
	(if (> depth 0) (begin (terdragon (/ length 1.73205080757) 
																		(- depth 1)
																		x-pos
																		y-pos
																		(- header 30)
																		id-num)
											   (terdragon (/ length 1.73205080757)
													 					(- depth 1)
																		(+ x-pos (* (/ length 1.73205080757) (cos (- 120 header))))
																		(+ y-pos (* (/ length 1.73205080757) (sin (- 120 header))))
																		(+ header 90)
																		id-num)
												 (terdragon (/ length 1.73205080757)
													 					(- depth 1)
																		(+ x-pos (* (/ length 1.73205080757) (cos (- 60 header))))
																		(+ y-pos (* (/ length 1.73205080757) (sin (- 60 header))))
																		(- header 30)
																		id-num))))
	
(define (draw)
	(speed 0)
	(terdragon 300 7 0 0 0 0)
	(terdragon 300 7 0 0 60 1)
	(terdragon 300 7 0 0 120 2)
	(terdragon 300 7 0 0 180 3)
	(terdragon 300 7 0 0 240 4)
	(terdragon 300 7 0 0 300 5)
	(ht)
  (exitonclick))

; Please leave this last line alone.  You may add additional procedures above
; this line.  All Scheme tokens in this file (including the one below) count
; toward the token limit.
(draw)