OnTake/stylix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

yes

Browse Source
This commit is contained in:
Louis Dalibard 2024-12-24 17:20:02 +01:00
parent 07fe192d5f
commit 7f57648dbd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
palette-generator/Stylix/Palette.hs
View File

@ -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