opengl-loop   scheme


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

Implementation

;; standard impromptu callbacks
(define opengl-loop
  (lambda (time dur degree)
    (if (= (modulo time 12000) 0)
        (println 'heartbeat!))
    (let ((v (now)))
      (gl_load_movie_textures)
      (gl_render)
      (gl:swap-buffers glctx)
      )
    (callback (+ time (* dur .1)) 'opengl-loop (+ time dur) 2000 (+ degree .5))))


Back to Index

Similar Entries

  • opengl-loop    scheme
  • opengl-loop    scheme
  • opengl-loop    scheme