SHARE
TWEET

Untitled

a guest May 12th, 2012 758 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. # Author: Todd Larason <jtl@molehill.org>
  3. # $XFree86: xc/programs/xterm/vttests/256colors2.pl,v 1.1 1999/07/11 08:49:54 dawes Exp $
  4.  
  5. # use the resources for colors 0-15 - usually more-or-less a
  6. # reproduction of the standard ANSI colors, but possibly more
  7. # pleasing shades
  8.  
  9. # colors 16-231 are a 6x6x6 color cube
  10. for ($red = 0; $red < 6; $red++) {
  11.     for ($green = 0; $green < 6; $green++) {
  12.         for ($blue = 0; $blue < 6; $blue++) {
  13.             printf("\x1b]4;%d;rgb:%2.2x/%2.2x/%2.2x\x1b\\",
  14.                16 + ($red * 36) + ($green * 6) + $blue,
  15.                int ($red * 42.5),
  16.                int ($green * 42.5),
  17.                int ($blue * 42.5));
  18.         }
  19.     }
  20. }
  21.  
  22. # colors 232-255 are a grayscale ramp, intentionally leaving out
  23. # black and white
  24. for ($gray = 0; $gray < 24; $gray++) {
  25.     $level = ($gray * 10) + 8;
  26.     printf("\x1b]4;%d;rgb:%2.2x/%2.2x/%2.2x\x1b\\",
  27.        232 + $gray, $level, $level, $level);
  28. }
  29.  
  30.  
  31. # display the colors
  32.  
  33. # first the system ones:
  34. print "System colors:\n";
  35. for ($color = 0; $color < 8; $color++) {
  36.     print "\x1b[48;5;${color}m  ";
  37. }
  38. print "\x1b[0m\n";
  39. for ($color = 8; $color < 16; $color++) {
  40.     print "\x1b[48;5;${color}m  ";
  41. }
  42. print "\x1b[0m\n\n";
  43.  
  44. # now the color cube
  45. print "Color cube, 6x6x6:\n";
  46. for ($green = 0; $green < 6; $green++) {
  47.     for ($red = 0; $red < 6; $red++) {
  48.         for ($blue = 0; $blue < 6; $blue++) {
  49.             $color = 16 + ($red * 36) + ($green * 6) + $blue;
  50.             print "\x1b[48;5;${color}m  ";
  51.         }
  52.         print "\x1b[0m ";
  53.     }
  54.     print "\n";
  55. }
  56.  
  57.  
  58. # now the grayscale ramp
  59. print "Grayscale ramp:\n";
  60. for ($color = 232; $color < 256; $color++) {
  61.     print "\x1b[48;5;${color}m  ";
  62. }
  63. print "\x1b[0m\n";
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top