1 files changed, 44 insertions, 5 deletions
diff --git a/src/video.ads b/src/video.ads
index 49d3c95..e293d7b 100644
--- a/src/video.ads
+++ b/src/video.ads
@@ -1,14 +1,14 @@
 with Sf;
 with Sf.Graphics;
 with Sf.Graphics.Sprite;
+with Sf.Window.Keyboard;
 
 package Video is
    use Sf;
    use Sf.Graphics;
+   use Sf.Window.Keyboard;
 
    type Model is (Chip_8, Super_Chip_10);
-   type Key is range 0 .. 15;
-   type Key_Map is array (Key'Range) of Boolean;
 
    Title  : constant String := "Ada-Chip";
 
@@ -27,16 +27,55 @@ package Video is
    procedure Scroll_Right;
    procedure Scroll_Left;
 
-   function Key_Down (K : Key) return Boolean;
-   function Key_Up (K : Key) return Boolean;
    function Is_Running return Boolean;
    function Toggle_Pixel (X, Y : sfUint32) return Boolean;
+
+   type Key is (
+      Unknown,
+      Zero, One, Two, Three, Four, Five, Six, Seven, Eight, Nine,
+      A, B, C, D, E, F
+   );
+
+   for Key use (
+      Unknown => -1,
+      Zero  => 0,
+      One   => 1,
+      Two   => 2,
+      Three => 3,
+      Four  => 4,
+      Five  => 5,
+      Six   => 6,
+      Seven => 7,
+      Eight => 8,
+      Nine  => 9,
+      A     => 10,
+      B     => 11,
+      C     => 12,
+      D     => 13,
+      E     => 14,
+      F     => 15
+   );
+
+   type Key_Map is array (Key'First .. Key'Last) of sfScancode;
+
+   function Key_Down (K : Key) return Boolean;
+   function Key_Up (K : Key) return Boolean;
    function Next_Key return Key;
 
+   function Translate_Scancode (S : sfScancode) return Key;
+   function Translate_Key (K : Key) return sfScancode;
+
 private
-   Keys           : Key_Map;
+   Last_Key       : Key;
    app            : sfRenderWindow_Ptr;
    Pixels         : sfImage_Ptr;
    Pixels_Texture : sfTexture_Ptr;
    Pixels_Sprite  : constant sfSprite_Ptr := Sprite.create;
+
+   Key_Conv : Key_Map := (
+      sfScanUnknown,
+      sfScanNum0, sfScanNum1, sfScanNum2, sfScanNum3, sfScanNum4, sfScanNum5,
+      sfScanNum6, sfScanNum7, sfScanNum8, sfScanNum9,
+      sfScanA, sfScanB, sfScanC, sfScanD, sfScanE, sfScanF
+   );
 end Video;