keyboard/altgr/atari.eng.inc.pl

   1 use utf8;
   2 use strict;
   3 use warnings;
   4 no warnings 'qw';
   5 use Shiar_Sheet::KeyboardChars 'kbchars';
   6
   7 # card suits at 50,00,60,7B mapped differently depending on keyboard
   8 my %rows = qw(
   9         p ♣  , ♥  ; ♠  . ♦
  10         q ┌  w ┬  e ┐  r ─  t ●  y ▌  u ▄  i ▗  o ▖
  11         a ├  s ┼  d ┤  f ╱  g ╲  h ◢  j ◣  k ▝  l ▘
  12         z └  x ┴  c ┘  v ▎  b 🮇  n ▂  m 🮂
  13 );
  14
  15 my $groups = kbchars(\%rows);
  16
  17 while (my ($k, $c) = each %rows) {
  18         $groups->{def}{''}{$k}[0] = (
  19                 $c =~ /\p{In=1.1}/ ? 'g2' :
  20                 $c =~ /\p{In=4.0}/ ? 'g3' :
  21                 $c =~ /[\x{1FB00}-\x{1FBFF}]/ ? 'g5' : # Age=V13.0
  22                 'g0'
  23         );
  24 }
  25
  26 +{
  27         %{ $groups },
  28         version => '1.0',
  29         title => 'Atari graphics',
  30         category => 'legacy/graph',
  31         moderows => '1-',
  32         intro => join("\n",
  33                 '<abbr title="ATARI Standard Code for Information Interchange">ATASCII</abbr>',
  34                 'characters from 8-bit Atari machines starting with the 1979 models 400 and 800,',
  35                 'with modern <a href="/keyboard/altgr/unigraph">Unicode</a> equivalents.',
  36                 'Similar to <a href="/keyboard/altgr/c64">PETSCII</a>',
  37                 'and <a href="/keyboard/altgr/msx-graph">MSX graph</a>.',
  38         ),
  39         image => 'data/keyboard/thumb/atari-130xe.jpg',
  40         flag => {
  41                 g2 => ['standard' => 'original Unicode 1993'],
  42                 g3 => ['extended' => 'Unicode 4.0'],
  43                 g5 => ['legacy'   => 'exceptional <em>symbols for legacy computing</em> in Unicode since <abbr title="Unicode 13.0">2020</abbr>'],
  44                 g9 => ['color'    => 'presentational controls represented by anachronistic hearts'],
  45         },
  46 }