;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: '42'
;;;
;;; Description:
;;;    Answers Ultimate
;;;    Question of Life, Universe,
;;;    and Everything.

(speed 10)

(define (colors x)
  (cond
    ((> 112 x) (color "#424242"))
    ((and (< 112 x) (> 224 x)) (color "#848484"))
    (else (color "#168168"))
  )
)

(define (draw1 n)
  (colors n)
  (left (+ n 42))
  (forward (+ n 4.2))
)

(define (if1)
  (circle 42)
  (penup)
)

(define (draw)
  ; YOUR CODE HERE
  (define (helper n)
    (if (>= n 336)
      (penup)
      (draw1 n)
    )
    (helper (+ n 4.2))
  )
  (helper 0)
  (hideturtle)
  (exitonclick))

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