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