17 lines
539 B
Perl
17 lines
539 B
Perl
#!/usr/bin/perl
|
|
# $XTermId: 256colors.pl,v 1.3 2006/09/29 21:49:03 tom Exp $
|
|
# $XFree86: xc/programs/xterm/vttests/256colors.pl,v 1.1 1999/07/11 08:49:54 dawes Exp $
|
|
#
|
|
# This uses 33 print-lines on an 80-column display. Printing the numbers in
|
|
# hexadecimal would make it compact enough for 24x80, but less readable.
|
|
|
|
for ($bg = 0; $bg < 256; $bg++) {
|
|
# print "\x1b[9;1H\x1b[2J";
|
|
for ($fg = 0; $fg < 256; $fg++) {
|
|
print "\x1b[48;5;${bg}m\x1b[38;5;${fg}m";
|
|
printf "%03.3d/%03.3d ", $fg, $bg;
|
|
}
|
|
print "\n";
|
|
sleep 1;
|
|
}
|