X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/2a817c01f188212c41ee9500b17760a8caa02190..c653ee1e246168ec0cae4541a06c836aecdbb190:/writing-latn.inc.pl
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 93b5edc..0da2ab1 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -1,15 +1,17 @@
use utf8;
+use List::Util qw( pairs );
sub disptap {
return map {
!m/\A(-?)(\d)(\d)/ ? $_ :
- $1.sprintf('%s
%s',
+ $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 }],
@@ -54,6 +56,12 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
903a9c 8FBa9c 815a9c 80Ea9c 887a9c
806a9c 89Aa9c 800a9c945aaa
}],
+'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 { '' }
@@ -82,9 +90,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{
@@ -176,12 +188,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};
$_
@@ -196,7 +216,7 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
my ($r, $pr, $pl) = split //, $_;
/^\D$/ ? $_ : sprintf(
join('',
- '