This commit is contained in:
Louis Dalibard 2024-12-24 16:45:52 +01:00
parent 01ea47411c
commit 4f079e775d

View File

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