;; initialize
(bind-func init_sky
(lambda ()
(let ((path (cat2 (String (sys_sharedir)) (String "/assets/images/Yokohama/")))
(model (assimp_load_model model_path "skybox.dae" (+ aiProcess_Triangulate aiProcess_FlipWindingOrder))))
(xtm_skybox_init model
#f ;; don't flip images
(cat2 path (Str "front.jpg")) ;; front
(cat2 path (Str "back.jpg")) ;; back
(cat2 path (Str "up.jpg")) ;; up
(cat2 path (Str "down.jpg")) ;; down
(cat2 path (Str "right.jpg")) ;; right
(cat2 path (Str "left.jpg"))) ;; left
void)))