Perlin noise code with additions that recolour the sea