;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Purple Mosaics
;;;
;;; Description:
;;;   One day
;;;   The color in our lives
;;;   Will fade



(define (draw)
  (pixelsize 10)
  (define (f m n a b c)
    (pixel m n (rgb a b c))
    (cond
      ((< n 60) (f m (+ n 1) (+ a 0.001) (+ b 0.001) (+ c 0.001)))
      ((< m 120) (f (+ m 1) 0 (- a 0.048) (- b 0.048) (- c 0.048)))
  ))
  (f 0 0 0.15 0 0.15)
  (exitonclick))


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