qemacs-commit
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Qemacs-commit] qemacs/tests altcharset.txt altcharset.sh 16col...


From: Charlie Gordon
Subject: [Qemacs-commit] qemacs/tests altcharset.txt altcharset.sh 16col...
Date: Wed, 19 Dec 2018 06:48:29 -0500 (EST)

CVSROOT:        /sources/qemacs
Module name:    qemacs
Changes by:     Charlie Gordon <chqrlie>        18/12/19 06:48:29

Added files:
        tests          : altcharset.txt altcharset.sh 16colors-256.pl 

Log message:
        add some test files

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qemacs/tests/altcharset.txt?cvsroot=qemacs&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/qemacs/tests/altcharset.sh?cvsroot=qemacs&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/qemacs/tests/16colors-256.pl?cvsroot=qemacs&rev=1.1

Patches:
Index: altcharset.txt
===================================================================
RCS file: altcharset.txt
diff -N altcharset.txt
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ altcharset.txt      19 Dec 2018 11:48:29 -0000      1.1
@@ -0,0 +1,12 @@
+VT100 alternate character set using VT100 ^[(B^[)0^N and ^o escapes sequences
+(B)0ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
+
+lqqqqqqqqqqpoopqrssrqqqqqqqqqqwqqqqqqqqqqpoopqrssrqqqqqqqqqqk
+x                             x                             x
+x      ooh, swirly!           x       top right corner      x
+x                             x                             x
+tqqqqqqqqqqpoopqrssrqqqqqqqqqqnqqqqqqqqqqpoopqrssrqqqqqqqqqqu
+x                             x                             x
+x     stuff down here         x       is quite inane        x
+x                             x                             x
+mqqqqqqqqqqpoopqrssrqqqqqqqqqqvqqqqqqqqqqpoopqrssrqqqqqqqqqqj

Index: altcharset.sh
===================================================================
RCS file: altcharset.sh
diff -N altcharset.sh
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ altcharset.sh       19 Dec 2018 11:48:29 -0000      1.1
@@ -0,0 +1,35 @@
+#!/bin/bash
+
+# '<' '%%' '>' are VT220 only
+for x in '0' ; do  
+  if [ "$1" == "--ascii" ] ; then
+    # ASCII version
+    printf 
"+-----------------------------------------------------------------------------+\n"
+    printf "|  VT100 line drawing character set table using ^[(B^[)$x ^N and 
^O sequences  |\n"
+    printf 
"+-----------------------------------------------------------------------------+\n"
+    for i in {0..15} ; do
+      for j in 32 48 64 80 96 112 ; do
+        n=$[$i+$j]
+        c=$(printf "\\%03o" $n)
+        printf "| %02X | $c | \016$c\017 " $[i+j]
+      done
+      printf "|\n"
+    done
+    printf 
"+-----------------------------------------------------------------------------+\n\n"
+  else
+    # Using VT100 line drawing characters
+    printf "\033(B\033)$x"
+    printf 
"\016lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk\017\n"
+    printf "\016x\017  VT100 line drawing character set table using ^[(B^[)$x 
^N and ^O sequences  \016x\017\n"
+    printf 
"\016tqqqqwqqqwqqqwqqqqwqqqwqqqwqqqqwqqqwqqqwqqqqwqqqwqqqwqqqqwqqqwqqqwqqqqwqqqwqqqu\017\n"
+    for i in {0..15} ; do
+      for j in 32 48 64 80 96 112 ; do
+        n=$[$i+$j]
+        c=$(printf "\\%03o" $n)
+        printf "\016x\017 %02X \016x\017 $c \016x\017 \016$c\017 " $n
+      done
+      printf "\016x\017\n"
+    done
+    printf 
"\016mqqqqvqqqvqqqvqqqqvqqqvqqqvqqqqvqqqvqqqvqqqqvqqqvqqqvqqqqvqqqvqqqvqqqqvqqqvqqqj\017\n"
+  fi
+done

Index: 16colors-256.pl
===================================================================
RCS file: 16colors-256.pl
diff -N 16colors-256.pl
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ 16colors-256.pl     19 Dec 2018 11:48:29 -0000      1.1
@@ -0,0 +1,80 @@
+#!/usr/bin/perl
+#
+# Copyright (c) 2002-2017 Charlie Gordon.
+#
+# use the resources for colors 0-15 - usually more-or-less a
+# reproduction of the standard ANSI colors, but possibly more
+# pleasing shades
+
+# display the colors
+
+# first the system ones:
+print "Background colors:\n";
+for ($color = 0; $color < 16; $color++) {
+    printf("\x1b[48;5;%dm %02d ", $color, $color);
+    # print "\x1b[${n}m    ";
+}
+print "\x1b[0m\n\n";
+
+print "Blinking colors:\n";
+print "\x1b[5m";
+for ($color = 0; $color < 16; $color++) {
+    printf("\x1b[48;5;%dm %02d ", $color, $color);
+    # print "\x1b[${n}m    ";
+}
+print "\x1b[0m\n\n";
+
+print "Foreground colors:\n";
+for ($color = 0; $color < 16; $color++) {
+    printf("\x1b[38;5;%dm %02d ", $color, $color);
+}
+print "\x1b[0m\n\n";
+
+print "Bold colors:\n";
+print "\x1b[1m";
+for ($color = 0; $color < 16; $color++) {
+    printf("\x1b[38;5;%dm %02d ", $color, $color);
+}
+print "\x1b[0m\n\n";
+
+print "Italic colors:\n";
+print "\x1b[3m";
+for ($color = 0; $color < 16; $color++) {
+    printf("\x1b[38;5;%dm %02d ", $color, $color);
+}
+print "\x1b[0m\n\n";
+
+print "Bold+Italic colors:\n";
+print "\x1b[1m\x1b[3m";
+for ($color = 0; $color < 16; $color++) {
+    printf("\x1b[38;5;%dm %02d ", $color, $color);
+}
+print "\x1b[0m\n\n";
+
+print "Underline colors:\n";
+print "\x1b[4m";
+for ($color = 0; $color < 16; $color++) {
+    printf("\x1b[38;5;%dm %02d ", $color, $color);
+}
+print "\x1b[0m\n\n";
+
+print "Reverse colors:\n";
+print "\x1b[7m";
+for ($color = 0; $color < 16; $color++) {
+    printf("\x1b[38;5;%dm %02d ", $color, $color);
+}
+print "\x1b[0m\n\n";
+
+print "Color combinations:\n";
+for ($bg = 0; $bg < 16; $bg++) {
+    printf("\x1b[48;5;%dm", $bg);
+    # printf("\x1b[%dm", ($color > 7) ? 5 : 25);
+    # printf("\x1b[%dm", 40 + ($color & 7));
+    for ($fg = 0; $fg < 16; $fg++) {
+        printf("\x1b[38;5;%dm %02d ", $fg, $fg);
+        # printf("\x1b[%dm", ($fg > 7) ? 1 : 22);
+        # printf("\x1b[%dm %02d ", 30 + ($fg & 7), $fg);
+    }
+    print "\x1b[0m\n";
+}
+print "\x1b[0m\n";



reply via email to

[Prev in Thread] Current Thread [Next in Thread]