latin: pigpen encoding using lookalike canadian letters

[sheet.git] / writing-latn.inc.pl

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 70a479a2e1f68eca98839dbf627cb6b7b22e771b..bd3accfaff21c4cbbab7742497b364353995d0f5 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -148,6 +148,11 @@ sem => [
                24 25 26 27 34  35 47 56 57 36  67
        )
 ],
+code39 => [map { tr/012/ ❘❙/r } qw{
+       211012 121012 221011 112012 212011 122011 111022 211021 121021 112021
+       211102 121102 221101 112102 212101 122101 111202 211201 121201 112201
+       201112 102112 202111 101212 201211 102211
+}],
 rm4scc => [
        map { sprintf
                '<svg width="20" height="20" viewBox="0 0 8 6">'
@@ -167,4 +172,6 @@ rm4scc => [
                1122 1302 1320 3102 3120 3300
        )
 ],
+pigpen => [qw( ᒧ ᑌ ᒪ  ᑐ □ ᑕ  ᒣ ᑎ ᒥ  ᒲ ᕫ ᒷ  ᕭ 🞔 ᕮ ᒬ ᕬ ᒯ  ᐯ ᐳ ᐸ ᐱ  ᐁ ᐅ ᐊ ᐃ  )],
+wingdings => [qw{ ✌ 👌 👍 👎 ☜ ☞ ☝ ☟ ✋ ☺ 😐 ☹ 💣 ☠ ⚐ 🏱 ✈ ☼ 💧 ❄ 🕆 ✞ 🕈 ✠ ✡ ☪ }],
 );