Video_library/source/base/video-texts-fonts-raster.ads

29 lines
892 B
Ada
Raw Normal View History

2023-01-24 15:05:10 +01:00
with Video.Integer_Geometry;
package Video.Texts.Fonts.Raster is
type Mapped_Glyph is record
Encoding : Wide_Wide_Character;
Advance_X : Integer;
Bounds : Integer_Geometry.Box; -- a bounding box of a glyph relative to its origin
Map : Integer_Geometry.Point; -- a position of a glyph corner (X.First, Y.First) on a the map
end record;
type Mapped_Glyph_Array is array (Positive range <>) of Mapped_Glyph;
type Constant_Mapped_Glyph_Array_Access is access constant Mapped_Glyph_Array;
generic
type Pixel is private;
2023-07-29 21:24:23 +02:00
type Pixel_Array is array (Integer range <>, Integer range <>) of Pixel;
2023-01-24 15:05:10 +01:00
package Mapped is
2023-07-29 21:24:23 +02:00
type Constant_Pixel_Array_Access is access constant Pixel_Array;
2023-01-24 15:05:10 +01:00
type Mapped_Raster_Font is record
Map : Constant_Mapped_Glyph_Array_Access;
2023-07-29 21:24:23 +02:00
Image : Constant_Pixel_Array_Access;
2023-01-24 15:05:10 +01:00
end record;
end Mapped;
end Video.Texts.Fonts.Raster;