@@ -2,6 +2,7 @@
22module Color where
33
44import Native.Color
5+import Basics ((-))
56
67data Color = Color Int Int Int Float
78
@@ -45,10 +46,21 @@ darkRed = Color 164 0 0 1
4546black = Color 0 0 0 1
4647white = Color 255 255 255 1
4748
48−gray : Color
49−gray = Color 128 128 128 1
50−grey : Color
51−grey = Color 128 128 128 1
49+lightGrey = Color 238 238 236
50+grey = Color 211 215 207
51+darkGrey = Color 186 189 182
52+
53+lightGray = Color 238 238 236
54+gray = Color 211 215 207
55+darkGray = Color 186 189 182
56+
57+lightCharcoal = Color 136 138 133
58+charcoal = Color 85 87 83
59+darkCharcoal = Color 46 52 54
60+
61+grayscale : Float -> Color
62+grayscale p = hsv 0 0 (1-p)
63+greyscale p = hsv 0 0 (1-p)
5264
5365-- Produce a “complementary color”.
5466-- The two colors will accent each other.