;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Taste the Rainbow
;;;
;;; Description:
;;;   <Stare at the colors
;;;    Bask in the recursive depths
;;;    let them call to you.>

(bgcolor "black")
(tracer 10000)
(define (move n)
	(color 
		(rgb
			(/ (+ (* (sin (* 0.3 (/ n 25))) 127) 128) 255)
			(/ (+ (* (sin (+ (* 0.3 (/ n 25)) 2.0933)) 127) 128) 255)
			(/ (+ (* (sin (+ (* 0.3 (/ n 25)) 4.1866)) 127) 128) 255)
		)
	)
	(fd (/ n 3))
	(rt 144)
	(fd (/ n 3))
	(rt 120)
	(fd (/ n 3))
	(rt 144)
	(if (< n 2850)(move (+ n 1)))
)


(define (draw)
  (move 0)
  (exitonclick) 
)


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