Added perlin noise example function noiseTest()