This commit is contained in:
Louis Dalibard 2024-12-24 16:24:49 +01:00
parent b907157d5f
commit ca28ac4982

View File

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