hedgewars/uTextures.pas
changeset 10156 7c41dba086ba
parent 10155 ac01a2aeff69
child 10634 35d059bd0932
equal deleted inserted replaced
10153:28e53573fdd2 10156:7c41dba086ba
   262     for y:= 0 to Pred(Surf^.h) do
   262     for y:= 0 to Pred(Surf^.h) do
   263         begin
   263         begin
   264         for x:= 0 to Pred(Surf^.w) do
   264         for x:= 0 to Pred(Surf^.w) do
   265             toP4^[x]:= fromP4^[x];
   265             toP4^[x]:= fromP4^[x];
   266         for x:= Surf^.w to Pred(tw) do
   266         for x:= Surf^.w to Pred(tw) do
   267             toP4^[x]:= 0;
   267             toP4^[x]:= fromP4^[0];
   268         toP4:= PLongWordArray(@(toP4^[tw]));
   268         toP4:= PLongWordArray(@(toP4^[tw]));
   269         fromP4:= PLongWordArray(@(fromP4^[Surf^.pitch div 4]))
   269         fromP4:= PLongWordArray(@(fromP4^[Surf^.pitch div 4]))
   270         end;
   270         end;
   271 
   271 
   272     for y:= Surf^.h to Pred(th) do
   272     for y:= Surf^.h to Pred(th) do