(bind-func mainLoop (let ((fps:float 30.0)) (lambda (_at:double) (set! _curFPS fps) (h3dSetOption H3DOptions_DebugViewMode 0.0) (h3dSetOption H3DOptions_WireframeMode 0.0) (set! _at (+ _at 0.025))