/[packages]/cauldron/xterm/current/SOURCES/colortest.pl
ViewVC logotype

Contents of /cauldron/xterm/current/SOURCES/colortest.pl

Parent Directory Parent Directory | Revision Log Revision Log

Revision 389214 - (show annotations) (download)
Thu Jan 17 21:30:27 2013 UTC (11 years, 8 months ago) by pterjan
File MIME type: text/plain
File size: 20172 byte(s) 
oops
1 #!/usr/bin/perl
2
3 # by entheon, do whatever the hell you want with this file
4
5 print "\n";
6 print "**************************\n";
7 print "*XTERM 256Color Test Chart\n";
8 print "**************************\n";
9 print "* 16 = black\n";
10 print "* 255 = white\n";
11 print "*\n";
12 print "* Usage:\n";
13 print "* colortest -w\n";
14 print "* wide display\n";
15 print "*\n";
16 print "* colortest -w -r\n";
17 print "* wide display reversed\n";
18 print "*\n";
19 print "* colortest -w -s\n";
20 print "* extra spaces padding\n";
21 print "*\n";
22 print "* colortest -w -r -s\n";
23 print "* available combination\n";
24 print "*\n";
25 print "**************************\n";
26
27 if( $ARGV[0] eq "-w" || $ARGV[1] eq "-w" || $ARGV[2] eq "-w" ) {
28 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")] );
29 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")] );
30 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")] );
31 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")] );
32 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")] );
33 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")] );
34 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")] );
35 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")] );
36 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")] );
37 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")] );
38 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")] );
39 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")] );
40 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")] );
41 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")] );
42 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")] );
43 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")] );
44 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")] );
45 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")] );
46 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")] );
47 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")] );
48 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")] );
49 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")] );
50 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")] );
51 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")] );
52 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")] );
53 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")] );
54 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")] );
55 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")] );
56 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")] );
57 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")] );
58 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")] );
59 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")] );
60 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")] );
61 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")] );
62 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")] );
63 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")] );
64 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")] );
65 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")] );
66 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")] );
67 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")] );
68
69 if( $ARGV[0] eq "-s" || $ARGV[1] eq "-s" || $ARGV[2] eq "-s" ){
70 $padding = " ";
71 }
72 else {
73
74 }
75
76 # display in reverse order
77 if( $ARGV[0] eq "-r" || $ARGV[1] eq "-r" || $ARGV[2] eq "-r" ){
78 for( $dimone = 0; $dimone < scalar @arr; $dimone++ ) {
79
80 $seed = ($dimone % 6) * -1;
81 for( $dimtwo = 0; $dimtwo < 6; $dimtwo++ ) {
82
83 $movone = $seed;
84 $movtwo = $seed * -1;
85
86 print $arr[$dimone][$dimtwo] . $padding;
87
88 $seed = $seed+1;
89 }
90
91 print "\n";
92 }
93 }
94 else {
95 for( $dimone = 0; $dimone < scalar @arr; $dimone++ ) {
96
97 $seed = ($dimone % 6) * -1;
98 for( $dimtwo = 0; $dimtwo < 6; $dimtwo++ ) {
99
100 $movone = $seed;
101 $movtwo = $seed * -1;
102
103 $newone = $dimone+$movone;
104 $newtwo = $dimtwo+$movtwo;
105
106 if( $newone < scalar @arr ){
107 print $arr[$newone][$newtwo] . $padding;
108 }
109
110 $seed = $seed+1;
111 }
112
113 print "\n";
114 }
115 }
116 print "\n";
117 print "\n";
118
119 }
120 else {
121 print " 16: 00/00/00\n";
122 print " 17: 00/00/5f\n";
123 print " 18: 00/00/87\n";
124 print " 19: 00/00/af\n";
125 print " 20: 00/00/d7\n";
126 print " 21: 00/00/ff\n";
127 print " 22: 00/5f/00\n";
128 print " 23: 00/5f/5f\n";
129 print " 24: 00/5f/87\n";
130 print " 25: 00/5f/af\n";
131 print " 26: 00/5f/d7\n";
132 print " 27: 00/5f/ff\n";
133 print " 28: 00/87/00\n";
134 print " 29: 00/87/5f\n";
135 print " 30: 00/87/87\n";
136 print " 31: 00/87/af\n";
137 print " 32: 00/87/d7\n";
138 print " 33: 00/87/ff\n";
139 print " 34: 00/af/00\n";
140 print " 35: 00/af/5f\n";
141 print " 36: 00/af/87\n";
142 print " 37: 00/af/af\n";
143 print " 38: 00/af/d7\n";
144 print " 39: 00/af/ff\n";
145 print " 40: 00/d7/00\n";
146 print " 41: 00/d7/5f\n";
147 print " 42: 00/d7/87\n";
148 print " 43: 00/d7/af\n";
149 print " 44: 00/d7/d7\n";
150 print " 45: 00/d7/ff\n";
151 print " 46: 00/ff/00\n";
152 print " 47: 00/ff/5f\n";
153 print " 48: 00/ff/87\n";
154 print " 49: 00/ff/af\n";
155 print " 50: 00/ff/d7\n";
156 print " 51: 00/ff/ff\n";
157 print " 52: 5f/00/00\n";
158 print " 53: 5f/00/5f\n";
159 print " 54: 5f/00/87\n";
160 print " 55: 5f/00/af\n";
161 print " 56: 5f/00/d7\n";
162 print " 57: 5f/00/ff\n";
163 print " 58: 5f/5f/00\n";
164 print " 59: 5f/5f/5f\n";
165 print " 60: 5f/5f/87\n";
166 print " 61: 5f/5f/af\n";
167 print " 62: 5f/5f/d7\n";
168 print " 63: 5f/5f/ff\n";
169 print " 64: 5f/87/00\n";
170 print " 65: 5f/87/5f\n";
171 print " 66: 5f/87/87\n";
172 print " 67: 5f/87/af\n";
173 print " 68: 5f/87/d7\n";
174 print " 69: 5f/87/ff\n";
175 print " 70: 5f/af/00\n";
176 print " 71: 5f/af/5f\n";
177 print " 72: 5f/af/87\n";
178 print " 73: 5f/af/af\n";
179 print " 74: 5f/af/d7\n";
180 print " 75: 5f/af/ff\n";
181 print " 76: 5f/d7/00\n";
182 print " 77: 5f/d7/5f\n";
183 print " 78: 5f/d7/87\n";
184 print " 79: 5f/d7/af\n";
185 print " 80: 5f/d7/d7\n";
186 print " 81: 5f/d7/ff\n";
187 print " 82: 5f/ff/00\n";
188 print " 83: 5f/ff/5f\n";
189 print " 84: 5f/ff/87\n";
190 print " 85: 5f/ff/af\n";
191 print " 86: 5f/ff/d7\n";
192 print " 87: 5f/ff/ff\n";
193 print " 88: 87/00/00\n";
194 print " 89: 87/00/5f\n";
195 print " 90: 87/00/87\n";
196 print " 91: 87/00/af\n";
197 print " 92: 87/00/d7\n";
198 print " 93: 87/00/ff\n";
199 print " 94: 87/5f/00\n";
200 print " 95: 87/5f/5f\n";
201 print " 96: 87/5f/87\n";
202 print " 97: 87/5f/af\n";
203 print " 98: 87/5f/d7\n";
204 print " 99: 87/5f/ff\n";
205 print " 100 :87/87/00\n";
206 print " 101 :87/87/5f\n";
207 print " 102 :87/87/87\n";
208 print " 103 :87/87/af\n";
209 print " 104 :87/87/d7\n";
210 print " 105 :87/87/ff\n";
211 print " 106 :87/af/00\n";
212 print " 107 :87/af/5f\n";
213 print " 108 :87/af/87\n";
214 print " 109 :87/af/af\n";
215 print " 110 :87/af/d7\n";
216 print " 111 :87/af/ff\n";
217 print " 112 :87/d7/00\n";
218 print " 113 :87/d7/5f\n";
219 print " 114 :87/d7/87\n";
220 print " 115 :87/d7/af\n";
221 print " 116 :87/d7/d7\n";
222 print " 117 :87/d7/ff\n";
223 print " 118 :87/ff/00\n";
224 print " 119 :87/ff/5f\n";
225 print " 120 :87/ff/87\n";
226 print " 121 :87/ff/af\n";
227 print " 122 :87/ff/d7\n";
228 print " 123 :87/ff/ff\n";
229 print " 124 :af/00/00\n";
230 print " 125 :af/00/5f\n";
231 print " 126 :af/00/87\n";
232 print " 127 :af/00/af\n";
233 print " 128 :af/00/d7\n";
234 print " 129 :af/00/ff\n";
235 print " 130 :af/5f/00\n";
236 print " 131 :af/5f/5f\n";
237 print " 132 :af/5f/87\n";
238 print " 133 :af/5f/af\n";
239 print " 134 :af/5f/d7\n";
240 print " 135 :af/5f/ff\n";
241 print " 136 :af/87/00\n";
242 print " 137 :af/87/5f\n";
243 print " 138 :af/87/87\n";
244 print " 139 :af/87/af\n";
245 print " 140 :af/87/d7\n";
246 print " 141 :af/87/ff\n";
247 print " 142 :af/af/00\n";
248 print " 143 :af/af/5f\n";
249 print " 144 :af/af/87\n";
250 print " 145 :af/af/af\n";
251 print " 146 :af/af/d7\n";
252 print " 147 :af/af/ff\n";
253 print " 148 :af/d7/00\n";
254 print " 149 :af/d7/5f\n";
255 print " 150 :af/d7/87\n";
256 print " 151 :af/d7/af\n";
257 print " 152 :af/d7/d7\n";
258 print " 153 :af/d7/ff\n";
259 print " 154 :af/ff/00\n";
260 print " 155 :af/ff/5f\n";
261 print " 156 :af/ff/87\n";
262 print " 157 :af/ff/af\n";
263 print " 158 :af/ff/d7\n";
264 print " 159 :af/ff/ff\n";
265 print " 160 :d7/00/00\n";
266 print " 161 :d7/00/5f\n";
267 print " 162 :d7/00/87\n";
268 print " 163 :d7/00/af\n";
269 print " 164 :d7/00/d7\n";
270 print " 165 :d7/00/ff\n";
271 print " 166 :d7/5f/00\n";
272 print " 167 :d7/5f/5f\n";
273 print " 168 :d7/5f/87\n";
274 print " 169 :d7/5f/af\n";
275 print " 170 :d7/5f/d7\n";
276 print " 171 :d7/5f/ff\n";
277 print " 172 :d7/87/00\n";
278 print " 173 :d7/87/5f\n";
279 print " 174 :d7/87/87\n";
280 print " 175 :d7/87/af\n";
281 print " 176 :d7/87/d7\n";
282 print " 177 :d7/87/ff\n";
283 print " 178 :d7/af/00\n";
284 print " 179 :d7/af/5f\n";
285 print " 180 :d7/af/87\n";
286 print " 181 :d7/af/af\n";
287 print " 182 :d7/af/d7\n";
288 print " 183 :d7/af/ff\n";
289 print " 184 :d7/d7/00\n";
290 print " 185 :d7/d7/5f\n";
291 print " 186 :d7/d7/87\n";
292 print " 187 :d7/d7/af\n";
293 print " 188 :d7/d7/d7\n";
294 print " 189 :d7/d7/ff\n";
295 print " 190 :d7/ff/00\n";
296 print " 191 :d7/ff/5f\n";
297 print " 192 :d7/ff/87\n";
298 print " 193 :d7/ff/af\n";
299 print " 194 :d7/ff/d7\n";
300 print " 195 :d7/ff/ff\n";
301 print " 196 :ff/00/00\n";
302 print " 197 :ff/00/5f\n";
303 print " 198 :ff/00/87\n";
304 print " 199 :ff/00/af\n";
305 print " 200 :ff/00/d7\n";
306 print " 201 :ff/00/ff\n";
307 print " 202 :ff/5f/00\n";
308 print " 203 :ff/5f/5f\n";
309 print " 204 :ff/5f/87\n";
310 print " 205 :ff/5f/af\n";
311 print " 206 :ff/5f/d7\n";
312 print " 207 :ff/5f/ff\n";
313 print " 208 :ff/87/00\n";
314 print " 209 :ff/87/5f\n";
315 print " 210 :ff/87/87\n";
316 print " 211 :ff/87/af\n";
317 print " 212 :ff/87/d7\n";
318 print " 213 :ff/87/ff\n";
319 print " 214 :ff/af/00\n";
320 print " 215 :ff/af/5f\n";
321 print " 216 :ff/af/87\n";
322 print " 217 :ff/af/af\n";
323 print " 218 :ff/af/d7\n";
324 print " 219 :ff/af/ff\n";
325 print " 220 :ff/d7/00\n";
326 print " 221 :ff/d7/5f\n";
327 print " 222 :ff/d7/87\n";
328 print " 223 :ff/d7/af\n";
329 print " 224 :ff/d7/d7\n";
330 print " 225 :ff/d7/ff\n";
331 print " 226 :ff/ff/00\n";
332 print " 227 :ff/ff/5f\n";
333 print " 228 :ff/ff/87\n";
334 print " 229 :ff/ff/af\n";
335 print " 230 :ff/ff/d7\n";
336 print " 231 :ff/ff/ff\n";
337 print " 232 :08/08/08\n";
338 print " 233 :12/12/12\n";
339 print " 234 :1c/1c/1c\n";
340 print " 235 :26/26/26\n";
341 print " 236 :30/30/30\n";
342 print " 237 :3a/3a/3a\n";
343 print " 238 :44/44/44\n";
344 print " 239 :4e/4e/4e\n";
345 print " 240 :58/58/58\n";
346 print " 241 :62/62/62\n";
347 print " 242 :6c/6c/6c\n";
348 print " 243 :76/76/76\n";
349 print " 244 :80/80/80\n";
350 print " 245 :8a/8a/8a\n";
351 print " 246 :94/94/94\n";
352 print " 247 :9e/9e/9e\n";
353 print " 248 :a8/a8/a8\n";
354 print " 249 :b2/b2/b2\n";
355 print " 250 :bc/bc/bc\n";
356 print " 251 :c6/c6/c6\n";
357 print " 252 :d0/d0/d0\n";
358 print " 253 :da/da/da\n";
359 print " 254 :e4/e4/e4\n";
360 print " 255 :ee/ee/ee\n";
361 print "\n";
362 print "\n";
363 }
364 print "0m";
365 exit;

Properties

Name Value
svn:executable *
  ViewVC Help
Powered by ViewVC 1.1.30