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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 389214 - (hide annotations) (download)
Thu Jan 17 21:30:27 2013 UTC (11 years, 2 months ago) by pterjan
File MIME type: text/plain
File size: 20172 byte(s)
oops
1 pterjan 26629 #!/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