mainLoop   xtlang


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

Implementation

(bind-func mainLoop
  (let ((_at:double 0.0)
  (matrix:float* (halloc 16))
  (pos:float* (halloc 3))
  (fps:float 30.0)
  (z:i32 0)
  (k 0))
    (lambda ()
      (set! _curFPS fps)
      (h3dSetOption H3DOptions_DebugViewMode 0.0)
      (h3dSetOption H3DOptions_WireframeMode 0.0)


Back to Index

Similar Entries