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:03:01 +01:00
parent 51b16fcad7
commit 5aebdf595b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,6 +10,10 @@ import Data.Vector ( (//) )
import qualified Data.Vector as V
import System.Random ( randomRIO )
-- Adjust value according to coefficients
stringToFloat :: (LAB(lightness), Float, Float, Float) -> LAB(lightness)
stringToFloat (V,a,b,x) = V*(a*x+b)
-- | Extract the primary scale from a pallete.
primary :: V.Vector a -> V.Vector a
primary = V.take 8