IABSD.fr/xenocara/app/xterm/vttests/88colors.pl

Branch : - branch - master - tag -

• Show log

  Commit

• Author : matthieu
  Date : 2017-07-15 19:20:51
  Hash : 99d0aff6
  Message : Update to xterm 330

• app/xterm/vttests/88colors.pl

• #!/usr/bin/env perl
  # $XTermId: 88colors.pl,v 1.5 2017/01/22 18:34:06 tom Exp $
  # -----------------------------------------------------------------------------
  # this file is part of xterm
  #
  # Copyright 1999-2014,2017 by Thomas E. Dickey
  #
  #                         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.
  # -----------------------------------------------------------------------------
  # Made from 256colors.pl
  
  use strict;
  use warnings;
  
  our ( $bg, $fg );
  
  for ( $bg = 0 ; $bg < 88 ; $bg++ ) {
      print "\x1b[9;1H\x1b[48;5;${bg}m\x1b[2J";
      for ( $fg = 0 ; $fg < 88 ; $fg++ ) {
          print "\x1b[38;5;${fg}m";
          printf "%03.3d/%03.3d ", $fg, $bg;
      }
      sleep 1;
      print "\n";
  }