This commit is contained in:
Louis Dalibard 2024-12-24 16:45:27 +01:00
parent 3f5656bd3b
commit 01ea47411c

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.