(init-screen 640 480 #t)

;(connect 'mouse-button-press
;         (lambda (event)
;           (set-fg-color (random #xFFFFFF))))

(let ((oldx 0)
      (oldy 0)
      (drawing #f)
      (color 0))
  (while #t 
         (usleep 10000)
         (cond ((mouse:get-button 1)
                (if drawing
                    ;;(draw-line oldx oldy (mouse:get-x) (mouse:get-y))
                    (draw-rect (mouse:get-x) (mouse:get-y) 10 10 #t)
                    (set! drawing #t))
                (set! color (+ color 10))
                (set-fg-color color)
                (set! oldx  (mouse:get-x)) 
                (set! oldy  (mouse:get-y)))
               (else
                (set! drawing #f)))))

;; EOF ;;