From 276807acdf79127a8a2c3901ab76ac5e62a5c46b Mon Sep 17 00:00:00 2001
From: Vovanium <vovanium@protonmail.ch>
Date: Wed, 2 Aug 2023 19:29:37 +0300
Subject: [PATCH] + simplest font storage type introduced

---
 .../video-texts-fonts-raster-glyph_arrays.ads  | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 source/base/video-texts-fonts-raster-glyph_arrays.ads

diff --git a/source/base/video-texts-fonts-raster-glyph_arrays.ads b/source/base/video-texts-fonts-raster-glyph_arrays.ads
new file mode 100644
index 0000000..66350e5
--- /dev/null
+++ b/source/base/video-texts-fonts-raster-glyph_arrays.ads
@@ -0,0 +1,18 @@
+--
+-- A simple implementation for monospaced raster fonts
+--
+with Video.Integer_Geometry;
+use  Video.Integer_Geometry;
+
+generic
+	Width, Height : Positive_Distance;
+	type Pixel is private;
+	type Pixel_Array is array (Coordinate range <>, Coordinate range <>) of Pixel;
+	type Character_Type is (<>);
+package Video.Texts.Fonts.Raster.Glyph_Arrays is
+
+	subtype Glyph is Pixel_Array (0 .. Height - 1, 0 .. Width - 1);
+
+	type Glyph_Array is array (Character_Type range <>) of Glyph;
+
+end Video.Texts.Fonts.Raster.Glyph_Arrays;