keyboard/altgr/spacecadet.eng.inc.pl

   1 use utf8;
   2 use strict;
   3 use warnings;
   4 require './keyboard/altgr/groups.inc.pl';
   5 Shiar_Sheet::KeyboardChars->import('kbchars');
   6
   7 my %rows = (
   8         'q' => '∧',
   9         'w' => '∨',
  10         'e' => '∩',
  11         'r' => '∪',
  12         't' => '⊂',
  13         'y' => '⊃',
  14         'u' => '∀',
  15         'i' => '∞',
  16         'o' => '∃',
  17         'p' => '∂',
  18
  19         'a' => '⊥',
  20         's' => '⊤',
  21         'd' => '⊢',
  22         'f' => '⊣',
  23         'g' => '↑',
  24         'h' => '↓',
  25         'j' => '←',
  26         'k' => '→',
  27         'l' => '↔',
  28
  29         'z' => '⌊',
  30         'x' => '⌈',
  31         'c' => '≠',
  32         'v' => '≃',
  33         'b' => '≡',
  34         'n' => '≤',
  35         'm' => '≥',
  36         #',' => '<', # just shifted
  37         #'.' => '>',
  38         #'/' => '?',
  39
  40         '+:' => '⋄', # positioned left of 1, also drawn as §-ish
  41         '+1' => '†',
  42         '+2' => '‡',
  43         '+3' => '∇',
  44         '+4' => '¢',
  45         '+5' => '∘',
  46         '+6' => '⎕', # or ⌷
  47         '+7' => '÷',
  48         '+8' => '×',
  49         '+9' => '¶',
  50         '+0' => '○',
  51         '+-' => '¯',
  52         '+=' => '≈',
  53
  54         '+q' => 'θ',
  55         '+w' => 'ω',
  56         '+e' => 'ε',
  57         '+r' => 'ρ',
  58         '+t' => 'τ',
  59         '+y' => 'ψ',
  60         '+u' => 'υ',
  61         '+i' => 'ι',
  62         '+o' => 'ο',
  63         '+p' => 'π',
  64         '+[' => '⟦', # separate keys ([ and {<
  65         '+]' => '⟧', # )] and }> ⟨⟩
  66         '+`' => '¬', # positioned between ] and \
  67         '+\\'=> '∥',
  68
  69         '+a' => 'α',
  70         '+s' => 'σ',
  71         '+d' => 'δ',
  72         '+f' => 'φ', # drawn like ø
  73         '+g' => 'γ',
  74         '+h' => 'η',
  75         '+j' => 'ϑ', # probably
  76         '+k' => 'κ',
  77         '+l' => 'λ',
  78         '+;' => '¨',
  79         "+'" => '·', # ambiguous dot (visually raised •)
  80
  81         '+z' => 'ζ',
  82         '+x' => 'ξ',
  83         '+c' => 'χ',
  84         '+v' => 'ς', # likely
  85         '+b' => 'β',
  86         '+n' => 'ν',
  87         '+m' => 'μ',
  88         '+,' => '≪',
  89         '+.' => '≫',
  90         '+/' => '∫',
  91 );
  92
  93 +{
  94         %{ kbchars(\%rows) },
  95         version => '1.0',
  96         title => 'Space Cadet',
  97         intro => join("\n",
  98                 'Apparent <a href="/charset">glyphs</a> available',
  99                 'on the 1978 Symbolics Space Cadet keyboard',
 100                 'by pressing either the <em>Greek/Front</em> or <em>Top</em> key.',
 101                 'Distinct from the modern <a href="/keyboard/altgr/apl">IBM standard</a>',
 102                 'for <a href="/apl">APL</a> programming.',
 103         ),
 104         description => [
 105                 'A map of the legendary Space Cadet keyboard',
 106                 'with Unicode characters of all greek and APL options.',
 107         ],
 108         rows => [3, 0], # greek/front and top
 109         moderows => '41-4',
 110         image => 'keyboard/altgr/spacecadet.jpg',
 111 }