Mirrors/stylix
2
0
Fork 0
mirror of https://github.com/danth/stylix synced 2024-11-22 12:13:08 +00:00
Code Issues Projects Releases Packages Wiki Activity

Order base08 to base0F by hue ✨

Browse source
This commit is contained in:
Daniel Thwaites 2021-10-17 19:48:03 +01:00
parent 6c806290e4
commit 92f63a54ff
No known key found for this signature in database
GPG key ID: D8AFC4BF05670F9D
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
palette-generator/Main.hs
View file

@ -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