keyboard/altgr: atari graphics (atascii)

Last of the big home computer systems with significant graphics glyphs,
positioned at corresponding control codes, rarely indicated such as on this
<https://upload.wikimedia.org/wikipedia/commons/9/9a/Atari-130XE.jpg>.

diff --git a/keyboard/altgr/atari.eng.inc.pl b/keyboard/altgr/atari.eng.inc.pl
new file mode 100644 (file)
index 0000000..e6bc674
--- /dev/null
+++ b/keyboard/altgr/atari.eng.inc.pl
@@ -0,0 +1,46 @@
+use utf8;
+use strict;
+use warnings;
+no warnings 'qw';
+use Shiar_Sheet::KeyboardChars 'kbchars';
+
+# card suits at 50,00,60,7B mapped differently depending on keyboard
+my %rows = qw(
+       p ♣  , ♥  ; ♠  . ♦
+       q ┌  w ┬  e ┐  r ─  t ●  y ▌  u ▄  i ▗  o ▖
+       a ├  s ┼  d ┤  f ╱  g ╲  h ◢  j ◣  k ▝  l ▘
+       z └  x ┴  c ┘  v ▎  b 🮇  n ▂  m 🮂
+);
+
+my $groups = kbchars(\%rows);
+
+while (my ($k, $c) = each %rows) {
+       $groups->{def}{''}{$k}[0] = (
+               $c =~ /\p{In=1.1}/ ? 'g2' :
+               $c =~ /\p{In=4.0}/ ? 'g3' :
+               $c =~ /[\x{1FB00}-\x{1FBFF}]/ ? 'g5' : # Age=V13.0
+               'g0'
+       );
+}
+
++{
+       %{ $groups },
+       version => '1.0',
+       title => 'Atari graphics',
+       category => 'legacy/graph',
+       moderows => '1-',
+       intro => join("\n",
+               '<abbr title="ATARI Standard Code for Information Interchange">ATASCII</abbr>',
+               'characters from 8-bit Atari machines starting with the 1979 models 400 and 800,',
+               'with modern <a href="/keyboard/altgr/unigraph">Unicode</a> equivalents.',
+               'Similar to <a href="/keyboard/altgr/c64">PETSCII</a>',
+               'and <a href="/keyboard/altgr/msx-graph">MSX graph</a>.',
+       ),
+       image => 'data/keyboard/thumb/atari-130xe.jpg',
+       flag => {
+               g2 => ['standard' => 'original Unicode 1993'],
+               g3 => ['extended' => 'Unicode 4.0'],
+               g5 => ['legacy'   => 'exceptional <em>symbols for legacy computing</em> in Unicode since <abbr title="Unicode 13.0">2020</abbr>'],
+               g9 => ['color'    => 'presentational controls represented by anachronistic hearts'],
+       },
+}

diff --git a/keyboard/altgr/c64.eng.inc.pl b/keyboard/altgr/c64.eng.inc.pl
index 47112e159f0e7290f9e1d06fd89e3ef3298225de..387b240ff20b7257625d5bf19ffab5b7739d6a8e 100644 (file)
--- a/keyboard/altgr/c64.eng.inc.pl
+++ b/keyboard/altgr/c64.eng.inc.pl
@@ -120,7 +120,8 @@ while (my ($k, $c) = each %rows) {
                '<abbr title="PET Standard Code of Information Interchange">PETSCII</abbr>',
                'characters designed for the 1977 PET&nbsp;2001 machine',
                'as found on the VIC-20 and C-64.',
-               'See also <a href="/keyboard/altgr/msx-graph">MSX graph</a> and',
+               'See also <a href="/keyboard/altgr/msx-graph">MSX graph</a>,',
+               '<a href="/keyboard/altgr/atari">ATASCII</a>, and',
                '<a href="/keyboard/altgr/unigraph">modern Unicode</a>.',
        ),
        image => 'data/keyboard/thumb/c64.jpg',

diff --git a/keyboard/altgr/index.inc.pl b/keyboard/altgr/index.inc.pl
index 30b6381f059bedcc467321dab170dd221f14c86f..1f77fa7c855cc148e1a211842330f45a1d28cb6d 100644 (file)
--- a/keyboard/altgr/index.inc.pl
+++ b/keyboard/altgr/index.inc.pl
@@ -8,7 +8,7 @@ my %cat = (
        latin   => [qw( ipa-ucl olpc boyeg drix )],
        science => [qw( symbolics apl spacecadet )],
        graph => [qw( unigraph emojiworks )],
-       extra => [qw( msx-graph c64 p8scii zoo )],
+       extra => [qw( msx-graph c64 atari p8scii zoo )],
 );
 
 for my $name (map {@{$_}} values %cat) {

diff --git a/keyboard/altgr/msx-graph.eng.inc.pl b/keyboard/altgr/msx-graph.eng.inc.pl
index 72a999b85d822836b58614b94722f86268ad14b6..dd4a5b55c29f870a7923250816e938fe09a92e0a 100644 (file)
--- a/keyboard/altgr/msx-graph.eng.inc.pl
+++ b/keyboard/altgr/msx-graph.eng.inc.pl
@@ -146,7 +146,8 @@ $groups->{flag}{g8} = ['legacy',
                'of equivalent <a href="/charset">Unicode</a> characters',
                "when the <em>graph</em> key is pressed on an MSX home computer",
                "(International model such as Toshiba HX10 or Phillips NMS 8245).",
-               'Similar to <a href="/keyboard/altgr/c64">PETSCII</a> and',
+               'Similar to <a href="/keyboard/altgr/c64">PETSCII</a>,',
+               '<a href="/keyboard/altgr/atari">ATASCII</a>, and',
                '<a href="/keyboard/altgr/unigraph">modern Unicode</a>.',
                'See also <a href="/keyboard/altgr/msx">letters and symbols</a>',
                "from pressing <em>code</em>.",