1. -- Some 2D GL utility functions based on GL, GLUT 
  2.  
  3. with GL; 
  4.  
  5. package GLUT_2D is 
  6.  
  7.   ---------- 
  8.   -- Text -- 
  9.   ---------- 
  10.  
  11.   type Font_type is ( 
  12.     Screen_9_by_15, 
  13.     Screen_8_by_13, 
  14.     Times_Roman_10, 
  15.     Times_Roman_24, 
  16.     Helvetica_10, 
  17.     Helvetica_12, 
  18.     Helvetica_18 
  19. ); 
  20.  
  21.   procedure Text_Output ( 
  22.     s     : String; 
  23.     font  : Font_type 
  24. ); 
  25.  
  26.   -- Text output from 2D, screen coordinates 
  27.   procedure Text_output ( 
  28.     x, y          : GL.Int; 
  29.     main_size_x, 
  30.     main_size_y  : GL.Sizei; 
  31.     s            : String; 
  32.     font         : Font_type 
  33. ); 
  34.  
  35.   -- Text output from 3D coordinates 
  36.   procedure Text_output ( 
  37.     p     : GL.Double_Vector_3D; 
  38.     s     : String; 
  39.     font  : Font_type 
  40. ); 
  41.  
  42.   ----------- 
  43.   -- Image -- 
  44.   ----------- 
  45.  
  46.   procedure Put_Image ( 
  47.     Image_ID     : Integer; 
  48.     x, y          : GL.Int; 
  49.     size_x, 
  50.     size_y       : GL.Int; 
  51.     main_size_x, 
  52.     main_size_y  : GL.Sizei 
  53. ); 
  54.  
  55. end GLUT_2D;