hedgewars/uTextures.pas
changeset 10155 ac01a2aeff69
parent 10131 4b4a043111f4
child 10634 35d059bd0932
equal deleted inserted replaced
10154:765141e34002 10155:ac01a2aeff69
   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