hedgewars/uTextures.pas
branchqmlfrontend
changeset 12855 1b2b84315d27
parent 12843 8599a7d4df54
child 15901 f39f0f614dbf
--- a/hedgewars/uTextures.pas	Thu Aug 11 23:05:14 2016 +0300
+++ b/hedgewars/uTextures.pas	Sun Dec 17 00:09:24 2017 +0100
@@ -78,7 +78,6 @@
 new(NewTexture);
 NewTexture^.PrevTexture:= nil;
 NewTexture^.NextTexture:= nil;
-NewTexture^.Scale:= 1;
 if TextureList <> nil then
     begin
     TextureList^.PrevTexture:= NewTexture;
@@ -86,6 +85,8 @@
     end;
 TextureList:= NewTexture;
 
+NewTexture^.Scale:= 1;
+NewTexture^.Priority:= 0;
 NewTexture^.w:= width;
 NewTexture^.h:= height;
 NewTexture^.rx:= 1.0;
@@ -224,6 +225,8 @@
     end;
 TextureList:= Surface2Tex;
 
+Surface2Tex^.Scale:= 1;
+Surface2Tex^.Priority:= 0;
 Surface2Tex^.w:= surf^.w;
 Surface2Tex^.h:= surf^.h;
 
@@ -244,9 +247,11 @@
 
 fromP4:= Surf^.pixels;
 
+// FIXME move out of surface2tex
 if GrayScale then
     Surface2GrayScale(Surf);
 
+// FIXME move out of surface2tex
 PrettifySurfaceAlpha(surf, fromP4);
 
 if (not SupportNPOTT) and (not (isPowerOf2(Surf^.w) and isPowerOf2(Surf^.h))) then