Changed some perlin code