;; 30 fps (define loop (lambda (vc vw frame) (read_and_write_frame vc vw frame) (callback (+ (now) (* *second* 1/30)) 'loop vc vw frame)))