hedgewars/uLandGenPerlin.pas
changeset 10510 9329dab04490
parent 10494 0eb97cf4c78e
child 10702 528d899443ab
--- a/hedgewars/uLandGenPerlin.pas	Sun Nov 16 22:23:28 2014 +0100
+++ b/hedgewars/uLandGenPerlin.pas	Mon Nov 17 15:25:24 2014 +0100
@@ -15,7 +15,7 @@
 
 var p: array[0..511] of LongInt;
 
-const fadear: array[byte] of LongInt = 
+const fadear: array[byte] of LongInt =
 (0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 2, 3, 3, 4, 6, 7, 9, 10, 12,
 14, 17, 19, 22, 25, 29, 32, 36, 40, 45, 49, 54, 60, 65, 71,
 77, 84, 91, 98, 105, 113, 121, 130, 139, 148, 158, 167, 178,
@@ -44,7 +44,7 @@
 begin
     t0:= fadear[t shr 8];
 
-    if t0 = fadear[255] then 
+    if t0 = fadear[255] then
         t1:= t0
     else
         t1:= fadear[t shr 8 + 1];
@@ -176,7 +176,7 @@
             else if param1 = 0 then
                 Land[y, x]:= lfObjMask
             else
-                Land[y, x]:= lfBasic 
+                Land[y, x]:= lfBasic
         end;
     end;