init priority and scale
authornemo
Sat, 25 Nov 2017 09:39:52 -0500
changeset 12848 8599a7d4df54
parent 12847 f72c6f64c94c
child 12849 22cc3d82905a
init priority and scale
hedgewars/uTextures.pas
--- 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;