hedgewars/uLandPainted.pas
changeset 6580 6155187bf599
parent 5066 d2684b6f02ce
child 6700 e04da46ee43c
--- 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;