This commit is contained in:
Louis Dalibard 2024-12-24 17:08:33 +01:00
parent b25345f3fd
commit 2fb75fbe43

View File

@ -11,7 +11,7 @@ import qualified Data.Vector as V
import System.Random ( randomRIO ) import System.Random ( randomRIO )
-- Adjust value according to coefficients -- Adjust value according to coefficients
adjustValue :: Int -> Float-> Float -> Float -> Int adjustValue :: LAB(lightness) -> Float-> Float -> Float -> Int
adjustValue v a b x = v*(a*x+b) adjustValue v a b x = v*(a*x+b)
-- | Extract the primary scale from a pallete. -- | Extract the primary scale from a pallete.