1

/* $Id$ */

     2

     3

#include "stdafx.h"

     4

#include <math.h>

     5

#include "openttd.h"

     6

#include "clear_map.h"

     7

#include "functions.h"

     8

#include "map.h"

     9

#include "table/strings.h"

    10

#include "clear_map.h"

    11

#include "tile.h"

    12

#include "variables.h"

    13

#include "void_map.h"

    14

#include "tgp.h"

    15

#include "console.h"

    16

#include "genworld.h"

    17

    18

/*

    19

 * OTTD Perlin Noise Landscape Generator, aka TerraGenesis Perlin

    20

 *

    21

 * Quickie guide to Perlin Noise

    22

 * Perlin noise is a predictable pseudo random number sequence. By generating

    23

 * it in 2 dimensions, it becomes a useful random map, that for a given seed

    24

 * and starting X & Y is entirely predictable. On the face of it, that may not

    25

 * be useful. However, it means that if you want to replay a map in a different

    26

 * terrain, or just vary the sea level, you just re-run the generator with the

    27

 * same seed. The seed is an int32, and is randomised on each run of New Game.

    28

 * The Scenario Generator does not randomise the value, so that you can

    29

 * experiment with one terrain until you are happy, or click "Random" for a new

    30

 * random seed.

    31

 *

    32

 * Perlin Noise is a series of "octaves" of random noise added together. By

    33

 * reducing the amplitude of the noise with each octave, the first octave of

    34

 * noise defines the main terrain sweep, the next the ripples on that, and the

    35

 * next the ripples on that. I use 6 octaves, with the amplitude controlled by

    36

 * a power ratio, usually known as a persistence or p value. This I vary by the

    37

 * smoothness selection, as can be seen in the table below. The closer to 1,

    38

 * the more of that octave is added. Each octave is however raised to the power

    39

 * of its position in the list, so the last entry in the "smooth" row, 0.35, is

    40

 * raised to the power of 6, so can only add 0.001838...  of the amplitude to

    41

 * the running total.

    42

 *

    43

 * In other words; the first p value sets the general shape of the terrain, the

    44

 * second sets the major variations to that, ... until finally the smallest

    45

 * bumps are added.

    46

 *

    47

 * Usefully, this routine is totally scaleable; so when 32bpp comes along, the

    48

 * terrain can be as bumpy as you like! It is also infinitely expandable; a

    49

 * single random seed terrain continues in X & Y as far as you care to

    50

 * calculate. In theory, we could use just one seed value, but randomly select

    51

 * where in the Perlin XY space we use for the terrain. Personally I prefer

    52

 * using a simple (0, 0) to (X, Y), with a varying seed.

    53

 *

    54

 *

    55

 * Other things i have had to do: mountainous wasnt mountainous enough, and

    56

 * since we only have 0..15 heights available, I add a second generated map

    57

 * (with a modified seed), onto the original. This generally raises the

    58

 * terrain, which then needs scaling back down. Overall effect is a general

    59

 * uplift.

    60

 *

    61

 * However, the values on the top of mountains are then almost guaranteed to go

    62

 * too high, so large flat plateaus appeared at height 15. To counter this, I

    63

 * scale all heights above 12 to proportion up to 15. It still makes the

    64

 * mountains have flatish tops, rather than craggy peaks, but at least they

    65

 * arent smooth as glass.

    66

 *

    67

 *

    68

 * For a full discussion of Perlin Noise, please visit:

    69

 * http://freespace.virgin.net/hugo.elias/models/m_perlin.htm

    70

 *

    71

 *

    72

 * Evolution II

    73

 *

    74

 * The algorithm as described in the above link suggests to compute each tile height

    75

 * as composition of several noise waves. Some of them are computed directly by

    76

 * noise(x, y) function, some are calculated using linear approximation. Our

    77

 * first implementation of perlin_noise_2D() used 4 noise(x, y) calls plus

    78

 * 3 linear interpolations. It was called 6 times for each tile. This was a bit

    79

 * CPU expensive.

    80

 *

    81

 * The following implementation uses optimized algorithm that should produce

    82

 * the same quality result with much less computations, but more memory accesses.

    83

 * The overal speedup should be 300% to 800% depending on CPU and memory speed.

    84

 *

    85

 * I will try to explain it on the example below:

    86

 *

    87

 * Have a map of 4 x 4 tiles, our simplifiead noise generator produces only two

    88

 * values -1 and +1, use 3 octaves with wave lenght 1, 2 and 4, with amplitudes

    89

 * 3, 2, 1. Original algorithm produces:

    90

 *

    91

 * h00 = lerp(lerp(-3, 3, 0/4), lerp(3, -3, 0/4), 0/4) + lerp(lerp(-2,  2, 0/2), lerp( 2, -2, 0/2), 0/2) + -1 = lerp(-3.0,  3.0, 0/4) + lerp(-2,  2, 0/2) + -1 = -3.0  + -2 + -1 = -6.0

    92

 * h01 = lerp(lerp(-3, 3, 1/4), lerp(3, -3, 1/4), 0/4) + lerp(lerp(-2,  2, 1/2), lerp( 2, -2, 1/2), 0/2) +  1 = lerp(-1.5,  1.5, 0/4) + lerp( 0,  0, 0/2) +  1 = -1.5  +  0 +  1 = -0.5

    93

 * h02 = lerp(lerp(-3, 3, 2/4), lerp(3, -3, 2/4), 0/4) + lerp(lerp( 2, -2, 0/2), lerp(-2,  2, 0/2), 0/2) + -1 = lerp(   0,    0, 0/4) + lerp( 2, -2, 0/2) + -1 =    0  +  2 + -1 =  1.0

    94

 * h03 = lerp(lerp(-3, 3, 3/4), lerp(3, -3, 3/4), 0/4) + lerp(lerp( 2, -2, 1/2), lerp(-2,  2, 1/2), 0/2) +  1 = lerp( 1.5, -1.5, 0/4) + lerp( 0,  0, 0/2) +  1 =  1.5  +  0 +  1 =  2.5

    95

 *

    96

 * h10 = lerp(lerp(-3, 3, 0/4), lerp(3, -3, 0/4), 1/4) + lerp(lerp(-2,  2, 0/2), lerp( 2, -2, 0/2), 1/2) +  1 = lerp(-3.0,  3.0, 1/4) + lerp(-2,  2, 1/2) +  1 = -1.5  +  0 +  1 = -0.5

    97

 * h11 = lerp(lerp(-3, 3, 1/4), lerp(3, -3, 1/4), 1/4) + lerp(lerp(-2,  2, 1/2), lerp( 2, -2, 1/2), 1/2) + -1 = lerp(-1.5,  1.5, 1/4) + lerp( 0,  0, 1/2) + -1 = -0.75 +  0 + -1 = -1.75

    98

 * h12 = lerp(lerp(-3, 3, 2/4), lerp(3, -3, 2/4), 1/4) + lerp(lerp( 2, -2, 0/2), lerp(-2,  2, 0/2), 1/2) +  1 = lerp(   0,    0, 1/4) + lerp( 2, -2, 1/2) +  1 =    0  +  0 +  1 =  1.0

    99

 * h13 = lerp(lerp(-3, 3, 3/4), lerp(3, -3, 3/4), 1/4) + lerp(lerp( 2, -2, 1/2), lerp(-2,  2, 1/2), 1/2) + -1 = lerp( 1.5, -1.5, 1/4) + lerp( 0,  0, 1/2) + -1 =  0.75 +  0 + -1 = -0.25

   100

 *

   101

 *

   102

 * Optimization 1:

   103

 *

   104

 * 1) we need to allocate a bit more tiles: (size_x + 1) * (size_y + 1) = (5 * 5):

   105

 *

   106

 * 2) setup corner values using amplitude 3

   107

 * {    -3.0        X          X          X          3.0   }

   108

 * {     X          X          X          X          X     }

   109

 * {     X          X          X          X          X     }

   110

 * {     X          X          X          X          X     }

   111

 * {     3.0        X          X          X         -3.0   }

   112

 *

   113

 * 3a) interpolate values in the middle

   114

 * {    -3.0        X          0.0        X          3.0   }

   115

 * {     X          X          X          X          X     }

   116

 * {     0.0        X          0.0        X          0.0   }

   117

 * {     X          X          X          X          X     }

   118

 * {     3.0        X          0.0        X         -3.0   }

   119

 *

   120

 * 3b) add patches with amplitude 2 to them

   121

 * {    -5.0        X          2.0        X          1.0   }

   122

 * {     X          X          X          X          X     }

   123

 * {     2.0        X         -2.0        X          2.0   }

   124

 * {     X          X          X          X          X     }

   125

 * {     1.0        X          2.0        X         -5.0   }

   126

 *

   127

 * 4a) interpolate values in the middle

   128

 * {    -5.0       -1.5        2.0        1.5        1.0   }

   129

 * {    -1.5       -0.75       0.0        0.75       1.5   }

   130

 * {     2.0        0.0       -2.0        0.0        2.0   }

   131

 * {     1.5        0.75       0.0       -0.75      -1.5   }

   132

 * {     1.0        1.5        2.0       -1.5       -5.0   }

   133

 *

   134

 * 4b) add patches with amplitude 1 to them

   135

 * {    -6.0       -0.5        1.0        2.5        0.0   }

   136

 * {    -0.5       -1.75       1.0       -0.25       2.5   }

   137

 * {     1.0        1.0       -3.0        1.0        1.0   }

   138

 * {     2.5       -0.25       1.0       -1.75      -0.5   }

   139

 * {     0.0        2.5        1.0       -0.5       -6.0   }

   140

 *

   141

 *

   142

 *

   143

 * Optimization 2:

   144

 *

   145

 * As you can see above, each noise function was called just once. Therefore

   146

 * we don't need to use noise function that calculates the noise from x, y and

   147

 * some prime. The same quality result we can obtain using standard Random()

   148

 * function instead.

   149

 *

   150

 */

   151

   152

#ifndef M_PI_2

   153

#define M_PI_2 1.57079632679489661923

   154

#define M_PI   3.14159265358979323846

   155

#endif /* M_PI_2 */

   156

   157

/** Fixed point type for heights */

   158

typedef int16 height_t;

   159

static const int height_decimal_bits = 4;

   160

static const height_t _invalid_height = -32768;

   161

   162

/** Fixed point array for amplitudes (and percent values) */

   163

typedef int amplitude_t;

   164

static const int amplitude_decimal_bits = 10;

   165

   166

/** Height map - allocated array of heights (MapSizeX() + 1) x (MapSizeY() + 1) */

   167

typedef struct HeightMap

   168

{

   169

	height_t *h;         //! array of heights

   170

	uint     dim_x;      //! height map size_x MapSizeX() + 1

   171

	uint     total_size; //! height map total size

   172

	uint     size_x;     //! MapSizeX()

   173

	uint     size_y;     //! MapSizeY()

   174

} HeightMap;

   175

   176

/** Global height map instance */

   177

static HeightMap _height_map = {NULL, 0, 0, 0, 0};

   178

   179

/** Height map accessors */

   180

#define HeightMapXY(x, y) _height_map.h[(x) + (y) * _height_map.dim_x]

   181

   182

/** Conversion: int to height_t */

   183

#define I2H(i) ((i) << height_decimal_bits)

   184

/** Conversion: height_t to int */

   185

#define H2I(i) ((i) >> height_decimal_bits)

   186

   187

/** Conversion: int to amplitude_t */

   188

#define I2A(i) ((i) << amplitude_decimal_bits)

   189

/** Conversion: amplitude_t to int */

   190

#define A2I(i) ((i) >> amplitude_decimal_bits)

   191

   192

/** Conversion: amplitude_t to height_t */

   193

#define A2H(a) ((height_decimal_bits < amplitude_decimal_bits) \

   194

	? ((a) >> (amplitude_decimal_bits - height_decimal_bits)) \

   195

	: ((a) << (height_decimal_bits - amplitude_decimal_bits)))

   196

   197

/** Walk through all items of _height_map.h */

   198

#define FOR_ALL_TILES_IN_HEIGHT(h) for (h = _height_map.h; h < &_height_map.h[_height_map.total_size]; h++)

   199

   200

/** Noise amplitudes (multiplied by 1024)

   201

 * - indexed by "smoothness setting" and log2(frequency) */

   202

static const amplitude_t _amplitudes_by_smoothness_and_frequency[4][12] = {

   203

	// Very smooth

   204

	{1000,  350,  123,   43,   15,    1,     1,    0,    0,    0,    0,    0},

   205

	// Smooth

   206

	{1000, 1000,  403,  200,   64,    8,     1,    0,    0,    0,    0,    0},

   207

	// Rough

   208

	{1000, 1200,  800,  500,  200,   16,     4,    0,    0,    0,    0,    0},

   209

	// Very Rough

   210

	{1500, 1000, 1200, 1000,  500,   32,    20,    0,    0,    0,    0,    0},

   211

};

   212

   213

/** Desired water percentage (100% == 1024) - indexed by _opt.diff.quantity_sea_lakes */

   214

static const amplitude_t _water_percent[4] = {20, 80, 250, 400};

   215

   216

/** Desired maximum height - indexed by _opt.diff.terrain_type */

   217

static const int8 _max_height[4] = {

   218

	6,       // Very flat

   219

	9,       // Flat

   220

	12,      // Hilly

   221

	15       // Mountainous

   222

};

   223

   224

/** Check if a X/Y set are within the map. */

   225

static inline bool IsValidXY(uint x, uint y)

   226

{

   227

	return ((int)x) >= 0 && x < _height_map.size_x && ((int)y) >= 0 && y < _height_map.size_y;

   228

}

   229

   230

   231

/** Allocate array of (MapSizeX()+1)*(MapSizeY()+1) heights and init the _height_map structure members */

   232

static inline bool AllocHeightMap(void)

   233

{

   234

	height_t *h;

   235

   236

	_height_map.size_x = MapSizeX();

   237

	_height_map.size_y = MapSizeY();

   238

   239

	/* Allocate memory block for height map row pointers */

   240

	_height_map.total_size = (_height_map.size_x + 1) * (_height_map.size_y + 1);

   241

	_height_map.dim_x = _height_map.size_x + 1;

   242

	_height_map.h = calloc(_height_map.total_size, sizeof(*_height_map.h));

   243

	if (_height_map.h == NULL) return false;

   244

   245

	/* Iterate through height map initialize values */

   246

	FOR_ALL_TILES_IN_HEIGHT(h) *h = _invalid_height;

   247

   248

	return true;

   249

}

   250

   251

/** Free height map */

   252

static inline void FreeHeightMap(void)

   253

{

   254

	if (_height_map.h == NULL) return;

   255

	free(_height_map.h);

   256

	_height_map.h = NULL;

   257

}

   258

   259

/** RandomHeight() generator */

   260

static inline height_t RandomHeight(amplitude_t rMax)

   261

{

   262

	amplitude_t ra = (Random() << 16) | (Random() & 0x0000FFFF);

   263

	height_t rh;

   264

	/* Scale the amplitude for better resolution */

   265

	rMax *= 16;

   266

	/* Spread height into range -rMax..+rMax */

   267

	rh = A2H(ra % (2 * rMax + 1) - rMax);

   268

	return rh;

   269

}

   270

   271

/** One interpolation and noise round */

   272

static bool ApplyNoise(uint log_frequency, amplitude_t amplitude)

   273

{

   274

	uint size_min = min(_height_map.size_x, _height_map.size_y);

   275

	uint step = size_min >> log_frequency;

   276

	uint x, y;

   277

   278

	assert(_height_map.h != NULL);

   279

   280

	/* Are we finished? */

   281

	if (step == 0) return false;

   282

   283

	if (log_frequency == 0) {

   284

		/* This is first round, we need to establish base heights with step = size_min */

   285

		for (y = 0; y <= _height_map.size_y; y += step) {

   286

			for (x = 0; x <= _height_map.size_x; x += step) {

   287

				height_t height = (amplitude > 0) ? RandomHeight(amplitude) : 0;

   288

				HeightMapXY(x, y) = height;

   289

			}

   290

		}

   291

		return true;

   292

	}

   293

   294

	/* It is regular iteration round.

   295

	 * Interpolate height values at odd x, even y tiles */

   296

	for (y = 0; y <= _height_map.size_y; y += 2 * step) {

   297

		for (x = 0; x < _height_map.size_x; x += 2 * step) {

   298

			height_t h00 = HeightMapXY(x + 0 * step, y);

   299

			height_t h02 = HeightMapXY(x + 2 * step, y);

   300

			height_t h01 = (h00 + h02) / 2;

   301

			HeightMapXY(x + 1 * step, y) = h01;

   302

		}

   303

	}

   304

   305

	/* Interpolate height values at odd y tiles */

   306

	for (y = 0; y < _height_map.size_y; y += 2 * step) {

   307

		for (x = 0; x <= _height_map.size_x; x += step) {

   308

			height_t h00 = HeightMapXY(x, y + 0 * step);

   309

			height_t h20 = HeightMapXY(x, y + 2 * step);

   310

			height_t h10 = (h00 + h20) / 2;

   311

			HeightMapXY(x, y + 1 * step) = h10;

   312

		}

   313

	}

   314

   315

	for (y = 0; y <= _height_map.size_y; y += step) {

   316

		for (x = 0; x <= _height_map.size_x; x += step) {

   317

			HeightMapXY(x, y) += RandomHeight(amplitude);

   318

		}

   319

	}

   320

	return (step > 1);

   321

}

   322

   323

/** Base Perlin noise generator - fills height map with raw Perlin noise */

   324

static void HeightMapGenerate(void)

   325

{

   326

	uint size_min = min(_height_map.size_x, _height_map.size_y);

   327

	uint iteration_round = 0;

   328

	amplitude_t amplitude;

   329

	bool continue_iteration;

   330

	uint log_size_min, log_frequency_min;

   331

	int log_frequency;

   332

   333

	/* Find first power of two that fits */

   334

	for (log_size_min = 6; (1U << log_size_min) < size_min; log_size_min++) { }

   335

	log_frequency_min = log_size_min - 6;

   336

   337

	do {

   338

		log_frequency = iteration_round - log_frequency_min;

   339

		if (log_frequency >= 0) {

   340

			amplitude = _amplitudes_by_smoothness_and_frequency[_patches.tgen_smoothness][log_frequency];

   341

		} else {

   342

			amplitude = 0;

   343

		}

   344

		continue_iteration = ApplyNoise(iteration_round, amplitude);

   345

		iteration_round++;

   346

	} while(continue_iteration);

   347

}

   348

   349

/** Returns min, max and average height from height map */

   350

static void HeightMapGetMinMaxAvg(height_t *min_ptr, height_t *max_ptr, height_t *avg_ptr)

   351

{

   352

	height_t h_min, h_max, h_avg, *h;

   353

	int64 h_accu = 0;

   354

	h_min = h_max = HeightMapXY(0, 0);

   355

   356

	/* Get h_min, h_max and accumulate heights into h_accu */

   357

	FOR_ALL_TILES_IN_HEIGHT(h) {

   358

		if (*h < h_min) h_min = *h;

   359

		if (*h > h_max) h_max = *h;

   360

		h_accu += *h;

   361

	}

   362

   363

	/* Get average height */

   364

	h_avg = (height_t)(h_accu / (_height_map.size_x * _height_map.size_y));

   365

   366

	/* Return required results */

   367

	if (min_ptr != NULL) *min_ptr = h_min;

   368

	if (max_ptr != NULL) *max_ptr = h_max;

   369

	if (avg_ptr != NULL) *avg_ptr = h_avg;

   370

}

   371

   372

/** Dill histogram and return pointer to its base point - to the count of zero heights */

   373

static int *HeightMapMakeHistogram(height_t h_min, height_t h_max, int *hist_buf)

   374

{

   375

	int *hist = hist_buf - h_min;

   376

	height_t *h;

   377

   378

	/* Fill histogram */

   379

	FOR_ALL_TILES_IN_HEIGHT(h) {

   380

		assert(*h >= h_min);

   381

		assert(*h <= h_max);

   382

		hist[*h]++;

   383

	}

   384

	return hist;

   385

}

   386

   387

/** Applies sine wave redistribution onto height map */

   388

static void HeightMapSineTransform(height_t h_min, height_t h_max)

   389

{

   390

	height_t *h;

   391

   392

	FOR_ALL_TILES_IN_HEIGHT(h) {

   393

		double fheight;

   394

   395

		if (*h < h_min) continue;

   396

   397

		/* Transform height into 0..1 space */

   398

		fheight = (double)(*h - h_min) / (double)(h_max - h_min);

   399

		/* Apply sine transform depending on landscape type */

   400

		switch(_opt.landscape) {

   401

			case LT_CANDY:

   402

			case LT_NORMAL:

   403

				/* Move and scale 0..1 into -1..+1 */

   404

				fheight = 2 * fheight - 1;

   405

				/* Sine transform */

   406

				fheight = sin(fheight * M_PI_2);

   407

				/* Transform it back from -1..1 into 0..1 space */

   408

				fheight = 0.5 * (fheight + 1);

   409

				break;

   410

   411

			case LT_HILLY:

   412

				{

   413

					/* Arctic terrain needs special height distribution.

   414

					 * Redistribute heights to have more tiles at highest (75%..100%) range */

   415

					double sine_upper_limit = 0.75;

   416

					double linear_compression = 2;

   417

					if (fheight >= sine_upper_limit) {

   418

						/* Over the limit we do linear compression up */

   419

						fheight = 1.0 - (1.0 - fheight) / linear_compression;

   420

					} else {

   421

						double m = 1.0 - (1.0 - sine_upper_limit) / linear_compression;

   422

						/* Get 0..sine_upper_limit into -1..1 */

   423

						fheight = 2.0 * fheight / sine_upper_limit - 1.0;

   424

						/* Sine wave transform */

   425

						fheight = sin(fheight * M_PI_2);

   426

						/* Get -1..1 back to 0..(1 - (1 - sine_upper_limit) / linear_compression) == 0.0..m */

   427

						fheight = 0.5 * (fheight + 1.0) * m;

   428

					}

   429

				}

   430

				break;

   431

   432

			case LT_DESERT:

   433

				{

   434

					/* Desert terrain needs special height distribution.

   435

					 * Half of tiles should be at lowest (0..25%) heights */

   436

					double sine_lower_limit = 0.5;

   437

					double linear_compression = 2;

   438

					if (fheight <= sine_lower_limit) {

   439

						/* Under the limit we do linear compression down */

   440

						fheight = fheight / linear_compression;

   441

					} else {

   442

						double m = sine_lower_limit / linear_compression;

   443

						/* Get sine_lower_limit..1 into -1..1 */

   444

						fheight = 2.0 * ((fheight - sine_lower_limit) / (1.0 - sine_lower_limit)) - 1.0;

   445

						/* Sine wave transform */

   446

						fheight = sin(fheight * M_PI_2);

   447

						/* Get -1..1 back to (sine_lower_limit / linear_compression)..1.0 */

   448

						fheight = 0.5 * ((1.0 - m) * fheight + (1.0 + m));

   449

					}

   450

				}

   451

				break;

   452

   453

			default:

   454

				NOT_REACHED();

   455

				break;

   456

		}

   457

		/* Transform it back into h_min..h_max space */

   458

		*h = fheight * (h_max - h_min) + h_min;

   459

		if (*h < 0) *h = I2H(0);

   460

		if (*h >= h_max) *h = h_max - 1;

   461

	}

   462

}

   463

   464

/** Adjusts heights in height map to contain required amount of water tiles */

   465

static void HeightMapAdjustWaterLevel(amplitude_t water_percent, height_t h_max_new)

   466

{

   467

	height_t h_min, h_max, h_avg, h_water_level;

   468

	int water_tiles, desired_water_tiles;

   469

	height_t *h;

   470

	int *hist_buf, *hist;

   471

   472

	HeightMapGetMinMaxAvg(&h_min, &h_max, &h_avg);

   473

   474

	/* Allocate histogram buffer and clear its cells */

   475

	hist_buf = calloc(h_max - h_min + 1, sizeof(*hist_buf));

   476

	/* Fill histogram */

   477

	hist = HeightMapMakeHistogram(h_min, h_max, hist_buf);

   478

   479

	/* How many water tiles do we want? */

   480

	desired_water_tiles = (int)(((int64)water_percent) * (int64)(_height_map.size_x * _height_map.size_y)) >> amplitude_decimal_bits;

   481

   482

	/* Raise water_level and accumulate values from histogram until we reach required number of water tiles */

   483

	for (h_water_level = h_min, water_tiles = 0; h_water_level < h_max; h_water_level++) {

   484

		water_tiles += hist[h_water_level];

   485

		if (water_tiles >= desired_water_tiles) break;

   486

	}

   487

   488

	/* We now have the proper water level value.

   489

	 * Transform the height map into new (normalized) height map:

   490

	 *   values from range: h_min..h_water_level will become negative so it will be clamped to 0

   491

	 *   values from range: h_water_level..h_max are transformed into 0..h_max_new

   492

	 * , where h_max_new is 4, 8, 12 or 16 depending on terrain type (very flat, flat, hilly, mountains)

   493

	 */

   494

	FOR_ALL_TILES_IN_HEIGHT(h) {

   495

		/* Transform height from range h_water_level..h_max into 0..h_max_new range */

   496

		*h = (height_t)(((int)h_max_new) * (*h - h_water_level) / (h_max - h_water_level)) + I2H(1);

   497

		/* Make sure all values are in the proper range (0..h_max_new) */

   498

		if (*h < 0) *h = I2H(0);

   499

		if (*h >= h_max_new) *h = h_max_new - 1;

   500

	}

   501

   502

	free(hist_buf);

   503

}

   504

   505

static double perlin_coast_noise_2D(const double x, const double y, const double p, const int prime);

   506

   507

/**

   508

 * This routine sculpts in from the edge a random amount, again a Perlin

   509

 * sequence, to avoid the rigid flat-edge slopes that were present before. The

   510

 * Perlin noise map doesnt know where we are going to slice across, and so we

   511

 * often cut straight through high terrain. the smoothing routine makes it

   512

 * legal, gradually increasing up from the edge to the original terrain height.

   513

 * By cutting parts of this away, it gives a far more irregular edge to the

   514

 * map-edge. Sometimes it works beautifully with the existing sea & lakes, and

   515

 * creates a very realistic coastline. Other times the variation is less, and

   516

 * the map-edge shows its cliff-like roots.

   517

 *

   518

 * This routine may be extended to randomly sculpt the height of the terrain

   519

 * near the edge. This will have the coast edge at low level (1-3), rising in

   520

 * smoothed steps inland to about 15 tiles in. This should make it look as

   521

 * though the map has been built for the map size, rather than a slice through

   522

 * a larger map.

   523

 *

   524

 * Please note that all the small numbers; 53, 101, 167, etc. are small primes

   525

 * to help give the perlin noise a bit more of a random feel.

   526

 */

   527

static void HeightMapCoastLines(void)

   528

{