diff options
Diffstat (limited to 'utils/Etpalette')
-rwxr-xr-x | utils/Etpalette | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/utils/Etpalette b/utils/Etpalette new file mode 100755 index 0000000..61dc89b --- /dev/null +++ b/utils/Etpalette @@ -0,0 +1,45 @@ +#!/usr/bin/perl +# Based on a script by +# Author: Todd Larason <jtl@molehill.org> +# $XFree86: xc/programs/xterm/vttests/256colors2.pl,v 1.1 1999/07/11 08:49:54 dawes Exp $ +# adapted to the special needs for Eterm by Fredrik Svensson <fred@ludd.ltu.se> + +# display the colors + +# first the system ones: +print "System colors:\n"; +for ($color = 0; $color < 8; $color++) { + print "\x1b[48;5;${color}m "; +} +print "\x1b[0m\n"; +for ($color = 8; $color < 16; $color++) { + print "\x1b[48;5;${color}m "; +} +print "\x1b[0m\n\n"; + +# now the color cube +print "Color cube, 6x6x6:\n"; +for ($green = 0; $green < 6; $green++) { + for ($red = 0; $red < 6; $red++) { + for ($blue = 0; $blue < 6; $blue++) { + $color = 16 + ($red * 36) + ($green * 6) + $blue; + print "\x1b[48;5;${color}m "; + } + print "\x1b[0m "; + } + print "\n"; +} + + +# now the grayscale ramp +print "Grayscale ramp:\n"; +for ($color = 232; $color < 256; $color++) { + print "\x1b[48;5;${color}m "; +} +print "\x1b[0m\n"; + +print "Eterm special colors:\n"; +for ($color = 256; $color < 294; $color++) { + print "\x1b[48;5;${color}m "; +} +print "\x1b[0m\n"; |