X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/600213e037653528a856e9a5d9a23a99b8c50724..fca850b4195b313b66129529a53668107f76ff9f:/writing-latn.inc.pl
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 43728c4..e259da5 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -13,10 +13,11 @@ sub disptap {
my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
(
-latnuc => [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 }],
-latnlc => [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 }],
-latfsuet => [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 }],
-asl => [
+'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 }],
+'ASL' => [
+ # American manual alphabet in Sutton (U+1D800+) notation
map { pack 'W*', map { hex "1D$_" } unpack '(A3)*', $_ } qw{
8F7a9c 847a9c 86Da9c 801a9c 84Aa9c
8CEa9c 8F0 815aa2 892a9c 892a9c9A2aac
@@ -25,20 +26,21 @@ asl => [
903a9c 8FBa9c 815a9c 80Ea9c 887a9c
806a9c 89Aa9c 800a9c945aaa
}],
-brai => [qw{ â â â â â â â â â â â â â â â â â â â â â ¥ â § â º â â ½ â µ }],
-morse => [map {tr/.-/â§â/r} qw{
- .- -... -.-. -.. . ..-. --. .... .. .--- -.- .-.. --
- -. --- .--. --.- .-. ... - ..- ...- .-- -..- -.-- --..
- }],
-tap => [disptap(qw{
- 11 12 13 14 15 21 22 23 24 -24 25 31 32
- 33 34 35 41 42 43 44 45 51 52 53 54 55
- })],
-taps => [disptap(qw{
- 11 12 13 14 21 22 23 24 31 -31 -13 32 33
- 34 41 42 -13 43 44 15 51 52 53 -25 -31 54
- })],
-ics => [
+'Braille' => [qw{ â â â â â â â â â â â â â â â â â â â â â ¥ â § â º â â ½ â µ }],
+'Morse' => [map {tr/.-/â§â/r} qw{
+ .- -... -.-. -.. . ..-. --. .... .. .--- -.- .-.. --
+ -. --- .--. --.- .-. ... - ..- ...- .-- -..- -.-- --..
+}],
+'Tap code' => [disptap(qw{
+ 11 12 13 14 15 21 22 23 24 -24 25 31 32
+ 33 34 35 41 42 43 44 45 51 52 53 54 55
+})],
+'Tap simplified' => [disptap(qw{
+ 11 12 13 14 21 22 23 24 31 -31 -13 32 33
+ 34 41 42 -13 43 44 15 51 52 53 -25 -31 54
+})],
+'Maritime flags' => [
+ # International Code of Signals, SVG fills
map { '' }
split /\n\n/, qq{
@@ -134,7 +136,7 @@ ics => [
},
],
-sem => [
+'Flag semaphore' => [
map {
local $_ = $_;
s/[1-4]\K(?=[4-9])/Â /;
@@ -148,7 +150,7 @@ sem => [
24 25 26 27 34 35 47 56 57 36 67
)
],
-semc => [
+'Chappe semaphore' => [
map {
my ($r, $pr, $pl) = split //, $_;
!$_ ? '-' : sprintf(
@@ -170,7 +172,7 @@ semc => [
001 101 201 301 401 501 601 701 020
)
],
-semp => [
+'Prussian semaphore' => [
map { !$_ ? '-' : sprintf
join('',
'