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 16:24:49 +01:00
parent b907157d5f
commit ca28ac4982
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/Main.hs
View File

@ -22,7 +22,7 @@ mainProcess (polarity,primaryScaleDark,primaryScaleLight, input, output) = do
setStdGen $ mkStdGen 0 setStdGen $ mkStdGen 0
image <- loadImage input image <- loadImage input
palette <- evolve (polarity, convertRGB8 image) palette <- evolve (polarity, primaryScaleDark, primaryScaleLight, convertRGB8 image)
let outputTable = makeOutputTable $ V.map lab2rgb palette let outputTable = makeOutputTable $ V.map lab2rgb palette
writeFile output $ encode outputTable writeFile output $ encode outputTable