This commit is contained in:
Louis Dalibard 2024-12-24 16:30:03 +01:00
parent 2742333c12
commit ae9451ec49

View File

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