Added beginning, not working, Perlin noise implementation