(use srfi-18)
(use rfb)
;(load "rfb.scm")
;(import rfb)
(use matchable)

(define (test)
  (let ((rs ((rfb-server) 640 480 (pixel-format))))
    (let loop ()
      (match (read-client-message rs)
	(('FramebufferUpdateRequest #f x y w h)
	 (framebuffer-update-rectangle
	  rs
	  (rectangle 0 0 640 480 (make-u32vector (* w h) 0))))
	(('FramebufferUpdateRequest #t x y w h)
	 (framebuffer-update-rectangle
	  rs
	  (rectangle
	   (random 630) (random 470) 
	   10 10
	   (make-u32vector 
	    100
	    (case (random 3)
	      ((0) #xaa0000)
	      ((1) #x00bb00)
	      (else #x0000cc))))))
	((? eof-object?) (exit))
	(('KeyEvent . _) (exit))
	(e (pp e)))
      (loop))))

(test)