opengl-loop   scheme


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

Implementation

;; standard impromptu callback
(define opengl-loop
  (lambda (time dur model1 model2 model3 degree)
    (let ((v (now)))
      (gl_render model1 model2 model3 degree)
      (gl:swap-buffers glctx)
      )
    (callback (+ time (* dur .1)) 'opengl-loop (+ time dur) dur model1 model2 model3 (+ degree .5))))


Back to Index

Similar Entries

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