(bind-func xtm_skybox_init
(lambda (model flipped:i1 front:String* back:String* top:String* bottom:String* left:String* right:String*)
(set! SKY_BOX_MODEL model)
(set! SKY_BOX_TEXTURE (Texture))
(load_cube_data SKY_BOX_TEXTURE (i1toi32 flipped) front back top bottom left right)
(update_cube SKY_BOX_TEXTURE)
;; (bind_cube SKY_BOX_TEXTURE #t 0) ;; send data to card
;; (unbind_cube SKY_BOX_TEXTURE 0)
(set! SKY_BOX #t)
void))