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