mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 01:39:35 +01:00
113 lines
4.8 KiB
Modula-2
113 lines
4.8 KiB
Modula-2
# This is the definition file for all GLX stuff
|
|
|
|
%COPY_INTERFACE
|
|
// ===================================================================
|
|
// GLX consts, types and functions
|
|
// ===================================================================
|
|
|
|
// Tokens for glXChooseVisual and glXGetConfig:
|
|
const
|
|
GLX_USE_GL = 1;
|
|
GLX_BUFFER_SIZE = 2;
|
|
GLX_LEVEL = 3;
|
|
GLX_RGBA = 4;
|
|
GLX_DOUBLEBUFFER = 5;
|
|
GLX_STEREO = 6;
|
|
GLX_AUX_BUFFERS = 7;
|
|
GLX_RED_SIZE = 8;
|
|
GLX_GREEN_SIZE = 9;
|
|
GLX_BLUE_SIZE = 10;
|
|
GLX_ALPHA_SIZE = 11;
|
|
GLX_DEPTH_SIZE = 12;
|
|
GLX_STENCIL_SIZE = 13;
|
|
GLX_ACCUM_RED_SIZE = 14;
|
|
GLX_ACCUM_GREEN_SIZE = 15;
|
|
GLX_ACCUM_BLUE_SIZE = 16;
|
|
GLX_ACCUM_ALPHA_SIZE = 17;
|
|
|
|
// GLX_EXT_visual_info extension
|
|
GLX_X_VISUAL_TYPE_EXT = $22;
|
|
GLX_TRANSPARENT_TYPE_EXT = $23;
|
|
GLX_TRANSPARENT_INDEX_VALUE_EXT = $24;
|
|
GLX_TRANSPARENT_RED_VALUE_EXT = $25;
|
|
GLX_TRANSPARENT_GREEN_VALUE_EXT = $26;
|
|
GLX_TRANSPARENT_BLUE_VALUE_EXT = $27;
|
|
GLX_TRANSPARENT_ALPHA_VALUE_EXT = $28;
|
|
|
|
|
|
// Error codes returned by glXGetConfig:
|
|
GLX_BAD_SCREEN = 1;
|
|
GLX_BAD_ATTRIBUTE = 2;
|
|
GLX_NO_EXTENSION = 3;
|
|
GLX_BAD_VISUAL = 4;
|
|
GLX_BAD_CONTEXT = 5;
|
|
GLX_BAD_VALUE = 6;
|
|
GLX_BAD_ENUM = 7;
|
|
|
|
// GLX 1.1 and later:
|
|
GLX_VENDOR = 1;
|
|
GLX_VERSION = 2;
|
|
GLX_EXTENSIONS = 3;
|
|
|
|
// GLX_visual_info extension
|
|
GLX_TRUE_COLOR_EXT = $8002;
|
|
GLX_DIRECT_COLOR_EXT = $8003;
|
|
GLX_PSEUDO_COLOR_EXT = $8004;
|
|
GLX_STATIC_COLOR_EXT = $8005;
|
|
GLX_GRAY_SCALE_EXT = $8006;
|
|
GLX_STATIC_GRAY_EXT = $8007;
|
|
GLX_NONE_EXT = $8000;
|
|
GLX_TRANSPARENT_RGB_EXT = $8008;
|
|
GLX_TRANSPARENT_INDEX_EXT = $8009;
|
|
|
|
type
|
|
// From XLib:
|
|
XPixmap = TXID;
|
|
XFont = TXID;
|
|
XColormap = TXID;
|
|
|
|
GLXContext = Pointer;
|
|
GLXPixmap = TXID;
|
|
GLXDrawable = TXID;
|
|
GLXContextID = TXID;
|
|
|
|
var
|
|
%END
|
|
|
|
|
|
#=====================================================================
|
|
# Procedures and functions
|
|
#=====================================================================
|
|
|
|
%PROCS
|
|
glXChooseVisual: function(dpy: PDisplay; screen: Integer; var attribList: Integer): PXVisualInfo; cdecl;
|
|
glXCreateContext: function(dpy: PDisplay; vis: PXVisualInfo; shareList: GLXContext; direct: Boolean): GLXContext; cdecl;
|
|
glXDestroyContext: procedure(dpy: PDisplay; ctx: GLXContext); cdecl;
|
|
glXMakeCurrent: function(dpy: PDisplay; drawable: GLXDrawable; ctx: GLXContext): Boolean; cdecl;
|
|
glXCopyContext: procedure(dpy: PDisplay; src, dst: GLXContext; mask: LongWord); cdecl;
|
|
glXSwapBuffers: procedure(dpy: PDisplay; drawable: GLXDrawable); cdecl;
|
|
glXCreateGLXPixmap: function(dpy: PDisplay; visual: PXVisualInfo; pixmap: XPixmap): GLXPixmap; cdecl;
|
|
glXDestroyGLXPixmap: procedure(dpy: PDisplay; pixmap: GLXPixmap); cdecl;
|
|
glXQueryExtension: function(dpy: PDisplay; var errorb, event: Integer): Boolean; cdecl;
|
|
glXQueryVersion: function(dpy: PDisplay; var maj, min: Integer): Boolean; cdecl;
|
|
glXIsDirect: function(dpy: PDisplay; ctx: GLXContext): Boolean; cdecl;
|
|
glXGetConfig: function(dpy: PDisplay; visual: PXVisualInfo; attrib: Integer; var value: Integer): Integer; cdecl;
|
|
glXGetCurrentContext: function: GLXContext; cdecl;
|
|
glXGetCurrentDrawable: function: GLXDrawable; cdecl;
|
|
glXWaitGL: procedure; cdecl;
|
|
glXWaitX: procedure; cdecl;
|
|
glXUseXFont: procedure(font: XFont; first, count, list: Integer); cdecl;
|
|
|
|
// GLX 1.1 and later
|
|
glXQueryExtensionsString: function(dpy: PDisplay; screen: Integer): PChar; cdecl;
|
|
glXQueryServerString: function(dpy: PDisplay; screen, name: Integer): PChar; cdecl;
|
|
glXGetClientString: function(dpy: PDisplay; name: Integer): PChar; cdecl;
|
|
|
|
// Mesa GLX Extensions
|
|
glXCreateGLXPixmapMESA: function(dpy: PDisplay; visual: PXVisualInfo; pixmap: XPixmap; cmap: XColormap): GLXPixmap; cdecl;
|
|
glXReleaseBufferMESA: function(dpy: PDisplay; d: GLXDrawable): Boolean; cdecl;
|
|
glXCopySubBufferMESA: procedure(dpy: PDisplay; drawbale: GLXDrawable; x, y, width, height: Integer); cdecl;
|
|
glXGetVideoSyncSGI: function(var counter: LongWord): Integer; cdecl;
|
|
glXWaitVideoSyncSGI: function(divisor, remainder: Integer; var count: LongWord): Integer; cdecl;
|
|
%END
|