changeset 10199 | fdb689b57b1b |
parent 10196 | 514e338f2eaf |
child 10249 | b47ac2c19de3 |
--- a/hedgewars/uLandGenPerlin.pas Fri Mar 14 19:59:34 2014 +0400 +++ b/hedgewars/uLandGenPerlin.pas Sun Mar 16 00:47:18 2014 +0400 @@ -143,7 +143,7 @@ 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 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