module Graphics.Vty.Attributes.Color240
( rgbColorToColor240
, color240CodeToRGB
)
where
import Data.Word (Word8)
import Text.Printf
rgbColorToColor240 :: Integral i => i -> i -> i -> Word8
rgbColorToColor240 :: i -> i -> i -> Word8
rgbColorToColor240 r :: i
r g :: i
g b :: i
b
| i
r i -> i -> Bool
forall a. Ord a => a -> a -> Bool
< 0 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Ord a => a -> a -> Bool
< 0 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Ord a => a -> a -> Bool
< 0 = [Char] -> Word8
forall a. HasCallStack => [Char] -> a
error "rgbColor with negative color component intensity"
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 8 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 8 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 8 = 216
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 18 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 18 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 18 = 217
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 28 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 28 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 28 = 218
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 38 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 38 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 38 = 219
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 48 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 48 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 48 = 220
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 58 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 58 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 58 = 221
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 68 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 68 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 68 = 222
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 78 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 78 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 78 = 223
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 88 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 88 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 88 = 224
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 98 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 98 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 98 = 225
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 108 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 108 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 108 = 226
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 118 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 118 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 118 = 227
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 128 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 128 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 128 = 228
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 138 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 138 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 138 = 229
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 148 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 148 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 148 = 230
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 158 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 158 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 158 = 231
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 168 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 168 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 168 = 232
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 178 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 178 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 178 = 233
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 188 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 188 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 188 = 234
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 198 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 198 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 198 = 235
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 208 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 208 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 208 = 236
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 218 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 218 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 218 = 237
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 228 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 228 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 228 = 238
| i
r i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 238 Bool -> Bool -> Bool
&& i
g i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 238 Bool -> Bool -> Bool
&& i
b i -> i -> Bool
forall a. Eq a => a -> a -> Bool
== 238 = 239
| Bool
otherwise = 36 Word8 -> Word8 -> Word8
forall a. Num a => a -> a -> a
* i -> Word8
go i
r Word8 -> Word8 -> Word8
forall a. Num a => a -> a -> a
+ 6 Word8 -> Word8 -> Word8
forall a. Num a => a -> a -> a
* i -> Word8
go i
g Word8 -> Word8 -> Word8
forall a. Num a => a -> a -> a
+ i -> Word8
go i
b
where go :: i -> Word8
go = Word8 -> i -> Word8
forall i. Integral i => Word8 -> i -> Word8
simpleColor_ ([Char] -> Word8
forall a. HasCallStack => [Char] -> a
error ([Char] -> Int -> Int -> Int -> [Char]
forall r. PrintfType r => [Char] -> r
printf "RGB color %d %d %d does not map to 240 palette."
(i -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral i
r :: Int)
(i -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral i
g :: Int)
(i -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral i
b :: Int)))
simpleColor_ :: Integral i => Word8 -> i -> Word8
simpleColor_ :: Word8 -> i -> Word8
simpleColor_ e :: Word8
e c :: i
c
| i
c i -> i -> Bool
forall a. Ord a => a -> a -> Bool
<= 0 = 0
| i
c i -> i -> Bool
forall a. Ord a => a -> a -> Bool
<= 95 = 1
| i
c i -> i -> Bool
forall a. Ord a => a -> a -> Bool
<= 255 = i -> Word8
forall a b. (Integral a, Num b) => a -> b
fromIntegral ((i
ci -> i -> i
forall a. Num a => a -> a -> a
-16) i -> i -> i
forall a. Integral a => a -> a -> a
`div` 40)
| Bool
otherwise = Word8
e
color240CodeToRGB :: Word8 -> Maybe (Int, Int, Int)
color240CodeToRGB :: Word8 -> Maybe (Int, Int, Int)
color240CodeToRGB n :: Word8
n = case Word8
n of
0 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 0, 0)
1 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 0, 95)
2 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 0, 135)
3 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 0, 175)
4 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 0, 215)
5 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 0, 255)
6 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 95, 0)
7 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 95, 95)
8 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 95, 135)
9 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 95, 175)
10 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 95, 215)
11 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 95, 255)
12 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 135, 0)
13 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 135, 95)
14 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 135, 135)
15 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 135, 175)
16 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 135, 215)
17 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 135, 255)
18 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 175, 0)
19 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 175, 95)
20 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 175, 135)
21 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 175, 175)
22 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 175, 215)
23 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 175, 255)
24 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 215, 0)
25 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 215, 95)
26 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 215, 135)
27 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 215, 175)
28 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 215, 215)
29 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 215, 255)
30 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 255, 0)
31 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 255, 95)
32 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 255, 135)
33 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 255, 175)
34 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 255, 215)
35 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (0, 255, 255)
36 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 0, 0)
37 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 0, 95)
38 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 0, 135)
39 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 0, 175)
40 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 0, 215)
41 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 0, 255)
42 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 95, 0)
43 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 95, 95)
44 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 95, 135)
45 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 95, 175)
46 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 95, 215)
47 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 95, 255)
48 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 135, 0)
49 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 135, 95)
50 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 135, 135)
51 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 135, 175)
52 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 135, 215)
53 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 135, 255)
54 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 175, 0)
55 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 175, 95)
56 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 175, 135)
57 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 175, 175)
58 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 175, 215)
59 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 175, 255)
60 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 215, 0)
61 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 215, 95)
62 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 215, 135)
63 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 215, 175)
64 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 215, 215)
65 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 215, 255)
66 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 255, 0)
67 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 255, 95)
68 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 255, 135)
69 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 255, 175)
70 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 255, 215)
71 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (95, 255, 255)
72 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 0, 0)
73 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 0, 95)
74 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 0, 135)
75 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 0, 175)
76 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 0, 215)
77 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 0, 255)
78 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 95, 0)
79 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 95, 95)
80 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 95, 135)
81 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 95, 175)
82 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 95, 215)
83 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 95, 255)
84 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 135, 0)
85 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 135, 95)
86 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 135, 135)
87 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 135, 175)
88 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 135, 215)
89 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 135, 255)
90 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 175, 0)
91 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 175, 95)
92 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 175, 135)
93 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 175, 175)
94 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 175, 215)
95 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 175, 255)
96 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 215, 0)
97 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 215, 95)
98 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 215, 135)
99 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 215, 175)
100 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 215, 215)
101 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 215, 255)
102 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 255, 0)
103 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 255, 95)
104 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 255, 135)
105 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 255, 175)
106 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 255, 215)
107 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (135, 255, 255)
108 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 0, 0)
109 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 0, 95)
110 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 0, 135)
111 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 0, 175)
112 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 0, 215)
113 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 0, 255)
114 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 95, 0)
115 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 95, 95)
116 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 95, 135)
117 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 95, 175)
118 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 95, 215)
119 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 95, 255)
120 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 135, 0)
121 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 135, 95)
122 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 135, 135)
123 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 135, 175)
124 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 135, 215)
125 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 135, 255)
126 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 175, 0)
127 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 175, 95)
128 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 175, 135)
129 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 175, 175)
130 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 175, 215)
131 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 175, 255)
132 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 215, 0)
133 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 215, 95)
134 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 215, 135)
135 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 215, 175)
136 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 215, 215)
137 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 215, 255)
138 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 255, 0)
139 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 255, 95)
140 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 255, 135)
141 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 255, 175)
142 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 255, 215)
143 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (175, 255, 255)
144 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 0, 0)
145 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 0, 95)
146 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 0, 135)
147 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 0, 175)
148 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 0, 215)
149 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 0, 255)
150 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 95, 0)
151 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 95, 95)
152 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 95, 135)
153 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 95, 175)
154 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 95, 215)
155 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 95, 255)
156 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 135, 0)
157 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 135, 95)
158 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 135, 135)
159 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 135, 175)
160 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 135, 215)
161 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 135, 255)
162 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 175, 0)
163 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 175, 95)
164 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 175, 135)
165 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 175, 175)
166 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 175, 215)
167 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 175, 255)
168 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 215, 0)
169 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 215, 95)
170 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 215, 135)
171 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 215, 175)
172 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 215, 215)
173 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 215, 255)
174 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 255, 0)
175 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 255, 95)
176 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 255, 135)
177 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 255, 175)
178 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 255, 215)
179 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (215, 255, 255)
180 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 0, 0)
181 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 0, 95)
182 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 0, 135)
183 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 0, 175)
184 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 0, 215)
185 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 0, 255)
186 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 95, 0)
187 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 95, 95)
188 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 95, 135)
189 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 95, 175)
190 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 95, 215)
191 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 95, 255)
192 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 135, 0)
193 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 135, 95)
194 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 135, 135)
195 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 135, 175)
196 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 135, 215)
197 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 135, 255)
198 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 175, 0)
199 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 175, 95)
200 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 175, 135)
201 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 175, 175)
202 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 175, 215)
203 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 175, 255)
204 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 215, 0)
205 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 215, 95)
206 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 215, 135)
207 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 215, 175)
208 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 215, 215)
209 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 215, 255)
210 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 255, 0)
211 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 255, 95)
212 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 255, 135)
213 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 255, 175)
214 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 255, 215)
215 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (255, 255, 255)
216 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (8, 8, 8)
217 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (18, 18, 18)
218 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (28, 28, 28)
219 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (38, 38, 38)
220 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (48, 48, 48)
221 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (58, 58, 58)
222 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (68, 68, 68)
223 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (78, 78, 78)
224 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (88, 88, 88)
225 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (98, 98, 98)
226 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (108, 108, 108)
227 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (118, 118, 118)
228 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (128, 128, 128)
229 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (138, 138, 138)
230 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (148, 148, 148)
231 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (158, 158, 158)
232 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (168, 168, 168)
233 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (178, 178, 178)
234 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (188, 188, 188)
235 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (198, 198, 198)
236 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (208, 208, 208)
237 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (218, 218, 218)
238 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (228, 228, 228)
239 -> (Int, Int, Int) -> Maybe (Int, Int, Int)
forall a. a -> Maybe a
Just (238, 238, 238)
_ -> Maybe (Int, Int, Int)
forall a. Maybe a
Nothing