(bind-func gl_draw_loop
(lambda (time:i64 delta_t:double)
(burners (i64tod time))
(set! StepNum (+ StepNum 1))
(update_data_points)
(xtm_render null null trans:XTMRENDERCB null null) ;(cast models i8*))
;; swap buffers
(glfwPollEvents)
(glfwSwapBuffers window)
;; set next frame callback
(let ((next_time (+ time (convert (* 44100. delta_t)))))
(callback next_time gl_draw_loop next_time delta_t))))