let load_gl_texture filename = 
        (*try*)
        try
        Init.init_sdl_once () ;
        surface_to_texture (Sdlloader.load_image filename)
        with Invalid_surface_format (msg,bits) ->
                raise (Invalid_surface_format ("Failed to load " ^ 
                      filename ^ ": " ^ msg, bits))