;; standard impromptu callbacks
(define opengl-loop
(lambda (time dur degree)
(if (= (modulo time 12000) 0)
(println 'heartbeat!))
(let ((v (now)))
(gl_load_movie_textures)
(gl_render)
(gl:swap-buffers glctx)
)
(callback (+ time (* dur .1)) 'opengl-loop (+ time dur) 2000 (+ degree .5))))