;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Your title here>
;;;
;;; Description:
;;;   <Color Shapes Recursion
;;;    Very Trippy Picture It Shows Us Well
;;;    Meaning? I Don't Know.>

(define (draw)
  (bgcolor "black")
  (hideturtle)
  (speed 0)

  (helper 0)
)

(define (helper n)
  (cond
    ((= n 1000)
      nil
    )
    (else
      (color  (rgb .598 .543 .985))
      (forward (+ n 5))
      (right 75)
      (color  (rgb .319 .133 .434))
      (forward (+ n 10))
      (right 75)
      (color  (rgb .234 .854 .312))
      (forward (+ n 15))
      (right 75)

      (color  (rgb .654 .543 .345))
      (forward (+ n 20))
      (right 75)
      (color  (rgb .376 .123 .423))
      (forward (+ n 25))
      (right 75)
      (color  (rgb .654 .750 .675))
      (forward (+ n 30))
      (right 75)
      (color  (rgb .963 .234 .432))
      (forward (+ n 35))
      (right 75)

      (color  (rgb .131 .645 .433))
      (forward (+ n 40))
      (right 75)
      (color  (rgb .424 .173 .875))
      (forward (+ n 45))
      (right 75)
      (color  (rgb .751 .531 .863))
      (forward (+ n 50))
      (right 75)
      (color  (rgb .534 .113 .223))
      (forward (+ n 55))
      (right 75)

      (color  (rgb .967 .086 .908))
      (forward (+ n 60))
      (right 75)
      (color  (rgb .648 .451 .434))
      (forward (+ n 65))
      (right 75)
      (color  (rgb .322 .432 .996))
      (forward (+ n 70))
      (right 75)
      (color  (rgb .131 .656 .441))
      (forward (+ n 75))
      (right 75)

      (color  (rgb .424 .233 .423))
      (forward (+ n 80))
      (right 75)
      (color  (rgb .864 .242 .313))
      (forward (+ n 85))
      (right 75)
      (color  (rgb .979 .313 .632))
      (forward (+ n 90))
      (right 75)
      (color  (rgb .562 .422 .534))
      (forward (+ n 95))
      (right 75)

      (helper (+ n 100)) 
    )
  )  
)

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