X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/13f2249ae67b02bfe7956adda2d83e32017979df..829781346b75bdd66e4c964e8bce3b84cf8ed3fc:/writing-latn.inc.pl
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index e259da5..28626b0 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -219,7 +219,28 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
1122 1302 1320 3102 3120 3300
)
],
-'Pigpen' => [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
@@ -236,7 +257,6 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
0222 2222 0102 0200 2201 2002 2200 0100 0110 0120 2001 2010 2020
),
],
-'Wingdings' => [qw{ â ð ð ð â â â â â ⺠ð â¹ ð£ â â ð± â â¼ ð§ â ð â ð â ⡠⪠}],
'Chromacons' => [
# Colour Alphabet by Paul Green-Armytage (2010)
map { sprintf '%s', split(/:/, $_), chr(8195) }