opengl
/
OpenGLCore
1
0
Fork 0
Código Incidencias 0 Pull Requests 0 Lanzamientos 0 Wiki Actividad
Explorar el Código

* added compiler defines to set used core version

master
Bergmann89 hace 11 años
padre
58b0d416fa
commit
e81fbaed48
Se han modificado 1 ficheros con 83 adiciones y 7 borrados
Dividir vista
Opciones de diferencias
Mostrar estadísticas Descargar archivo de parche Descargar archivo de diferencias
  1. +83
    -7
      dglOpenGLES.pas

+ 83
- 7
dglOpenGLES.pas Ver fichero

@@ -35,6 +35,21 @@

============================================================================== }

{ enable OpenGL ES 1.1 Core functions }
{$DEFINE OPENGLES_CORE_1_1}

{ enable OpenGL ES 2.0 Core functions }
{$DEFINE OPENGLES_CORE_2_0}

{ enable OpenGL ES 3.0 Core functions }
{$DEFINE OPENGLES_CORE_3_0}

{ enable OpenGL ES 3.1 Core functions }
{$DEFINE OPENGLES_CORE_3_1}

{ enable all OpenGL ES extensions }
{$DEFINE OPENGLES_EXTENSIONS}

unit dglOpenGLES;

interface
@@ -141,8 +156,9 @@ type
TGLvectorp3 = array[0..2] of PGLvoid;
TGLvectorp4 = array[0..3] of PGLvoid;

{$IFDEF OPENGLES_CORE_1_1}
const
{ ============================================== OpenGL ES 1.0 ======================================================= }
{ ============================================== OpenGL ES 1.1 ======================================================= }
{ ClearBufferMask }
GL_DEPTH_BUFFER_BIT = $00000100;
GL_STENCIL_BUFFER_BIT = $00000400;
@@ -641,7 +657,10 @@ const

GL_DOT3_RGB = $86AE;
GL_DOT3_RGBA = $86AF;
{$ENDIF}

{$IFDEF OPENGLES_CORE_2_0}
const
{ ============================================== OpenGL ES 2.0 ======================================================= }
{ BlendEquationSeparate }
GL_FUNC_ADD = $8006;
@@ -815,7 +834,10 @@ const
GL_MAX_RENDERBUFFER_SIZE = $84E8;

GL_INVALID_FRAMEBUFFER_OPERATION = $0506;
{$ENDIF}

{$IFDEF OPENGLES_CORE_3_0}
const
{ ============================================== OpenGL ES 3.0 ======================================================= }
GL_READ_BUFFER = $0C02;
GL_UNPACK_ROW_LENGTH = $0CF2;
@@ -1122,7 +1144,10 @@ const
GL_MAX_ELEMENT_INDEX = $8D6B;
GL_NUM_SAMPLE_COUNTS = $9380;
GL_TEXTURE_IMMUTABLE_LEVELS = $82DF;
{$ENDIF}

{$IFDEF OPENGLES_CORE_3_1}
const
{ ============================================== OpenGL ES 3.1 ======================================================= }
GL_COMPUTE_SHADER = $91B9;
GL_MAX_COMPUTE_UNIFORM_BLOCKS = $91BB;
@@ -1296,9 +1321,11 @@ const
GL_MAX_VERTEX_ATTRIB_RELATIVE_OFFSET = $82D9;
GL_MAX_VERTEX_ATTRIB_BINDINGS = $82DA;
GL_MAX_VERTEX_ATTRIB_STRIDE = $82E5;
{$ENDIF}

{$IFDEF OPENGLES_CORE_1_1}
type
{ ============================================== OpenGL ES 1.0 ======================================================= }
{ ============================================== OpenGL ES 1.1 ======================================================= }
{ Available only in Common profile }
TglAlphaFunc = procedure(aFunc: GLenum; aRef: GLclampf); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
TglClearColor = procedure(aRed: GLclampf; aGreen: GLclampf; aBlue: GLclampf; aAlpha: GLclampf); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
@@ -1446,7 +1473,10 @@ type
TglTranslatex = procedure(x: GLfixed; y: GLfixed; z: GLfixed); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
TglVertexPointer = procedure(aSize: GLint; aType: GLenum; aStride: GLsizei; const aPointer: PGLvoid); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
TglViewport = procedure(x: GLint; y: GLint; aWidth: GLsizei; aHeight: GLsizei); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
{$ENDIF}

{$IFDEF OPENGLES_CORE_2_0}
type
{ ============================================== OpenGL ES 2.0 ======================================================= }
TglAttachShader = procedure(aProgram: GLuint; aShader: GLuint); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
TglBindAttribLocation = procedure(aProgram: GLuint; aIndex: GLuint; const aName: PGLchar); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
@@ -1532,7 +1562,10 @@ type
TglVertexAttrib4f = procedure(aIndex: GLuint; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
TglVertexAttrib4fv = procedure(aIndex: GLuint; const aValues: PGLfloat); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
TglVertexAttribPointer = procedure(aIndex: GLuint; aSize: GLint; aType: GLenum; aNormalized: GLboolean; aStride: GLsizei; const aPtr: PGLvoid); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
{$ENDIF}

{$IFDEF OPENGLES_CORE_3_0}
type
{ ============================================== OpenGL ES 3.0 ======================================================= }
TglReadBuffer = procedure(aSrc: GLenum); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
TglDrawRangeElements = procedure(aMode: GLenum; aStart: GLuint; aEnd: GLuint; aCount: GLsizei; aType: GLenum; const aIndices: PGLvoid); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
@@ -1638,7 +1671,10 @@ type
TglTexStorage2D = procedure(aTarget: GLenum; aLevels: GLsizei; aInternalformat: GLenum; aWidth: GLsizei; aHeight: GLsizei); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
TglTexStorage3D = procedure(aTarget: GLenum; aLevels: GLsizei; aInternalformat: GLenum; aWidth: GLsizei; aHeight: GLsizei; aDepth: GLsizei); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
TglGetInternalformativ = procedure(aTarget: GLenum; aInternalformat: GLenum; aPname: GLenum; aBufSize: GLsizei; aParams: PGLint); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
{$ENDIF}

{$IFDEF OPENGLES_CORE_3_1}
type
{ ============================================== OpenGL ES 3.1 ======================================================= }
TglDispatchCompute = procedure(aNumGroupsX: GLuint; aNumGroupsY: GLuint; aNumGroupsZ: GLuint); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
TglDispatchComputeIndirect = procedure(aIndirect: GLintptr); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
@@ -1708,9 +1744,11 @@ type
TglVertexAttribIFormat = procedure(aAttribindex: GLuint; aSize: GLint; aType: GLenum; aRelativeoffset: GLuint); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
TglVertexAttribBinding = procedure(aAttribindex: GLuint; aBindingindex: GLuint); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
TglVertexBindingDivisor = procedure(aBindingindex: GLuint; aDivisor: GLuint); {$IFDEF DGL_WIN}stdcall;{$ELSE}cdecl;{$ENDIF}
{$ENDIF}

{$IFDEF OPENGLES_CORE_1_1}
var
{ ============================================== OpenGL ES 1.0 ======================================================= }
{ ============================================== OpenGL ES 1.1 ======================================================= }
{ Available only in Common profile }
glAlphaFunc: TglAlphaFunc;
glClearColor: TglClearColor;
@@ -1858,7 +1896,10 @@ var
glTranslatex: TglTranslatex;
glVertexPointer: TglVertexPointer;
glViewport: TglViewport;
{$ENDIF}

{$IFDEF OPENGLES_CORE_2_0}
var
{ ============================================== OpenGL ES 2.0 ======================================================= }
glAttachShader: TglAttachShader;
glBindAttribLocation: TglBindAttribLocation;
@@ -1944,8 +1985,11 @@ var
glVertexAttrib4f: TglVertexAttrib4f;
glVertexAttrib4fv: TglVertexAttrib4fv;
glVertexAttribPointer: TglVertexAttribPointer;
{$ENDIF}

{$IFDEF OPENGLES_CORE_3_0}
{ ============================================== OpenGL ES 3.0 ======================================================= }
var
glReadBuffer: TglReadBuffer;
glDrawRangeElements: TglDrawRangeElements;
glTexImage3D: TglTexImage3D;
@@ -2050,8 +2094,11 @@ var
glTexStorage2D: TglTexStorage2D;
glTexStorage3D: TglTexStorage3D;
glGetInternalformativ: TglGetInternalformativ;
{$ENDIF}

{$IFDEF OPENGLES_CORE_3_1}
{ ============================================== OpenGL ES 3.1 ======================================================= }
var
glDispatchCompute: TglDispatchCompute;
glDispatchComputeIndirect: TglDispatchComputeIndirect;
glDrawArraysIndirect: TglDrawArraysIndirect;
@@ -2120,7 +2167,9 @@ var
glVertexAttribIFormat: TglVertexAttribIFormat;
glVertexAttribBinding: TglVertexAttribBinding;
glVertexBindingDivisor: TglVertexBindingDivisor;
{$ENDIF}

{$IFDEF OPENGLES_EXTENSIONS}
{ =============================================== Extensions ========================================================= }
{ GL_KHR_blend_equation_advanced }
const
@@ -2520,7 +2569,7 @@ var
glIsVertexArrayOES: TglIsVertexArrayOES;

{ GL_OES_vertex_half_float }
// none
// none {$IFDEF OPENGLES_EXTENSIONS}

{ GL_OES_vertex_type_10_10_10_2 }
const
@@ -4315,6 +4364,7 @@ const
{ GL_VIV_shader_binary }
const
GL_SHADER_BINARY_VIV = $8FC4;
{$ENDIF}

{ ================================================== EGL ============================================================= }
type
@@ -4603,7 +4653,8 @@ var
GL_VERSION_1_1,
GL_VERSION_2_0,
GL_VERSION_3_0,
GL_VERSION_3_1,
GL_VERSION_3_1
{$IFDEF OPENGLES_EXTENSIONS},
GL_KHR_blend_equation_advanced,
GL_KHR_blend_equation_advanced_coherent,
GL_KHR_context_flush_control,
@@ -4781,7 +4832,9 @@ var
GL_QCOM_perfmon_global_mode,
GL_QCOM_tiled_rendering,
GL_QCOM_writeonly_rendering,
GL_VIV_shader_binary: Boolean;
GL_VIV_shader_binary
{$ENDIF}
: Boolean;

type
EdglOpenGLES = class(Exception);
@@ -4821,6 +4874,7 @@ procedure ReadExtensions;
procedure ReadCoreVersion;
procedure ReadImplementationProperties;

{$IFDEF OPENGLES_EXTENSIONS}
procedure Read_GL_KHR_blend_equation_advanced;
procedure Read_GL_KHR_debug;
procedure Read_GL_KHR_robustness;
@@ -4887,6 +4941,7 @@ procedure Read_GL_QCOM_driver_control;
procedure Read_GL_QCOM_extended_get;
procedure Read_GL_QCOM_extended_get2;
procedure Read_GL_QCOM_tiled_rendering;
{$ENDIF}

implementation

@@ -5061,7 +5116,8 @@ end;

procedure ReadOpenGLCore;
begin
{ ============================================= OpenGL ES 1.0 ====================================================== }
{$IFDEF OPENGLES_CORE_1_1}
{ ============================================= OpenGL ES 1.1 ====================================================== }
{ Available only in Common profile }
glAlphaFunc := dglGetProcAddress('glAlphaFunc');
glClearColor := dglGetProcAddress('glClearColor');
@@ -5209,7 +5265,9 @@ begin
glTranslatex := dglGetProcAddress('glTranslatex');
glVertexPointer := dglGetProcAddress('glVertexPointer');
glViewport := dglGetProcAddress('glViewport');
{$ENDIF}

{$IFDEF OPENGLES_CORE_2_0}
{ ============================================= OpenGL ES 2.0 ====================================================== }
glAttachShader := dglGetProcAddress('glAttachShader');
glBindAttribLocation := dglGetProcAddress('glBindAttribLocation');
@@ -5295,7 +5353,9 @@ begin
glVertexAttrib4f := dglGetProcAddress('glVertexAttrib4f');
glVertexAttrib4fv := dglGetProcAddress('glVertexAttrib4fv');
glVertexAttribPointer := dglGetProcAddress('glVertexAttribPointer');
{$ENDIF}

{$IFDEF OPENGLES_CORE_3_0}
{ ============================================= OpenGL ES 3.0 ====================================================== }
glReadBuffer := dglGetProcAddress('glReadBuffer');
glDrawRangeElements := dglGetProcAddress('glDrawRangeElements');
@@ -5401,7 +5461,9 @@ begin
glTexStorage2D := dglGetProcAddress('glTexStorage2D');
glTexStorage3D := dglGetProcAddress('glTexStorage3D');
glGetInternalformativ := dglGetProcAddress('glGetInternalformativ');
{$ENDIF}

{$IFDEF OPENGLES_CORE_3_1}
{ ============================================= OpenGL ES 3.1 ====================================================== }
glDispatchCompute := dglGetProcAddress('glDispatchCompute');
glDispatchComputeIndirect := dglGetProcAddress('glDispatchComputeIndirect');
@@ -5471,10 +5533,12 @@ begin
glVertexAttribIFormat := dglGetProcAddress('glVertexAttribIFormat');
glVertexAttribBinding := dglGetProcAddress('glVertexAttribBinding');
glVertexBindingDivisor := dglGetProcAddress('glVertexBindingDivisor');
{$ENDIF}
end;

procedure ReadExtensions;
begin
{$IFDEF OPENGLES_EXTENSIONS}
Read_GL_KHR_blend_equation_advanced;
Read_GL_KHR_debug;
Read_GL_KHR_robustness;
@@ -5541,6 +5605,7 @@ begin
Read_GL_QCOM_extended_get;
Read_GL_QCOM_extended_get2;
Read_GL_QCOM_tiled_rendering;
{$ENDIF}
end;

procedure ReadCoreVersion;
@@ -5595,6 +5660,7 @@ begin
GL_VERSION_3_1 := (GLmajor >= 3) and (GLminor >= 1);
end;

{$IFDEF OPENGLES_EXTENSIONS}
procedure ReadImplementationProperties;

function GetExtensions: String;
@@ -5608,6 +5674,7 @@ procedure ReadImplementationProperties;
if Assigned(glGetString) then
result := String(PAnsiChar(glGetString(GL_EXTENSIONS)));

{$IFDEF OPENGLES_CORE_3_0}
if (result = '') then begin
if not Assigned(glGetIntegerv) then
glGetIntegerv := dglGetProcAddress('glGetIntegerv');
@@ -5622,6 +5689,7 @@ procedure ReadImplementationProperties;
end;
end;
end;
{$ENDIF}

result := #$20 + result + #$20;
end;
@@ -5846,7 +5914,14 @@ begin
// VIV
GL_VIV_shader_binary := CheckEx(Buffer, 'GL_VIV_shader_binary');
end;
{$ELSE}
procedure ReadImplementationProperties;
begin
// nothing to do here
end;
{$ENDIF}

{$IFDEF OPENGLES_EXTENSIONS}
procedure Read_GL_KHR_blend_equation_advanced;
begin
glBlendBarrierKHR := dglGetProcAddress('glBlendBarrierKHR');
@@ -6430,6 +6505,7 @@ begin
glStartTilingQCOM := dglGetProcAddress('glStartTilingQCOM');
glEndTilingQCOM := dglGetProcAddress('glEndTilingQCOM');
end;
{$ENDIF}

constructor EeglError.Create(const msg: string; const aErrorCode: EGLint);
begin


Escribir Vista previa
Cargando…
Cancelar
Guardar