;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Spirangles
;;;
;;; Description:
;;;		< If I spent my time
;;;		drawing triangles all day
;;;		I would fail CS. >

(define (draw)
  (define depth 301) 
  (define length 10)
  (define angle 120)
  (define i 0)
  (speed 0)
  (define (draw_knot len ang i) 
  					((rainbow i) 
  					(forward (+ len (* i 2)))
  					(right angle) 
  					(rainbow i) 
  					(forward (+ len (* i 2)))
  					(right (+ 1 ang))
  					(if (>= i depth) (ht) 
  									((define i (+ i 1)) (draw_knot len ang i)))))
  
  (draw_knot length angle i)

  (ht)
  (exitonclick))


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

(draw)