package Fonts is
type Font is abstract new Limited_Object with private;
type A_Font is access all Font'Class;
function Load_Font
( | filename | : String; |
size | : Positive ) return A_Font; |
procedure Draw_String
( | this | : not null access Font'Class; |
str | : String; | |
x, y | : Float; | |
color | : Allegro_Color ); |
function Text_Height
( | this | : not null access Font'Class ) return Positive; |
function Text_Length
( | this | : not null access Font'Class; |
str | : String ) return Natural; |