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:45:52 +01:00
parent 01ea47411c
commit 4f079e775d
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,String,String, Image PixelRGB8) (V.Vector LAB) where
colour <- randomFromImage image colour <- randomFromImage image
return $ palette // [(index, colour)] return $ palette // [(index, colour)]
fitness (polarity,_,_,_, _) 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.