X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/9641797ec955d7b136a2287e012d093fa2bc1cb0..9b34f6d9fa60d96025fe3835777f277b9cc002ad:/writing-latn.inc.pl
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 83bdfcb..1be023d 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -1,23 +1,24 @@
use utf8;
+use List::Util qw( pairs );
sub disptap {
return map {
!m/\A(-?)(\d)(\d)/ ? $_ :
- sprintf('
%s %s',
- ' class=ex' x !!$1,
+ $1.join(' ',
'·' x $2, '·' x $3,
);
} @_;
}
my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
+my $U = 0; # optional unicode alternatives
(
'Uppercase' => [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 }],
'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 { /^\w/ ? '' : $_ }
+ 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",
@@ -28,7 +29,7 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
"m7,9 4,-0 m-8,0 c4,0 6,-1 5,6 M1,3 c2,-0 2,12 2,12",
'>', # i = j
"m6,8 -0,7",
- "m9,5 -5,4 4,4 m-4,-10 -1,13",
+ "-m9,5 -5,4 4,4 m-4,-10 -1,13",
"m3,2 c0,0 -1,9 1,10 5,2 6,2 6,2",
"m0,16 3,-10 4,6 2,-5 5,4",
"m2,16 1,-9 5,8 2,-9",
@@ -40,21 +41,28 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
"m2,7 8,0 m-4,1 c0,0 -1,8 3,5",
'>', # u = v
"m2,5 c0,0 3,5 6,3 3,-2 2,-3 2,-3",
- '',
+ '-',
"m3,19 c-1,-6 6,-17 6,-17 M1,8 c0,0 10,1 10,1",
- "m0,7 c2,-3 5,-2 5,1 l0,11 c0,0 -0,-4 -0,-10 -0,-4 4,-4 6,-3",
- "m3,6 c4,-1 3,3 3,3 -1,3 -2,5 -1,5 1,1 3,0 3,0",
+ "-m0,7 c2,-3 5,-2 5,1 l0,11 c0,0 -0,-4 -0,-10 -0,-4 4,-4 6,-3",
+ "-m3,6 c4,-1 3,3 3,3 -1,3 -2,5 -1,5 1,1 3,0 3,0",
],
'Sutton ASL' => [
# American manual alphabet in Sutton (U+1D800+) notation
- map { pack 'W*', map { hex "1D$_" } unpack '(A3)*', $_ } qw{
+ map { !!$_ && pack 'W*', map { hex "1D$_" } unpack '(A3)*', $_ } qw{
8F7a9c 847a9c 86Da9c 801a9c 84Aa9c
8CEa9c 8F0 815aa2 892a9c 892a9c9A2aac
840a9c 8DCa9c 88Da9c
819a9c 876a9c 840a9caA1 8F0a9caA1 81Aa9c
903a9c 8FBa9c 815a9c 80Ea9c 887a9c
806a9c 89Aa9c 800a9c945aaa
+ 0 965aa6
}],
+'ITA2' => [
+ map { tr/01/ââ/r =~ s/..\K/ /r } qw(
+ 11000 10011 01110 10010 10000 10110 01011 00101 01100 11010 11110 01001 00111
+ 00110 00011 01101 11101 01010 10100 00001 11100 01111 11001 10111 10101 10001
+ 00100
+)],
'Braille' => [qw{ â â â â â â â â â â â
â â â â â â â â â â ¥ â § â º â â ½ â µ }],
'5-point Tactile' => [
map { '' }
@@ -83,9 +91,13 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
11 12 13 14 21 22 23 20 > 31 -13 32 33
30 41 42 -13 43 40 10 51 52 53 50 -31 -40
})],
+'Cards' => [(
+ map { chr(0x1F0A0 + $_), sprintf('%s', chr(0x1F0B0 + $_)) } # spades, hearts
+ 1 .. 11, 13, 14 # A 2-10 J Q K
+), '', chr(0x1F0CF), chr(0x1F0DF) ],
'Maritime flags' => [
# International Code of Signals, SVG fills
- map { '' }
+ map { !!$_ && '' }
split /\n\n/, qq{
@@ -177,12 +189,20 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
+
+
+
+
+
+
+
+
},
],
'Flag semaphore' => [
map {
local $_ = $_;
- s/[1-4]\K(?=[4-9])/Â /;
+ s/[1-4]\K(?=[4-9])/Â /; # prevent unwanted vertical crossing
tr/1-9/ââââââââ/;
s{(\S)(?=.)}{$1};
$_
@@ -197,7 +217,7 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
my ($r, $pr, $pl) = split //, $_;
/^\D$/ ? $_ : sprintf(
join('',
- ' |