// File: nvGLX.pp
// modified: 29-07-2003
//
// FreePascal Bindings for libGLX
// Version 0.7.0
// supported NVIDIA Driver Version: 4494
// Author: Reimar Grabowski

{
 *****************************************************************************
 *                                                                           *
 *  See the file COPYING.modifiedLGPL, included in this distribution,        *
 *  for details about the copyright.                                         *
 *                                                                           *
 *  This program is distributed in the hope that it will be useful,          *
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     *
 *                                                                           *
 *****************************************************************************
}

{$mode objfpc}{$H+}
{$LinkLib GL}
{$PACKRECORDS C}

unit nvGLX;

interface

uses
  X, XLib, XUtil, nvGL;


  {$IFDEF VER1_0}
type
  PCardinal           = ^Cardinal;
  {$ENDIF}


const
  GLX_VERSION_1_1 = 1;
  GLX_VERSION_1_2 = 1;
  GLX_VERSION_1_3 = 1;
{ GLX Extensions  }
  GLX_EXT_import_context = 1;
  GLX_EXT_visual_info = 1;
  GLX_EXT_visual_rating = 1;
  GLX_SGIX_fbconfig = 1;
  GLX_SGIX_pbuffer = 1;
  GLX_NV_float_buffer = 1;
  GLX_ARB_get_proc_address = 1;
{ Names for attributes to glXGetConfig. }
{ support GLX rendering  }
  GLX_USE_GL = 1;
{ depth of the color buffer  }
  GLX_BUFFER_SIZE = 2;
{ level in plane stacking  }
  GLX_LEVEL = 3;
{ true if RGBA mode  }
  GLX_RGBA = 4;
{ double buffering supported  }
  GLX_DOUBLEBUFFER = 5;
{ stereo buffering supported  }
  GLX_STEREO = 6;
{ number of aux buffers  }
  GLX_AUX_BUFFERS = 7;
{ number of red component bits  }
  GLX_RED_SIZE = 8;
{ number of green component bits  }
  GLX_GREEN_SIZE = 9;
{ number of blue component bits  }
  GLX_BLUE_SIZE = 10;
{ number of alpha component bits  }
  GLX_ALPHA_SIZE = 11;
{ number of depth bits  }
  GLX_DEPTH_SIZE = 12;
{ number of stencil bits  }
  GLX_STENCIL_SIZE = 13;
{ number of red accum bits  }
  GLX_ACCUM_RED_SIZE = 14;
{ number of green accum bits  }
  GLX_ACCUM_GREEN_SIZE = 15;
{ number of blue accum bits  }
  GLX_ACCUM_BLUE_SIZE = 16;
{ number of alpha accum bits  }
  GLX_ACCUM_ALPHA_SIZE = 17;
{ number of multisample buffers  }
  GLX_SAMPLE_BUFFERS_ARB = 100000;
{ number of multisample samples  }
  GLX_SAMPLES_ARB = 100001;
{ FBConfig-specific attributes  }
  GLX_X_VISUAL_TYPE = $22;
{ Like visual_info VISUAL_CAVEAT  }
  GLX_CONFIG_CAVEAT = $20;
  GLX_TRANSPARENT_TYPE = $23;
  GLX_TRANSPARENT_INDEX_VALUE = $24;
  GLX_TRANSPARENT_RED_VALUE = $25;
  GLX_TRANSPARENT_GREEN_VALUE = $26;
  GLX_TRANSPARENT_BLUE_VALUE = $27;
  GLX_TRANSPARENT_ALPHA_VALUE = $28;
  GLX_DRAWABLE_TYPE = $8010;
  GLX_RENDER_TYPE = $8011;
  GLX_X_RENDERABLE = $8012;
  GLX_FBCONFIG_ID = $8013;
  GLX_MAX_PBUFFER_WIDTH = $8016;
  GLX_MAX_PBUFFER_HEIGHT = $8017;
  GLX_MAX_PBUFFER_PIXELS = $8018;
  GLX_VISUAL_ID = $800B;
  GLX_DRAWABLE_TYPE_SGIX = GLX_DRAWABLE_TYPE;
  GLX_RENDER_TYPE_SGIX = GLX_RENDER_TYPE;
  GLX_X_RENDERABLE_SGIX = GLX_X_RENDERABLE;
  GLX_FBCONFIG_ID_SGIX = GLX_FBCONFIG_ID;
  GLX_MAX_PBUFFER_WIDTH_SGIX = GLX_MAX_PBUFFER_WIDTH;
  GLX_MAX_PBUFFER_HEIGHT_SGIX = GLX_MAX_PBUFFER_HEIGHT;
  GLX_MAX_PBUFFER_PIXELS_SGIX = GLX_MAX_PBUFFER_PIXELS;
  GLX_OPTIMAL_PBUFFER_WIDTH_SGIX = $8019;
  GLX_OPTIMAL_PBUFFER_HEIGHT_SGIX = $801A;
{ Error return values from glXGetConfig.  Success is indicated by a value of 0. }
{ screen # is bad  }
  GLX_BAD_SCREEN = 1;
{ attribute to get is bad  }
  GLX_BAD_ATTRIBUTE = 2;
{ no glx extension on server  }
  GLX_NO_EXTENSION = 3;
{ visual # not known by GLX  }
  GLX_BAD_VISUAL = 4;
  GLX_BAD_CONTEXT = 5;
  GLX_BAD_VALUE = 6;
  GLX_BAD_ENUM = 7;
{ FBConfig attribute values  }
{ Generic "don't care" value for glX ChooseFBConfig attributes (except GLX_LEVEL). }
  GLX_DONT_CARE = $FFFFFFFF;
{ GLX_RENDER_TYPE bits  }
  GLX_RGBA_BIT = $00000001;
  GLX_COLOR_INDEX_BIT = $00000002;
  GLX_RGBA_BIT_SGIX = GLX_RGBA_BIT;
  GLX_COLOR_INDEX_BIT_SGIX = GLX_COLOR_INDEX_BIT;
{ GLX_DRAWABLE_TYPE bits  }
  GLX_WINDOW_BIT = $00000001;
  GLX_PIXMAP_BIT = $00000002;
  GLX_PBUFFER_BIT = $00000004;
  GLX_WINDOW_BIT_SGIX = GLX_WINDOW_BIT;
  GLX_PIXMAP_BIT_SGIX = GLX_PIXMAP_BIT;
  GLX_PBUFFER_BIT_SGIX = GLX_PBUFFER_BIT;
{ GLX_CONFIG_CAVEAT attribute values  }
  GLX_NONE = $8000;
  GLX_SLOW_CONFIG = $8001;
  GLX_NON_CONFORMANT_CONFIG = $800D;
{ GLX_X_VISUAL_TYPE attribute values  }
  GLX_TRUE_COLOR = $8002;
  GLX_DIRECT_COLOR = $8003;
  GLX_PSEUDO_COLOR = $8004;
  GLX_STATIC_COLOR = $8005;
  GLX_GRAY_SCALE = $8006;
  GLX_STATIC_GRAY = $8007;
{ GLX_TRANSPARENT_TYPE attribute values  }
{ #define GLX_NONE                        0x8000  }
  GLX_TRANSPARENT_RGB = $8008;
  GLX_TRANSPARENT_INDEX = $8009;
{ glXCreateGLXPbuffer attributes  }
  GLX_PRESERVED_CONTENTS = $801B;
  GLX_LARGEST_PBUFFER = $801C;
{ New for GLX 1.3  }
  GLX_PBUFFER_HEIGHT = $8040;
{ New for GLX 1.3  }
  GLX_PBUFFER_WIDTH = $8041;
  GLX_PRESERVED_CONTENTS_SGIX = GLX_PRESERVED_CONTENTS;
  GLX_LARGEST_PBUFFER_SGIX = GLX_LARGEST_PBUFFER;
{ glXQueryGLXPBuffer attributes  }
  GLX_WIDTH = $801D;
  GLX_HEIGHT = $801E;
  GLX_EVENT_MASK = $801F;
  GLX_WIDTH_SGIX = GLX_WIDTH;
  GLX_HEIGHT_SGIX = GLX_HEIGHT;
  GLX_EVENT_MASK_SGIX = GLX_EVENT_MASK;
{ glXCreateNewContext render_type attribute values  }
  GLX_RGBA_TYPE = $8014;
  GLX_COLOR_INDEX_TYPE = $8015;
  GLX_RGBA_TYPE_SGIX = GLX_RGBA_TYPE;
  GLX_COLOR_INDEX_TYPE_SGIX = GLX_COLOR_INDEX_TYPE;
{ glXQueryContext attributes  }
{ #define GLX_FBCONFIG_ID                0x8013  }
{ #define GLX_RENDER_TYPE                0x8011  }
  GLX_SCREEN = $800C;
{ glXSelectEvent event mask bits  }
  GLX_PBUFFER_CLOBBER_MASK = $08000000;
  GLX_PBUFFER_CLOBBER_MASK_SGIX = GLX_PBUFFER_CLOBBER_MASK;
{ GLXPbufferClobberEvent event_type values  }
  GLX_DAMAGED = $8020;
  GLX_SAVED = $8021;
  GLX_DAMAGED_SGIX = GLX_DAMAGED;
  GLX_SAVED_SGIX = GLX_SAVED;
{ GLXPbufferClobberEvent draw_type values  }
  GLX_WINDOW = $8022;
  GLX_PBUFFER = $8023;
  GLX_WINDOW_SGIX = GLX_WINDOW;
  GLX_PBUFFER_SGIX = GLX_PBUFFER;
{ GLXPbufferClobberEvent buffer_mask bits  }
  GLX_FRONT_LEFT_BUFFER_BIT = $00000001;
  GLX_FRONT_RIGHT_BUFFER_BIT = $00000002;
  GLX_BACK_LEFT_BUFFER_BIT = $00000004;
  GLX_BACK_RIGHT_BUFFER_BIT = $00000008;
  GLX_AUX_BUFFERS_BIT = $00000010;
  GLX_DEPTH_BUFFER_BIT = $00000020;
  GLX_STENCIL_BUFFER_BIT = $00000040;
  GLX_ACCUM_BUFFER_BIT = $00000080;
  GLX_FRONT_LEFT_BUFFER_BIT_SGIX = GLX_FRONT_LEFT_BUFFER_BIT;
  GLX_FRONT_RIGHT_BUFFER_BIT_SGIX = GLX_FRONT_RIGHT_BUFFER_BIT;
  GLX_BACK_LEFT_BUFFER_BIT_SGIX = GLX_BACK_LEFT_BUFFER_BIT;
  GLX_BACK_RIGHT_BUFFER_BIT_SGIX = GLX_BACK_RIGHT_BUFFER_BIT;
  GLX_AUX_BUFFERS_BIT_SGIX = GLX_AUX_BUFFERS_BIT;
  GLX_DEPTH_BUFFER_BIT_SGIX = GLX_DEPTH_BUFFER_BIT;
  GLX_STENCIL_BUFFER_BIT_SGIX = GLX_STENCIL_BUFFER_BIT;
  GLX_ACCUM_BUFFER_BIT_SGIX = GLX_ACCUM_BUFFER_BIT;
{ Extension return values from glXGetConfig.  These are also
  accepted as parameter values for glXChooseVisual. }
{ visual_info extension type  }
  GLX_X_VISUAL_TYPE_EXT = $22;
{ visual_info extension  }
  GLX_TRANSPARENT_TYPE_EXT = $23;
{ visual_info extension  }
  GLX_TRANSPARENT_INDEX_VALUE_EXT = $24;
{ visual_info extension  }
  GLX_TRANSPARENT_RED_VALUE_EXT = $25;
{ visual_info extension  }
  GLX_TRANSPARENT_GREEN_VALUE_EXT = $26;
{ visual_info extension  }
  GLX_TRANSPARENT_BLUE_VALUE_EXT = $27;
{ visual_info extension  }
  GLX_TRANSPARENT_ALPHA_VALUE_EXT = $28;
{ Property values for visual_type  }
  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;
{ Property values for transparent pixel  }
  GLX_NONE_EXT = $8000;
  GLX_TRANSPARENT_RGB_EXT = $8008;
  GLX_TRANSPARENT_INDEX_EXT = $8009;
{ Property values for visual_rating  }
{ visual_rating extension type  }
  GLX_VISUAL_CAVEAT_EXT = $20;
  GLX_SLOW_VISUAL_EXT = $8001;
  GLX_NON_CONFORMANT_VISUAL_EXT = $800D;
{ Names for attributes to glXGetClientString. }
  GLX_VENDOR = $1;
  GLX_VERSION = $2;
  GLX_EXTENSIONS = $3;
{ Names for attributes to glXQueryContextInfoEXT. }
{ id of share context  }
  GLX_SHARE_CONTEXT_EXT = $800A;
{ id of context's visual  }
  GLX_VISUAL_ID_EXT = $800B;
{ screen number  }
  GLX_SCREEN_EXT = $800C;
{ NV_float_buffer  }
  GLX_FLOAT_COMPONENTS_NV = $20B0;

{ GLX resources. }

type
  PGLXContextID = ^GLXContextID;
  GLXContextID = TXID;

  PGLXPixmap = ^GLXPixmap;
  GLXPixmap = TXID;

  PGLXDrawable = ^GLXDrawable;
  GLXDrawable = TXID;

  PGLXPbuffer = ^GLXPbuffer;
  GLXPbuffer = TXID;

  PGLXWindow = ^GLXWindow;
  GLXWindow = TXID;

  PGLXFBConfigID = ^GLXFBConfigID;
  GLXFBConfigID = TXID;
{ GLXContext is a pointer to opaque data. }

  //GLXContext = __GLXcontextRec;
  PGLXContext = ^TGLXContext;
  TGLXContext = pointer;

{ GLXFBConfig is a pointer to opaque data. }

  PGLXFBConfig = ^TGLXFBConfig;
  TGLXFBConfig = pointer;

  PGLXFBConfigSGIX = ^TGLXFBConfigSGIX;
  TGLXFBConfigSGIX = pointer;

{ GLX 1.0 functions. }

function glXChooseVisual(dpy:PDisplay; screen:longint; attrib_list:Plongint):PXVisualInfo;cdecl;external;
procedure glXCopyContext(dpy:PDisplay; src:TGLXContext; dst:TGLXContext; mask: cardinal);cdecl;external;
function glXCreateContext(dpy:PDisplay; vis:PXVisualInfo; share_list:TGLXContext; direct:TBool):TGLXContext;cdecl;external;
function glXCreateGLXPixmap(dpy:PDisplay; vis:PXVisualInfo; pixmap:TPixmap):GLXPixmap;cdecl;external;
procedure glXDestroyContext(dpy:PDisplay; ctx:TGLXContext);cdecl;external;
procedure glXDestroyGLXPixmap(dpy:PDisplay; pix:GLXPixmap);cdecl;external;
function glXGetConfig(dpy:PDisplay; vis:PXVisualInfo; attrib:longint; value:Plongint):longint;cdecl;external;
function glXGetCurrentContext:TGLXContext;cdecl;external;
function glXGetCurrentDrawable:GLXDrawable;cdecl;external;
function glXIsDirect(dpy:PDisplay; ctx:TGLXContext):TBool;cdecl;external;
function glXMakeCurrent(dpy:PDisplay; drawable:GLXDrawable; ctx:TGLXContext):TBool;cdecl;external;
function glXQueryExtension(dpy:PDisplay; error_base:Plongint; event_base:Plongint):TBool;cdecl;external;
function glXQueryVersion(dpy:PDisplay; major:Plongint; minor:Plongint):TBool;cdecl;external;
procedure glXSwapBuffers(dpy:PDisplay; drawable:GLXDrawable);cdecl;external;
procedure glXUseXFont(font:TFont; first:longint; count:longint; list_base:longint);cdecl;external;
procedure glXWaitGL;cdecl;external;
procedure glXWaitX;cdecl;external;

{ GLX 1.1 functions. }

function glXGetClientString(dpy:PDisplay; name:longint):Pchar;cdecl;external;
function glXQueryServerString(dpy:PDisplay; screen:longint; name:longint):Pchar;cdecl;external;
function glXQueryExtensionsString(dpy:PDisplay; screen:longint):Pchar;cdecl;external;

{ GLX 1.2 functions. }

function glXGetCurrentDisplay:PDisplay;cdecl;external;

{ GLX 1.3 functions. }

function glXChooseFBConfig(dpy:PDisplay; screen:longint; attrib_list:Plongint; nelements:Plongint):PGLXFBConfig;cdecl;external;
function glXCreateNewContext(dpy:PDisplay; config:TGLXFBConfig; render_type:longint; share_list:TGLXContext; direct:TBool):TGLXContext;cdecl;external;
function glXCreatePbuffer(dpy:PDisplay; config:TGLXFBConfig; attrib_list:Plongint):GLXPbuffer;cdecl;external;
function glXCreatePixmap(dpy:PDisplay; config:TGLXFBConfig; pixmap:TPixmap; attrib_list:Plongint):GLXPixmap;cdecl;external;
function glXCreateWindow(dpy:PDisplay; config:TGLXFBConfig; win:TWindow; attrib_list:Plongint):GLXWindow;cdecl;external;
procedure glXDestroyPbuffer(dpy:PDisplay; pbuf:GLXPbuffer);cdecl;external;
procedure glXDestroyPixmap(dpy:PDisplay; pixmap:GLXPixmap);cdecl;external;
procedure glXDestroyWindow(dpy:PDisplay; win:GLXWindow);cdecl;external;
function glXGetCurrentReadDrawable:GLXDrawable;cdecl;external;
function glXGetFBConfigAttrib(dpy:PDisplay; config:TGLXFBConfig; attribute:longint; value:Plongint):longint;cdecl;external;
function glXGetFBConfigs(dpy:PDisplay; screen:longint; nelements:Plongint):PGLXFBConfig;cdecl;external;
procedure glXGetSelectedEvent(dpy:PDisplay; draw:GLXDrawable; event_mask:Pcardinal);cdecl;external;
function glXGetVisualFromFBConfig(dpy:PDisplay; config:TGLXFBConfig):PXVisualInfo;cdecl;external;
function glXMakeContextCurrent(display:PDisplay; draw:GLXDrawable; read:GLXDrawable; ctx:TGLXContext):TBool;cdecl;external;
function glXQueryContext(dpy:PDisplay; ctx:TGLXContext; attribute:longint; value:Plongint):longint;cdecl;external;
procedure glXQueryDrawable(dpy:PDisplay; draw:GLXDrawable; attribute:longint; value:Pcardinal);cdecl;external;
procedure glXSelectEvent(dpy:PDisplay; draw:GLXDrawable; event_mask:cardinal);cdecl;external;

{ ARB_get_proc_address }

function glXGetProcAddressARB(procName:PGLubyte):Tprocedure ;cdecl;external;

{ EXT_import_context }

procedure glXFreeContextEXT(dpy:PDisplay; ctx:TGLXContext);cdecl;external;
function glXGetContextIDEXT(ctx:TGLXContext):GLXContextID;cdecl;external;
function glXGetCurrentDrawableEXT:GLXDrawable;cdecl;external;
function glXImportContextEXT(dpy:PDisplay; contextID:GLXContextID):TGLXContext;cdecl;external;
function glXQueryContextInfoEXT(dpy:PDisplay; ctx:TGLXContext; attribute:longint; value:Plongint):longint;cdecl;external;

{ NV_vertex_array_range }

function glXAllocateMemoryNV(size:GLsizei; readfreq:GLfloat; writefreq:GLfloat; priority:GLfloat):pointer;cdecl;external;
procedure glXFreeMemoryNV(pointer:GLvoid);cdecl;external;

{ SGI_video_sync }

function glXGetVideoSyncSGI(count:Pcardinal):longint;cdecl;external;
function glXWaitVideoSyncSGI(divisor:longint; remainder:longint; count:Pcardinal):longint;cdecl;external;
function glXGetRefreshRateSGI(rate:Pcardinal):longint;cdecl;external;

{ SGIX_swap_group }

procedure glXJoinSwapGroupSGIX(dpy:PDisplay; drawable:GLXDrawable; member:GLXDrawable);cdecl;external;

{ SGIX_swap_barrier }

procedure glXBindSwapBarrierSGIX(dpy:PDisplay; drawable:GLXDrawable; barrier:longint);cdecl;external;
function glXQueryMaxSwapBarriersSGIX(dpy:PDisplay; screen:longint; max:Plongint):TBool;cdecl;external;

{ SGIX_fbconfig }

function glXGetFBConfigAttribSGIX(dpy:PDisplay; config:TGLXFBConfigSGIX; attribute:longint; value_return:Plongint):longint;cdecl;external;
function glXChooseFBConfigSGIX(dpy:PDisplay; screen:longint; attrib_list:Plongint; nelements:Plongint):PGLXFBConfigSGIX;cdecl;external;
function glXCreateGLXPixmapWithConfigSGIX(dpy:PDisplay; config:TGLXFBConfigSGIX; pixmap:TPixmap):GLXPixmap;cdecl;external;
function glXCreateContextWithConfigSGIX(dpy:PDisplay; config:TGLXFBConfigSGIX; render_type:longint; share_list:TGLXContext; direct:TBool):TGLXContext;cdecl;external;
function glXGetVisualFromFBConfigSGIX(dpy:PDisplay; config:TGLXFBConfigSGIX):PXVisualInfo;cdecl;external;
function glXGetFBConfigFromVisualSGIX(dpy:PDisplay; vis:PXVisualInfo):TGLXFBConfigSGIX;cdecl;external;

{ SGIX_pbuffer }

function glXCreateGLXPbufferSGIX(dpy:PDisplay; config:TGLXFBConfig; width:cardinal; height:cardinal; attrib_list:Plongint):GLXPbuffer;cdecl;external;
procedure glXDestroyGLXPbufferSGIX(dpy:PDisplay; pbuf:GLXPbuffer);cdecl;external;
procedure glXQueryGLXPbufferSGIX(dpy:PDisplay; pbuf:GLXPbuffer; attribute:longint; value:Pcardinal);cdecl;external;
procedure glXSelectEventSGIX(dpy:PDisplay; drawable:GLXDrawable; mask:cardinal);cdecl;external;
procedure glXGetSelectedEventSGIX(dpy:PDisplay; drawable:GLXDrawable; mask:Pcardinal);cdecl;external;

{ Should these go here, or in another header? }
{ GLX Events }

type
  PGLXPbufferClobberEvent = ^GLXPbufferClobberEvent;
  GLXPbufferClobberEvent = record
    event_type : longint;   { GLX_DAMAGED or GLX_SAVED  }
    draw_type : longint;    { GLX_WINDOW or GLX_PBUFFER  }
    serial : cardinal;         { # of last request processed by server  }
    send_event : TBool;      { true if this came for SendEvent request  }
    display : PDisplay;     { display the event was read from  }
    drawable : GLXDrawable; { XID of Drawable  }
    buffer_mask : cardinal;    { mask indicating which buffers are affected  }
    aux_buffer : cardinal;     { which aux buffer was affected  }
    x : longint;
    y : longint;
    width : longint;
    height : longint;
    count : longint;        { if nonzero, at least this many more  }
  end;

  P__GLXEvent = ^T__GLXEvent;
  T__GLXEvent = record
    case longint of
      0 : ( glxpbufferclobber : GLXPbufferClobberEvent );
      1 : ( pad : array[0..23] of longint );
    end;

  TGLXEvent = T__GLXEvent;
  PGLXEvent = ^TGLXEvent;
  
implementation

end.