From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 2 Mar 2024 22:28:17 +0000 (+0100)
Subject: keyboard/altgr: msx-graph mode counterpart to msx code
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/973451ff27debd3dcc2ccd4c9c26a08aceb39e4c

keyboard/altgr: msx-graph mode counterpart to msx code
---

diff --git a/keyboard/altgr/msx-graph.eng.inc.pl b/keyboard/altgr/msx-graph.eng.inc.pl
new file mode 100644
index 0000000..3bcf5d1
--- /dev/null
+++ b/keyboard/altgr/msx-graph.eng.inc.pl
@@ -0,0 +1,158 @@
+use utf8;
+use strict;
+use warnings;
+use Shiar_Sheet::KeyboardChars 'kbchars';
+our %get;
+
+my %rows = (
+	'1' => '¼',
+	'@' => '²',
+	'2' => '½',
+	'#' => 'ⁿ',
+	'3' => '¾',
+	'4' => '∩',
+	'5' => '‰',
+	'^' => '⌡',
+	'6' => '⌠',
+	'7' => '√',
+	'8' => '∞',
+	'(' => '◘', # inverted ·
+	'9' => '·', # smaller than •
+	')' => '◙',
+	'0' => '○',
+	'_' => '🮯',
+	'-' => '─',
+	'+' => '≡',
+	'=' => '±',
+	'~' => '≈',
+	'`' => '∽',
+
+	'Q' => '🮙',
+	'q' => '🮘',
+	'W' => '🭮',
+	'w' => '🭬',
+	'E' => '🭯',
+	'e' => '🭭',
+	'R' => '⌐',
+	'r' => '┌',
+	't' => '┬',
+	'Y' => '¬',
+	'y' => '┐',
+	'U' => '🮅',
+	'u' => '▂',
+	'I' => '▀',
+	'i' => '▄',
+	'O' => '🮂',
+	'o' => '▆',
+	'P' => '🮖',
+	'p' => '█',
+	'[' => '☺',
+	'{' => '☻',
+	']' => '♪',
+	'}' => '♫',
+
+	'A' => '▮',
+	'a' => '▬',
+	'S' => '🮚',
+	's' => '🮛',
+	'D' => '▚',
+	'd' => '▞',
+	'F' => '▗',
+	'f' => '├',
+	'G' => '⟊', # ┼ without connecting right
+	'g' => '┼',
+	'H' => '▖',
+	'h' => '┤',
+	'J' => '🮊',
+	'j' => '▎',
+	'K' => '▐',
+	'k' => '▌',
+	'L' => '🮇',
+	'l' => '▊',
+	'"' => '♥',
+	"'" => '♣',
+	':' => '♦',
+	';' => '♠',
+	'|' => '│',
+	'\\'=> '╲',
+
+	'Z' => '◦', # small white circle
+	'z' => '☼',
+	'X' => '•', # small black circle
+	'x' => '╳',
+	'C' => '⁃',
+	'c' => '◇', # ◊
+	'V' => '▝',
+	'v' => '└',
+	'B' => '▬',
+	'b' => '┴',
+	'N' => '▘',
+	'n' => '┘',
+	'M' => '♀',
+	'm' => '♂',
+	'<' => '«',
+	',' => '≤',
+	'>' => '»',
+	'.' => '≥',
+	'?' => '÷',
+	'/' => '╱',
+
+);
+
+my %compat = (
+	'Q' => '▨',
+	'q' => '▧',
+	'W' => '◀', #
+	'w' => '▶',
+	'E' => '▲',
+	'e' => '▼', #
+	'U' => '▓',
+	'J' => '░',
+	'O' => '▔',
+	'P' => '▒',
+	'S' => '⧗',
+	's' => '⧓',
+	'G' => '╂',
+	'_' => '┿',
+	'L' => '▕',
+);
+
+if (exists $get{compat}) {
+	%rows = (%rows, %compat);
+}
+
+my $groups = kbchars(\%rows);
+
+# replace rare punctuation distinctions by symbols
+$groups->{def}{''}{$_} =~ s/g[78]/g6/ for keys %rows;
+
+$groups->{def}{''}{$_} = 'g7'
+	for grep { $rows{$_} =~ /[\x{2500}-\x{259F}]/ } keys %rows;
+$groups->{flag}{g7} = ['drawing', 'box drawing or block elements'];
+
+$groups->{def}{''}{$_} = 'g8' for keys %compat; # mostly U+1FBxx
+$groups->{flag}{g8} = ['legacy',
+	'drawing symbols best represented by Unicode 13.0'
+	. (exists $get{compat} && ', converted to compatible equivalents')
+];
+
++{
+	%{ $groups },
+	version => '1.0',
+	title => 'MSX graph',
+	category => 'legacy/msx',
+	intro => join("\n",
+		'Resulting <a href="/unicode">selection</a>',
+		'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).",
+		'See also <a href="/keyboard/altgr/msx">letters and symbols</a>',
+		"from pressing <em>code</em>.",
+	),
+	description => [
+		"MSX keyboard layout table",
+		"with the graph modifier key.",
+	],
+	image => 'data/keyboard/thumb/msxgraph.jpg',
+	imagealt => 'Graph key on a Toshiba HX10 with graph labels',
+}
diff --git a/keyboard/altgr/msx.eng.inc.pl b/keyboard/altgr/msx.eng.inc.pl
index ec8e556..a7d8c0b 100644
--- a/keyboard/altgr/msx.eng.inc.pl
+++ b/keyboard/altgr/msx.eng.inc.pl
@@ -96,14 +96,16 @@ $groups->{flag}{ext} = ['anachrone', 'expected uppercase variants if allowed by
 
 +{
 	%{ $groups },
-	version => '1.1',
+	version => '1.2',
 	title => 'MSX code',
-	category => 'legacy/latin',
+	category => 'legacy/msx/latin',
 	intro => join("\n",
-		'Resulting <a href="/unicode">selection</a>",
-		"of equivalent <a href="/charset">Unicode</a> characters',
+		'Resulting <a href="/unicode">selection</a>',
+		'of equivalent <a href="/charset">Unicode</a> characters',
 		"when the <em>code</em> key is pressed on an MSX home computer",
 		"(International model such as Toshiba HX10 or Phillips NMS 8245).",
+		'See also <a href="/keyboard/altgr/msx-graph">block graphics</a>',
+		"from pressing <em>graph</em>.",
 	),
 	description => [
 		"MSX keyboard layout table",