diff -r fc52f7c22c9b -r 6155187bf599 hedgewars/uLandPainted.pas --- a/hedgewars/uLandPainted.pas Mon Jan 16 10:22:21 2012 +0100 +++ b/hedgewars/uLandPainted.pas Tue Jan 17 09:01:31 2012 -0500 @@ -59,24 +59,32 @@ dX:= X2 - X1; dY:= Y2 - Y1; - if (dX > 0) then sX:= 1 + if (dX > 0) then + sX:= 1 else - if (dX < 0) then - begin - sX:= -1; - dX:= -dX - end else sX:= dX; + if (dX < 0) then + begin + sX:= -1; + dX:= -dX + end + else + sX:= dX; - if (dY > 0) then sY:= 1 + if (dY > 0) then + sY:= 1 else - if (dY < 0) then - begin - sY:= -1; - dY:= -dY - end else sY:= dY; + if (dY < 0) then + begin + sY:= -1; + dY:= -dY + end + else + sY:= dY; - if (dX > dY) then d:= dX - else d:= dY; + if (dX > dY) then + d:= dX + else + d:= dY; x:= X1; y:= Y1; @@ -101,7 +109,8 @@ if b then begin inc(len); - if (len mod 4) = 0 then FillRoundInLand(X, Y, 34, lfBasic) + if (len mod 4) = 0 then + FillRoundInLand(X, Y, 34, lfBasic) end end end;