cam.scm

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

(define *log-img* (gfx:make-image 640 480)) 
(define *log-font* "CoolveticaRg-Regular")
(define *log-font-size* 14.0)
(define *log-text-style* (gfx:make-text-style *log-font* *log-font-size*))

(gfx:start-live-video)
(define camera-image-loop
   (lambda (time)
      (let* ((cam (gfx:get-live-frame))
             (log-text (sys:get-string-from-message-bar))
             (textbox-size (gfx:size-of-drawn-text log-text *log-text-style*))
             (y-offset (- 640 (car textbox-size)))
             (text-path (gfx:make-text (- y-offset 10) 
                                       10 
                                       *log-font* *log-font-size* 
                                       log-text)))
         (gfx:draw-image (+ time 2000) *canvas* cam 1)
         
         (gfx:clear-image *log-img*)
         (gfx:path2image text-path *log-img* '() '(1 1 1 1))
         (gfx:image2image (gfx:convert-image *log-img*) cam 1)
         
         (objc:release (+ time 3000) cam)
         (callback (+ time 2000) 'camera-image-loop (+ time 5000)))))

(camera-image-loop (now))