(define gl-loop (lambda (beat dur) (gl_render) (gl:swap-buffers *gl-ctx*) (callback (*metro* (+ beat (* .5 dur))) 'gl-loop (+ beat dur) dur)))