summary |
shortlog |
changelog |
graph |
tags |
bookmarks |
branches |
files |
changeset |
raw |
help

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;