latin: pigpen encoding using lookalike canadian letters

diff --git a/latin.plp b/latin.plp
index 17d7104c8a8f1d9cb0450b3fe3fb80079ccf1df2..5e53894615ea809576c10afda52b25e90da35d45 100644 (file)
--- a/latin.plp
+++ b/latin.plp
@@ -51,6 +51,7 @@ my %scriptname = (
        taps     => 'Tap simplified',
        ics      => 'Maritime flags', # International Code of Signals
        sem      => 'Flag semaphore',
+       pigpen   => 'Pigpen',
        wingdings=> 'Wingdings',
        code39   => 'Code 39', # ISO/IEC 16388
        rm4scc   => '<abbr title="Royal Mail 4-State Customer Code">RM4SCC</abbr>',

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 0b08ae49eaf061eee75923b872c626c13f929540..bd3accfaff21c4cbbab7742497b364353995d0f5 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -172,5 +172,6 @@ rm4scc => [
                1122 1302 1320 3102 3120 3300
        )
 ],
+pigpen => [qw( ᒧ ᑌ ᒪ  ᑐ □ ᑕ  ᒣ ᑎ ᒥ  ᒲ ᕫ ᒷ  ᕭ 🞔 ᕮ ᒬ ᕬ ᒯ  ᐯ ᐳ ᐸ ᐱ  ᐁ ᐅ ᐊ ᐃ  )],
 wingdings => [qw{ ✌ 👌 👍 👎 ☜ ☞ ☝ ☟ ✋ ☺ 😐 ☹ 💣 ☠ ⚐ 🏱 ✈ ☼ 💧 ❄ 🕆 ✞ 🕈 ✠ ✡ ☪ }],
 );