gl-loop   xtlang

;; a trivial opengl draw loop
;; need to call glfwSwapBuffers to flush
(bind-func gl-loop
  (let (;(degree 0.0)
  (psys (psystem_create 50000 texture1))
  (i 0))
    (lambda ()
      ;;(printf "t1:%d\n" texture1)
      ;; _skeletons-alive_ and _skeletons_ from kinect.xtm
      (dotimes (i 6)
  ;(printf "alive %d:%d\n" i (pref _skeletons-alive_ i))
  (if (= (aref _skeletons-alive_ i) 1)
      (begin (aset! _skeletons-alive_ i 0)
       (draw-skeleton (aref-ptr _skeletons_ i)))))
      ;(update-fluid-sym-state)
      ;(ping-skel)