(define shadertoy-loop (lambda (time delta-t) (gl_draw) (let ((next-time (max (+ time (* *second* delta-t)) (now)))) (callback next-time 'shadertoy-loop next-time delta-t))))