opengl-test   xtlang


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

Implementation

;; standard impromptu callback
(bind-func opengl-test
  (lambda (time degree)
    ;; (println time)
    ;; (let ((evt (if (string=? (sys:platform) "Linux")
    ;;                (gl:get-event pr2)
    ;;                (gl:get-event))))
    ;;   (if (not (null? evt))
    ;;       (if (string=? (sys:platform) "Linux")
    ;;           (set-mouse-pos (caddr evt) (cadddr evt))
    ;;           (set-mouse-pos (cadr evt) (car evt)))))
    (mainLoop)
    (glfwPollEvents)
    (glfwSwapBuffers window)
    ;; (gl:swap-buffers pr2)
    (callback (+ time 50) opengl-test (+ time 512) (+ degree 0.001))))


Back to Index

Similar Entries