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:09:59 +01:00
parent 2fb75fbe43
commit c14e162348
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,8 +11,8 @@ 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 :: LAB(lightness) -> Float-> Float -> Float -> Int adjustValue :: Float -> Float-> Float -> Float -> Int
adjustValue v a b x = v*(a*x+b) adjustValue v a b x = round v*(a*x+b)
-- | Extract the primary scale from a pallete. -- | Extract the primary scale from a pallete.
primary :: V.Vector a -> V.Vector a primary :: V.Vector a -> V.Vector a