hedgewars/uTextures.pas
changeset 12843 8599a7d4df54
parent 12765 d01e9dd5c439
child 15901 f39f0f614dbf
--- a/hedgewars/uTextures.pas	Thu Nov 23 16:02:29 2017 -0500
+++ b/hedgewars/uTextures.pas	Sat Nov 25 09:39:52 2017 -0500
@@ -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;