#!/usr/bin/env perl # $XTermId: 88colors2.pl,v 1.17 2016/12/10 22:38:52 tom Exp $ # ----------------------------------------------------------------------------- # this file is part of xterm # # Copyright 1999-2014,2016 by Thomas E. Dickey # Copyright 1999 by Steve Wall # # All Rights Reserved # # Permission is hereby granted, free of charge, to any person obtaining a # copy of this software and associated documentation files (the # "Software"), to deal in the Software without restriction, including # without limitation the rights to use, copy, modify, merge, publish, # distribute, sublicense, and/or sell copies of the Software, and to # permit persons to whom the Software is furnished to do so, subject to # the following conditions: # # The above copyright notice and this permission notice shall be included # in all copies or substantial portions of the Software. # # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS # OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF # MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. # IN NO EVENT SHALL THE ABOVE LISTED COPYRIGHT HOLDER(S) BE LIABLE FOR ANY # CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, # TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE # SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. # # Except as contained in this notice, the name(s) of the above copyright # holders shall not be used in advertising or otherwise to promote the # sale, use or other dealings in this Software without prior written # authorization. # ----------------------------------------------------------------------------- # # Adapted from 256colors2.pl # If -s is not given, use the resources for colors 0-15 - usually more-or-less # a reproduction of the standard ANSI colors, but possibly more pleasing # shades. use strict; use warnings; use Getopt::Std; use Encode 'encode_utf8'; our ( $opt_8, $opt_c, $opt_d, $opt_h, $opt_q, $opt_r, $opt_s, $opt_u ); &getopts('8cdhqrsu') || die("Usage: $0 [options]"); die( "Usage: $0 [options]\n Options: -8 use 8-bit controls -c use colons for separating parameter values in SGR 38/48 -d use rgb values rather than palette index -h display this message -q quieter output by merging all palette initialization -r display the reverse of the usual palette -s modify system colors, i.e., 0..15 -u use UTF-8 when emitting 8-bit controls " ) if ($opt_h); our $cube = 4; our (@steps); our ( $red, $green, $blue ); our ( $gray, $level, $color ); our ( $csi, $osc, $sep, $st ); our @rgb; sub map_cube($) { my $value = $_[0]; $value = ( 3 - $value ) if defined($opt_r); return $value; } sub map_gray($) { my $value = $_[0]; $value = ( 7 - $value ) if defined($opt_r); return $value; } sub define_color($$$$) { my $index = $_[0]; my $r = $_[1]; my $g = $_[2]; my $b = $_[3]; printf( "%s4", $osc ) unless ($opt_q); printf( ";%d;rgb:%2.2x/%2.2x/%2.2x", $index, $r, $g, $b ); printf( "%s", $st ) unless ($opt_q); $rgb[$index] = sprintf "%d%s%d%s%d", $r, $sep, $g, $sep, $b; } sub select_color($) { my $index = $_[0]; if ( $opt_d and defined( $rgb[$index] ) ) { printf "%s48;2%s%sm ", $csi, $sep, $rgb[$index]; } else { printf "%s48;5%s%sm ", $csi, $sep, $index; } } sub system_color($$$$) { my $color = shift; my $red = shift; my $green = shift; my $blue = shift; &define_color( 15 - $color, $red, $green, $blue ) if ($opt_r); &define_color( $color, $red, $green, $blue ) unless ($opt_r); } if ($opt_8) { $csi = "\x9b"; $osc = "\x9d"; $st = "\x9c"; } else { $csi = "\x1b["; $osc = "\x1b]"; $st = "\x1b\\"; } if ($opt_c) { $sep = ":"; } else { $sep = ";"; } if ( $opt_8 and $opt_u ) { my $lc_ctype = `locale 2>/dev/null | fgrep LC_CTYPE | sed -e 's/^.*=//'`; if ( $lc_ctype =~ /utf.?8/i ) { binmode( STDOUT, ":utf8" ); } } printf( "%s4", $osc ) if ($opt_q); if ($opt_s) { &system_color( 0, 0, 0, 0 ); &system_color( 1, 205, 0, 0 ); &system_color( 2, 0, 205, 0 ); &system_color( 3, 205, 205, 0 ); &system_color( 4, 0, 0, 238 ); &system_color( 5, 205, 0, 205 ); &system_color( 6, 0, 205, 205 ); &system_color( 7, 229, 229, 229 ); &system_color( 8, 127, 127, 127 ); &system_color( 9, 255, 0, 0 ); &system_color( 10, 0, 255, 0 ); &system_color( 11, 255, 255, 0 ); &system_color( 12, 92, 92, 255 ); &system_color( 13, 255, 0, 255 ); &system_color( 14, 0, 255, 255 ); &system_color( 15, 255, 255, 255 ); } # colors 16-79 are a 4x4x4 color cube @steps = ( 0, 139, 205, 255 ); for ( $red = 0 ; $red < $cube ; $red++ ) { for ( $green = 0 ; $green < $cube ; $green++ ) { for ( $blue = 0 ; $blue < $cube ; $blue++ ) { &define_color( 16 + ( map_cube($red) * $cube * $cube ) + ( map_cube($green) * $cube ) + map_cube($blue), int( $steps[$red] ), int( $steps[$green] ), int( $steps[$blue] ) ); } } } # colors 80-87 are a grayscale ramp, intentionally leaving out # black and white for ( $gray = 0 ; $gray < 8 ; $gray++ ) { $level = ( map_gray($gray) * 23.18181818 ) + 46.36363636; if ( $gray > 0 ) { $level += 23.18181818; } &define_color( 80 + $gray, int($level), int($level), int($level) ); } printf( "%s", $st ) if ($opt_q); # display the colors # first the system ones: print "System colors:\n"; for ( $color = 0 ; $color < 8 ; $color++ ) { &select_color($color); } printf "%s0m\n", $csi; for ( $color = 8 ; $color < 16 ; $color++ ) { &select_color($color); } printf "%s0m\n\n", $csi; # now the color cube print "Color cube, ${cube}x${cube}x${cube}:\n"; for ( $green = 0 ; $green < $cube ; $green++ ) { for ( $red = 0 ; $red < $cube ; $red++ ) { for ( $blue = 0 ; $blue < $cube ; $blue++ ) { $color = 16 + ( $red * $cube * $cube ) + ( $green * $cube ) + $blue; &select_color($color); } printf "%s0m ", $csi; } print "\n"; } # now the grayscale ramp print "Grayscale ramp:\n"; for ( $color = 80 ; $color < 88 ; $color++ ) { &select_color($color); } printf "%s0m\n", $csi;