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:30:03 +01:00
parent 2742333c12
commit ae9451ec49
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

@ -44,7 +44,7 @@ instance Species (String, Image PixelRGB8) (V.Vector LAB) where
colour <- randomFromImage image colour <- randomFromImage image
return $ palette // [(index, colour)] return $ palette // [(index, colour)]
fitness (polarity,primaryScaleDark,primaryScaleLight, _) palette fitness (polarity, _) palette
= realToFrac $ accentDifference - (primarySimilarity/10) - scheme = realToFrac $ accentDifference - (primarySimilarity/10) - scheme
where where
-- The primary scale should use similar colours, to an extent. -- The primary scale should use similar colours, to an extent.