hedgewars/uTextures.pas
changeset 11532 bf86c6cb9341
parent 11507 bd9a2f1b0080
child 12765 d01e9dd5c439
equal deleted inserted replaced
11531:d1cf1ff6cabb 11532:bf86c6cb9341
   227 Surface2Tex^.w:= surf^.w;
   227 Surface2Tex^.w:= surf^.w;
   228 Surface2Tex^.h:= surf^.h;
   228 Surface2Tex^.h:= surf^.h;
   229 
   229 
   230 if (surf^.format^.BytesPerPixel <> 4) then
   230 if (surf^.format^.BytesPerPixel <> 4) then
   231     begin
   231     begin
   232     TryDo(false, 'Surface2Tex failed, expecting 32 bit surface', true);
   232     checkFails(false, 'Surface2Tex failed, expecting 32 bit surface', true);
   233     Surface2Tex^.id:= 0;
   233     Surface2Tex^.id:= 0;
   234     exit
   234     exit
   235     end;
   235     end;
   236 
   236 
   237 glGenTextures(1, @Surface2Tex^.id);
   237 glGenTextures(1, @Surface2Tex^.id);