writing-latn.inc.pl

   1 use 5.014;
   2 use utf8;
   3 use List::Util qw( pairs );
   4
   5 sub disptap {
   6         return map {
   7                 !m/\A(-?)(\d)(\d)/ ? $_ :
   8                 $1.join(' ',
   9                         '·' x $2, '·' x $3,
  10                 );
  11         } @_;
  12 }
  13
  14 my %C = qw(red #EC1C24  blue #3953A3  yellow #F9EC31  black #231F20);
  15 my $U = 0;  # optional unicode alternatives
  16
  17 (
  18 'Uppercase' => [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 }],
  19 'Lowercase' => [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 }],
  20 'Sütterlin' => [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 }],
  21 'Old Roman Cursive' => [
  22         map { m/^(-?)(\w.*)/ ? $1.'<svg width="20" height="20" viewBox="0 0 12 20"><path d="'.$2.'"/></svg>' : $_ }
  23         "m2,4 c1,2 8,9 8,9 M2,15 6,9",
  24         "m2,4 c0,0 3,-2 4,1 1,2 0,9 3,9 1,-0 2,-1 2,-1 m-6,-2 c-5,4 -0,6 1,3",
  25         "m4,7 4,-2 m-4,4 c0,0 -2,7 3,6",
  26         "m3,2 c0,0 7,10 7,12 m-2,-4 c-5,2 -4,9 1,3",
  27         "m3,10 4,0 m2,-7 c0,0 -7,1 -5,16",
  28         "m4,11 5,-2 m-3,-4 7,-4 M0,18 c0,0 4,3 5,-3 2,-6 2,-10 2,-10",
  29         "m3,6 7,-2 m-7,4 c-2,5 4,9 6,6 l1,3",
  30         "m7,9 4,-0 m-8,0 c4,0 6,-1 5,6 M1,3 c2,-0 2,12 2,12",
  31         '>', # i = j
  32         "m6,8 -0,7",
  33         "-m9,5 -5,4 4,4 m-4,-10 -1,13",
  34         "m3,2 c0,0 -1,9 1,10 5,2 6,2 6,2",
  35         "m0,16 3,-10 4,6 2,-5 5,4",
  36         "m2,16 1,-9 5,8 2,-9",
  37         "m5,8 c-2,0 -2,6 1,5 4,-2 1,-5 1,-5",
  38         "m5,8 c0,0 -1,8 2,6 m-3,-7 5,3",
  39         "m3,6 9,12 m-9,-11 c-4,1 -3,4 -3,4 0,0 2,2 6,-1",
  40         "m0,6 c3,-1 3,-1 6,0 2,1 3,3 6,1 m-7,-1 -2,11",
  41         "m13,3 c0,0 -5,2 -8,4 -2,3 -1,5 -2,9 -1,1 -4,2 -4,2",
  42         "m2,7 8,0 m-4,1 c0,0 -1,8 3,5",
  43         '>', # u = v
  44         "m2,5 c0,0 3,5 6,3 3,-2 2,-3 2,-3",
  45         '-',
  46         "m3,19 c-1,-6 6,-17 6,-17 M1,8 c0,0 10,1 10,1",
  47         "-m0,7 c2,-3 5,-2 5,1 l0,11 c0,0 -0,-4 -0,-10 -0,-4 4,-4 6,-3",
  48         "-m3,6 c4,-1 3,3 3,3 -1,3 -2,5 -1,5 1,1 3,0 3,0",
  49 ],
  50 'Sutton <abbr title="American Sign Lanugage">ASL</abbr>' => [
  51         # American manual alphabet in Sutton (U+1D800+) notation
  52         map { !!$_ && pack 'W*', map { hex "1D$_" } unpack '(A3)*', $_ } qw{
  53         8F7a9c    847a9c    86Da9c    801a9c    84Aa9c
  54         8CEa9c    8F0       815aa2    892a9c    892a9c9A2aac
  55         840a9c    8DCa9c    88Da9c
  56         819a9c    876a9c    840a9caA1 8F0a9caA1 81Aa9c
  57         903a9c    8FBa9c    815a9c    80Ea9c    887a9c
  58         806a9c    89Aa9c    800a9c945aaa
  59         0         965aa6
  60 }],
  61 '<abbr title="International Telegraph Alphabet">ITA</abbr>2' => [
  62         map { tr/01/○●/r =~ s/..\K/ /r } qw(
  63         11000 10011 01110 10010 10000 10110 01011 00101 01100 11010 11110 01001 00111
  64         00110 00011 01101 11101 01010 10100 00001 11100 01111 11001 10111 10101 10001
  65         00100
  66 )],
  67 'Braille' => [qw{ ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚ ⠅ ⠇ ⠍ ⠝ ⠕ ⠏ ⠟ ⠗ ⠎ ⠞ ⠥ ⠧ ⠺ ⠭ ⠽ ⠵ }],
  68 '5-point Tactile' => [
  69         map { '<svg width="9" height="12" viewBox="0 0 18 24">'.$_.'</svg>' }
  70         map {
  71                 join '', map { sprintf '<circle cx="%d" cy="%d" r="4"/>',
  72                         !$_ ?  9 : $_ & 1 ? 4 : 14,
  73                         !$_ ? 12 : $_ < 3 ? 4 : 20,
  74                 } split //
  75         }
  76         qw{
  77                 4 234 012 14 0 014 023 12
  78                 02 024 0134 23 013 03 01 123
  79                 0124 13 04 1 34 0123 134 0234
  80                 034 124
  81         }
  82 ],
  83 'Morse' => [map {tr/.-/‧‑/r} qw{
  84         .- -... -.-. -.. . ..-. --. .... .. .--- -.- .-.. --
  85         -. --- .--. --.- .-. ... - ..- ...- .-- -..- -.-- --..
  86 }],
  87 'Tap code' => [disptap(qw{
  88         11 12 13 14 15 21 22 23  > 24 25 31 32
  89         33 34 35 41 42 43 44 45 51 52 53 54 55
  90 })],
  91 'Short Tap' => [disptap(qw{
  92         11 12 13 14 21 22 23 20 > 31 -13 32 33
  93         30 41 42 -13 43 40 10 51 52 53 50 -31 -40
  94 })],
  95 'Cards' => [(
  96         map { chr(0x1F0A0 + $_), sprintf('<b>%s</b>', chr(0x1F0B0 + $_)) }  # spades, hearts
  97         1 .. 11, 13, 14  # A 2-10 J Q K
  98 ), '', chr(0x1F0CF), chr(0x1F0DF) ],
  99 'Maritime flags' => [
 100         # International Code of Signals, SVG fills
 101         map { !!$_ && '<svg width="20" height="20" viewBox="0 0 30 30">'.s/\n?\t+//gr.'</svg>' }
 102         split /\n\n/, qq{
 103                 <path fill="$C{blue}" d="M0,0 h30 l-7.5,15 7.5,15 h-30 z"/>
 104                 <path fill="white" d="M0,0 h15 v30 h-15"/>
 105
 106                 <path fill="$C{red}" d="M0,0 h30 l-7.5,15 7.5,15 h-30 z"/>
 107
 108                 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
 109                 <path fill="white" d="M0,6  h30 v18 h-30" />
 110                 <path fill="$C{red}" d="M0,12 h30 v6  h-30" />
 111
 112                 <path fill="$C{yellow}" d="M0,0 h30v30 h-30z"/>
 113                 <path fill="$C{blue}" d="M0,6 h30 v18 h-30"/>
 114
 115                 <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
 116                 <path fill="$C{blue}" d="M0,0 h30 v15 h-30"/>
 117
 118                 <path fill="white" d="M0,0 h30v30 h-30z"/>
 119                 <path fill="$C{red}" d="M15,0 l15,15 -15,15 -15,-15"/>
 120
 121                 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
 122                 <path fill="$C{yellow}" d="M 0,0 h5 v30 h-5"/>
 123                 <path fill="$C{yellow}" d="M10,0 h5 v30 h-5"/>
 124                 <path fill="$C{yellow}" d="M20,0 h5 v30 h-5"/>
 125
 126                 <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
 127                 <path fill="white" d="M0,0 h15 v30 h-15"/>
 128
 129                 <path fill="$C{yellow}" d="M0,0 h30v30 h-30z"/>
 130                 <circle fill="$C{black}" r="7.5" cx="15" cy="15"/>
 131
 132                 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
 133                 <path fill="white" d="M0,10 h30 v10 h-30"/>
 134
 135                 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
 136                 <path fill="$C{yellow}" d="M0,0 h15 v30 h-15"/>
 137
 138                 <path fill="$C{black}" d="M0,0 h30v30 h-30z"/>
 139                 <path fill="$C{yellow}" d="M0,0 h15 v15 h-15 M15,15 h15 v15 h-15"/>
 140
 141                 <path fill="white" d="M0,0 h30v30 h-30z"/>
 142                 <path fill="$C{blue}" d="M4,0h22l-11,11 M4,30h22l-11,-11 M0,4v22l11,-11 M30,4v22l-11,-11"/>
 143
 144                 <path fill="white" d="M0,0 h30v30 h-30z"/>
 145                 <path fill="$C{blue}" d="
 146                         M0,0     h7.5v7.5h-7.5 m0,7.5h7.5v7.5h-7.5
 147                         m7.5,-15 h7.5v7.5h-7.5 m0,7.5h7.5v7.5h-7.5
 148                         m7.5,-30 h7.5v7.5h-7.5 m0,7.5h7.5v7.5h-7.5
 149                         m7.5,-15 h7.5v7.5h-7.5 m0,7.5h7.5v7.5h-7.5
 150                 "/>
 151
 152                 <path fill="$C{yellow}" d="M0,0 h30v30 h-30z"/>
 153                 <path fill="$C{red}" d="M0,0 h30 v30"/>
 154
 155                 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
 156                 <path fill="white" d="M10,10 h10 v10 h-10"/>
 157
 158                 <path fill="$C{yellow}" d="M0,0 h30v30 h-30z"/>
 159
 160                 <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
 161                 <path fill="$C{yellow}" d="M12.5,0 v30 h5 v-30"/>
 162                 <path fill="$C{yellow}" d="M0,12.5 h30 v5 h-30"/>
 163
 164                 <path fill="white" d="M0,0 h30v30 h-30z"/>
 165                 <path fill="$C{blue}" d="M10,10 h10 v10 h-10"/>
 166
 167                 <path fill="white" d="M0,0 h30v30 h-30z"/>
 168                 <path fill="$C{red}" d="M0,0 h10 v30 h-10"/>
 169                 <path fill="$C{blue}" d="M20,0 h10 v30 h-10"/>
 170
 171                 <path fill="white" d="M0,0 h30v30 h-30z"/>
 172                 <path fill="$C{red}" d="M0,0 h15 v15 h-15 M15,15 h15 v15 h-15"/>
 173
 174                 <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
 175                 <path fill="white" d="M4,0h22l-11,11 M4,30h22l-11,-11 M0,4v22l11,-11 M30,4v22l-11,-11"/>
 176
 177                 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
 178                 <path fill="white" d="M5,5 h20 v20 h-20"/>
 179                 <path fill="$C{red}" d="M10,10 h10 v10 h-10"/>
 180
 181                 <path fill="white" d="M0,0 h30v30 h-30z"/>
 182                 <path fill="$C{blue}" d="M12.5,0 v30 h5 v-30"/>
 183                 <path fill="$C{blue}" d="M0,12.5 h30 v5 h-30"/>
 184
 185                 <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
 186                 <path fill="$C{yellow}" d="M0,0h6l-6,6 M12,0h6l-18,18v-6 M24,0h6l-30,30v-6
 187                         M30,6v6l-18,18h-6 M30,18v6l-6,6h-6"/>
 188
 189                 <path fill="$C{black}" d="M0,0 h30v30 h-30z"/>
 190                 <path fill="$C{blue}" d="M30,0 v31 l-15,-15"/>
 191                 <path fill="$C{yellow}" d="M0,0  h31 l-15,15"/>
 192                 <path fill="$C{red}" d="M0,30 h31 l-15,-15"/>
 193
 194
 195
 196                 <path fill="$C{blue}" d="M0,5 30,15 0,25"/>
 197                 <path fill="$C{yellow}" d="M0,9 20,15 0,21"/>
 198
 199                 <path fill="$C{blue}" d="M0,5 30,15 0,25"/>
 200                 <path fill="white" d="M15,10 30,15 15,20"/>
 201         },
 202 ],
 203 'Flag semaphore' => [
 204         map {
 205                 local $_ = $_;
 206                 s/[1-4]\K(?=[4-9])/ /; # prevent unwanted vertical crossing
 207                 tr/1-9/↙←↖↑↗→↘↓/;
 208                 s{(\S)(?=.)}{<span style="position:absolute">$1</span>};
 209                 $_
 210         }
 211         qw(
 212                 1 2 3 4 5  6 7 21 31 46  14 51 16 17 23
 213                 24 25 26 27 34  35 47 56 57 36  67
 214         )
 215 ],
 216 'Chappe semaphore' => [
 217         map {
 218                 my ($r, $pr, $pl) = split //, $_;
 219                 /^\D$/ ? $_ : sprintf(
 220                         join('',
 221                                 '<svg width="16" height="20" viewBox="0 0 10 15">',
 222                                 '<path d="M5,6 v7"/>',
 223                                 '<path d="M0,%s h10 %s" transform="rotate(%d 5 6)"/>',
 224                                 '</svg>',
 225                         ),
 226                         ['6', '3v3', '9v-3']->[$pl],
 227                         [ '',  'v3',  'v-3']->[$pr],
 228                         $r * 45,
 229                 );
 230         }
 231         # 360° rotation (0-7) and position state (0-2) of left and right bars
 232         qw(
 233           021 121 221 321 421 521 621 721
 234           > 022 122 222 322 011 111 211 311
 235           001 101 201 301 401 501 601 701 020
 236         )
 237 ],
 238 'Prussian semaphore' => [
 239         map { /^\D+$/ ? $_ : sprintf
 240                 join('',
 241                         '<svg width="10" height="20" viewBox="0 0 8 18">',
 242                         '<path d="M4,1 v18"/>',
 243                         (map {(
 244                                 qq(<path d="M0 $_ h4" transform="rotate(%d 4 $_)"/>),
 245                                 qq(<path d="M4 $_ h4" transform="rotate(-%d 4 $_)"/>),
 246                         )} 3, 7, 14),
 247                         '</svg>',
 248                 ),
 249                 map { ($_ - 2) * 45 % 360 } split //, $_
 250         }
 251         # rotation state (0-3) for left and right bar of 3 rows
 252         qw(
 253                 003000 000200 203300 000030 033030 000130 000330 032330 > 031330
 254                 022020 130120 001320 233010 030210 022310 203001 233001
 255                 131001 231301 000202 023302 230003 032003 201003 101003
 256         )
 257 ],
 258 'Code 39' => [
 259         # ISO/IEC 16388
 260         map { !!$_ && tr/012/ ❘❙/r }
 261         # bar widths (1-2) followed by space of width 1 (implied) or 2 (0)
 262         qw(
 263                 211012 121012 221011 112012 212011 122011 111022 211021 121021 112021
 264                 211102 121102 221101 112102 212101 122101 111202 211201 121201 112201
 265                 201112 102112 202111 101212 201211 102211        102121 0 101221
 266         )
 267 ],
 268 'Code 93' => [
 269         map {
 270                 sprintf
 271                 '<svg width="18" height="14" viewBox="-.5 0 9 7"><path d="M0,0 %s"/></svg>',
 272                 join ' ',
 273                 map {
 274                         join('m1,-7', ('v7') x $_->[0]),  # line per bar width
 275                         (map { sprintf 'm%d,-7', $_ + 1 } $_->[1] || ()),  # space forward
 276                 }
 277                 pairs split //
 278         }
 279         # bar and space widths (1-3)
 280         qw(
 281                 21111 21121 21131 22111 22121 23111 11211 11221 11231
 282                 12211 13211 11112 11122 11132 12112 13112 21211 21221
 283                 21112 21122 22112 22211 11212 11222 12212 12311 31121
 284         )
 285 ],
 286 'Code 128' => [
 287         map { $U ? tr/1-3-/❘❙❚ /r : sprintf
 288                 '<svg width="22" height="14" viewBox="-.5 0 11 7"><path d="M0,0 %s"/></svg>',
 289                 join ' ',
 290                 map {
 291                         $_ eq '' ? 'm2,-7' :
 292                         $_ eq '.' ? 'm3,-7' :
 293                         $_ eq ':' ? 'm4,-7' :
 294                         join 'm1,-7', ('v7') x $_
 295                 }
 296                 split /([.:])?/  # each bar [123] and space [ .:]
 297         }
 298         # bar widths (1-3) followed by space of width 1 (implied), 2 (.) or 3 (:)
 299         qw(
 300                 11:2 1:12 1:1:2 12:1 1:21 1:2:1 21:1 2:11 2:1:1 123  12:3 1:23 132
 301                 13:2 1:32 332   21:3 2:13 231   23:1 233  312   31:2 3:12 321  32:1 22.2
 302         )
 303 ],
 304 '<abbr title="Royal Mail 4-State Customer Code">RM4SCC</abbr>' => [
 305         map {
 306                 my $len = length $_;
 307                 !$len ? '' : sprintf(
 308                         '<svg width="%d" height="20" viewBox="0 0 %d 6">'
 309                         . '<path d="M1%s"/></svg>',
 310                         $len * 5, $len * 2,
 311                         join ' m2',
 312                         map { sprintf ',%dv%dm0,-%d',
 313                                 ($_ & 1 ? 0 : 2),  2 + ($_ & 2) + ($_ & 1) * 2,
 314                                 ($_ & 1 ? 0 : 2) + 2 + ($_ & 2) + ($_ & 1) * 2,
 315                         }
 316                         split //
 317                 );
 318         }
 319         qw(
 320                                     2121 2301
 321                 0132 0312 0330 2112 2130 2310
 322                 1023 1203 1221 3003 3021 3201
 323                 1032 1212 1230 3012 3030 3210
 324                 1122 1302 1320 3102 3120 3300
 325                 0033
 326         ), # 0 for space
 327         '', 1, 3  # start/end
 328 ],
 329 "D'ni" => [
 330         map {
 331                 state $window = 'M-.5,-.5H12.5V12.5H-.5Z';
 332                 state $v = [
 333                         '',
 334                         'M0,6 12,6',
 335                         'M0,12 Q6,6 12,12',
 336                         'M0,6 6,12 12,6',
 337                         'M3,0 3,6 12,6',
 338                         'M0,0 12,12 M0,12 12,0', # cross
 339                         'M5.5,6 h1', # dot
 340                 ];
 341                 state $h = [
 342                         '',
 343                         'M6,0 6,12',
 344                         'M0,0 Q6,6 0,12',
 345                         'M6,-.5 0,6 6,12.5',
 346                         'M6,12 6,3 12,3',
 347                 ];
 348                 sprintf '<svg width="20" height="20" viewBox="-.5 -.5 13 13"><path d="%s"/></svg>',
 349                         $window . ($h->[$_ % 5] . $v->[$_ / 5] || $v->[6]);
 350         } 0 .. 5*5
 351 ],
 352 'Pigpen' => [
 353         map {
 354                 qq(<svg width="12" height="12" viewBox="-.5 -.5 7 7">$_</svg>)
 355         }
 356         map {
 357                 local $_ = $_;
 358                 s/^H/mX,0/ or s/^V/m0,X/ or s/^/m0,0/;
 359                 s/[hv]\K|X/6/g;
 360                 s/(?:v|,[^0]).*?v\K/-/;
 361                 s/(?:h|m[^0]).*?h\K/-/;
 362                 m/h/ or s/v/l3,/g;
 363                 m/v/ or s/h([^h]*)/l$1,3/g;
 364                 my $dot = s/\.// && qq(<circle cx="3" cy="3" r="1"/>);
 365                 qq(<path d="$_"/>$dot)
 366         }
 367         qw(
 368                 Hvh  vhv  vh  hvh  vhvh  Hhvh  hv  Vvhv  Hhv
 369                 Hvh. vhv. vh. hvh. vhvh. Hhvh. hv. Vvhv. Hhv.
 370                 vv  hh  Hhh  Vvv
 371                 vv. hh. Hhh. Vvv.
 372         ),
 373 ],
 374 'Nyctographs' => [
 375         map { s/M[\d,\hM]+(?=[M"])//gr }  # clean up superfluous moves
 376         map { sprintf
 377                 '<svg width="14" height="14" viewBox="-.5 -.5 5 5">'
 378                 . '<path d="M0,0%s %s4,0 %s4,4 %s0,4 %s0,0"/></svg>',
 379                 'h.5v.5h-.5v-.5',  # start anchor
 380                 map { ['M', 'h0M', 'L']->[$_] }
 381                 split //
 382         }
 383         # draw style (0=empty, 1=dot, 2=line connect) to right, down, left, up
 384         qw(
 385                 0010 0112 2022 2220 2000 2012 0122 0202 0020 0220 0012 0022 2202
 386                 0222 2222 0102 0200 2201 2002 2200 0100 0110 0120 2001 2010 2020 0
 387         ),
 388 ],
 389 'Chromacons' => [
 390         # Colour Alphabet by Paul Green-Armytage (2010)
 391         map {
 392                 sprintf !$_ ? '<span>%2$s</span>' : '<span style="background:#%s" title="%s">%s</span>',
 393                         split(/:/), chr(8195);
 394         }
 395         qw{
 396                 F0A3FF:Amethyst 0075DC:Blue      993F00:Caramel  4C005C:Damson   191919:Ebony
 397                 005C31:Forest   2BCE48:Green     FFCC99:Honeydew 808080:Iron     94FFB5:Jade
 398                 8F7C00:Khaki    9DCC00:Lime      C20088:Mallow
 399                 003380:Navy     FFA405:Orpiment  FFA8BB:Pink     426600:Quagmire FF0010:Red
 400                 5EF1F2:Sky      00998F:Turquoise E0FF66:Uranium  740AFF:Violet   990000:Wine
 401                 FFFF80:Xanthin  FFFF00:Yellow    FF5005:Zinnia   0
 402         }
 403 ],
 404 );