opengl-test   xtlang

;; 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))))