keyboard/altgr: atari graphics (atascii)

[sheet.git] / keyboard / altgr / atari.eng.inc.pl

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'],
+       },
+}