author nemo Tue, 11 Mar 2014 22:49:01 -0400 changeset 10192 bb1310c4bd79 parent 10191 d9862e01309a child 10193 d7cd5b43588f
Feel free to revert this one, was just screwing around with stuff from before. I kinda like it and figured committing it was the easiest way for you to look at it. http://m8y.org/hw/perlin.png
```--- a/hedgewars/uLandGenPerlin.pas	Tue Mar 11 22:32:48 2014 -0400
+++ b/hedgewars/uLandGenPerlin.pas	Tue Mar 11 22:49:01 2014 -0400
@@ -120,8 +120,8 @@
p[256 + i]:= p[i];
end;

-const detail = 180000;
-    field = 5;
+const detail = 150000;
+    field = 3;
df = detail * field;
width = 4096;
height = 2048;
@@ -142,7 +142,10 @@
for x:= 0 to pred(width) do
begin
dj:= df * x div width;
-            r:= (abs(inoise(di, dj))) shr 8 and \$ff;
+
+           r:= (abs(inoise(di, dj)) + y*4) mod 65536 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;
@@ -164,7 +167,8 @@
r:= r - (x - width + bottomPlateMargin + bottomPlateHeight);
end;
}
-            if r < 0 then Land[y, x]:= 0 else Land[y, x]:= lfObjMask;
+
+            if r < 50 then Land[y, x]:= 0 else Land[y, x]:= lfObjMask;

end;
end;```