diff options
Diffstat (limited to 'nx-X11/programs/xterm/88colres.pl')
-rw-r--r-- | nx-X11/programs/xterm/88colres.pl | 60 |
1 files changed, 0 insertions, 60 deletions
diff --git a/nx-X11/programs/xterm/88colres.pl b/nx-X11/programs/xterm/88colres.pl deleted file mode 100644 index 30a1a18fa..000000000 --- a/nx-X11/programs/xterm/88colres.pl +++ /dev/null @@ -1,60 +0,0 @@ -#!/usr/bin/perl -# Author: Steve Wall -# $XTermId: 88colres.pl,v 1.15 2005/09/18 23:48:11 tom Exp $ -# $XFree86: xc/programs/xterm/88colres.pl,v 1.7 2005/09/18 23:48:11 dickey Exp $ -# Made from 256colres.pl - -# Construct a header file defining default resources for the -# 88-color model of xterm. - -# use the resources for colors 0-15 - usually more-or-less a -# reproduction of the standard ANSI colors, but possibly more -# pleasing shades - -print <<EOF; -/* - * This header file was generated by $0 - */ -/* \$XFree86\$ */ - -#ifndef included_88colres_h -#define included_88colres_h - -EOF - -$line1="COLOR_RES(\"%d\","; -$line2="\tscreen.Acolors[%d],"; -$line3="\tDFT_COLOR(\"rgb:%2.2x/%2.2x/%2.2x\")),\n"; -@steps=(0,139,205,255); - -# colors 16-79 are a 4x4x4 color cube -for ($red = 0; $red < 4; $red++) { - for ($green = 0; $green < 4; $green++) { - for ($blue = 0; $blue < 4; $blue++) { - $code = 16 + ($red * 16) + ($green * 4) + $blue; - printf($line1, $code); - printf($line2, $code); - printf($line3, - 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 = ($gray * 23.18181818) + 46.36363636; - if( $gray > 0 ) { $level += 23.18181818; } - $code = 80 + $gray; - printf($line1, $code); - printf($line2, $code); - printf($line3, - int($level), int($level), int($level)); -} - -print <<EOF; - -#endif /* included_88colres_h */ -EOF |