A Paste by Anonymous

1

perlin::perlin() // default constructor {     persistence=0.7f;          // "base primes"     bp1 = (long) 15731.0;     bp2 = (long) 789221.0;     bp3 = (long) 1376312589.0;     bp4 = (long) 1073741824.0;          octaves=1;     noise=0;     array=NULL; } int perlin::MakeNoise(float per, int oct) {     persistence=per;     octaves=oct;     // "base primes" wieder zur