1. with Allegro.Bitmaps;                   use Allegro.Bitmaps; 
  2. with Allegro.Fonts;                     use Allegro.Fonts; 
  3. with Allegro.Truecolor;                 use Allegro.Truecolor; 
  4.  
  5. package Allegro.Text_IO is 
  6.  
  7.     -- Allegro 4.2.2 - Text output 
  8.     -- This package is missing: 
  9.     -- textprintf_ex 
  10.     -- textprintf_centre_ex 
  11.     -- textprintf_right_ex 
  12.     -- textprintf_justify_ex 
  13.  
  14.     ---------------------------------------------------------------------------- 
  15.  
  16.     function Get_Allegro_404_Char return Integer; 
  17.  
  18.     function Get_Font return A_Font; 
  19.  
  20.     procedure Set_Allegro_404_Char( c : Integer ); 
  21.  
  22.     procedure Set_Font( f : A_Font ); 
  23.  
  24.     function Text_Height( f : not null A_Font ) return Natural; 
  25.  
  26.     function Text_Length( f : not null A_Font; str : String ) return Natural; 
  27.  
  28.     procedure Textout_Ex( bmp   : not null A_Bitmap; 
  29.                           f     : not null A_Font; 
  30.                           s     : String; 
  31.                           x, y  : Integer; 
  32.                           color : Color_Type; 
  33.                           bg    : Integer ); 
  34.  
  35.     procedure Textout_Centre_Ex( bmp   : not null A_Bitmap; 
  36.                                  f     : not null A_Font; 
  37.                                  s     : String; 
  38.                                  x, y  : Integer; 
  39.                                  color : Color_Type; 
  40.                                  bg    : Integer ); 
  41.  
  42.     procedure Textout_Justify_Ex( bmp    : not null A_Bitmap; 
  43.                                   f      : not null A_Font; 
  44.                                   s      : String; 
  45.                                   x1, x2 : Integer; 
  46.                                   y      : Integer; 
  47.                                   diff   : Integer; 
  48.                                   color  : Color_Type; 
  49.                                   bg     : Integer ); 
  50.  
  51.     procedure Textout_Right_Ex( bmp   : not null A_Bitmap; 
  52.                                 f     : not null A_Font; 
  53.                                 s     : String; 
  54.                                 x, y  : Integer; 
  55.                                 color : Color_Type; 
  56.                                 bg    : Integer ); 
  57.  
  58. private 
  59.  
  60.     pragma Import( C, Get_Allegro_404_Char, "get_allegro_404_char" ); 
  61.     pragma Import( C, Get_Font, "get_font" ); 
  62.     pragma Import( C, Set_Allegro_404_Char, "set_allegro_404_char" ); 
  63.     pragma Import( C, Set_Font, "set_font" ); 
  64.     pragma Import( C, Text_Height, "text_height" ); 
  65.  
  66. end Allegro.Text_IO;