Hosted by
 |
with Lists;
with Outlines; use Outlines;
with Glyph_Images; use Glyph_Images;
with Real_Numbers; use Real_Numbers;
with Real_Vectors; use Real_Vectors;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
package Glyphs is
type Glyph is private;
package Outline_Lists is new Lists(Outlines.Outline);
subtype Outline_List is Outline_Lists.List;
function Create
(Name : in String)
return Glyph;
function Get_Name
(This : in Glyph)
return String;
function Get_Bounds
(This : in Glyph)
return Box;
function Get_Outlines
(This : in Glyph)
return Outline_List;
procedure Add_Outline
(This : in Glyph;
Add : in Outline);
function Get_Image
(This : in Glyph;
Staff_Height : in Real;
Aspect_Ratio : in Real;
Anti_Alias : in Positive)
return Glyph_Image;
procedure Set_Bounds
(This : in Glyph;
Left, Bottom : in Real;
Right, Top : in Real);
function Get_Width
(This : in Glyph)
return Real;
function Get_Height
(This : in Glyph)
return Real;
private
type Glyph_Record is record
Name : Unbounded_String;
Bounds : Box;
Outlines : Outline_List;
Image : Glyph_Image;
end record;
type Glyph is access Glyph_Record;
end Glyphs;
|