hedgewars/uLandGenPerlin.pas
changeset 10184 f87776bd5acd
parent 10183 189afaf2d076
child 10185 007a40cfbb3d
--- a/hedgewars/uLandGenPerlin.pas	Sat Mar 08 00:19:24 2014 +0400
+++ b/hedgewars/uLandGenPerlin.pas	Sat Mar 08 13:50:50 2014 +0400
@@ -62,7 +62,7 @@
     B:= p[xx + 1] + yy; BA:= p[B] + zz; BB:= p[B + 1] + zz;
 
     inoise:=
- lerp(w, lerp(v, lerp(u, grad(p[AA  ], x   , y   , z   ),
+             lerp(w, lerp(v, lerp(u, grad(p[AA  ], x   , y   , z   ),
                                      grad(p[BA  ], x-N , y   , z   )),
                              lerp(u, grad(p[AB  ], x   , y-N , z   ),
                                      grad(p[BB  ], x-N , y-N , z   ))),
@@ -127,6 +127,11 @@
 
         end;
     end;
+
+    leftX:= 0;
+    rightX:= 4095;
+    topY:= 0;
+    hasBorder:= false;
 end;
 
 end.