opengl-test   scheme


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

Implementation

;; standard impromptu callback
(define opengl-test
  (lambda (beat dur)
    (set! dur 1/16)
    ;; (if (< (*metro* beat) (now))
    ;;  (println 'opengl-test-behind (- (*metro* beat) (now))))
    (mainLoop beat)
    (glfw_poll_events)
    (glfw_swap_buffers (get_window))
    (callback (*metro* (+ beat (* dur .125))) 'opengl-test (+ beat dur) dur)))


Back to Index

Similar Entries