opengl-loop   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/shaderlight.xtm

Implementation

;; standard impromptu callback
(define opengl-loop
  (lambda (degree)
    (gl_print_error)
    (gl_render degree)
    (gl:swap-buffers glctx)
    (callback (+ (now) 1000) 'opengl-loop (+ degree .5))))


Back to Index

Similar Entries