(bind-func init_env_map
(lambda ()
(let ((path (cat2 (String (sys_sharedir)) (String "/assets/images/Yokohama/"))))
(xtm_envmap_init #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)))