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 my %C = qw(red #EC1C24  blue #3953A3  yellow #F9EC31  black #231F20);
  14
  15 (
  16 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 }],
  17 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 }],
  18 asl      => [
  19         map { pack 'W*', map { hex "1D$_" } unpack '(A3)*', $_ } qw{
  20         8F7a9c    847a9c    86Da9c    801a9c    84Aa9c
  21         8CEa9c    8F0       815aa2    892a9c    892a9c9A2aac
  22         840a9c    8DCa9c    88Da9c
  23         819a9c    876a9c    840a9caA1 8F0a9caA1 81Aa9c
  24         903a9c    8FBa9c    815a9c    80Ea9c    887a9c
  25         806a9c    89Aa9c    800a9c945aaa
  26 }],
  27 brai     => [qw{ ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚ ⠅ ⠇ ⠍ ⠝ ⠕ ⠏ ⠟ ⠗ ⠎ ⠞ ⠥ ⠧ ⠺ ⠭ ⠽ ⠵ }],
  28 morse    => [map {tr/.-/‧‑/r} qw{
  29                 .- -... -.-. -.. . ..-. --. .... .. .--- -.- .-.. --
  30                 -. --- .--. --.- .-. ... - ..- ...- .-- -..- -.-- --..
  31             }],
  32 tap      => [disptap(qw{
  33                 11 12 13 14 15 21 22 23 24 -24 25 31 32
  34                 33 34 35 41 42 43 44 45 51 52 53 54 55
  35             })],
  36 tap      => [disptap(qw{
  37                 11 12 13 14 21 22 23 24 31 -31 -13 32 33
  38                 34 41 42 -13 43 44 15 51 52 53 -25 -31 54
  39             })],
  40 ics => [
  41         map { '<svg width="20" height="20" viewBox="0 0 30 30">'.$_.'</svg>' }
  42         split /\n\n/, qq{
  43                 <path fill="$C{blue}" d="M0,0 h30 l-7.5,15 7.5,15 h-30 z"/>
  44                 <path fill="white" d="M0,0 h15 v30 h-15"/>
  45
  46                 <path fill="$C{red}" d="M0,0 h30 l-7.5,15 7.5,15 h-30 z"/>
  47
  48                 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
  49                 <path fill="white" d="M0,6  h30 v18 h-30" />
  50                 <path fill="$C{red}" d="M0,12 h30 v6  h-30" />
  51
  52                 <path fill="$C{yellow}" d="M0,0 h30v30 h-30z"/>
  53                 <path fill="$C{blue}" d="M0,6 h30 v18 h-30"/>
  54
  55                 <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
  56                 <path fill="$C{blue}" d="M0,0 h30 v15 h-30"/>
  57
  58                 <path fill="white" d="M0,0 h30v30 h-30z"/>
  59                 <path fill="$C{red}" d="M15,0 l15,15 -15,15 -15,-15"/>
  60
  61                 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
  62                 <path fill="$C{yellow}" d="M 0,0 h5 v30 h-5"/>
  63                 <path fill="$C{yellow}" d="M10,0 h5 v30 h-5"/>
  64                 <path fill="$C{yellow}" d="M20,0 h5 v30 h-5"/>
  65
  66                 <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
  67                 <path fill="white" d="M0,0 h15 v30 h-15"/>
  68
  69                 <path fill="$C{yellow}" d="M0,0 h30v30 h-30z"/>
  70                 <circle fill="black" r="7.5" cx="15" cy="15"/>
  71
  72                 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
  73                 <path fill="white" d="M0,10 h30 v10 h-30"/>
  74
  75                 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
  76                 <path fill="$C{yellow}" d="M0,0 h15 v30 h-15"/>
  77
  78                 <path fill="$C{black}" d="M0,0 h30v30 h-30z"/>
  79                 <path fill="$C{yellow}" d="M0,0 h15 v15 h-15 M15,15 h15 v15 h-15"/>
  80
  81                 <path fill="white" d="M0,0 h30v30 h-30z"/>
  82                 <path fill="$C{blue}" d="M4,0h22l-11,11 M4,30h22l-11,-11 M0,4v22l11,-11 M30,4v22l-11,-11"/>
  83                 <!--path fill="$C{blue}" d="M3,0h24l-12,12 M3,30h24l-12,-12 M0,3v24l12,-12 M30,3v24l-12,-12"/-->
  84
  85                 <path fill="white" d="M0,0 h30v30 h-30z"/>
  86                 <path fill="$C{blue}" d="
  87                         M0,0     h7.5v7.5h-7.5 m0,7.5h7.5v7.5h-7.5
  88                         m7.5,-15 h7.5v7.5h-7.5 m0,7.5h7.5v7.5h-7.5
  89                         m7.5,-30 h7.5v7.5h-7.5 m0,7.5h7.5v7.5h-7.5
  90                         m7.5,-15 h7.5v7.5h-7.5 m0,7.5h7.5v7.5h-7.5
  91                 "/>
  92
  93                 <path fill="$C{yellow}" d="M0,0 h30v30 h-30z"/>
  94                 <path fill="$C{red}" d="M0,0 h30 v30"/>
  95
  96                 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
  97                 <path fill="white" d="M10,10 h10 v10 h-10"/>
  98
  99                 <path fill="$C{yellow}" d="M0,0 h30v30 h-30z"/>
 100
 101                 <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
 102                 <path fill="$C{yellow}" d="M12.5,0 v30 h5 v-30"/>
 103                 <path fill="$C{yellow}" d="M0,12.5 h30 v5 h-30"/>
 104
 105                 <path fill="white" d="M0,0 h30v30 h-30z"/>
 106                 <path fill="$C{blue}" d="M10,10 h10 v10 h-10"/>
 107
 108                 <path fill="white" d="M0,0 h30v30 h-30z"/>
 109                 <path fill="$C{red}" d="M0,0 h10 v30 h-10"/>
 110                 <path fill="$C{blue}" d="M20,0 h10 v30 h-10"/>
 111
 112                 <path fill="white" d="M0,0 h30v30 h-30z"/>
 113                 <path fill="$C{red}" d="M0,0 h15 v15 h-15 M15,15 h15 v15 h-15"/>
 114
 115                 <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
 116                 <path fill="white" d="M4,0h22l-11,11 M4,30h22l-11,-11 M0,4v22l11,-11 M30,4v22l-11,-11"/>
 117
 118                 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
 119                 <path fill="white" d="M5,5 h20 v20 h-20"/>
 120                 <path fill="$C{red}" d="M10,10 h10 v10 h-10"/>
 121
 122                 <path fill="white" d="M0,0 h30v30 h-30z"/>
 123                 <path fill="$C{blue}" d="M12.5,0 v30 h5 v-30"/>
 124                 <path fill="$C{blue}" d="M0,12.5 h30 v5 h-30"/>
 125
 126                 <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
 127                 <path fill="$C{yellow}" d="M0,0h6l-6,6 M12,0h6l-18,18v-6 M24,0h6l-30,30v-6
 128                         M30,6v6l-18,18h-6 M30,18v6l-6,6h-6"/>
 129
 130                 <path fill="$C{black}" d="M0,0 h30v30 h-30z"/>
 131                 <path fill="$C{blue}" d="M30,0 v31 l-15,-15"/>
 132                 <path fill="$C{yellow}" d="M0,0  h31 l-15,15"/>
 133                 <path fill="$C{red}" d="M0,30 h31 l-15,-15"/>
 134         },
 135 ],
 136 );