hedgewars/uLandGenPerlin.pas
changeset 10249 b47ac2c19de3
parent 10199 fdb689b57b1b
child 10386 c9e38f8d4f94
equal deleted inserted replaced
10248:7b9b44a051f8 10249:b47ac2c19de3
   125     df = detail * field;
   125     df = detail * field;
   126     width = 4096;
   126     width = 4096;
   127     height = 2048;
   127     height = 2048;
   128     minY = 500;
   128     minY = 500;
   129 
   129 
   130     bottomPlateHeight = 90;
   130     //bottomPlateHeight = 90;
   131     bottomPlateMargin = 1200;
   131     //bottomPlateMargin = 1200;
   132     margin = 200;
   132     margin = 200;
   133 
   133 
   134 procedure GenPerlin;
   134 procedure GenPerlin;
   135 var y, x, dy, di, dj, r: LongInt;
   135 var y, x, {dy, }di, dj, r: LongInt;
   136 begin
   136 begin
   137     inoise_setup();
   137     inoise_setup();
   138 
   138 
   139     for y:= minY to pred(height) do
   139     for y:= minY to pred(height) do
   140     begin
   140     begin