index e7bcbcf99e89db1f8cd72da1bb77423ea1bde9fd..ef9b660c9254c694f15bdf7900c088ba2e18532c 100644 (file)
Exit;
end;
+ if (TGAHeader.ImageInfo and $c0) <> 0 then
+ begin
+ e_WriteLog('Error loading texture: interleaved TGA', MSG_WARNING);
+ Exit;
+ end;
+
Width := TGAHeader.Width[0] + TGAHeader.Width[1] * 256;
Height := TGAHeader.Height[0] + TGAHeader.Height[1] * 256;
BPP := TGAHeader.BPP;
Back^ := Temp;
end;
+ //if (TGAHeader.ImageInfo and $20) <> 0 then UpsideDown(Image, Width, Height);
+
if ( BPP = 24 ) then
TFmt := GL_RGB
else
Exit;
end;
+ if (TGAHeader.ImageInfo and $c0) <> 0 then
+ begin
+ e_WriteLog('Error loading texture: interleaved TGA', MSG_WARNING);
+ Exit;
+ end;
+
Width := TGAHeader.Width[0] + TGAHeader.Width[1] * 256;
Height := TGAHeader.Height[0] + TGAHeader.Height[1] * 256;
BPP := TGAHeader.BPP;
for i := 0 to fHeight-1 do
CopyMemory( PByte(image) + a*i, Base + b*i, a );
+ //if (TGAHeader.ImageInfo and $20) <> 0 then UpsideDown(Image, Width, Height);
+
if ( BPP = 24 ) then
TFmt := GL_RGB
else