;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Your title here>
;;;
;;; Description:
;;;   <It's your masterpiece.
;;;    Use these three lines to describe
;;;    its inner meaning.>
(define (draw)
  (define (smoke x y)
    (pixel x y (color x y))
    (cond ((and (> x 1200) (> y 600))) ((> y 600) (smoke (+ x 1) 0)) (else (smoke x (+ y 1)))))
  (smoke 0 0)
  (exitonclick))
(define (color x y) (rgb (/ (+ (- 360000 (* x 150)) (* y 300)) 720000) (/ (+ (- 360000 (* x 150)) (* y 300)) 720000) (/ (+ (- 360000 (* x 150)) (* y 300)) 720000)))
; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)