Hosted by
 |
with Gray_Images; use Gray_Images;
with Integer_Vectors; use Integer_Vectors;
with Interfaces;
package Glyph_Images is
type Glyph_Image_Record(Width, Height : Positive) is
new Gray_Image_Record(Width, Height) with
record
Anti_Alias : Positive;
Center : Vector;
end record;
type Glyph_Image is access all Glyph_Image_Record;
end Glyph_Images;
|