From 7f57648dbdb4330951bfc5cf5a94f306a241280c Mon Sep 17 00:00:00 2001
From: Louis Dalibard <ontake@ontake.dev>
Date: Tue, 24 Dec 2024 17:20:02 +0100
Subject: [PATCH] yes

---
 palette-generator/Stylix/Palette.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/palette-generator/Stylix/Palette.hs b/palette-generator/Stylix/Palette.hs
index 6f06fea..2f1c3ad 100644
--- a/palette-generator/Stylix/Palette.hs
+++ b/palette-generator/Stylix/Palette.hs
@@ -12,7 +12,7 @@ import System.Random ( randomRIO )
 
 -- Adjust value according to coefficients
 adjustValue :: Double -> Double->  Double -> Double -> Double
-adjustValue v a b x = v*(a*x+b)
+adjustValue v a b x = minimum [maximum [0.0, v*(a*x+b)], 100.0]
 
 -- | Extract the primary scale from a pallete.
 primary :: V.Vector a -> V.Vector a