hedgewars/uTextures.pas
branchqmlfrontend
changeset 11408 b894922d58cc
parent 11342 ed5a6478e710
child 11492 8e221d2a368e
equal deleted inserted replaced
11076:fcbdee9cdd74 11408:b894922d58cc
   234 glGenTextures(1, @Surface2Tex^.id);
   234 glGenTextures(1, @Surface2Tex^.id);
   235 
   235 
   236 glBindTexture(GL_TEXTURE_2D, Surface2Tex^.id);
   236 glBindTexture(GL_TEXTURE_2D, Surface2Tex^.id);
   237 
   237 
   238 if SDL_MustLock(surf) then
   238 if SDL_MustLock(surf) then
   239     SDLTry(SDL_LockSurface(surf) >= 0, true);
   239     SDLTry(SDL_LockSurface(surf) >= 0, 'Lock surface', true);
   240 
   240 
   241 fromP4:= Surf^.pixels;
   241 fromP4:= Surf^.pixels;
   242 
   242 
   243 if GrayScale then
   243 if GrayScale then
   244     Surface2GrayScale(Surf);
   244     Surface2GrayScale(Surf);