paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 07:09:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ added support for the GLX_EXT_swap_control GLX extension

Browse Source 
git-svn-id: trunk@20528 -
This commit is contained in:
nickysn 2012-03-16 21:29:50 +00:00
parent a325c1254e
commit 609023d656
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/opengl/src/glx.pp
View File

@ -293,6 +293,9 @@ var
// GLX_ARB_create_context
//glXCreateContextAttribsARB -> internal_glXCreateContextAttribsARB in implementation
// GLX_EXT_swap_control
glXSwapIntervalEXT: function(dpy: PDisplay; drawable: TGLXDrawable; interval: cint): cint; cdecl;
// GLX_MESA_pixmap_colormap
glXCreateGLXPixmapMESA: function(dpy: PDisplay; visual: PXVisualInfo; pixmap: XPixmap; cmap: XColormap): GLXPixmap; cdecl;
@ -356,6 +359,7 @@ function GLX_ARB_create_context(Display: PDisplay; Screen: Integer): boolean;
function GLX_ARB_create_context_profile(Display: PDisplay; Screen: Integer): boolean;
function GLX_ARB_create_context_robustness(Display: PDisplay; Screen: Integer): boolean;
function GLX_ARB_multisample(Display: PDisplay; Screen: Integer): boolean;
function GLX_EXT_swap_control(Display: PDisplay; Screen: Integer): boolean;
function GLX_EXT_visual_info(Display: PDisplay; Screen: Integer): boolean;
function GLX_MESA_pixmap_colormap(Display: PDisplay; Screen: Integer): boolean;
function GLX_MESA_swap_control(Display: PDisplay; Screen: Integer): boolean;
@ -557,6 +561,19 @@ begin
end;
end;
function GLX_EXT_swap_control(Display: PDisplay; Screen: Integer): boolean;
var
GlxExtensions: PChar;
begin
Result := GLX_version_1_1(Display);
if Result then
begin
GlxExtensions := glXQueryExtensionsString(Display, Screen);
Result := glext_ExtensionSupported('GLX_EXT_swap_control', GlxExtensions) and
Assigned(glXSwapIntervalEXT);
end;
end;
function GLX_EXT_visual_info(Display: PDisplay; Screen: Integer): boolean;
var
GlxExtensions: PChar;
@ -717,6 +734,8 @@ begin
// Extensions
// GLX_ARB_create_context
internal_glXCreateContextAttribsARB := GetProc(OurLibGL, 'glXCreateContextAttribsARB');
// GLX_EXT_swap_control
glXSwapIntervalEXT := GetProc(OurLibGL, 'glXSwapIntervalEXT');
// GLX_MESA_pixmap_colormap
glXCreateGLXPixmapMESA := GetProc(OurLibGL, 'glXCreateGLXPixmapMESA');
// GLX_MESA_swap_control