+ EXT_packed_depth_stencil support (patch by Michalis Kamburelis, mantis

    #18054)


git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16442 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 24 insertions, 0 deletions

diff --git a/packages/opengl/src/glext.pp b/packages/opengl/src/glext.pp
index 27a15ae78f..75c2ed521d 100644
--- a/packages/opengl/src/glext.pp
+++ b/packages/opengl/src/glext.pp
@@ -1065,6 +1065,15 @@ var
 
 function Load_GL_EXT_multi_draw_arrays: Boolean;
 
+//***** GL_EXT_packed_depth_stencil *****//
+const
+  GL_DEPTH_STENCIL_EXT = $84F9;
+  GL_UNSIGNED_INT_24_8_EXT = $84FA;
+  a = $88F0;
+  GL_TEXTURE_STENCIL_SIZE_EXT = $88F1;
+
+function Load_GL_EXT_packed_depth_stencil: Boolean;
+
 //***** GL_EXT_packed_pixels *****//
 const
   GL_UNSIGNED_BYTE_3_3_2_EXT = $8032;
@@ -6202,6 +6211,21 @@ begin
 
 end;
 
+function Load_GL_EXT_packed_depth_stencil: Boolean;
+var
+  extstring: String;
+begin
+
+  Result := FALSE;
+  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
+
+  if glext_ExtensionSupported('GL_EXT_packed_depth_stencil', extstring) then
+  begin
+    Result := TRUE;
+  end;
+
+end;
+
 function Load_GL_EXT_packed_pixels: Boolean;
 var
   extstring: String;