;; standard impromptu callback (define opengl-loop (lambda (model1 model2 model3 degree) (gl_render model1 model2 model3 degree) (gl:swap-buffers glctx) (callback (+ (now) 1000) 'opengl-loop model1 model2 model3 (+ degree .5))))