git.iko.soy/elk
on master help sign in
Add gray, charcoal, and greyscale
9e08189Evan Czaplicki
libraries/Color.elm+16−4
compare with master
unifiedsplit
@@ -2,6 +2,7 @@
2module Color where
2module Color where
3
3
4import Native.Color
4import Native.Color
5+import Basics ((-))
5
6
6data Color = Color Int Int Int Float
7data Color = Color Int Int Int Float
7
8
@@ -45,10 +46,21 @@ darkRed = Color 164 0 0 1
45black = Color 0 0 0 1
46black = Color 0 0 0 1
46white = Color 255 255 255 1
47white = Color 255 255 255 1
47
48
48−gray : Color
49+lightGrey = Color 238 238 236
49−gray = Color 128 128 128 1
50+grey = Color 211 215 207
50−grey : Color
51+darkGrey = Color 186 189 182
51−grey = Color 128 128 128 1
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)
52
64
53-- Produce a “complementary color”.
65-- Produce a “complementary color”.
54-- The two colors will accent each other.
66-- The two colors will accent each other.