m2-GTK4/src/GL.def

DEFINITION MODULE FOR "C" GL ;

(*
   m2-GTK4 - a tiny OpenGL subset for use inside a GtkGLArea render
   callback.  Mapped onto <GL/gl.h>.

   Enough for a clear-and-draw demo; link with -lGL (added automatically
   by the build when pkg-config knows "gl").
*)

EXPORT UNQUALIFIED
   GLColorBufferBit, GLDepthBufferBit, GLStencilBufferBit,
   GLDepthTest, GLBlend,
   GLSrcAlpha, GLOneMinusSrcAlpha, GLTriangles,
   glClear, glClearColor, glViewport,
   glEnable, glDisable, glBlendFunc, glGetError;


CONST
   GLColorBufferBit   = 000004000H;
   GLDepthBufferBit   = 000000100H;
   GLStencilBufferBit = 000000400H;
   GLDepthTest        = 000000B71H;
   GLBlend            = 000000BE2H;
   GLSrcAlpha         = 000000302H;
   GLOneMinusSrcAlpha = 000000303H;
   GLTriangles        = 000000004H;

(* void glClear(GLbitfield mask) *)
PROCEDURE glClear (mask: CARDINAL);

(* void glClearColor(GLfloat red, green, blue, alpha) *)
PROCEDURE glClearColor (red, green, blue, alpha: SHORTREAL);

(* void glViewport(GLint x, GLint y, GLsizei width, GLsizei height) *)
PROCEDURE glViewport (x, y, width, height: INTEGER);

(* void glEnable(GLenum cap) *)
PROCEDURE glEnable (cap: CARDINAL);

(* void glDisable(GLenum cap) *)
PROCEDURE glDisable (cap: CARDINAL);

(* void glBlendFunc(GLenum sfactor, GLenum dfactor) *)
PROCEDURE glBlendFunc (sfactor, dfactor: CARDINAL);

(* GLenum glGetError(void) *)
PROCEDURE glGetError () : CARDINAL;

END GL.