(bind-func h3d_init
(let ((hand -1)
(matRes -1)
(envRes -1)
(boxRes:i32 -1)
(boxAnim1Res -1)
(boxAnim2Res -1)
(particleSysRes -1)
(phySdk (plNewBulletSdk))
(dynWorld (plCreateDynamicsWorld phySdk))
(iii:i64 0)
(z:i32 0)
(k:i64 0)
)
(lambda ()
(if (h3dInit)
(printf "Successfully Inited Horde3D\n")
(begin (h3dutDumpMessages)
(printf "Failed to init Horde3D\n")))
;; set options
(h3dSetOption H3DOptions_LoadTextures 1.0)
(h3dSetOption H3DOptions_TexCompression 0.0)
(h3dSetOption H3DOptions_FastAnimation 0.0)
(h3dSetOption H3DOptions_MaxAnisotropy 0.0)
(h3dSetOption H3DOptions_ShadowMapSize 1028.0)