# HG changeset patch
# User unc0rr
# Date 1407954688 -14400
# Node ID c9e38f8d4f9498ac8666c94db5d90673164eca09
# Parent  15eda15df81cae7b202af8071ae23ce1e2b6490f
Smooth perlin's outline

diff -r 15eda15df81c -r c9e38f8d4f94 hedgewars/uLandGenPerlin.pas
--- a/hedgewars/uLandGenPerlin.pas	Wed Aug 13 15:39:32 2014 +0000
+++ b/hedgewars/uLandGenPerlin.pas	Wed Aug 13 22:31:28 2014 +0400
@@ -143,13 +143,11 @@
         begin
             dj:= df * x div width;
 
-            r:= (abs(inoise(di, dj)) + y*4) mod 65536 div 256;
+            r:= ((abs(inoise(di, dj)) + y*4) mod 65536 - (height - y) * 8) div 256;
 
             //r:= (abs(inoise(di, dj))) shr 8 and $ff;
             if (x < margin) or (x > width - margin) then r:= r - abs(x - width div 2) + width div 2 - margin; // fade on edges
 
-            r:= r - (height - y) div 32;
-
             //r:= r - max(0, - abs(x - width div 2) + width * 2 div 100); // split vertically in the middle
             //r:= r + (trunc(1000 - sqrt(sqr(x - (width div 2)) * 4 + sqr(y - height * 5 div 4) * 22))) div 600 * 20; // ellipse
             //r:= r + 1 - ((abs(x - (width div 2)) + abs(y - height) * 2)) div 32; // manhattan length ellipse