(define xtm-setup-and-start-gl-loop (lambda (width height fps start-time) (xtm_render_setup width height) (gl-loop start-time (/ 1 fps)) ;; not sure about the best way to see if this function succeeds #t))