hedgewars/uTextures.pas
changeset 10155 ac01a2aeff69
parent 10131 4b4a043111f4
child 10634 35d059bd0932
--- a/hedgewars/uTextures.pas	Sun Feb 23 19:08:37 2014 +0100
+++ b/hedgewars/uTextures.pas	Sun Feb 23 19:15:39 2014 +0100
@@ -264,7 +264,7 @@
         for x:= 0 to Pred(Surf^.w) do
             toP4^[x]:= fromP4^[x];
         for x:= Surf^.w to Pred(tw) do
-            toP4^[x]:= 0;
+            toP4^[x]:= fromP4^[0];
         toP4:= PLongWordArray(@(toP4^[tw]));
         fromP4:= PLongWordArray(@(fromP4^[Surf^.pitch div 4]))
         end;