paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ EXT_packed_depth_stencil support (patch by Michalis Kamburelis, mantis

Browse Source 
#18054)

git-svn-id: trunk@16442 -
This commit is contained in:
Jonas Maebe 2010-11-26 10:57:48 +00:00
parent 8f22a5d224
commit 3650944d9e
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
packages/opengl/src/glext.pp
View File

@ -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;