[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";
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Qemacs-commit] qemacs/tests altcharset.txt altcharset.sh 16col...,
Charlie Gordon <=