From 92f63a54ff34a9f6079f5372dc0a271bc1d491b8 Mon Sep 17 00:00:00 2001 From: Daniel Thwaites Date: Sun, 17 Oct 2021 19:48:03 +0100 Subject: [PATCH] Order base08 to base0F by hue :sparkles: --- palette-generator/Main.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/palette-generator/Main.hs b/palette-generator/Main.hs index 9bb389fe..b76f77bb 100644 --- a/palette-generator/Main.hs +++ b/palette-generator/Main.hs @@ -78,8 +78,11 @@ selectColours image = zip names palette primaryScale = [HSV h s (v / 8) | v <- [1..8]] where (HSV h s _) = head shortlist + secondaryScale :: [HSV Float] + secondaryScale = sortOn (\(HSV h _ _) -> h) $ tail shortlist + palette :: [HSV Float] - palette = primaryScale ++ tail shortlist + palette = primaryScale ++ secondaryScale unpackImage :: DynamicImage -> [RGB Float] unpackImage image = do