shadertoy-loop   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/external/shader-tutorials/shadertoy.xtm

Implementation

(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))))


Back to Index