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;