(bind-func xtm_projection_texture_load
(lambda (flipped:i1 filename:String*)
(set! PROJECTION_TEXTURE (Texture))
(load_data PROJECTION_TEXTURE (i1toi32 flipped) filename)
(update PROJECTION_TEXTURE) ;; send data to card
(set! PROJECTION_TEXTURE_ON #t)
(set! PROJECTION_TEXTURE_WEIGHT 0.5:f)
void))