X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/17c68c180459106ee6b5c53f82ecabcb46e37599..b7eb5417cf938807539280d21325692df3e4cb1f:/writing-latn.inc.pl
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 3554f3e..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