writing-latn.inc.pl

   1 use utf8;
   2
   3 sub disptap {
   4         map {
   5                 m/\A(-?)(\d)(\d)/;
   6                 $1 . '\\'  # escape dot
   7                 . ('.̇' x ($2 < $3 ? $2 : $3))  # min($2,$3) without losing captures
   8                 . ('.' x ($3 - $2))
   9                 . (' ̇' x ($2 - $3))
  10         } @_
  11 }
  12
  13 (
  14 latn     => [qw{ a b c d e f g h i j k l m n o p q r s t u v w x y z }],
  15 latfsuet => [qw{ a b c d e f g h i j k l m n o p q r ſ s t u v w x y z }],
  16 asl      => [
  17         map { pack 'W*', map { hex "1D$_" } unpack '(A3)*', $_ } qw{
  18         8F7a9c    847a9c    86Da9c    801a9c    84Aa9c
  19         8CEa9c    8F0       815aa2    892a9c    892a9c9A2aac
  20         840a9c    8DCa9c    88Da9c
  21         819a9c    876a9c    840a9caA1 8F0a9caA1 81Aa9c
  22         903a9c    8FBa9c    815a9c    80Ea9c    887a9c
  23         806a9c    89Aa9c    800a9c945aaa
  24 }],
  25 brai     => [qw{ ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚ ⠅ ⠇ ⠍ ⠝ ⠕ ⠏ ⠟ ⠗ ⠎ ⠞ ⠥ ⠧ ⠺ ⠭ ⠽ ⠵ }],
  26 morse    => [map {tr/.-/‧‑/r} qw{
  27                 .- -... -.-. -.. . ..-. --. .... .. .--- -.- .-.. --
  28                 -. --- .--. --.- .-. ... - ..- ...- .-- -..- -.-- --..
  29             }],
  30 tap      => [disptap(qw{
  31                 11 12 13 14 15 21 22 23 24 -24 25 31 32
  32                 33 34 35 41 42 43 44 45 51 52 53 54 55
  33             })],
  34 tap      => [disptap(qw{
  35                 11 12 13 14 21 22 23 24 31 -31 -13 32 33
  36                 34 41 42 -13 43 44 15 51 52 53 -25 -31 54
  37             })],
  38 );