hedgewars/uLandGenPerlin.pas
changeset 10702 528d899443ab
parent 10510 9329dab04490
child 15016 bea068dd9356
--- a/hedgewars/uLandGenPerlin.pas	Tue Dec 23 00:07:06 2014 -0500
+++ b/hedgewars/uLandGenPerlin.pas	Wed Dec 24 09:20:52 2014 -0500
@@ -97,11 +97,6 @@
                             grad(p[BB  ], x-N , y-N)));
 end;
 
-function f(t: double): double; inline;
-begin
-    f:= t * t * t * (t * (t * 6 - 15) + 10);
-end;
-
 procedure inoise_setup();
 var i, ii, t: Longword;
 begin
@@ -130,7 +125,8 @@
     margin = 200;
 
 procedure GenPerlin;
-var y, x, {dy, }di, dj, df, r, param1, param2, rCutoff, detail: LongInt;
+var y, x, di, dj, r, param1, param2, rCutoff, detail: LongInt;
+var df: Int64;
 begin
     param1:= cTemplateFilter div 3;
     param2:= cTemplateFilter mod 3;