;; standard impromptu callback
(define opengl-test
(lambda (beat dur)
(set! dur 1/16)
;; (if (< (*metro* beat) (now))
;; (println 'opengl-test-behind (- (*metro* beat) (now))))
(mainLoop beat)
(glfw_poll_events)
(glfw_swap_buffers (get_window))
(callback (*metro* (+ beat (* dur .125))) 'opengl-test (+ beat dur) dur)))