;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;

;; Live video

;;

;; Turn your isight on and away you go :)

;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(define *canvas* (gfx:make-canvas))


(gfx:start-live-video)


(define loop

   (lambda ()

      (let ((camera-image (gfx:get-live-frame)))             

         (gfx:draw-image (now) *canvas* camera-image 1.0)

         (callback (+ (now) 2000) loop))))


(callback (+ (now) (* *second* 2)) 'loop)