latin: wingdings row with unicode equivalents

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

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 7d0fb06aea9cb237037beff7d8858cd2301f3c77..0b08ae49eaf061eee75923b872c626c13f929540 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -148,4 +148,29 @@ 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">'
+               . '<path stroke="black" d="M1%s"/></svg>',
+               join ' m2',
+               map { sprintf ',%dv%dm0,-%d',
+                       ($_ & 1 ? 0 : 2),  2 + ($_ & 2) + ($_ & 1) * 2,
+                       ($_ & 1 ? 0 : 2) + 2 + ($_ & 2) + ($_ & 1) * 2,
+               }
+               split //, $_
+       }
+       qw(
+                                   2121 2301
+               0132 0312 0330 2112 2130 2310
+               1023 1203 1221 3003 3021 3201
+               1032 1212 1230 3012 3030 3210
+               1122 1302 1320 3102 3120 3300
+       )
+],
+wingdings => [qw{ ✌ 👌 👍 👎 ☜ ☞ ☝ ☟ ✋ ☺ 😐 ☹ 💣 ☠ ⚐ 🏱 ✈ ☼ 💧 ❄ 🕆 ✞ 🕈 ✠ ✡ ☪ }],
 );