hedgewars/uTextures.pas
changeset 10156 7c41dba086ba
parent 10155 ac01a2aeff69
child 10634 35d059bd0932
--- a/hedgewars/uTextures.pas	Sun Feb 23 13:49:44 2014 -0500
+++ b/hedgewars/uTextures.pas	Sun Feb 23 13:50:58 2014 -0500
@@ -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;