X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/afa53ab113bf964118ca288ad4dc28784b00cc4b..33c297e51faa1564de2b8227d72d777278ac9d17:/writing-latn.inc.pl diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl index b5c98c0..0676e8b 100644 --- a/writing-latn.inc.pl +++ b/writing-latn.inc.pl @@ -134,4 +134,55 @@ ics => [ }, ], +sem => [ + map { + local $_ = $_; + s/[1-4]\K(?=[4-9])/ /; + tr/1-9/↙←↖↑↗→↘↓/; + s{(.)(?=.)}{$1} + or s/^// and $_ .= ''; + $_ + } + qw( + 1 2 3 4 5 6 7 21 31 46 14 15 16 17 23 + 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 + '' + . '', + 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 + ) +], +pigpen => [qw( ᒧ ᑌ ᒪ ᑐ □ ᑕ ᒣ ᑎ ᒥ ᒲ ᕫ ᒷ ᕭ 🞔 ᕮ ᒬ ᕬ ᒯ ᐯ ᐳ ᐸ ᐱ ᐁ ᐅ ᐊ ᐃ )], +wingdings => [qw{ ✌ 👌 👍 👎 ☜ ☞ ☝ ☟ ✋ ☺ 😐 ☹ 💣 ☠ ⚐ 🏱 ✈ ☼ 💧 ❄ 🕆 ✞ 🕈 ✠ ✡ ☪ }], +colour => [ + map { sprintf '%s', split(/:/, $_), chr(8195) } + qw{ + F0A3FF:Amethyst 0075DC:Blue 993F00:Caramel 4C005C:Damson 191919:Ebony + 005C31:Forest 2BCE48:Green FFCC99:Honeydew 808080:Iron 94FFB5:Jade + 8F7C00:Khaki 9DCC00:Lime C20088:Mallow + 003380:Navy FFA405:Orpiment FFA8BB:Pink 426600:Quagmire FF0010:Red + 5EF1F2:Sky 00998F:Turquoise E0FF66:Uranium 740AFF:Violet 990000:Wine + FFFF80:Xanthin FFFF00:Yellow FF5005:Zinnia + }, +], );