Hosted by
 |
with Straight;
package body Fonts is
function Load_Glyph
(Family : in String;
Font_Name : in String;
Glyph_Name : in String)
return Glyph
is
begin
if Family = "music" then
if Font_Name = "straight" then return Straight.Load_Glyph(Glyph_Name);
else raise Font_Not_Found;
end if;
else raise Family_Not_Found;
end if;
end Load_Glyph;
end Fonts;
|