Initial but buggy Perlin implementation on squares