Back to... GLOBE_3D

Source file : glut_2d.ads


-- Some 2D GL utility functions based on GL, GLUT

with GL;

package GLUT_2D is

  ----------
  -- Text --
  ----------

  type Font_type is(
    Screen_9_by_15,
    Screen_8_by_13,
    Times_Roman_10,
    Times_Roman_24,
    Helvetica_10,
    Helvetica_12,
    Helvetica_18
  );

  -- Text output from last GL.RasterPos position
  procedure Text_output(
    s    : String;
    font : Font_type
  );

  -- Text output from 2D, screen coordinates
  procedure Text_output(
    x,y         : GL.Int;
    main_size_x,
    main_size_y : GL.Sizei;
    s           : String;
    font        : Font_type
  );

  -- Text output from 3D coordinates
  procedure Text_output(
    p    : GL.Double_Vector_3D;
    s    : String;
    font : Font_type
  );

  -----------
  -- Image --
  -----------

  procedure Put_Image(
    Image_ID    : Integer;
    x,y         : GL.Int;
    size_x,
    size_y      : GL.Int;
    main_size_x,
    main_size_y : GL.Sizei
  );

end GLUT_2D;

GLOBE_3D: Ada library for real-time 3D rendering. Ada programming.