(bind-func gl_draw_loop (lambda (time:i64 delta_t:double degree) (gl_draw degree) (let ((next_time (+ time (convert (* 44100. delta_t))))) (callback next_time gl_draw_loop next_time delta_t (+ degree 0.005)))))