initial upload

1 files changed, 32 insertions, 0 deletions

diff --git a/src/video.ads b/src/video.ads
new file mode 100644
index 0000000..09ff6e8
--- /dev/null
+++ b/src/video.ads
@@ -0,0 +1,32 @@
+with Sf;
+with Sf.Graphics;
+with Sf.Graphics.Image;
+with Sf.Graphics.RenderWindow;
+with Sf.Graphics.Sprite;
+with Sf.Graphics.Texture;
+
+package Video is
+   use Sf;
+   use Sf.Graphics;
+
+   Width  : constant := 64;
+   Height : constant := 32;
+   Scale  : constant := 10;
+   Title  : constant String := "Ada-Chip";
+
+   procedure Clear_Screen;
+   procedure Initialize;
+   function Is_Running return Boolean;
+   procedure Display;
+   function Toggle_Pixel (X, Y : sfUint32) return Boolean;
+   procedure Finish;
+
+private
+   Pixels         : constant sfImage_Ptr   := Image.create (Width, Height);
+   Pixels_Sprite  : constant sfSprite_Ptr  := Sprite.create;
+   Pixels_Texture : constant sfTexture_Ptr :=
+      Texture.createFromImage (Pixels);
+
+   app : constant sfRenderWindow_Ptr := RenderWindow.create
+      ((Width * Scale, Height * Scale, 32), Title);
+end Video;