writing-latn.inc.pl

   1 use 5.014;
   2 use utf8;
   3 use List::Util qw( pairs pairmap sum );
   4
   5 my %C = qw(red #EC1C24  blue #3953A3  yellow #F9EC31  black #231F20);
   6 my $U = 0;  # optional unicode alternatives
   7
   8 sub disptap {
   9         my $code = shift;
  10         my ($prefix, @dots) = $code =~ m/\A(-?)(\d)(\d)/ or return $code;
  11         if ($U) {
  12                 # unicode glyph alternative as DOMINO TILE HORIZONTAL-0a-0b
  13                 return $prefix . chr(0x1F031 + ($dots[0] * 7) + $dots[1]);
  14         }
  15         return $prefix . join(' ', map { '·' x $_ } @dots);
  16 }
  17
  18 sub dispbar {
  19         my $code = shift or return '';
  20
  21         return join '', pairmap {
  22                 ($a =~ tr/123/❘❙❚/r) . ($b =~ tr/321/  /dr)
  23         } split //, $code if $U;
  24
  25         my @cols = split //, $code;  # bar and space widths
  26         my $width = sum(@cols);
  27         return sprintf(
  28                 '<svg width="%d" height="%d" viewBox="-.5 0 %d %d"><path d="%s"/></svg>',
  29                 $width * 2, 14, $width, 7, join(' ',
  30                         'M0,0',
  31                         map {
  32                                 join('m1,-7', ('v7') x $_->[0]),  # line per bar width
  33                                 (map { sprintf 'm%d,-7', $_ + 1 } $_->[1] || ()),  # space forward
  34                         }
  35                         pairs @cols
  36                 )
  37         );
  38 }
  39
  40 (
  41 uppercase => {
  42         list => [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 }],
  43 },
  44 lowercase => {
  45         list => [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 }],
  46 },
  47 suetterlin => {
  48         title => 'Sütterlin',
  49         list => [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 }],
  50 },
  51 roman => {
  52         title => 'Old Roman Cursive',
  53         list => [
  54                 map {
  55                         !m/^(-?)(\w.+)/ ? $_ :
  56                         $1.'<svg width="20" height="20" viewBox="0 0 12 20"><path d="'.$2.'"/></svg>'
  57                 }
  58                 "m2,4 c1,2 8,9 8,9 M2,15 6,9",
  59                 "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",
  60                 "m4,7 4,-2 m-4,4 c0,0 -2,7 3,6",
  61                 "m3,2 c0,0 7,10 7,12 m-2,-4 c-5,2 -4,9 1,3",
  62                 "m3,10 4,0 m2,-7 c0,0 -7,1 -5,16",
  63                 "m4,11 5,-2 m-3,-4 7,-4 M0,18 c0,0 4,3 5,-3 2,-6 2,-10 2,-10",
  64                 "m3,6 7,-2 m-7,4 c-2,5 4,9 6,6 l1,3",
  65                 "m7,9 4,-0 m-8,0 c4,0 6,-1 5,6 M1,3 c2,-0 2,12 2,12",
  66                 '>', # i = j
  67                 "m6,8 -0,7",
  68                 "-m9,5 -5,4 4,4 m-4,-10 -1,13",
  69                 "m3,2 c0,0 -1,9 1,10 5,2 6,2 6,2",
  70                 "m0,16 3,-10 4,6 2,-5 5,4",
  71                 "m2,16 1,-9 5,8 2,-9",
  72                 "m5,8 c-2,0 -2,6 1,5 4,-2 1,-5 1,-5",
  73                 "m5,8 c0,0 -1,8 2,6 m-3,-7 5,3",
  74                 "m3,6 9,12 m-9,-11 c-4,1 -3,4 -3,4 0,0 2,2 6,-1",
  75                 "m0,6 c3,-1 3,-1 6,0 2,1 3,3 6,1 m-7,-1 -2,11",
  76                 "m13,3 c0,0 -5,2 -8,4 -2,3 -1,5 -2,9 -1,1 -4,2 -4,2",
  77                 "m2,7 8,0 m-4,1 c0,0 -1,8 3,5",
  78                 '>', # u = v
  79                 "m2,5 c0,0 3,5 6,3 3,-2 2,-3 2,-3",
  80                 '-',
  81                 "m3,19 c-1,-6 6,-17 6,-17 M1,8 c0,0 10,1 10,1",
  82                 "-m0,7 c2,-3 5,-2 5,1 l0,11 c0,0 -0,-4 -0,-10 -0,-4 4,-4 6,-3",
  83                 "-m3,6 c4,-1 3,3 3,3 -1,3 -2,5 -1,5 1,1 3,0 3,0",
  84         ],
  85 },
  86 sutton => {
  87         title => 'Sutton <abbr title="American Sign Lanugage">ASL</abbr>',
  88         list => [
  89                 # American manual alphabet in Sutton (U+1D800+) notation
  90                 map { !!$_ && pack 'W*', map { hex "1D$_" } unpack '(A3)*', $_ } qw{
  91                 8F7a9c    847a9c    86Da9c    801a9c    84Aa9c
  92                 8CEa9c    8F0       815aa2    892a9c    892a9c9A2aac
  93                 840a9c    8DCa9c    88Da9c
  94                 819a9c    876a9c    840a9caA1 8F0a9caA1 81Aa9c
  95                 903a9c    8FBa9c    815a9c    80Ea9c    887a9c
  96                 806a9c    89Aa9c    800a9c945aaa
  97                 0         965aa6
  98         }],
  99 },
 100 unistrokes => {
 101         title => 'Unistrokes',
 102         list => [
 103                 map { '<svg width="14" height="16" viewBox="-1 -1 8 10">'.$_.'</svg>' }
 104                 map {
 105                         sprintf('<circle cx="%s" cy="%s" r="1"/>', m/\AM(\d+),(\d+)(.?)/) . # start point
 106                         (!!$3 && qq(<path d="$_"/>))
 107                 }
 108                 'M3,8 V0',
 109                 'M0,0 6,4 0,8',
 110                 'M6,0 0,4 6,8',
 111                 'M6,0 0,4 6,8',
 112                 'M6,4 H0',
 113                 'M6,0 0,0 0,8',
 114                 'M0,8 6,8 6,0',
 115                 'M0,0 6,0 6,8',
 116                 'M3,0 V8',
 117                 'M6,0 6,8 0,8',
 118                 'M0,8 6,0',
 119                 'M0,0 0,8 6,8',
 120                 'M6,8 3,0 0,8',
 121                 'M0,8 3,0 6,8',
 122                 'M6,0 Q0,6 3,8 6,6 0,0',
 123                 'M0,0 Q4,8 6,4 4,0 0,8',
 124                 'M6,0 Q2,8 0,4 2,0 6,8',
 125                 'M0,0 6,8',
 126                 'M6,0 0,0 6,8 0,8',
 127                 'M0,4 H6',
 128                 'M6,0 3,8 0,0',
 129                 'M0,0 3,8 6,0',
 130                 'M0,0 0,8 6,0 6,8',
 131                 'M0,0 Q6,6 3,8 0,6 6,0',
 132                 'M6,0 0,8',
 133                 'M0,0 6,0 0,8 6,8',
 134                 'M3,4',
 135         ],
 136 },
 137 #graffiti => {
 138 #       title => 'Palm Graffiti',
 139 #},
 140 ita2 => {
 141         title => '<abbr title="International Telegraph Alphabet">ITA</abbr>2',
 142         list => [map { tr/01/○●/r =~ s/..\K/ /r } qw(
 143                 11000 10011 01110 10010 10000 10110 01011 00101 01100 11010 11110 01001 00111
 144                 00110 00011 01101 11101 01010 10100 00001 11100 01111 11001 10111 10101 10001
 145                 00100
 146         )],
 147 },
 148 braille => {
 149         list => [qw{ ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚ ⠅ ⠇ ⠍ ⠝ ⠕ ⠏ ⠟ ⠗ ⠎ ⠞ ⠥ ⠧ ⠺ ⠭ ⠽ ⠵ }],
 150 },
 151 tactile => {
 152         title => '5-point Tactile',
 153         list => [
 154                 map { '<svg width="9" height="12" viewBox="0 0 18 24">'.$_.'</svg>' }
 155                 map {
 156                         join '', map { sprintf '<circle cx="%d" cy="%d" r="4"/>',
 157                                 !$_ ?  9 : $_ & 1 ? 4 : 14,
 158                                 !$_ ? 12 : $_ < 3 ? 4 : 20,
 159                         } split //
 160                 }
 161                 qw{
 162                         4 234 012 14 0 014 023 12
 163                         02 024 0134 23 013 03 01 123
 164                         0124 13 04 1 34 0123 134 0234
 165                         034 124
 166                 }
 167         ],
 168 },
 169 morse => {
 170         list => [map {tr/.-/‧‑/r} qw{
 171                 .- -... -.-. -.. . ..-. --. .... .. .--- -.- .-.. --
 172                 -. --- .--. --.- .-. ... - ..- ...- .-- -..- -.-- --..
 173         }],
 174 },
 175 tap => {
 176         title => 'Tap code',
 177         list => [map { disptap($_) } qw{
 178                 11 12 13 14 15 21 22 23  > 24 25 31 32
 179                 33 34 35 41 42 43 44 45 51 52 53 54 55
 180         }],
 181 },
 182 shorttap => {
 183         title => 'Short Tap',
 184         list => [map { disptap($_) } qw{
 185                 11 12 13 14 21 22 23 20 > 31 -13 32 33
 186                 30 41 42 -13 43 40 10 51 52 53 50 -31 -40
 187         }],
 188 },
 189 cards => {
 190         list => [(
 191                 map { chr(0x1F0A0 + $_), sprintf('<b>%s</b>', chr(0x1F0B0 + $_)) }  # spades, hearts
 192                 1 .. 11, 13, 14  # A 2-10 J Q K
 193         ), '', chr(0x1F0CF), chr(0x1F0DF) ],
 194 },
 195 maritime => {
 196         title => 'Maritime flags',
 197         list => [
 198                 # International Code of Signals, SVG fills
 199                 map { !!$_ && '<svg width="20" height="20" viewBox="0 0 30 30">'.s/\n?\t+//gr.'</svg>' }
 200                 split /\n\n/, qq{
 201                         <path fill="$C{blue}" d="M0,0 h30 l-7.5,15 7.5,15 h-30 z"/>
 202                         <path fill="white" d="M0,0 h15 v30 h-15"/>
 203
 204                         <path fill="$C{red}" d="M0,0 h30 l-7.5,15 7.5,15 h-30 z"/>
 205
 206                         <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
 207                         <path fill="white" d="M0,6  h30 v18 h-30" />
 208                         <path fill="$C{red}" d="M0,12 h30 v6  h-30" />
 209
 210                         <path fill="$C{yellow}" d="M0,0 h30v30 h-30z"/>
 211                         <path fill="$C{blue}" d="M0,6 h30 v18 h-30"/>
 212
 213                         <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
 214                         <path fill="$C{blue}" d="M0,0 h30 v15 h-30"/>
 215
 216                         <path fill="white" d="M0,0 h30v30 h-30z"/>
 217                         <path fill="$C{red}" d="M15,0 l15,15 -15,15 -15,-15"/>
 218
 219                         <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
 220                         <path fill="$C{yellow}" d="M 0,0 h5 v30 h-5"/>
 221                         <path fill="$C{yellow}" d="M10,0 h5 v30 h-5"/>
 222                         <path fill="$C{yellow}" d="M20,0 h5 v30 h-5"/>
 223
 224                         <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
 225                         <path fill="white" d="M0,0 h15 v30 h-15"/>
 226
 227                         <path fill="$C{yellow}" d="M0,0 h30v30 h-30z"/>
 228                         <circle fill="$C{black}" r="7.5" cx="15" cy="15"/>
 229
 230                         <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
 231                         <path fill="white" d="M0,10 h30 v10 h-30"/>
 232
 233                         <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
 234                         <path fill="$C{yellow}" d="M0,0 h15 v30 h-15"/>
 235
 236                         <path fill="$C{black}" d="M0,0 h30v30 h-30z"/>
 237                         <path fill="$C{yellow}" d="M0,0 h15 v15 h-15 M15,15 h15 v15 h-15"/>
 238
 239                         <path fill="white" d="M0,0 h30v30 h-30z"/>
 240                         <path fill="$C{blue}" d="M4,0h22l-11,11 M4,30h22l-11,-11 M0,4v22l11,-11 M30,4v22l-11,-11"/>
 241
 242                         <path fill="white" d="M0,0 h30v30 h-30z"/>
 243                         <path fill="$C{blue}" d="
 244                                 M0,0     h7.5v7.5h-7.5 m0,7.5h7.5v7.5h-7.5
 245                                 m7.5,-15 h7.5v7.5h-7.5 m0,7.5h7.5v7.5h-7.5
 246                                 m7.5,-30 h7.5v7.5h-7.5 m0,7.5h7.5v7.5h-7.5
 247                                 m7.5,-15 h7.5v7.5h-7.5 m0,7.5h7.5v7.5h-7.5
 248                         "/>
 249
 250                         <path fill="$C{yellow}" d="M0,0 h30v30 h-30z"/>
 251                         <path fill="$C{red}" d="M0,0 h30 v30"/>
 252
 253                         <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
 254                         <path fill="white" d="M10,10 h10 v10 h-10"/>
 255
 256                         <path fill="$C{yellow}" d="M0,0 h30v30 h-30z"/>
 257
 258                         <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
 259                         <path fill="$C{yellow}" d="M12.5,0 v30 h5 v-30"/>
 260                         <path fill="$C{yellow}" d="M0,12.5 h30 v5 h-30"/>
 261
 262                         <path fill="white" d="M0,0 h30v30 h-30z"/>
 263                         <path fill="$C{blue}" d="M10,10 h10 v10 h-10"/>
 264
 265                         <path fill="white" d="M0,0 h30v30 h-30z"/>
 266                         <path fill="$C{red}" d="M0,0 h10 v30 h-10"/>
 267                         <path fill="$C{blue}" d="M20,0 h10 v30 h-10"/>
 268
 269                         <path fill="white" d="M0,0 h30v30 h-30z"/>
 270                         <path fill="$C{red}" d="M0,0 h15 v15 h-15 M15,15 h15 v15 h-15"/>
 271
 272                         <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
 273                         <path fill="white" d="M4,0h22l-11,11 M4,30h22l-11,-11 M0,4v22l11,-11 M30,4v22l-11,-11"/>
 274
 275                         <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
 276                         <path fill="white" d="M5,5 h20 v20 h-20"/>
 277                         <path fill="$C{red}" d="M10,10 h10 v10 h-10"/>
 278
 279                         <path fill="white" d="M0,0 h30v30 h-30z"/>
 280                         <path fill="$C{blue}" d="M12.5,0 v30 h5 v-30"/>
 281                         <path fill="$C{blue}" d="M0,12.5 h30 v5 h-30"/>
 282
 283                         <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
 284                         <path fill="$C{yellow}" d="M0,0h6l-6,6 M12,0h6l-18,18v-6 M24,0h6l-30,30v-6
 285                                 M30,6v6l-18,18h-6 M30,18v6l-6,6h-6"/>
 286
 287                         <path fill="$C{black}" d="M0,0 h30v30 h-30z"/>
 288                         <path fill="$C{blue}" d="M30,0 v31 l-15,-15"/>
 289                         <path fill="$C{yellow}" d="M0,0  h31 l-15,15"/>
 290                         <path fill="$C{red}" d="M0,30 h31 l-15,-15"/>
 291
 292
 293
 294                         <path fill="$C{blue}" d="M0,5 30,15 0,25"/>
 295                         <path fill="$C{yellow}" d="M0,9 20,15 0,21"/>
 296
 297                         <path fill="$C{blue}" d="M0,5 30,15 0,25"/>
 298                         <path fill="white" d="M15,10 30,15 15,20"/>
 299                 },
 300         ],
 301 },
 302 flag => {
 303         title => 'Flag semaphore',
 304         list => [
 305                 map {
 306                         local $_ = $_;
 307                         s/[1-4]\K(?=[4-9])/ /; # prevent unwanted vertical crossing
 308                         tr/1-9/↙←↖↑↗→↘↓/;
 309                         s{(\S)(?=.)}{<span style="position:absolute">$1</span>};
 310                         $_
 311                 }
 312                 qw(
 313                         1 2 3 4 5  6 7 21 31 46  14 51 16 17 23
 314                         24 25 26 27 34  35 47 56 57 36  67
 315                 )
 316         ],
 317 },
 318 chappe => {
 319         title => 'Chappe semaphore',
 320         list => [
 321                 map {
 322                         my ($r, $pr, $pl) = split //, $_;
 323                         /^\D$/ ? $_ : sprintf(
 324                                 join('',
 325                                         '<svg width="16" height="20" viewBox="0 0 10 15">',
 326                                         '<path d="M5,6 v7"/>',
 327                                         '<path d="M0,%s h10 %s" transform="rotate(%d 5 6)"/>',
 328                                         '</svg>',
 329                                 ),
 330                                 ['6', '3v3', '9v-3']->[$pl],
 331                                 [ '',  'v3',  'v-3']->[$pr],
 332                                 $r * 45,
 333                         );
 334                 }
 335                 # 360° rotation (0-7) and position state (0-2) of left and right bars
 336                 qw(
 337                   021 121 221 321 421 521 621 721
 338                   > 022 122 222 322 011 111 211 311
 339                   001 101 201 301 401 501 601 701 020
 340                 )
 341         ],
 342 },
 343 prussian => {
 344         title => 'Prussian semaphore',
 345         list => [
 346                 map { /^\D+$/ ? $_ : sprintf
 347                         join('',
 348                                 '<svg width="10" height="20" viewBox="0 0 8 18">',
 349                                 '<path d="M4,1 v18"/>',
 350                                 (map {(
 351                                         qq(<path d="M0 $_ h4" transform="rotate(%d 4 $_)"/>),
 352                                         qq(<path d="M4 $_ h4" transform="rotate(-%d 4 $_)"/>),
 353                                 )} 3, 7, 14),
 354                                 '</svg>',
 355                         ),
 356                         map { ($_ - 2) * 45 % 360 } split //, $_
 357                 }
 358                 # rotation state (0-3) for left and right bar of 3 rows
 359                 qw(
 360                         003000 000200 203300 000030 033030 000130 000330 032330 > 031330
 361                         022020 130120 001320 233010 030210 022310 203001 233001
 362                         131001 231301 000202 023302 230003 032003 201003 101003
 363                 )
 364         ],
 365 },
 366 code39 => {
 367         title => 'Code 39',
 368         list => [map { dispbar($_) } qw(
 369                 2111121121 1121121121 2121121111 1111221121 2111221111 1121221111
 370                 1111122121 2111122111 1121122111 1111222111 2111111221 1121111221
 371                 2121111211 1111211221 2111211211 1121211211 1111112221 2111112211
 372                 1121112211 1111212211 2211111121 1221111121 2221111111 1211211121
 373                 2211211111 1221211111            1221112111 0 1211212111
 374         )], # ISO/IEC 16388
 375 },
 376 code93 => {
 377         title => 'Code 93',
 378         list => [map { dispbar($_) } qw(
 379                 211113 211212 211311 221112 221211 231111 112113 112212 112311 122112
 380                 132111 111123 111222 111321 121122 131121 212112 212211 211122 211221
 381                 221121 222111 112122 112221 122121 123111        311211 0 111141
 382         )],
 383 },
 384 code128 => {
 385         title => 'Code 128',
 386         list => [map { dispbar($_) } qw(
 387                 111323 131123 131321 112313 132113 132311 211313 231113 231311 112133
 388                 112331 132131 113123 113321 133121 313121 211331 231131 213113 213311
 389                 213131 311123 311321 331121 312113 312311        212222 0 211412 2331112
 390         )],
 391 },
 392 rm4scc => {
 393         title => '<abbr title="Royal Mail 4-State Customer Code">RM4SCC</abbr>',
 394         list => [
 395                 map {
 396                         my $len = length $_;
 397                         !$len ? '' : sprintf(
 398                                 '<svg width="%d" height="20" viewBox="0 0 %d 6">'
 399                                 . '<path d="M1%s"/></svg>',
 400                                 $len * 5, $len * 2,
 401                                 join ' m2',
 402                                 map { sprintf ',%dv%dm0,-%d',
 403                                         ($_ & 1 ? 0 : 2),  2 + ($_ & 2) + ($_ & 1) * 2,
 404                                         ($_ & 1 ? 0 : 2) + 2 + ($_ & 2) + ($_ & 1) * 2,
 405                                 }
 406                                 split //
 407                         );
 408                 }
 409                 qw(
 410                                                                 2121 2301
 411                         0132 0312 0330 2112 2130 2310
 412                         1023 1203 1221 3003 3021 3201
 413                         1032 1212 1230 3012 3030 3210
 414                         1122 1302 1320 3102 3120 3300
 415                         0033
 416                 ), # 0 for space
 417                 '', 1, 3  # start/end
 418         ],
 419 },
 420 dni => {
 421         title => "D'ni",
 422         list => [
 423                 map {
 424                         state $window = 'M-.5,-.5H8.5V8.5H-.5Z';
 425                         state $v = [
 426                                 '',
 427                                 'M0,4 8,4',
 428                                 'M0,8 Q4,4 8,8',
 429                                 'M0,4 4,8 8,4',
 430                                 'M2,0 2,4 8,4',
 431                                 'M0,0 8,8 M0,8 8,0', # cross
 432                                 'M3.5,4 h1', # dot
 433                         ];
 434                         state $h = [
 435                                 '',
 436                                 'M4,0 4,8',
 437                                 'M0,0 Q4,4 0,8',
 438                                 'M4,-.5 0,4 4,8.5',
 439                                 'M4,8 4,2 8,2',
 440                         ];
 441                         sprintf '<svg width="16" height="16" viewBox="-.5 -.5 9 9"><path d="%s"/></svg>',
 442                                 $window . ($h->[$_ % 5] . $v->[$_ / 5] || $v->[6]);
 443                 } 0 .. 5*5
 444         ],
 445 },
 446 pigpen => {
 447         list => [
 448                 map {
 449                         qq(<svg width="12" height="12" viewBox="-.5 -.5 7 7">$_</svg>)
 450                 }
 451                 map {
 452                         local $_ = $_;
 453                         s/^H/mX,0/ or s/^V/m0,X/ or s/^/m0,0/;
 454                         s/[hv]\K|X/6/g;
 455                         s/(?:v|,[^0]).*?v\K/-/;
 456                         s/(?:h|m[^0]).*?h\K/-/;
 457                         m/h/ or s/v/l3,/g;
 458                         m/v/ or s/h([^h]*)/l$1,3/g;
 459                         my $dot = s/\.// && qq(<circle cx="3" cy="3" r="1"/>);
 460                         qq(<path d="$_"/>$dot)
 461                 }
 462                 qw(
 463                         Hvh  vhv  vh  hvh  vhvh  Hhvh  hv  Vvhv  Hhv
 464                         Hvh. vhv. vh. hvh. vhvh. Hhvh. hv. Vvhv. Hhv.
 465                         vv  hh  Hhh  Vvv
 466                         vv. hh. Hhh. Vvv.
 467                 ),
 468         ],
 469 },
 470 nyctographs => {
 471         list => [
 472                 map { s/M[\d,\hM]+(?=[M"])//gr }  # clean up superfluous moves
 473                 map { sprintf
 474                         '<svg width="14" height="14" viewBox="-.5 -.5 5 5">'
 475                         . '<path d="M0,0%s %s4,0 %s4,4 %s0,4 %s0,0"/></svg>',
 476                         'h.5v.5h-.5v-.5',  # start anchor
 477                         map { ['M', 'h0M', 'L']->[$_] }
 478                         split //
 479                 }
 480                 # draw style (0=empty, 1=dot, 2=line connect) to right, down, left, up
 481                 qw(
 482                         0010 0112 2022 2220 2000 2012 0122 0202 0020 0220 0012 0022 2202
 483                         0222 2222 0102 0200 2201 2002 2200 0100 0110 0120 2001 2010 2020 0
 484                 ),
 485         ],
 486 },
 487 chromacons => {
 488         list => [
 489                 # Colour Alphabet by Paul Green-Armytage (2010)
 490                 map {
 491                         sprintf('<span%s>%s</span>',
 492                                 !!$_ && sprintf(' style="background:#%s" title="%s"', split /:/),
 493                                 chr(8195), # em space
 494                         );
 495                 }
 496                 qw{
 497                         F0A3FF:Amethyst 0075DC:Blue      993F00:Caramel  4C005C:Damson   191919:Ebony
 498                         005C31:Forest   2BCE48:Green     FFCC99:Honeydew 808080:Iron     94FFB5:Jade
 499                         8F7C00:Khaki    9DCC00:Lime      C20088:Mallow
 500                         003380:Navy     FFA405:Orpiment  FFA8BB:Pink     426600:Quagmire FF0010:Red
 501                         5EF1F2:Sky      00998F:Turquoise E0FF66:Uranium  740AFF:Violet   990000:Wine
 502                         FFFF80:Xanthin  FFFF00:Yellow    FF5005:Zinnia   0
 503                 }
 504         ],
 505 },
 506 );