Adjust the phase

Slowyn · Sep 10, 2024 · 785849e · 785849e
1 parent 42ec7e0
commit 785849e
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 1 deletion.
diff --git a/app/Texture/Perlin.hs b/app/Texture/Perlin.hs
@@ -98,7 +98,7 @@ instance Show NoiseTexture where
   show _ = "Noise Texture"
 
 instance Texture NoiseTexture where
-  value (NoiseTexture perlin scale) _u _v point = fromXYZ (1, 1, 1) .^ turbulence perlin point 7
+  value (NoiseTexture perlin scale) _u _v point = fromXYZ (0.5, 0.5, 0.5) .^ (1 + sin (scale * z point + 10 * turbulence perlin point 7))
 
 mkNoiseTexture :: (StatefulGen g m, PrimMonad m) => Double -> g -> m NoiseTexture
 mkNoiseTexture scale gen = do

diff --git a/test.jpg b/test.jpg