;; standard callback (define cairo-animation (lambda (beat dur) (gl_draw) (gl:swap-buffers ctx) (callback (*metro* (+ beat (* .5 dur))) 'cairo-animation (+ beat dur) dur)))