aboutsummaryrefslogtreecommitdiffstats
path: root/unix/colortest.pl
blob: 767789e3a1ac1d8f941e9186d43e14aa6e9d6a7f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
#!/usr/bin/env perl

# by entheon, do whatever the hell you want with this file

print "\n";
print "*****************************\n";
print "* XTERM 256Color Test Chart *\n";
print "*****************************\n";
print "* 16  = black\n";
print "* 255 = white\n";
print "*\n";
print "* Usage:\n";
print "* colortest.pl -w\n";
print "*    wide display\n";
print "*\n";
print "* colortest.pl -w -r\n";
print "*    wide display reversed\n";
print "*\n";
print "* colortest.pl -w -s\n";
print "*    extra spaces padding\n";
print "*\n";
print "* colortest.pl -w -r -s\n";
print "*    available combination\n";
print "*\n";
print "**************************\n";

if( $ARGV[0] eq "-w" || $ARGV[1] eq "-w" || $ARGV[2] eq "-w" ) {
    push(@arr, [(  " 16:  00/00/00",     " 17:  00/00/5f",     " 18:  00/00/87",     " 19:  00/00/af",     " 20:  00/00/d7",     " 21:  00/00/ff")] );  
    push(@arr, [(  " 22:  00/5f/00",     " 23:  00/5f/5f",     " 24:  00/5f/87",     " 25:  00/5f/af",     " 26:  00/5f/d7",     " 27:  00/5f/ff")] );  
    push(@arr, [(  " 28:  00/87/00",     " 29:  00/87/5f",     " 30:  00/87/87",     " 31:  00/87/af",     " 32:  00/87/d7",     " 33:  00/87/ff")] );  
    push(@arr, [(  " 34:  00/af/00",     " 35:  00/af/5f",     " 36:  00/af/87",     " 37:  00/af/af",     " 38:  00/af/d7",     " 39:  00/af/ff")] );  
    push(@arr, [(  " 40:  00/d7/00",     " 41:  00/d7/5f",     " 42:  00/d7/87",     " 43:  00/d7/af",     " 44:  00/d7/d7",     " 45:  00/d7/ff")] );  
    push(@arr, [(  " 46:  00/ff/00",     " 47:  00/ff/5f",     " 48:  00/ff/87",     " 49:  00/ff/af",     " 50:  00/ff/d7",     " 51:  00/ff/ff")] );  
    push(@arr, [(  " 52:  5f/00/00",     " 53:  5f/00/5f",     " 54:  5f/00/87",     " 55:  5f/00/af",     " 56:  5f/00/d7",     " 57:  5f/00/ff")] );  
    push(@arr, [(  " 58:  5f/5f/00",     " 59:  5f/5f/5f",     " 60:  5f/5f/87",     " 61:  5f/5f/af",     " 62:  5f/5f/d7",     " 63:  5f/5f/ff")] );  
    push(@arr, [(  " 64:  5f/87/00",     " 65:  5f/87/5f",     " 66:  5f/87/87",     " 67:  5f/87/af",     " 68:  5f/87/d7",     " 69:  5f/87/ff")] );  
    push(@arr, [(  " 70:  5f/af/00",     " 71:  5f/af/5f",     " 72:  5f/af/87",     " 73:  5f/af/af",     " 74:  5f/af/d7",     " 75:  5f/af/ff")] );  
    push(@arr, [(  " 76:  5f/d7/00",     " 77:  5f/d7/5f",     " 78:  5f/d7/87",     " 79:  5f/d7/af",     " 80:  5f/d7/d7",     " 81:  5f/d7/ff")] );  
    push(@arr, [(  " 82:  5f/ff/00",     " 83:  5f/ff/5f",     " 84:  5f/ff/87",     " 85:  5f/ff/af",     " 86:  5f/ff/d7",     " 87:  5f/ff/ff")] );  
    push(@arr, [(  " 88:  87/00/00",     " 89:  87/00/5f",     " 90:  87/00/87",     " 91:  87/00/af",     " 92:  87/00/d7",     " 93:  87/00/ff")] );  
    push(@arr, [(  " 94:  87/5f/00",     " 95:  87/5f/5f",     " 96:  87/5f/87",     " 97:  87/5f/af",     " 98:  87/5f/d7",     " 99:  87/5f/ff")] );  
    push(@arr, [( " 100: 87/87/00",    " 101: 87/87/5f",    " 102: 87/87/87",    " 103: 87/87/af",    " 104: 87/87/d7",    " 105: 87/87/ff")] );
    push(@arr, [( " 106: 87/af/00",    " 107: 87/af/5f",    " 108: 87/af/87",    " 109: 87/af/af",    " 110: 87/af/d7",    " 111: 87/af/ff")] );
    push(@arr, [( " 112: 87/d7/00",    " 113: 87/d7/5f",    " 114: 87/d7/87",    " 115: 87/d7/af",    " 116: 87/d7/d7",    " 117: 87/d7/ff")] );
    push(@arr, [( " 118: 87/ff/00",    " 119: 87/ff/5f",    " 120: 87/ff/87",    " 121: 87/ff/af",    " 122: 87/ff/d7",    " 123: 87/ff/ff")] );
    push(@arr, [( " 124: af/00/00",    " 125: af/00/5f",    " 126: af/00/87",    " 127: af/00/af",    " 128: af/00/d7",    " 129: af/00/ff")] );
    push(@arr, [( " 130: af/5f/00",    " 131: af/5f/5f",    " 132: af/5f/87",    " 133: af/5f/af",    " 134: af/5f/d7",    " 135: af/5f/ff")] );
    push(@arr, [( " 136: af/87/00",    " 137: af/87/5f",    " 138: af/87/87",    " 139: af/87/af",    " 140: af/87/d7",    " 141: af/87/ff")] );
    push(@arr, [( " 142: af/af/00",    " 143: af/af/5f",    " 144: af/af/87",    " 145: af/af/af",    " 146: af/af/d7",    " 147: af/af/ff")] );
    push(@arr, [( " 148: af/d7/00",    " 149: af/d7/5f",    " 150: af/d7/87",    " 151: af/d7/af",    " 152: af/d7/d7",    " 153: af/d7/ff")] );
    push(@arr, [( " 154: af/ff/00",    " 155: af/ff/5f",    " 156: af/ff/87",    " 157: af/ff/af",    " 158: af/ff/d7",    " 159: af/ff/ff")] );
    push(@arr, [( " 160: d7/00/00",    " 161: d7/00/5f",    " 162: d7/00/87",    " 163: d7/00/af",    " 164: d7/00/d7",    " 165: d7/00/ff")] );
    push(@arr, [( " 166: d7/5f/00",    " 167: d7/5f/5f",    " 168: d7/5f/87",    " 169: d7/5f/af",    " 170: d7/5f/d7",    " 171: d7/5f/ff")] );
    push(@arr, [( " 172: d7/87/00",    " 173: d7/87/5f",    " 174: d7/87/87",    " 175: d7/87/af",    " 176: d7/87/d7",    " 177: d7/87/ff")] );
    push(@arr, [( " 178: d7/af/00",    " 179: d7/af/5f",    " 180: d7/af/87",    " 181: d7/af/af",    " 182: d7/af/d7",    " 183: d7/af/ff")] );
    push(@arr, [( " 184: d7/d7/00",    " 185: d7/d7/5f",    " 186: d7/d7/87",    " 187: d7/d7/af",    " 188: d7/d7/d7",    " 189: d7/d7/ff")] );
    push(@arr, [( " 190: d7/ff/00",    " 191: d7/ff/5f",    " 192: d7/ff/87",    " 193: d7/ff/af",    " 194: d7/ff/d7",    " 195: d7/ff/ff")] );
    push(@arr, [( " 196: ff/00/00",    " 197: ff/00/5f",    " 198: ff/00/87",    " 199: ff/00/af",    " 200: ff/00/d7",    " 201: ff/00/ff")] );
    push(@arr, [( " 202: ff/5f/00",    " 203: ff/5f/5f",    " 204: ff/5f/87",    " 205: ff/5f/af",    " 206: ff/5f/d7",    " 207: ff/5f/ff")] );
    push(@arr, [( " 208: ff/87/00",    " 209: ff/87/5f",    " 210: ff/87/87",    " 211: ff/87/af",    " 212: ff/87/d7",    " 213: ff/87/ff")] );
    push(@arr, [( " 214: ff/af/00",    " 215: ff/af/5f",    " 216: ff/af/87",    " 217: ff/af/af",    " 218: ff/af/d7",    " 219: ff/af/ff")] );
    push(@arr, [( " 220: ff/d7/00",    " 221: ff/d7/5f",    " 222: ff/d7/87",    " 223: ff/d7/af",    " 224: ff/d7/d7",    " 225: ff/d7/ff")] );
    push(@arr, [( " 226: ff/ff/00",    " 227: ff/ff/5f",    " 228: ff/ff/87",    " 229: ff/ff/af",    " 230: ff/ff/d7",    " 231: ff/ff/ff")] );
    push(@arr, [( " 232: 08/08/08",    " 233: 12/12/12",    " 234: 1c/1c/1c",    " 235: 26/26/26",    " 236: 30/30/30",    " 237: 3a/3a/3a")] );
    push(@arr, [( " 238: 44/44/44",    " 239: 4e/4e/4e",    " 240: 58/58/58",    " 241: 62/62/62",    " 242: 6c/6c/6c",    " 243: 76/76/76")] );
    push(@arr, [( " 244: 80/80/80",    " 245: 8a/8a/8a",    " 246: 94/94/94",    " 247: 9e/9e/9e",    " 248: a8/a8/a8",    " 249: b2/b2/b2")] );
    push(@arr, [( " 250: bc/bc/bc",    " 251: c6/c6/c6",    " 252: d0/d0/d0",    " 253: da/da/da",    " 254: e4/e4/e4",    " 255: ee/ee/ee")] );

    if( $ARGV[0] eq "-s" || $ARGV[1] eq "-s" || $ARGV[2] eq "-s" ){
        $padding = "    ";
    }
    else {
        
    }

    # display in reverse order
    if( $ARGV[0] eq "-r" || $ARGV[1] eq "-r" || $ARGV[2] eq "-r" ){
        for( $dimone = 0; $dimone < scalar @arr; $dimone++ ) {

            $seed = ($dimone % 6) * -1;
            for( $dimtwo = 0; $dimtwo < 6; $dimtwo++ ) {

                $movone = $seed;
                $movtwo = $seed * -1;

                print $arr[$dimone][$dimtwo] . $padding;

                $seed = $seed+1;
            }

            print "\n";
        }
    }
    else {
        for( $dimone = 0; $dimone < scalar @arr; $dimone++ ) {

            $seed = ($dimone % 6) * -1;
            for( $dimtwo = 0; $dimtwo < 6; $dimtwo++ ) {

                $movone = $seed;
                $movtwo = $seed * -1;

                $newone = $dimone+$movone;
                $newtwo = $dimtwo+$movtwo;

                if( $newone < scalar @arr ){
                    print $arr[$newone][$newtwo] . $padding;
                }

                $seed = $seed+1;
            }

            print "\n";
        }
    }
    print "\n";
    print "\n";

}
else {
    print " 16:  00/00/00\n";
    print " 17:  00/00/5f\n";
    print " 18:  00/00/87\n";
    print " 19:  00/00/af\n";
    print " 20:  00/00/d7\n";
    print " 21:  00/00/ff\n";
    print " 22:  00/5f/00\n";
    print " 23:  00/5f/5f\n";
    print " 24:  00/5f/87\n";
    print " 25:  00/5f/af\n";
    print " 26:  00/5f/d7\n";
    print " 27:  00/5f/ff\n";
    print " 28:  00/87/00\n";
    print " 29:  00/87/5f\n";
    print " 30:  00/87/87\n";
    print " 31:  00/87/af\n";
    print " 32:  00/87/d7\n";
    print " 33:  00/87/ff\n";
    print " 34:  00/af/00\n";
    print " 35:  00/af/5f\n";
    print " 36:  00/af/87\n";
    print " 37:  00/af/af\n";
    print " 38:  00/af/d7\n";
    print " 39:  00/af/ff\n";
    print " 40:  00/d7/00\n";
    print " 41:  00/d7/5f\n";
    print " 42:  00/d7/87\n";
    print " 43:  00/d7/af\n";
    print " 44:  00/d7/d7\n";
    print " 45:  00/d7/ff\n";
    print " 46:  00/ff/00\n";
    print " 47:  00/ff/5f\n";
    print " 48:  00/ff/87\n";
    print " 49:  00/ff/af\n";
    print " 50:  00/ff/d7\n";
    print " 51:  00/ff/ff\n";
    print " 52:  5f/00/00\n";
    print " 53:  5f/00/5f\n";
    print " 54:  5f/00/87\n";
    print " 55:  5f/00/af\n";
    print " 56:  5f/00/d7\n";
    print " 57:  5f/00/ff\n";
    print " 58:  5f/5f/00\n";
    print " 59:  5f/5f/5f\n";
    print " 60:  5f/5f/87\n";
    print " 61:  5f/5f/af\n";
    print " 62:  5f/5f/d7\n";
    print " 63:  5f/5f/ff\n";
    print " 64:  5f/87/00\n";
    print " 65:  5f/87/5f\n";
    print " 66:  5f/87/87\n";
    print " 67:  5f/87/af\n";
    print " 68:  5f/87/d7\n";
    print " 69:  5f/87/ff\n";
    print " 70:  5f/af/00\n";
    print " 71:  5f/af/5f\n";
    print " 72:  5f/af/87\n";
    print " 73:  5f/af/af\n";
    print " 74:  5f/af/d7\n";
    print " 75:  5f/af/ff\n";
    print " 76:  5f/d7/00\n";
    print " 77:  5f/d7/5f\n";
    print " 78:  5f/d7/87\n";
    print " 79:  5f/d7/af\n";
    print " 80:  5f/d7/d7\n";
    print " 81:  5f/d7/ff\n";
    print " 82:  5f/ff/00\n";
    print " 83:  5f/ff/5f\n";
    print " 84:  5f/ff/87\n";
    print " 85:  5f/ff/af\n";
    print " 86:  5f/ff/d7\n";
    print " 87:  5f/ff/ff\n";
    print " 88:  87/00/00\n";
    print " 89:  87/00/5f\n";
    print " 90:  87/00/87\n";
    print " 91:  87/00/af\n";
    print " 92:  87/00/d7\n";
    print " 93:  87/00/ff\n";
    print " 94:  87/5f/00\n";
    print " 95:  87/5f/5f\n";
    print " 96:  87/5f/87\n";
    print " 97:  87/5f/af\n";
    print " 98:  87/5f/d7\n";
    print " 99:  87/5f/ff\n";
    print " 100 :87/87/00\n";
    print " 101 :87/87/5f\n";
    print " 102 :87/87/87\n";
    print " 103 :87/87/af\n";
    print " 104 :87/87/d7\n";
    print " 105 :87/87/ff\n";
    print " 106 :87/af/00\n";
    print " 107 :87/af/5f\n";
    print " 108 :87/af/87\n";
    print " 109 :87/af/af\n";
    print " 110 :87/af/d7\n";
    print " 111 :87/af/ff\n";
    print " 112 :87/d7/00\n";
    print " 113 :87/d7/5f\n";
    print " 114 :87/d7/87\n";
    print " 115 :87/d7/af\n";
    print " 116 :87/d7/d7\n";
    print " 117 :87/d7/ff\n";
    print " 118 :87/ff/00\n";
    print " 119 :87/ff/5f\n";
    print " 120 :87/ff/87\n";
    print " 121 :87/ff/af\n";
    print " 122 :87/ff/d7\n";
    print " 123 :87/ff/ff\n";
    print " 124 :af/00/00\n";
    print " 125 :af/00/5f\n";
    print " 126 :af/00/87\n";
    print " 127 :af/00/af\n";
    print " 128 :af/00/d7\n";
    print " 129 :af/00/ff\n";
    print " 130 :af/5f/00\n";
    print " 131 :af/5f/5f\n";
    print " 132 :af/5f/87\n";
    print " 133 :af/5f/af\n";
    print " 134 :af/5f/d7\n";
    print " 135 :af/5f/ff\n";
    print " 136 :af/87/00\n";
    print " 137 :af/87/5f\n";
    print " 138 :af/87/87\n";
    print " 139 :af/87/af\n";
    print " 140 :af/87/d7\n";
    print " 141 :af/87/ff\n";
    print " 142 :af/af/00\n";
    print " 143 :af/af/5f\n";
    print " 144 :af/af/87\n";
    print " 145 :af/af/af\n";
    print " 146 :af/af/d7\n";
    print " 147 :af/af/ff\n";
    print " 148 :af/d7/00\n";
    print " 149 :af/d7/5f\n";
    print " 150 :af/d7/87\n";
    print " 151 :af/d7/af\n";
    print " 152 :af/d7/d7\n";
    print " 153 :af/d7/ff\n";
    print " 154 :af/ff/00\n";
    print " 155 :af/ff/5f\n";
    print " 156 :af/ff/87\n";
    print " 157 :af/ff/af\n";
    print " 158 :af/ff/d7\n";
    print " 159 :af/ff/ff\n";
    print " 160 :d7/00/00\n";
    print " 161 :d7/00/5f\n";
    print " 162 :d7/00/87\n";
    print " 163 :d7/00/af\n";
    print " 164 :d7/00/d7\n";
    print " 165 :d7/00/ff\n";
    print " 166 :d7/5f/00\n";
    print " 167 :d7/5f/5f\n";
    print " 168 :d7/5f/87\n";
    print " 169 :d7/5f/af\n";
    print " 170 :d7/5f/d7\n";
    print " 171 :d7/5f/ff\n";
    print " 172 :d7/87/00\n";
    print " 173 :d7/87/5f\n";
    print " 174 :d7/87/87\n";
    print " 175 :d7/87/af\n";
    print " 176 :d7/87/d7\n";
    print " 177 :d7/87/ff\n";
    print " 178 :d7/af/00\n";
    print " 179 :d7/af/5f\n";
    print " 180 :d7/af/87\n";
    print " 181 :d7/af/af\n";
    print " 182 :d7/af/d7\n";
    print " 183 :d7/af/ff\n";
    print " 184 :d7/d7/00\n";
    print " 185 :d7/d7/5f\n";
    print " 186 :d7/d7/87\n";
    print " 187 :d7/d7/af\n";
    print " 188 :d7/d7/d7\n";
    print " 189 :d7/d7/ff\n";
    print " 190 :d7/ff/00\n";
    print " 191 :d7/ff/5f\n";
    print " 192 :d7/ff/87\n";
    print " 193 :d7/ff/af\n";
    print " 194 :d7/ff/d7\n";
    print " 195 :d7/ff/ff\n";
    print " 196 :ff/00/00\n";
    print " 197 :ff/00/5f\n";
    print " 198 :ff/00/87\n";
    print " 199 :ff/00/af\n";
    print " 200 :ff/00/d7\n";
    print " 201 :ff/00/ff\n";
    print " 202 :ff/5f/00\n";
    print " 203 :ff/5f/5f\n";
    print " 204 :ff/5f/87\n";
    print " 205 :ff/5f/af\n";
    print " 206 :ff/5f/d7\n";
    print " 207 :ff/5f/ff\n";
    print " 208 :ff/87/00\n";
    print " 209 :ff/87/5f\n";
    print " 210 :ff/87/87\n";
    print " 211 :ff/87/af\n";
    print " 212 :ff/87/d7\n";
    print " 213 :ff/87/ff\n";
    print " 214 :ff/af/00\n";
    print " 215 :ff/af/5f\n";
    print " 216 :ff/af/87\n";
    print " 217 :ff/af/af\n";
    print " 218 :ff/af/d7\n";
    print " 219 :ff/af/ff\n";
    print " 220 :ff/d7/00\n";
    print " 221 :ff/d7/5f\n";
    print " 222 :ff/d7/87\n";
    print " 223 :ff/d7/af\n";
    print " 224 :ff/d7/d7\n";
    print " 225 :ff/d7/ff\n";
    print " 226 :ff/ff/00\n";
    print " 227 :ff/ff/5f\n";
    print " 228 :ff/ff/87\n";
    print " 229 :ff/ff/af\n";
    print " 230 :ff/ff/d7\n";
    print " 231 :ff/ff/ff\n";
    print " 232 :08/08/08\n";
    print " 233 :12/12/12\n";
    print " 234 :1c/1c/1c\n";
    print " 235 :26/26/26\n";
    print " 236 :30/30/30\n";
    print " 237 :3a/3a/3a\n";
    print " 238 :44/44/44\n";
    print " 239 :4e/4e/4e\n";
    print " 240 :58/58/58\n";
    print " 241 :62/62/62\n";
    print " 242 :6c/6c/6c\n";
    print " 243 :76/76/76\n";
    print " 244 :80/80/80\n";
    print " 245 :8a/8a/8a\n";
    print " 246 :94/94/94\n";
    print " 247 :9e/9e/9e\n";
    print " 248 :a8/a8/a8\n";
    print " 249 :b2/b2/b2\n";
    print " 250 :bc/bc/bc\n";
    print " 251 :c6/c6/c6\n";
    print " 252 :d0/d0/d0\n";
    print " 253 :da/da/da\n";
    print " 254 :e4/e4/e4\n";
    print " 255 :ee/ee/ee\n";
    print "\n";
    print "\n";
}
print "0m";
exit;