type Abstract_Font is abstract new Limited_Object with private;
type Font_Type is access all Abstract_Font'Class;
FONT_EXCEPTION : exception;
procedure Initialize;
procedure Finalize;
function Load_Font
( | filename | : String; |
size | : Positive ) return Font_Type; |
function Text_Height
( | this | : access Abstract_Font ) return Positive is abstract; |
function Text_Length
( | this | : access Abstract_Font; |
str | : String ) return Natural is abstract; |
procedure Textout
( | this | : access Abstract_Font; |
bmp | : A_Bitmap; | |
str | : String; | |
x, y | : Integer; | |
color | : Color_Type; | |
smooth | : Boolean ) is abstract; |