src/video.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

with Sf;
with Sf.Graphics;
with Sf.Graphics.Sprite;

package Video is
   use Sf;
   use Sf.Graphics;

   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";

   Width  : sfUint32;
   Height : sfUint32;
   Scale  : sfUint32;

   procedure Clear_Screen;
   procedure Low_Res;
   procedure High_Res;
   procedure Initialize (M : Model);
   procedure Display;
   procedure Finish;
   procedure Poll_Events;

   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;
   function Next_Key return Key;

private
   Keys           : Key_Map;
   app            : sfRenderWindow_Ptr;
   Pixels         : sfImage_Ptr;
   Pixels_Texture : sfTexture_Ptr;
   Pixels_Sprite  : constant sfSprite_Ptr := Sprite.create;
end Video;