X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/344c5c6bf56aca4d4117ed70dbd007c3f2a5e135..6907147e74f53469d6a987927ca133fd1a9d587b:/writing-latn.inc.pl?ds=inline
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index fb22bbb..ef14053 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -16,7 +16,7 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
'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' => [
+'Sutton ASL' => [
# American manual alphabet in Sutton (U+1D800+) notation
map { pack 'W*', map { hex "1D$_" } unpack '(A3)*', $_ } qw{
8F7a9c 847a9c 86Da9c 801a9c 84Aa9c
@@ -70,7 +70,7 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
-
+
@@ -141,12 +141,11 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
local $_ = $_;
s/[1-4]\K(?=[4-9])/Â /;
tr/1-9/ââââââââ/;
- s{(.)(?=.)}{$1}
- or s/^// and $_ .= '';
+ s{(\S)(?=.)}{$1};
$_
}
qw(
- 1 2 3 4 5 6 7 21 31 46 14 15 16 17 23
+ 1 2 3 4 5 6 7 21 31 46 14 51 16 17 23
24 25 26 27 34 35 47 56 57 36 67
)
],
@@ -156,8 +155,8 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
!$_ ? '-' : sprintf(
join('',
'',
),
['6', '3v3', '9v-3']->[$pl],
@@ -176,10 +175,10 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
map { !$_ ? '-' : sprintf
join('',
'',
),
@@ -203,7 +202,7 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
'RM4SCC' => [
map { sprintf
'',
+ . '',
join ' m2',
map { sprintf ',%dv%dm0,-%d',
($_ & 1 ? 0 : 2), 2 + ($_ & 2) + ($_ & 1) * 2,
@@ -219,8 +218,44 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
1122 1302 1320 3102 3120 3300
)
],
-'Pigpen' => [qw( ᧠á ᪠á â¡ á ᣠá ᥠᲠ᫠ᷠá ð ᮠᬠᬠᯠᯠ᳠Ḡᱠá á
á á )],
-'Wingdings' => [qw{ â ð ð ð â â â â â ⺠ð â¹ ð£ â â ð± â â¼ ð§ â ð â ð â ⡠⪠}],
+'Pigpen' => [
+ map {
+ qq()
+ }
+ map {
+ local $_ = $_;
+ s/^H/mX,0/ or s/^V/m0,X/ or s/^/m0,0/;
+ s/[hv]\K|X/6/g;
+ s/(?:v|,[^0]).*?v\K/-/;
+ s/(?:h|m[^0]).*?h\K/-/;
+ m/h/ or s/v/l3,/g;
+ m/v/ or s/h([^h]*)/l$1,3/g;
+ my $dot = s/\.// && qq();
+ qq($dot)
+ }
+ qw(
+ Hvh vhv vh hvh vhvh Hhvh hv Vvhv Hhv
+ Hvh. vhv. vh. hvh. vhvh. Hhvh. hv. Vvhv. Hhv.
+ vv hh Hhh Vvv
+ vv. hh. Hhh. Vvv.
+ ),
+],
+'Nyctographs' => [
+ map { s/M[\d,\hM]+(?=[M"])//gr } # clean up superfluous moves
+ map { sprintf
+ '',
+ ' stroke="currentColor" stroke-linecap="round" stroke-linejoin="round" fill="none"',
+ 'h.5v.5h-.5v-.5', # start anchor
+ map { ['M', 'h0M', 'L']->[$_] }
+ split //, $_
+ }
+ # draw style (0=empty, 1=dot, 2=line connect) to right, down, left, up
+ qw(
+ 0010 0112 2022 2220 2000 2012 0122 0202 0020 0220 0012 0022 2202
+ 0222 2222 0102 0200 2201 2002 2200 0100 0110 0120 2001 2010 2020
+ ),
+],
'Chromacons' => [
# Colour Alphabet by Paul Green-Armytage (2010)
map { sprintf '%s', split(/:/, $_), chr(8195) }