? 5c!V^NA d4BNMVX | P
Dbdn( 0/ X h R0` P0?@8E^xM `#MBK`,X"
0c20)*ϊXǐ=@N*;e~@(VC3Ě5MP&0QŜ( V10gKt, Ĭ.kd<!Yg2;F*;E~[KX&D ZO%Q1'$2յ3ʙeb`lD1zr Fd5h/ !H+ n@).V<.I454e4
sT5%@āCL4A¦}B&tҠۚth
sIixzLcK.-Y?J dS+W$
'" &&R^2TU-=lF(z\23Wp²PNjPxN`)NbC{9 t:,RxbUiA!N
vN
&ShH(ya MA܁ƤE8YFH4 ޖ=߀,
D+Nj!zN" f~g<=rxfoh0;e0G<+c(uZB'FoФ ?54 3B rFwPQ # lO#3~``G5WF,fC`)ē- x ܍IYq'-n$R D F8 .vjD1
H g4 s)2>@Ȁ̧dK8B+&3x"4rW 1$ HVM0RUځ6Cszʌզm lZSESfYC
&s!I hw-g8; K+h go5ߌ̔BX GeHci.\E\$[ %pȠ<4 Ct 1IL5+p
O ;U,NʯO&jLLE/v~OŴx]z) # f<ǴIRR @fѣ) Ç~q$xzF25Ob1摠hzrHG8zfje1!i[L;LcJ0Ag&w?e^< NOap5Rmŝ UAYB>c x[~
JC- #]MT B(
`>aoecbdYz̴cOΚ .Y/IUf, \sZbI h)'`rC0oօu=pj10
. MS3-l bDUT:b IT I,td |p?:C{hß~@ǃ@f ]yC2:qL '8~1ge\[ 8"- 'p)hU1,g~ըM`h7
ɡ\LK >So2P\@ 1qEWYx'.1>7fP1*c{X\͈Kub!}ցm'0 ޙ! @O$TJ Oy= .d/*n^`%7tX(c |BL|pin~T /zL>.82g8pu& Zr`
'1DN0zԹm5!Y30'?qҿ?/ x҂?!e|Sx*@e7@ G>.$2
Ґ_`4D
Dݠ{*q'$8Ov]0]$g' E! < LR -Z$$88P
;[ Җ aqL0Oq!' xa@$cH*" -N& xt~HwwP2Oj.r:|/)I䩽KrCo!0U?'h;g~7쿼?
ʪ*O|` `^, {4C II Zm4
xLEAfy
)PWS $7p(&Ι^ xW:2
Z%;HՋ~Vbw?#xi , >3wΪ[iARP\O(U+so L?oX7' xrc <ɮ^ 5Ere'K# .edVCS2;|M
q Ljl# -X<:s{o 3ljBh&;8 W e2 _uWQ 0Led 2Et%
r
#u \8 Brb8
? H ZgL: ƓL' w E4"; ٓ> 04Ay`n&x ^_?[] @B F
^ʼzR-苎Q,( Ag%+m3`bXr# ; ;>M qe>44Le[X#Ͷ!--ͬi@7Oo "k1d
^ 0շ5Zh[o fVVsK6b%bs+}4 Q8osJ,x&=ƾ
0 ݒq.8xI|"
zQ
0K$Q' _8
2UY = 'Np
+ހ@"NND Mr
r2uGXi@63G&9k?rӔ BhC/
8sB q@1@ lx#w `T@M``K0_Yɓ\@+?] 诔 )dмFWx+ƛ'*IQ km_ >¿dO_C,3ic`Ap_ c:%SJ hʂ# `q"bx'Mq$=i#c]D5SK3g"
4@JaJ"U%7fbf7d IYșb t {ł tQ$D!'8LF9]/?,!)L@z5ސ~d64^Oo
׳#)ӴoLVQ? g ~J+q_tճa@o7ͤzXm@= Tw頓鍘t:9hjf!~F֕v(lց)АsN0 JMLD2C1`6 6̰ 0H(2FNNʉi_7[rִQMPh^k 5:$qQ.1
/ʓ~nX\lQK~YF]?L/LkD=xV< D3̜@9t \ArZѩq)@+ftv?,Qˡ,*3b9f,(3 Q°)lbʔo2=|Z auf8#
4L d,6)(>И*5 BM{pIe] ? 5&mEl 5BO?_ TPp ~5&13$=VtS(*s u_?z EѰ$'xRJW0*RK S[p0`~ڄ1- b N`6t1 , e,PVy΄@X7|]k h
J)' >F?z).Np C _TTQPRzSE^0\hh
:BNb.}^`\bLI3"hDbjuE(7R1-F?LʠU
~9:_2q >a^P3qG v@'P8 {kq@}>8?!ʀ]CŠ$.AaEOOa jD<=qoIX8e=xuk"?x#T
7=ҁi z",io%x)eS1C~sJ/8`x
H .uW<B:cdvklwrYV ) 8b/ )LA7<@,@w VR*Dή0ZiD h^A FZ;fydP8I8:|> >x؝\f/\{( Q
x%<مFW]
o%Cd814\ 0zf ,=Gc(#8ӳQ_6е8)T=gpX^w ~ueY.]҅ xU|s;Rs#L4ҢBbH t; <8-:b6QX3nL 43 !^sw@[g,"e ?3 ,10G5ǯ`$K̇`~=i *O_4znX$ DwP5;0c[RxY3
z:tG8JU갗3t7163 s ^0 GH$=HՒE& = `-Q ^d5
float triLinearInterpolationNoEase(
float v000, float v100, float v010, float v110,
float v001, float v101, float v011, float v111,
float x, float y, float z)
{
float u = biLinearInterpolationNoEase(v000, v100, v010, v110, x, y);
float v = biLinearInterpolationNoEase(v001, v101, v011, v111, x, y);
return linearInterpolation(u, v, z);
}
float noise2d_gradient(float x, float y, int seed, bool eased)
{
// Calculate the integer coordinates
int x0 = myfloor(x);
int y0 = myfloor(y);
// Calculate the remaining part of the coordinates
float xl = x - (float)x0;
float yl = y - (float)y0;
// Get values for corners of square
float v00 = noise2d(x0, y0, seed);
float v10 = noise2d(x0+1, y0, seed);
float v01 = noise2d(x0, y0+1, seed);
float v11 = noise2d(x0+1, y0+1, seed);
// Interpolate
if (eased)
return biLinearInterpolation(v00, v10, v01, v11, xl, yl);
else
return biLinearInterpolationNoEase(v00, v10, v01, v11, xl, yl);
}
float noise3d_gradient(float x, float y, float z, int seed, bool eased)
{
// Calculate the integer coordinates
int x0 = myfloor(x);
int y0 = myfloor(y);
int z0 = myfloor(z);
// Calculate the remaining part of the coordinates
float xl = x - (float)x0;
float yl = y - (float)y0;
float zl = z - (float)z0;
// Get values for corners of cube
float v000 = noise3d(x0, y0, z0, seed);
float v100 = noise3d(x0 + 1, y0, z0, seed);
float v010 = noise3d(x0, y0 + 1, z0, seed);
float v110 = noise3d(x0 + 1, y0 + 1, z0, seed);
float v001 = noise3d(x0, y0, z0 + 1, seed);
float v101 = noise3d(x0 + 1, y0, z0 + 1, seed);
float v011 = noise3d(x0, y0 + 1, z0 + 1, seed);
float v111 = noise3d(x0 + 1, y0 + 1, z0 + 1, seed);
// Interpolate
if (eased) {
return triLinearInterpolation(
v000, v100, v010, v110,
v001, v101, v011, v111,
xl, yl, zl);
} else {
return triLinearInterpolationNoEase(
v000, v100, v010, v110,
v001, v101, v011, v111,
xl, yl, zl);
}
}
float noise2d_perlin(float x, float y, int seed,
int octaves, float persistence, bool eased)
{
float a = 0;
float f = 1.0;
float g = 1.0;
for (int i = 0; i < octaves; i++)
{
a += g * noise2d_gradient(x * f, y * f, seed + i, eased);
f *= 2.0;
g *= persistence;
}
return a;
}
float noise2d_perlin_abs(float x, float y, int seed,
int octaves, float persistence, bool eased)
{
float a = 0;
float f = 1.0;
float g = 1.0;
for (int i = 0; i < octaves; i++) {
a += g * fabs(noise2d_gradient(x * f, y * f, seed + i, eased));
f *= 2.0;
g *= persistence;
}
return a;
}
float noise3d_perlin(float x, float y, float z, int seed,
int octaves, float persistence, bool eased)
{
float a = 0;
float f = 1.0;
float g = 1.0;
for (int i = 0; i < octaves; i++) {
a += g * noise3d_gradient(x * f, y * f, z * f, seed + i, eased);
f *= 2.0;
g *= persistence;
}
return a;
}
float noise3d_perlin_abs(float x, float y, float z, int seed,
int octaves, float persistence, bool eased)
{
float a = 0;
float f = 1.0;
float g = 1.0;
for (int i = 0; i < octaves; i++) {
a += g * fabs(noise3d_gradient(x * f, y * f, z * f, seed + i, eased));
f *= 2.0;
g *= persistence;
}
return a;
}
float contour(float v)
{
v = fabs(v);
if (v >= 1.0)
return 0.0;
return (1.0 - v);
}
///////////////////////// [ New noise ] ////////////////////////////
float NoisePerlin2D(NoiseParams *np, float x, float y, int seed)
{
float a = 0;
float f = 1.0;
float g = 1.0;
x /= np->spread.X;
y /= np->spread.Y;
seed += np->seed;
for (size_t i = 0; i < np->octaves; i++) {
float noiseval = noise2d_gradient(x * f, y * f, seed + i,
np->flags & (NOISE_FLAG_DEFAULTS | NOISE_FLAG_EASED));
if (np->flags & NOISE_FLAG_ABSVALUE)
noiseval = fabs(noiseval);
a += g * noiseval;
f *= np->lacunarity;
g *= np->persist;
}
return np->offset + a * np->scale;
}
float NoisePerlin3D(NoiseParams *np, float x, float y, float z, int seed)
{
float a = 0;
float f = 1.0;
float g = 1.0;
x /= np->spread.X;
y /= np->spread.Y;
z /= np->spread.Z;
seed += np->seed;
for (size_t i = 0; i < np->octaves; i++) {
float noiseval = noise3d_gradient(x * f, y * f, z * f, seed + i,
np->flags & NOISE_FLAG_EASED);
if (np->flags & NOISE_FLAG_ABSVALUE)
noiseval = fabs(noiseval);
a += g * noiseval;
f *= np->lacunarity;
g *= np->persist;
}
return np->offset + a * np->scale;
}
Noise::Noise(NoiseParams *np_, int seed, u32 sx, u32 sy, u32 sz)
{
memcpy(&np, np_, sizeof(np));
this->seed = seed;
this->sx = sx;
this->sy = sy;
this->sz = sz;
this->persist_buf = NULL;
this->gradient_buf = NULL;
this->result = NULL;
allocBuffers();
}
Noise::~Noise()
{
delete[] gradient_buf;
delete[] persist_buf;
delete[] noise_buf;
delete[] result;
}
void Noise::allocBuffers()
{
if (sx < 1)
sx = 1;
if (sy < 1)
sy = 1;
if (sz < 1)
sz = 1;
this->noise_buf = NULL;
resizeNoiseBuf(sz > 1);
delete[] gradient_buf;
delete[] persist_buf;
delete[] result;
try {
size_t bufsize = sx * sy * sz;
this->persist_buf = NULL;
this->gradient_buf = new float[bufsize];
this->result = new float[bufsize];
} catch (std::bad_alloc &e) {
throw InvalidNoiseParamsException();
}
}
void Noise::setSize(u32 sx, u32 sy, u32 sz)
{
this->sx = sx;
this->sy = sy;
this->sz = sz;
allocBuffers();
}
void Noise::setSpreadFactor(v3f spread)
{
this->np.spread = spread;
resizeNoiseBuf(sz > 1);
}
void Noise::setOctaves(int octaves)
{
this->np.octaves = octaves;
resizeNoiseBuf(sz > 1);
}
void Noise::resizeNoiseBuf(bool is3d)
{
//maximum possible spread value factor
float ofactor = (np.lacunarity > 1.0) ?
pow(np.lacunarity, np.octaves - 1) :
np.lacunarity;
// noise lattice point count
// (int)(sz * spread * ofactor) is # of lattice points crossed due to length
float num_noise_points_x = sx * ofactor / np.spread.X;
float num_noise_points_y = sy * ofactor / np.spread.Y;
float num_noise_points_z = sz * ofactor / np.spread.Z;
// protect against obviously invalid parameters
if (num_noise_points_x > 1000000000.f ||
num_noise_points_y > 1000000000.f ||
num_noise_points_z > 1000000000.f)
throw InvalidNoiseParamsException();
// + 2 for the two initial endpoints
// + 1 for potentially crossing a boundary due to offset
size_t nlx = (size_t)ceil(num_noise_points_x) + 3;
size_t nly = (size_t)ceil(num_noise_points_y) + 3;
size_t nlz = is3d ? (size_t)ceil(num_noise_points_z) + 3 : 1;
delete[] noise_buf;
try {
noise_buf = new float[nlx * nly * nlz];
} catch (std::bad_alloc &e) {
throw InvalidNoiseParamsException();
}
}
/*
* NB: This algorithm is not optimal in terms of space complexity. The entire
* integer lattice of noise points could be done as 2 lines instead, and for 3D,
* 2 lines + 2 planes.
* However, this would require the noise calls to be interposed with the
* interpolation loops, which may trash the icache, leading to lower overall
* performance.
* Another optimization that could save half as many noise calls is to carry over
* values from the previous noise lattice as midpoints in the new lattice for the
* next octave.
*/
#define idx(x, y) ((y) * nlx + (x))
void Noise::gradientMap2D(
float x, float y,
float step_x, float step_y,
int seed)
{
float v00, v01, v10, v11, u, v, orig_u;
u32 index, i, j, noisex, noisey;
u32 nlx, nly;
s32 x0, y0;
bool eased = np.flags & (NOISE_FLAG_DEFAULTS | NOISE_FLAG_EASED);
Interp2dFxn interpolate = eased ?
biLinearInterpolation : biLinearInterpolationNoEase;
x0 = floor(x);
y0 = floor(y);
u = x - (float)x0;
v = y - (float)y0;
orig_u = u;
//calculate noise point lattice
nlx = (u32)(u + sx * step_x) + 2;
nly = (u32)(v + sy * step_y) + 2;
index = 0;
for (j = 0; j != nly; j++)
for (i = 0; i != nlx; i++)
noise_buf[index++] = noise2d(x0 + i, y0 + j, seed);
//calculate interpolations
index = 0;
noisey = 0;
for (j = 0; j != sy; j++) {
v00 = noise_buf[idx(0, noisey)];
v10 = noise_buf[idx(1, noisey)];
v01 = noise_buf[idx(0, noisey + 1)];
v11 = noise_buf[idx(1, noisey + 1)];
u = orig_u;
noisex = 0;
for (i = 0; i != sx; i++) {
gradient_buf[index++] = interpolate(v00, v10, v01, v11, u, v);
u += step_x;
if (u >= 1.0) {
u -= 1.0;
noisex++;
v00 = v10;
v01 = v11;
v10 = noise_buf[idx(noisex + 1, noisey)];
v11 = noise_buf[idx(noisex + 1, noisey + 1)];
}
}
v += step_y;
if (v >= 1.0) {
v -= 1.0;
noisey++;
}
}
}
#undef idx
#define idx(x, y, z) ((z) * nly * nlx + (y) * nlx + (x))
void Noise::gradientMap3D(
float x, float y, float z,
float step_x, float step_y, float step_z,
int seed)
{
float v000, v010, v100, v110;
float v001, v011, v101, v111;
float u, v, w, orig_u, orig_v;
u32 index, i, j, k, noisex, noisey, noisez;
u32 nlx, nly, nlz;
s32 x0, y0, z0;
Interp3dFxn interpolate = (np.flags & NOISE_FLAG_EASED) ?
triLinearInterpolation : triLinearInterpolationNoEase;
x0 = floor(x);
y0 = floor(y);
z0 = floor(z);
u = x - (float)x0;
v = y - (float)y0;
w = z - (float)z0;
orig_u = u;
orig_v = v;
//calculate noise point lattice
nlx = (u32)(u + sx * step_x) + 2;
nly = (u32)(v + sy * step_y) + 2;
nlz = (u32)(w + sz * step_z) + 2;
index = 0;
for (k = 0; k != nlz; k++)
for (j = 0; j != nly; j++)
for (i = 0; i != nlx; i++)
noise_buf[index++] = noise3d(x0 + i, y0 + j, z0 + k, seed);
//calculate interpolations
index = 0;
noisey = 0;
noisez = 0;
for (k = 0; k != sz; k++) {
v = orig_v;
noisey = 0;
for (j = 0; j != sy; j++) {
v000 = noise_buf[idx(0, noisey, noisez)];
v100 = noise_buf[idx(1, noisey, noisez)];
v010 = noise_buf[idx(0, noisey + 1, noisez)];
v110 = noise_buf[idx(1, noisey + 1, noisez)];
v001 = noise_buf[idx(0, noisey, noisez + 1)];
v101 = noise_buf[idx(1, noisey, noisez + 1)];
v011 = noise_buf[idx(0, noisey + 1, noisez + 1)];
v111 = noise_buf[idx(1, noisey + 1, noisez + 1)];
u = orig_u;
noisex = 0;
for (i = 0; i != sx; i++) {
gradient_buf[index++] = interpolate(
v000, v100, v010, v110,
v001, v101, v011, v111,
u, v, w);
u += step_x;
if (u >= 1.0) {
u -= 1.0;
noisex++;
v000 = v100;
v010 = v110;
v100 = noise_buf[idx(noisex + 1, noisey, noisez)];
v110 = noise_buf[idx(noisex + 1, noisey + 1, noisez)];
v001 = v101;
v011 = v111;
v101 = noise_buf[idx(noisex + 1, noisey, noisez + 1)];
v111 = noise_buf[idx(noisex + 1, noisey + 1, noisez + 1)];
}
}
v += step_y;
if (v >= 1.0) {
v -= 1.0;
noisey++;
}
}
w += step_z;
if (w >= 1.0) {
w -= 1.0;
noisez++;
}
}
}
#undef idx
float *Noise::perlinMap2D(float x, float y, float *persistence_map)
{
float f = 1.0, g = 1.0;
size_t bufsize = sx * sy;
x /= np.spread.X;
y /= np.spread.Y;
memset(result, 0, sizeof(float) * bufsize);
if (persistence_map) {
if (!persist_buf)
persist_buf = new float[bufsize];
for (size_t i = 0; i != bufsize; i++)
persist_buf[i] = 1.0;
}
for (size_t oct = 0; oct < np.octaves; oct++) {
gradientMap2D(x * f, y * f,
f / np.spread.X, f / np.spread.Y,
seed + np.seed + oct);
updateResults(g, persist_buf, persistence_map, bufsize);
f *= np.lacunarity;
g *= np.persist;
}
if (fabs(np.offset - 0.f) > 0.00001 || fabs(np.scale - 1.f) > 0.00001) {
for (size_t i = 0; i != bufsize; i++)
result[i] = result[i] * np.scale + np.offset;
}
return result;
}
float *Noise::perlinMap3D(float x, float y, float z, float *persistence_map)
{
float f = 1.0, g = 1.0;
size_t bufsize = sx * sy * sz;
x /= np.spread.X;
y /= np.spread.Y;
z /= np.spread.Z;
memset(result, 0, sizeof(float) * bufsize);
if (persistence_map) {
if (!persist_buf)
persist_buf = new float[bufsize];
for (size_t i = 0; i != bufsize; i++)
persist_buf[i] = 1.0;
}
for (size_t oct = 0; oct < np.octaves; oct++) {
gradientMap3D(x * f, y * f, z * f,
f / np.spread.X, f / np.spread.Y, f / np.spread.Z,
seed + np.seed + oct);
updateResults(g, persist_buf, persistence_map, bufsize);
f *= np.lacunarity;
g *= np.persist;
}
if (fabs(np.offset - 0.f) > 0.00001 || fabs(np.scale - 1.f) > 0.00001) {
for (size_t i = 0; i != bufsize; i++)
result[i] = result[i] * np.scale + np.offset;
}
return result;
}
void Noise::updateResults(float g, float *gmap,
float *persistence_map, size_t bufsize)
{
// This looks very ugly, but it is 50-70% faster than having
// conditional statements inside the loop
if (np.flags & NOISE_FLAG_ABSVALUE) {
if (persistence_map) {
for (size_t i = 0; i != bufsize; i++) {
result[i] += gmap[i] * fabs(gradient_buf[i]);
gmap[i] *= persistence_map[i];
}
} else {
for (size_t i = 0; i != bufsize; i++)
result[i] += g * fabs(gradient_buf[i]);
}
} else {
if (persistence_map) {
for (size_t i = 0; i != bufsize; i++) {
result[i] += gmap[i] * gradient_buf[i];
gmap[i] *= persistence_map[i];
}
} else {
for (size_t i = 0; i != bufsize; i++)
result[i] += g * gradient_buf[i];
}
}
}