X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/c544fb231402a1111fbc42dd7bae87aed6b0f4dc..505057bf787c2582cc1e4d3e17f2ea6c93ab53bd:/writing-latn.inc.pl
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 3a284b2..0ca90ae 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -7,8 +7,12 @@ my $U = 0; # optional unicode alternatives
sub disptap {
my $code = shift;
- $code =~ m/\A(-?)(\d)(\d)/ or return $code;
- return $1 . join(' ', '·' x $2, '·' x $3);
+ my ($prefix, @dots) = $code =~ m/\A(-?)(\d)(\d)/ or return $code;
+ if ($U) {
+ # unicode glyph alternative as DOMINO TILE HORIZONTAL-0a-0b
+ return $prefix . chr(0x1F031 + ($dots[0] * 7) + $dots[1]);
+ }
+ return $prefix . join(' ', map { '·' x $_ } @dots);
}
sub dispbar {
@@ -38,7 +42,10 @@ sub dispbar {
'Lowercase' => [qw{ a b c d e f g h i j k l m n o p q r s t u v w x y z }],
'Sütterlin' => [qw{ a b c d e f g h i j k l m n o p q r ſ s t u v w x y z }],
'Old Roman Cursive' => [
- map { m/^(-?)(\w.*)/ ? $1.'' : $_ }
+ map {
+ !m/^(-?)(\w.+)/ ? $_ :
+ $1.''
+ }
"m2,4 c1,2 8,9 8,9 M2,15 6,9",
"m2,4 c0,0 3,-2 4,1 1,2 0,9 3,9 1,-0 2,-1 2,-1 m-6,-2 c-5,4 -0,6 1,3",
"m4,7 4,-2 m-4,4 c0,0 -2,7 3,6",
@@ -319,12 +326,12 @@ sub dispbar {
'Code 93' => [map { dispbar($_) } qw(
211113 211212 211311 221112 221211 231111 112113 112212 112311 122112
132111 111123 111222 111321 121122 131121 212112 212211 211122 211221
- 221121 222111 112122 112221 122121 123111 311211
+ 221121 222111 112122 112221 122121 123111 311211 0 111141
)],
'Code 128' => [map { dispbar($_) } qw(
111323 131123 131321 112313 132113 132311 211313 231113 231311 112133
112331 132131 113123 113321 133121 313121 211331 231131 213113 213311
- 213131 311123 311321 331121 312113 312311 212222
+ 213131 311123 311321 331121 312113 312311 212222 0 211412 2331112
)],
'RM4SCC' => [
map {
@@ -414,8 +421,10 @@ sub dispbar {
'Chromacons' => [
# Colour Alphabet by Paul Green-Armytage (2010)
map {
- sprintf !$_ ? '%2$s' : '%s',
- split(/:/), chr(8195);
+ sprintf('%s',
+ !!$_ && sprintf(' style="background:#%s" title="%s"', split /:/),
+ chr(8195), # em space
+ );
}
qw{
F0A3FF:Amethyst 0075DC:Blue 993F00:Caramel 4C005C:Damson 191919:Ebony