diff -r af34aeab55c9 -r 1f495f049fad Android-build/gles11.pp --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Android-build/gles11.pp Wed Jun 22 13:24:30 2011 +0200 @@ -0,0 +1,1107 @@ + +{$mode objfpc} +unit gles11; +interface + +{ + Automatically converted by H2Pas 1.0.0 from gl.hh + The following command line parameters were used: + -P + -l + GLESv1_CM + -o + gles11.pp + -D + gl.hh +} + + procedure init; + + const + External_library='GLESv1_CM'; {Setup as you need} + + Type + +// khronos_int32_t = int32_t; +// khronos_uint32_t = uint32_t; +// khronos_int64_t = int64_t; +// khronos_uint64_t = uint64_t; + + khronos_int32_t = longint; + khronos_uint32_t = longword; + khronos_int64_t = Int64; + khronos_uint64_t = QWord; + khronos_int8_t = char; + khronos_uint8_t = byte; + khronos_int16_t = smallint; + khronos_uint16_t = word; + khronos_intptr_t = longint; + khronos_uintptr_t = dword; + khronos_ssize_t = longint; + khronos_usize_t = dword; + khronos_float_t = single; + + GLvoid = pointer; + GLenum = dword; + GLboolean = byte; + GLbitfield = dword; + GLshort = smallint; + GLint = longint; + GLsizei = longint; + GLushort = word; + GLuint = dword; + + GLbyte = khronos_int8_t; + GLubyte = khronos_uint8_t; + GLfloat = khronos_float_t; + GLclampf = khronos_float_t; + GLfixed = khronos_int32_t; + GLclampx = khronos_int32_t; + GLintptr = khronos_intptr_t; + GLsizeiptr = khronos_ssize_t; + + PGLboolean = ^GLboolean; + PGLfixed = ^GLfixed; + PGLfloat = ^GLfloat; + PGLint = ^GLint; + PGLuint = ^GLuint; + PGLvoid = ^GLvoid; + PGLubyte = ^GLubyte; +{$IFDEF FPC} +{$PACKRECORDS C} +{$ENDIF} + + const +// GL_API = KHRONOS_APICALL; +{$define KHRONOS_APIENTRY} + GL_DIRECT_TEXTURE_2D_QUALCOMM = $7E80; + + {*********************************************************** } + { OpenGL ES core versions } + + const + GL_VERSION_ES_CM_1_0 = 1; + GL_VERSION_ES_CL_1_0 = 1; + GL_VERSION_ES_CM_1_1 = 1; + GL_VERSION_ES_CL_1_1 = 1; + { ClearBufferMask } + GL_DEPTH_BUFFER_BIT = $00000100; + GL_STENCIL_BUFFER_BIT = $00000400; + GL_COLOR_BUFFER_BIT = $00004000; + { Boolean } + GL_FALSE = 0; + GL_TRUE = 1; + { BeginMode } + GL_POINTS = $0000; + GL_LINES = $0001; + GL_LINE_LOOP = $0002; + GL_LINE_STRIP = $0003; + GL_TRIANGLES = $0004; + GL_TRIANGLE_STRIP = $0005; + GL_TRIANGLE_FAN = $0006; + { AlphaFunction } + GL_NEVER = $0200; + GL_LESS = $0201; + GL_EQUAL = $0202; + GL_LEQUAL = $0203; + GL_GREATER = $0204; + GL_NOTEQUAL = $0205; + GL_GEQUAL = $0206; + GL_ALWAYS = $0207; + { BlendingFactorDest } + GL_ZERO = 0; + GL_ONE = 1; + GL_SRC_COLOR = $0300; + GL_ONE_MINUS_SRC_COLOR = $0301; + GL_SRC_ALPHA = $0302; + GL_ONE_MINUS_SRC_ALPHA = $0303; + GL_DST_ALPHA = $0304; + GL_ONE_MINUS_DST_ALPHA = $0305; + { BlendingFactorSrc } + { GL_ZERO } + { GL_ONE } + GL_DST_COLOR = $0306; + GL_ONE_MINUS_DST_COLOR = $0307; + GL_SRC_ALPHA_SATURATE = $0308; + { GL_SRC_ALPHA } + { GL_ONE_MINUS_SRC_ALPHA } + { GL_DST_ALPHA } + { GL_ONE_MINUS_DST_ALPHA } + { ClipPlaneName } + GL_CLIP_PLANE0 = $3000; + GL_CLIP_PLANE1 = $3001; + GL_CLIP_PLANE2 = $3002; + GL_CLIP_PLANE3 = $3003; + GL_CLIP_PLANE4 = $3004; + GL_CLIP_PLANE5 = $3005; + { ColorMaterialFace } + { GL_FRONT_AND_BACK } + { ColorMaterialParameter } + { GL_AMBIENT_AND_DIFFUSE } + { ColorPointerType } + { GL_UNSIGNED_BYTE } + { GL_FLOAT } + { GL_FIXED } + { CullFaceMode } + GL_FRONT = $0404; + GL_BACK = $0405; + GL_FRONT_AND_BACK = $0408; + { DepthFunction } + { GL_NEVER } + { GL_LESS } + { GL_EQUAL } + { GL_LEQUAL } + { GL_GREATER } + { GL_NOTEQUAL } + { GL_GEQUAL } + { GL_ALWAYS } + { EnableCap } + GL_FOG = $0B60; + GL_LIGHTING = $0B50; + GL_TEXTURE_2D = $0DE1; + GL_CULL_FACE = $0B44; + GL_ALPHA_TEST = $0BC0; + GL_BLEND = $0BE2; + GL_COLOR_LOGIC_OP = $0BF2; + GL_DITHER = $0BD0; + GL_STENCIL_TEST = $0B90; + GL_DEPTH_TEST = $0B71; + { GL_LIGHT0 } + { GL_LIGHT1 } + { GL_LIGHT2 } + { GL_LIGHT3 } + { GL_LIGHT4 } + { GL_LIGHT5 } + { GL_LIGHT6 } + { GL_LIGHT7 } + GL_POINT_SMOOTH = $0B10; + GL_LINE_SMOOTH = $0B20; + GL_SCISSOR_TEST = $0C11; + GL_COLOR_MATERIAL = $0B57; + GL_NORMALIZE = $0BA1; + GL_RESCALE_NORMAL = $803A; + GL_POLYGON_OFFSET_FILL = $8037; + GL_VERTEX_ARRAY = $8074; + GL_NORMAL_ARRAY = $8075; + GL_COLOR_ARRAY = $8076; + GL_TEXTURE_COORD_ARRAY = $8078; + GL_MULTISAMPLE = $809D; + GL_SAMPLE_ALPHA_TO_COVERAGE = $809E; + GL_SAMPLE_ALPHA_TO_ONE = $809F; + GL_SAMPLE_COVERAGE = $80A0; + { ErrorCode } + GL_NO_ERROR = 0; + GL_INVALID_ENUM = $0500; + GL_INVALID_VALUE = $0501; + GL_INVALID_OPERATION = $0502; + GL_STACK_OVERFLOW = $0503; + GL_STACK_UNDERFLOW = $0504; + GL_OUT_OF_MEMORY = $0505; + { FogMode } + { GL_LINEAR } + GL_EXP = $0800; + GL_EXP2 = $0801; + { FogParameter } + GL_FOG_DENSITY = $0B62; + GL_FOG_START = $0B63; + GL_FOG_END = $0B64; + GL_FOG_MODE = $0B65; + GL_FOG_COLOR = $0B66; + { FrontFaceDirection } + GL_CW = $0900; + GL_CCW = $0901; + { GetPName } + GL_CURRENT_COLOR = $0B00; + GL_CURRENT_NORMAL = $0B02; + GL_CURRENT_TEXTURE_COORDS = $0B03; + GL_POINT_SIZE = $0B11; + GL_POINT_SIZE_MIN = $8126; + GL_POINT_SIZE_MAX = $8127; + GL_POINT_FADE_THRESHOLD_SIZE = $8128; + GL_POINT_DISTANCE_ATTENUATION = $8129; + GL_SMOOTH_POINT_SIZE_RANGE = $0B12; + GL_LINE_WIDTH = $0B21; + GL_SMOOTH_LINE_WIDTH_RANGE = $0B22; + GL_ALIASED_POINT_SIZE_RANGE = $846D; + GL_ALIASED_LINE_WIDTH_RANGE = $846E; + GL_CULL_FACE_MODE = $0B45; + GL_FRONT_FACE = $0B46; + GL_SHADE_MODEL = $0B54; + GL_DEPTH_RANGE = $0B70; + GL_DEPTH_WRITEMASK = $0B72; + GL_DEPTH_CLEAR_VALUE = $0B73; + GL_DEPTH_FUNC = $0B74; + GL_STENCIL_CLEAR_VALUE = $0B91; + GL_STENCIL_FUNC = $0B92; + GL_STENCIL_VALUE_MASK = $0B93; + GL_STENCIL_FAIL = $0B94; + GL_STENCIL_PASS_DEPTH_FAIL = $0B95; + GL_STENCIL_PASS_DEPTH_PASS = $0B96; + GL_STENCIL_REF = $0B97; + GL_STENCIL_WRITEMASK = $0B98; + GL_MATRIX_MODE = $0BA0; + GL_VIEWPORT = $0BA2; + GL_MODELVIEW_STACK_DEPTH = $0BA3; + GL_PROJECTION_STACK_DEPTH = $0BA4; + GL_TEXTURE_STACK_DEPTH = $0BA5; + GL_MODELVIEW_MATRIX = $0BA6; + GL_PROJECTION_MATRIX = $0BA7; + GL_TEXTURE_MATRIX = $0BA8; + GL_ALPHA_TEST_FUNC = $0BC1; + GL_ALPHA_TEST_REF = $0BC2; + GL_BLEND_DST = $0BE0; + GL_BLEND_SRC = $0BE1; + GL_LOGIC_OP_MODE = $0BF0; + GL_SCISSOR_BOX = $0C10; +// GL_SCISSOR_TEST = $0C11; + GL_COLOR_CLEAR_VALUE = $0C22; + GL_COLOR_WRITEMASK = $0C23; + GL_UNPACK_ALIGNMENT = $0CF5; + GL_PACK_ALIGNMENT = $0D05; + GL_MAX_LIGHTS = $0D31; + GL_MAX_CLIP_PLANES = $0D32; + GL_MAX_TEXTURE_SIZE = $0D33; + GL_MAX_MODELVIEW_STACK_DEPTH = $0D36; + GL_MAX_PROJECTION_STACK_DEPTH = $0D38; + GL_MAX_TEXTURE_STACK_DEPTH = $0D39; + GL_MAX_VIEWPORT_DIMS = $0D3A; + GL_MAX_TEXTURE_UNITS = $84E2; + GL_SUBPIXEL_BITS = $0D50; + GL_RED_BITS = $0D52; + GL_GREEN_BITS = $0D53; + GL_BLUE_BITS = $0D54; + GL_ALPHA_BITS = $0D55; + GL_DEPTH_BITS = $0D56; + GL_STENCIL_BITS = $0D57; + GL_POLYGON_OFFSET_UNITS = $2A00; +// GL_POLYGON_OFFSET_FILL = $8037; + GL_POLYGON_OFFSET_FACTOR = $8038; + GL_TEXTURE_BINDING_2D = $8069; + GL_VERTEX_ARRAY_SIZE = $807A; + GL_VERTEX_ARRAY_TYPE = $807B; + GL_VERTEX_ARRAY_STRIDE = $807C; + GL_NORMAL_ARRAY_TYPE = $807E; + GL_NORMAL_ARRAY_STRIDE = $807F; + GL_COLOR_ARRAY_SIZE = $8081; + GL_COLOR_ARRAY_TYPE = $8082; + GL_COLOR_ARRAY_STRIDE = $8083; + GL_TEXTURE_COORD_ARRAY_SIZE = $8088; + GL_TEXTURE_COORD_ARRAY_TYPE = $8089; + GL_TEXTURE_COORD_ARRAY_STRIDE = $808A; + GL_VERTEX_ARRAY_POINTER = $808E; + GL_NORMAL_ARRAY_POINTER = $808F; + GL_COLOR_ARRAY_POINTER = $8090; + GL_TEXTURE_COORD_ARRAY_POINTER = $8092; + GL_SAMPLE_BUFFERS = $80A8; + GL_SAMPLES = $80A9; + GL_SAMPLE_COVERAGE_VALUE = $80AA; + GL_SAMPLE_COVERAGE_INVERT = $80AB; + { GetTextureParameter } + { GL_TEXTURE_MAG_FILTER } + { GL_TEXTURE_MIN_FILTER } + { GL_TEXTURE_WRAP_S } + { GL_TEXTURE_WRAP_T } + GL_NUM_COMPRESSED_TEXTURE_FORMATS = $86A2; + GL_COMPRESSED_TEXTURE_FORMATS = $86A3; + { HintMode } + GL_DONT_CARE = $1100; + GL_FASTEST = $1101; + GL_NICEST = $1102; + { HintTarget } + GL_PERSPECTIVE_CORRECTION_HINT = $0C50; + GL_POINT_SMOOTH_HINT = $0C51; + GL_LINE_SMOOTH_HINT = $0C52; + GL_FOG_HINT = $0C54; + GL_GENERATE_MIPMAP_HINT = $8192; + { LightModelParameter } + GL_LIGHT_MODEL_AMBIENT = $0B53; + GL_LIGHT_MODEL_TWO_SIDE = $0B52; + { LightParameter } + GL_AMBIENT = $1200; + GL_DIFFUSE = $1201; + GL_SPECULAR = $1202; + GL_POSITION = $1203; + GL_SPOT_DIRECTION = $1204; + GL_SPOT_EXPONENT = $1205; + GL_SPOT_CUTOFF = $1206; + GL_CONSTANT_ATTENUATION = $1207; + GL_LINEAR_ATTENUATION = $1208; + GL_QUADRATIC_ATTENUATION = $1209; + { DataType } + GL_BYTE = $1400; + GL_UNSIGNED_BYTE = $1401; + GL_SHORT = $1402; + GL_UNSIGNED_SHORT = $1403; + GL_FLOAT = $1406; + GL_FIXED = $140C; + { LogicOp } + GL_CLEAR = $1500; + GL_AND = $1501; + GL_AND_REVERSE = $1502; + GL_COPY = $1503; + GL_AND_INVERTED = $1504; + GL_NOOP = $1505; + GL_XOR = $1506; + GL_OR = $1507; + GL_NOR = $1508; + GL_EQUIV = $1509; + GL_INVERT = $150A; + GL_OR_REVERSE = $150B; + GL_COPY_INVERTED = $150C; + GL_OR_INVERTED = $150D; + GL_NAND = $150E; + GL_SET = $150F; + { MaterialFace } + { GL_FRONT_AND_BACK } + { MaterialParameter } + GL_EMISSION = $1600; + GL_SHININESS = $1601; + GL_AMBIENT_AND_DIFFUSE = $1602; + { GL_AMBIENT } + { GL_DIFFUSE } + { GL_SPECULAR } + { MatrixMode } + GL_MODELVIEW = $1700; + GL_PROJECTION = $1701; + GL_TEXTURE = $1702; + { NormalPointerType } + { GL_BYTE } + { GL_SHORT } + { GL_FLOAT } + { GL_FIXED } + { PixelFormat } + GL_ALPHA = $1906; + GL_RGB = $1907; + GL_RGBA = $1908; + GL_LUMINANCE = $1909; + GL_LUMINANCE_ALPHA = $190A; + { PixelStoreParameter } +// GL_UNPACK_ALIGNMENT = $0CF5; +// GL_PACK_ALIGNMENT = $0D05; + { PixelType } + { GL_UNSIGNED_BYTE } + GL_UNSIGNED_SHORT_4_4_4_4 = $8033; + GL_UNSIGNED_SHORT_5_5_5_1 = $8034; + GL_UNSIGNED_SHORT_5_6_5 = $8363; + { ShadingModel } + GL_FLAT = $1D00; + GL_SMOOTH = $1D01; + { StencilFunction } + { GL_NEVER } + { GL_LESS } + { GL_EQUAL } + { GL_LEQUAL } + { GL_GREATER } + { GL_NOTEQUAL } + { GL_GEQUAL } + { GL_ALWAYS } + { StencilOp } + { GL_ZERO } + GL_KEEP = $1E00; + GL_REPLACE = $1E01; + GL_INCR = $1E02; + GL_DECR = $1E03; + { GL_INVERT } + { StringName } + GL_VENDOR = $1F00; + GL_RENDERER = $1F01; + GL_VERSION = $1F02; + GL_EXTENSIONS = $1F03; + { TexCoordPointerType } + { GL_SHORT } + { GL_FLOAT } + { GL_FIXED } + { GL_BYTE } + { TextureEnvMode } + GL_MODULATE = $2100; + GL_DECAL = $2101; + { GL_BLEND } + GL_ADD = $0104; + { GL_REPLACE } + { TextureEnvParameter } + GL_TEXTURE_ENV_MODE = $2200; + GL_TEXTURE_ENV_COLOR = $2201; + { TextureEnvTarget } + GL_TEXTURE_ENV = $2300; + { TextureMagFilter } + GL_NEAREST = $2600; + GL_LINEAR = $2601; + { TextureMinFilter } + { GL_NEAREST } + { GL_LINEAR } + GL_NEAREST_MIPMAP_NEAREST = $2700; + GL_LINEAR_MIPMAP_NEAREST = $2701; + GL_NEAREST_MIPMAP_LINEAR = $2702; + GL_LINEAR_MIPMAP_LINEAR = $2703; + { TextureParameterName } + GL_TEXTURE_MAG_FILTER = $2800; + GL_TEXTURE_MIN_FILTER = $2801; + GL_TEXTURE_WRAP_S = $2802; + GL_TEXTURE_WRAP_T = $2803; + GL_GENERATE_MIPMAP = $8191; + { TextureTarget } + { GL_TEXTURE_2D } + { TextureUnit } + GL_TEXTURE0 = $84C0; + GL_TEXTURE1 = $84C1; + GL_TEXTURE2 = $84C2; + GL_TEXTURE3 = $84C3; + GL_TEXTURE4 = $84C4; + GL_TEXTURE5 = $84C5; + GL_TEXTURE6 = $84C6; + GL_TEXTURE7 = $84C7; + GL_TEXTURE8 = $84C8; + GL_TEXTURE9 = $84C9; + GL_TEXTURE10 = $84CA; + GL_TEXTURE11 = $84CB; + GL_TEXTURE12 = $84CC; + GL_TEXTURE13 = $84CD; + GL_TEXTURE14 = $84CE; + GL_TEXTURE15 = $84CF; + GL_TEXTURE16 = $84D0; + GL_TEXTURE17 = $84D1; + GL_TEXTURE18 = $84D2; + GL_TEXTURE19 = $84D3; + GL_TEXTURE20 = $84D4; + GL_TEXTURE21 = $84D5; + GL_TEXTURE22 = $84D6; + GL_TEXTURE23 = $84D7; + GL_TEXTURE24 = $84D8; + GL_TEXTURE25 = $84D9; + GL_TEXTURE26 = $84DA; + GL_TEXTURE27 = $84DB; + GL_TEXTURE28 = $84DC; + GL_TEXTURE29 = $84DD; + GL_TEXTURE30 = $84DE; + GL_TEXTURE31 = $84DF; + GL_ACTIVE_TEXTURE = $84E0; + GL_CLIENT_ACTIVE_TEXTURE = $84E1; + { TextureWrapMode } + GL_REPEAT = $2901; + GL_CLAMP_TO_EDGE = $812F; + { VertexPointerType } + { GL_SHORT } + { GL_FLOAT } + { GL_FIXED } + { GL_BYTE } + { LightName } + GL_LIGHT0 = $4000; + GL_LIGHT1 = $4001; + GL_LIGHT2 = $4002; + GL_LIGHT3 = $4003; + GL_LIGHT4 = $4004; + GL_LIGHT5 = $4005; + GL_LIGHT6 = $4006; + GL_LIGHT7 = $4007; + { Buffer Objects } + GL_ARRAY_BUFFER = $8892; + GL_ELEMENT_ARRAY_BUFFER = $8893; + GL_ARRAY_BUFFER_BINDING = $8894; + GL_ELEMENT_ARRAY_BUFFER_BINDING = $8895; + GL_VERTEX_ARRAY_BUFFER_BINDING = $8896; + GL_NORMAL_ARRAY_BUFFER_BINDING = $8897; + GL_COLOR_ARRAY_BUFFER_BINDING = $8898; + GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING = $889A; + GL_STATIC_DRAW = $88E4; + GL_DYNAMIC_DRAW = $88E8; + GL_BUFFER_SIZE = $8764; + GL_BUFFER_USAGE = $8765; + { Texture combine + dot3 } + GL_SUBTRACT = $84E7; + GL_COMBINE = $8570; + GL_COMBINE_RGB = $8571; + GL_COMBINE_ALPHA = $8572; + GL_RGB_SCALE = $8573; + GL_ADD_SIGNED = $8574; + GL_INTERPOLATE = $8575; + GL_CONSTANT = $8576; + GL_PRIMARY_COLOR = $8577; + GL_PREVIOUS = $8578; + GL_OPERAND0_RGB = $8590; + GL_OPERAND1_RGB = $8591; + GL_OPERAND2_RGB = $8592; + GL_OPERAND0_ALPHA = $8598; + GL_OPERAND1_ALPHA = $8599; + GL_OPERAND2_ALPHA = $859A; + GL_ALPHA_SCALE = $0D1C; + GL_SRC0_RGB = $8580; + GL_SRC1_RGB = $8581; + GL_SRC2_RGB = $8582; + GL_SRC0_ALPHA = $8588; + GL_SRC1_ALPHA = $8589; + GL_SRC2_ALPHA = $858A; + GL_DOT3_RGB = $86AE; + GL_DOT3_RGBA = $86AF; + {------------------------------------------------------------------------* + * required OES extension tokens + *------------------------------------------------------------------------ } + { OES_read_format } + GL_IMPLEMENTATION_COLOR_READ_TYPE_OES = $8B9A; + GL_IMPLEMENTATION_COLOR_READ_FORMAT_OES = $8B9B; + { GL_OES_compressed_paletted_texture } + GL_PALETTE4_RGB8_OES = $8B90; + GL_PALETTE4_RGBA8_OES = $8B91; + GL_PALETTE4_R5_G6_B5_OES = $8B92; + GL_PALETTE4_RGBA4_OES = $8B93; + GL_PALETTE4_RGB5_A1_OES = $8B94; + GL_PALETTE8_RGB8_OES = $8B95; + GL_PALETTE8_RGBA8_OES = $8B96; + GL_PALETTE8_R5_G6_B5_OES = $8B97; + GL_PALETTE8_RGBA4_OES = $8B98; + GL_PALETTE8_RGB5_A1_OES = $8B99; + { OES_point_size_array } + GL_POINT_SIZE_ARRAY_OES = $8B9C; + GL_POINT_SIZE_ARRAY_TYPE_OES = $898A; + GL_POINT_SIZE_ARRAY_STRIDE_OES = $898B; + GL_POINT_SIZE_ARRAY_POINTER_OES = $898C; + GL_POINT_SIZE_ARRAY_BUFFER_BINDING_OES = $8B9F; + { GL_OES_point_sprite } + GL_POINT_SPRITE_OES = $8861; + GL_COORD_REPLACE_OES = $8862; + {*********************************************************** } + { Available only in Common profile } + + var + glAlphaFunc : procedure(func:GLenum; ref:GLclampf);cdecl; + glClearColor : procedure(red:GLclampf; green:GLclampf; blue:GLclampf; alpha:GLclampf);cdecl; + glClearDepthf : procedure(depth:GLclampf);cdecl; +(* Const before type ignored *) + glClipPlanef : procedure(plane:GLenum; equation:pGLfloat);cdecl; + glColor4f : procedure(red:GLfloat; green:GLfloat; blue:GLfloat; alpha:GLfloat);cdecl; + glDepthRangef : procedure(zNear:GLclampf; zFar:GLclampf);cdecl; + glFogf : procedure(pname:GLenum; param:GLfloat);cdecl; +(* Const before type ignored *) + glFogfv : procedure(pname:GLenum; params:pGLfloat);cdecl; + glFrustumf : procedure(left:GLfloat; right:GLfloat; bottom:GLfloat; top:GLfloat; zNear:GLfloat; + zFar:GLfloat);cdecl; + glGetClipPlanef : procedure(pname:GLenum; eqn:array of GLfloat);cdecl; + glGetFloatv : procedure(pname:GLenum; params:pGLfloat);cdecl; + glGetLightfv : procedure(light:GLenum; pname:GLenum; params:pGLfloat);cdecl; + glGetMaterialfv : procedure(face:GLenum; pname:GLenum; params:pGLfloat);cdecl; + glGetTexEnvfv : procedure(env:GLenum; pname:GLenum; params:pGLfloat);cdecl; + glGetTexParameterfv : procedure(target:GLenum; pname:GLenum; params:pGLfloat);cdecl; + glLightModelf : procedure(pname:GLenum; param:GLfloat);cdecl; +(* Const before type ignored *) + glLightModelfv : procedure(pname:GLenum; params:pGLfloat);cdecl; + glLightf : procedure(light:GLenum; pname:GLenum; param:GLfloat);cdecl; +(* Const before type ignored *) + glLightfv : procedure(light:GLenum; pname:GLenum; params:pGLfloat);cdecl; + glLineWidth : procedure(width:GLfloat);cdecl; +(* Const before type ignored *) + glLoadMatrixf : procedure(m:pGLfloat);cdecl; + glMaterialf : procedure(face:GLenum; pname:GLenum; param:GLfloat);cdecl; +(* Const before type ignored *) + glMaterialfv : procedure(face:GLenum; pname:GLenum; params:pGLfloat);cdecl; +(* Const before type ignored *) + glMultMatrixf : procedure(m:pGLfloat);cdecl; + glMultiTexCoord4f : procedure(target:GLenum; s:GLfloat; t:GLfloat; r:GLfloat; q:GLfloat);cdecl; + glNormal3f : procedure(nx:GLfloat; ny:GLfloat; nz:GLfloat);cdecl; + glOrthof : procedure(left:GLfloat; right:GLfloat; bottom:GLfloat; top:GLfloat; zNear:GLfloat; + zFar:GLfloat);cdecl; + glPointParameterf : procedure(pname:GLenum; param:GLfloat);cdecl; +(* Const before type ignored *) + glPointParameterfv : procedure(pname:GLenum; params:pGLfloat);cdecl; + glPointSize : procedure(size:GLfloat);cdecl; + glPolygonOffset : procedure(factor:GLfloat; units:GLfloat);cdecl; + glRotatef : procedure(angle:GLfloat; x:GLfloat; y:GLfloat; z:GLfloat);cdecl; + glScalef : procedure(x:GLfloat; y:GLfloat; z:GLfloat);cdecl; + glTexEnvf : procedure(target:GLenum; pname:GLenum; param:GLfloat);cdecl; +(* Const before type ignored *) + glTexEnvfv : procedure(target:GLenum; pname:GLenum; params:pGLfloat);cdecl; + glTexParameterf : procedure(target:GLenum; pname:GLenum; param:GLfloat);cdecl; +(* Const before type ignored *) + glTexParameterfv : procedure(target:GLenum; pname:GLenum; params:pGLfloat);cdecl; + glTranslatef : procedure(x:GLfloat; y:GLfloat; z:GLfloat);cdecl; + { Available in both Common and Common-Lite profiles } + glActiveTexture : procedure(texture:GLenum);cdecl; + glAlphaFuncx : procedure(func:GLenum; ref:GLclampx);cdecl; + glBindBuffer : procedure(target:GLenum; buffer:GLuint);cdecl; + glBindTexture : procedure(target:GLenum; texture:GLuint);cdecl; + glBlendFunc : procedure(sfactor:GLenum; dfactor:GLenum);cdecl; +(* Const before type ignored *) + glBufferData : procedure(target:GLenum; size:GLsizeiptr; data:pGLvoid; usage:GLenum);cdecl; +(* Const before type ignored *) + glBufferSubData : procedure(target:GLenum; offset:GLintptr; size:GLsizeiptr; data:pGLvoid);cdecl; + glClear : procedure(mask:GLbitfield);cdecl; + glClearColorx : procedure(red:GLclampx; green:GLclampx; blue:GLclampx; alpha:GLclampx);cdecl; + glClearDepthx : procedure(depth:GLclampx);cdecl; + glClearStencil : procedure(s:GLint);cdecl; + glClientActiveTexture : procedure(texture:GLenum);cdecl; +(* Const before type ignored *) + glClipPlanex : procedure(plane:GLenum; equation:pGLfixed);cdecl; + glColor4ub : procedure(red:GLubyte; green:GLubyte; blue:GLubyte; alpha:GLubyte);cdecl; + glColor4x : procedure(red:GLfixed; green:GLfixed; blue:GLfixed; alpha:GLfixed);cdecl; + glColorMask : procedure(red:GLboolean; green:GLboolean; blue:GLboolean; alpha:GLboolean);cdecl; +(* Const before type ignored *) + glColorPointer : procedure(size:GLint; _type:GLenum; stride:GLsizei; pointer:pGLvoid);cdecl; +(* Const before type ignored *) + glCompressedTexImage2D : procedure(target:GLenum; level:GLint; internalformat:GLenum; width:GLsizei; height:GLsizei; + border:GLint; imageSize:GLsizei; data:pGLvoid);cdecl; +(* Const before type ignored *) + glCompressedTexSubImage2D : procedure(target:GLenum; level:GLint; xoffset:GLint; yoffset:GLint; width:GLsizei; + height:GLsizei; format:GLenum; imageSize:GLsizei; data:pGLvoid);cdecl; + glCopyTexImage2D : procedure(target:GLenum; level:GLint; internalformat:GLenum; x:GLint; y:GLint; + width:GLsizei; height:GLsizei; border:GLint);cdecl; + glCopyTexSubImage2D : procedure(target:GLenum; level:GLint; xoffset:GLint; yoffset:GLint; x:GLint; + y:GLint; width:GLsizei; height:GLsizei);cdecl; + glCullFace : procedure(mode:GLenum);cdecl; +(* Const before type ignored *) + glDeleteBuffers : procedure(n:GLsizei; buffers:pGLuint);cdecl; +(* Const before type ignored *) + glDeleteTextures : procedure(n:GLsizei; textures:pGLuint);cdecl; + glDepthFunc : procedure(func:GLenum);cdecl; + glDepthMask : procedure(flag:GLboolean);cdecl; + glDepthRangex : procedure(zNear:GLclampx; zFar:GLclampx);cdecl; + glDisable : procedure(cap:GLenum);cdecl; + glDisableClientState : procedure(arry:GLenum);cdecl; + glDrawArrays : procedure(mode:GLenum; first:GLint; count:GLsizei);cdecl; +(* Const before type ignored *) + glDrawElements : procedure(mode:GLenum; count:GLsizei; _type:GLenum; indices:pGLvoid);cdecl; + glEnable : procedure(cap:GLenum);cdecl; + glEnableClientState : procedure(arry:GLenum);cdecl; + glFinish : procedure;cdecl; + glFlush : procedure;cdecl; + glFogx : procedure(pname:GLenum; param:GLfixed);cdecl; +(* Const before type ignored *) + glFogxv : procedure(pname:GLenum; params:pGLfixed);cdecl; + glFrontFace : procedure(mode:GLenum);cdecl; + glFrustumx : procedure(left:GLfixed; right:GLfixed; bottom:GLfixed; top:GLfixed; zNear:GLfixed; + zFar:GLfixed);cdecl; + glGetBooleanv : procedure(pname:GLenum; params:pGLboolean);cdecl; + glGetBufferParameteriv : procedure(target:GLenum; pname:GLenum; params:pGLint);cdecl; + glGetClipPlanex : procedure(pname:GLenum; eqn:array of GLfixed);cdecl; + glGenBuffers : procedure(n:GLsizei; buffers:pGLuint);cdecl; + glGenTextures : procedure(n:GLsizei; textures:pGLuint);cdecl; + glGetError : function:GLenum;cdecl; + glGetFixedv : procedure(pname:GLenum; params:pGLfixed);cdecl; + glGetIntegerv : procedure(pname:GLenum; params:pGLint);cdecl; + glGetLightxv : procedure(light:GLenum; pname:GLenum; params:pGLfixed);cdecl; + glGetMaterialxv : procedure(face:GLenum; pname:GLenum; params:pGLfixed);cdecl; + glGetPointerv : procedure(pname:GLenum; params:Ppointer);cdecl; +(* Const before type ignored *) + glGetString : function(name:GLenum):PGLubyte;cdecl; + glGetTexEnviv : procedure(env:GLenum; pname:GLenum; params:pGLint);cdecl; + glGetTexEnvxv : procedure(env:GLenum; pname:GLenum; params:pGLfixed);cdecl; + glGetTexParameteriv : procedure(target:GLenum; pname:GLenum; params:pGLint);cdecl; + glGetTexParameterxv : procedure(target:GLenum; pname:GLenum; params:pGLfixed);cdecl; + glHint : procedure(target:GLenum; mode:GLenum);cdecl; + glIsBuffer : function(buffer:GLuint):GLboolean;cdecl; + glIsEnabled : function(cap:GLenum):GLboolean;cdecl; + glIsTexture : function(texture:GLuint):GLboolean;cdecl; + glLightModelx : procedure(pname:GLenum; param:GLfixed);cdecl; +(* Const before type ignored *) + glLightModelxv : procedure(pname:GLenum; params:pGLfixed);cdecl; + glLightx : procedure(light:GLenum; pname:GLenum; param:GLfixed);cdecl; +(* Const before type ignored *) + glLightxv : procedure(light:GLenum; pname:GLenum; params:pGLfixed);cdecl; + glLineWidthx : procedure(width:GLfixed);cdecl; + glLoadIdentity : procedure;cdecl; +(* Const before type ignored *) + glLoadMatrixx : procedure(m:pGLfixed);cdecl; + glLogicOp : procedure(opcode:GLenum);cdecl; + glMaterialx : procedure(face:GLenum; pname:GLenum; param:GLfixed);cdecl; +(* Const before type ignored *) + glMaterialxv : procedure(face:GLenum; pname:GLenum; params:pGLfixed);cdecl; + glMatrixMode : procedure(mode:GLenum);cdecl; +(* Const before type ignored *) + glMultMatrixx : procedure(m:pGLfixed);cdecl; + glMultiTexCoord4x : procedure(target:GLenum; s:GLfixed; t:GLfixed; r:GLfixed; q:GLfixed);cdecl; + glNormal3x : procedure(nx:GLfixed; ny:GLfixed; nz:GLfixed);cdecl; +(* Const before type ignored *) + glNormalPointer : procedure(_type:GLenum; stride:GLsizei; pointer:pGLvoid);cdecl; + glOrthox : procedure(left:GLfixed; right:GLfixed; bottom:GLfixed; top:GLfixed; zNear:GLfixed; + zFar:GLfixed);cdecl; + glPixelStorei : procedure(pname:GLenum; param:GLint);cdecl; + glPointParameterx : procedure(pname:GLenum; param:GLfixed);cdecl; +(* Const before type ignored *) + glPointParameterxv : procedure(pname:GLenum; params:pGLfixed);cdecl; + glPointSizex : procedure(size:GLfixed);cdecl; + glPolygonOffsetx : procedure(factor:GLfixed; units:GLfixed);cdecl; + glPopMatrix : procedure;cdecl; + glPushMatrix : procedure;cdecl; + glReadPixels : procedure(x:GLint; y:GLint; width:GLsizei; height:GLsizei; format:GLenum; + _type:GLenum; pixels:pGLvoid);cdecl; + glRotatex : procedure(angle:GLfixed; x:GLfixed; y:GLfixed; z:GLfixed);cdecl; + glSampleCoverage : procedure(value:GLclampf; invert:GLboolean);cdecl; + glSampleCoveragex : procedure(value:GLclampx; invert:GLboolean);cdecl; + glScalex : procedure(x:GLfixed; y:GLfixed; z:GLfixed);cdecl; + glScissor : procedure(x:GLint; y:GLint; width:GLsizei; height:GLsizei);cdecl; + glShadeModel : procedure(mode:GLenum);cdecl; + glStencilFunc : procedure(func:GLenum; ref:GLint; mask:GLuint);cdecl; + glStencilMask : procedure(mask:GLuint);cdecl; + glStencilOp : procedure(fail:GLenum; zfail:GLenum; zpass:GLenum);cdecl; +(* Const before type ignored *) + glTexCoordPointer : procedure(size:GLint; _type:GLenum; stride:GLsizei; pointer:pGLvoid);cdecl; + glTexEnvi : procedure(target:GLenum; pname:GLenum; param:GLint);cdecl; + glTexEnvx : procedure(target:GLenum; pname:GLenum; param:GLfixed);cdecl; +(* Const before type ignored *) + glTexEnviv : procedure(target:GLenum; pname:GLenum; params:pGLint);cdecl; +(* Const before type ignored *) + glTexEnvxv : procedure(target:GLenum; pname:GLenum; params:pGLfixed);cdecl; +(* Const before type ignored *) + glTexImage2D : procedure(target:GLenum; level:GLint; internalformat:GLint; width:GLsizei; height:GLsizei; + border:GLint; format:GLenum; _type:GLenum; pixels:pGLvoid);cdecl; + glTexParameteri : procedure(target:GLenum; pname:GLenum; param:GLint);cdecl; + glTexParameterx : procedure(target:GLenum; pname:GLenum; param:GLfixed);cdecl; +(* Const before type ignored *) + glTexParameteriv : procedure(target:GLenum; pname:GLenum; params:pGLint);cdecl; +(* Const before type ignored *) + glTexParameterxv : procedure(target:GLenum; pname:GLenum; params:pGLfixed);cdecl; +(* Const before type ignored *) + glTexSubImage2D : procedure(target:GLenum; level:GLint; xoffset:GLint; yoffset:GLint; width:GLsizei; + height:GLsizei; format:GLenum; _type:GLenum; pixels:pGLvoid);cdecl; + glTranslatex : procedure(x:GLfixed; y:GLfixed; z:GLfixed);cdecl; +(* Const before type ignored *) + glVertexPointer : procedure(size:GLint; _type:GLenum; stride:GLsizei; pointer:pGLvoid);cdecl; + glViewport : procedure(x:GLint; y:GLint; width:GLsizei; height:GLsizei);cdecl; + {------------------------------------------------------------------------* + * Required OES extension functions + *------------------------------------------------------------------------ } + { GL_OES_read_format } + + const + GL_OES_read_format = 1; + { GL_OES_compressed_paletted_texture } + GL_OES_compressed_paletted_texture = 1; + { GL_OES_point_size_array } + GL_OES_point_size_array = 1; +(* Const before type ignored *) + + var + glPointSizePointerOES : procedure(_type:GLenum; stride:GLsizei; pointer:pGLvoid);cdecl; + { GL_OES_point_sprite } + + const + GL_OES_point_sprite = 1; + +implementation + + uses + SysUtils, dynlibs, uConsole; + + var + hlib : tlibhandle; + + + procedure Freegles11; + begin +// FreeLibrary(hlib); + glAlphaFunc:=nil; + glClearColor:=nil; + glClearDepthf:=nil; + glClipPlanef:=nil; + glColor4f:=nil; + glDepthRangef:=nil; + glFogf:=nil; + glFogfv:=nil; + glFrustumf:=nil; + glGetClipPlanef:=nil; + glGetFloatv:=nil; + glGetLightfv:=nil; + glGetMaterialfv:=nil; + glGetTexEnvfv:=nil; + glGetTexParameterfv:=nil; + glLightModelf:=nil; + glLightModelfv:=nil; + glLightf:=nil; + glLightfv:=nil; + glLineWidth:=nil; + glLoadMatrixf:=nil; + glMaterialf:=nil; + glMaterialfv:=nil; + glMultMatrixf:=nil; + glMultiTexCoord4f:=nil; + glNormal3f:=nil; + glOrthof:=nil; + glPointParameterf:=nil; + glPointParameterfv:=nil; + glPointSize:=nil; + glPolygonOffset:=nil; + glRotatef:=nil; + glScalef:=nil; + glTexEnvf:=nil; + glTexEnvfv:=nil; + glTexParameterf:=nil; + glTexParameterfv:=nil; + glTranslatef:=nil; + glActiveTexture:=nil; + glAlphaFuncx:=nil; + glBindBuffer:=nil; + glBindTexture:=nil; + glBlendFunc:=nil; + glBufferData:=nil; + glBufferSubData:=nil; + glClear:=nil; + glClearColorx:=nil; + glClearDepthx:=nil; + glClearStencil:=nil; + glClientActiveTexture:=nil; + glClipPlanex:=nil; + glColor4ub:=nil; + glColor4x:=nil; + glColorMask:=nil; + glColorPointer:=nil; + glCompressedTexImage2D:=nil; + glCompressedTexSubImage2D:=nil; + glCopyTexImage2D:=nil; + glCopyTexSubImage2D:=nil; + glCullFace:=nil; + glDeleteBuffers:=nil; + glDeleteTextures:=nil; + glDepthFunc:=nil; + glDepthMask:=nil; + glDepthRangex:=nil; + glDisable:=nil; + glDisableClientState:=nil; + glDrawArrays:=nil; + glDrawElements:=nil; + glEnable:=nil; + glEnableClientState:=nil; + glFinish:=nil; + glFlush:=nil; + glFogx:=nil; + glFogxv:=nil; + glFrontFace:=nil; + glFrustumx:=nil; + glGetBooleanv:=nil; + glGetBufferParameteriv:=nil; + glGetClipPlanex:=nil; + glGenBuffers:=nil; + glGenTextures:=nil; + glGetError:=nil; + glGetFixedv:=nil; + glGetIntegerv:=nil; + glGetLightxv:=nil; + glGetMaterialxv:=nil; + glGetPointerv:=nil; + glGetString:=nil; + glGetTexEnviv:=nil; + glGetTexEnvxv:=nil; + glGetTexParameteriv:=nil; + glGetTexParameterxv:=nil; + glHint:=nil; + glIsBuffer:=nil; + glIsEnabled:=nil; + glIsTexture:=nil; + glLightModelx:=nil; + glLightModelxv:=nil; + glLightx:=nil; + glLightxv:=nil; + glLineWidthx:=nil; + glLoadIdentity:=nil; + glLoadMatrixx:=nil; + glLogicOp:=nil; + glMaterialx:=nil; + glMaterialxv:=nil; + glMatrixMode:=nil; + glMultMatrixx:=nil; + glMultiTexCoord4x:=nil; + glNormal3x:=nil; + glNormalPointer:=nil; + glOrthox:=nil; + glPixelStorei:=nil; + glPointParameterx:=nil; + glPointParameterxv:=nil; + glPointSizex:=nil; + glPolygonOffsetx:=nil; + glPopMatrix:=nil; + glPushMatrix:=nil; + glReadPixels:=nil; + glRotatex:=nil; + glSampleCoverage:=nil; + glSampleCoveragex:=nil; + glScalex:=nil; + glScissor:=nil; + glShadeModel:=nil; + glStencilFunc:=nil; + glStencilMask:=nil; + glStencilOp:=nil; + glTexCoordPointer:=nil; + glTexEnvi:=nil; + glTexEnvx:=nil; + glTexEnviv:=nil; + glTexEnvxv:=nil; + glTexImage2D:=nil; + glTexParameteri:=nil; + glTexParameterx:=nil; + glTexParameteriv:=nil; + glTexParameterxv:=nil; + glTexSubImage2D:=nil; + glTranslatex:=nil; + glVertexPointer:=nil; + glViewport:=nil; + glPointSizePointerOES:=nil; + end; + + + procedure Loadgles11(lib : pchar); + begin + Freegles11; + WriteToConsole('loading lib'); + hlib:=LoadLibrary(lib); + if hlib=0 then + begin + WriteToConsole('crash'); + raise Exception.Create(format('Could not load library: %s',[lib])); + end; + WriteToConsole('succeeded'); + pointer(glAlphaFunc):=GetProcAddress(hlib,'glAlphaFunc'); + pointer(glClearColor):=GetProcAddress(hlib,'glClearColor'); + pointer(glClearDepthf):=GetProcAddress(hlib,'glClearDepthf'); + pointer(glClipPlanef):=GetProcAddress(hlib,'glClipPlanef'); + pointer(glColor4f):=GetProcAddress(hlib,'glColor4f'); + pointer(glDepthRangef):=GetProcAddress(hlib,'glDepthRangef'); + pointer(glFogf):=GetProcAddress(hlib,'glFogf'); + pointer(glFogfv):=GetProcAddress(hlib,'glFogfv'); + pointer(glFrustumf):=GetProcAddress(hlib,'glFrustumf'); + pointer(glGetClipPlanef):=GetProcAddress(hlib,'glGetClipPlanef'); + pointer(glGetFloatv):=GetProcAddress(hlib,'glGetFloatv'); + pointer(glGetLightfv):=GetProcAddress(hlib,'glGetLightfv'); + pointer(glGetMaterialfv):=GetProcAddress(hlib,'glGetMaterialfv'); + pointer(glGetTexEnvfv):=GetProcAddress(hlib,'glGetTexEnvfv'); + pointer(glGetTexParameterfv):=GetProcAddress(hlib,'glGetTexParameterfv'); + pointer(glLightModelf):=GetProcAddress(hlib,'glLightModelf'); + pointer(glLightModelfv):=GetProcAddress(hlib,'glLightModelfv'); + pointer(glLightf):=GetProcAddress(hlib,'glLightf'); + pointer(glLightfv):=GetProcAddress(hlib,'glLightfv'); + pointer(glLineWidth):=GetProcAddress(hlib,'glLineWidth'); + pointer(glLoadMatrixf):=GetProcAddress(hlib,'glLoadMatrixf'); + pointer(glMaterialf):=GetProcAddress(hlib,'glMaterialf'); + pointer(glMaterialfv):=GetProcAddress(hlib,'glMaterialfv'); + pointer(glMultMatrixf):=GetProcAddress(hlib,'glMultMatrixf'); + pointer(glMultiTexCoord4f):=GetProcAddress(hlib,'glMultiTexCoord4f'); + pointer(glNormal3f):=GetProcAddress(hlib,'glNormal3f'); + pointer(glOrthof):=GetProcAddress(hlib,'glOrthof'); + pointer(glPointParameterf):=GetProcAddress(hlib,'glPointParameterf'); + pointer(glPointParameterfv):=GetProcAddress(hlib,'glPointParameterfv'); + pointer(glPointSize):=GetProcAddress(hlib,'glPointSize'); + pointer(glPolygonOffset):=GetProcAddress(hlib,'glPolygonOffset'); + pointer(glRotatef):=GetProcAddress(hlib,'glRotatef'); + pointer(glScalef):=GetProcAddress(hlib,'glScalef'); + pointer(glTexEnvf):=GetProcAddress(hlib,'glTexEnvf'); + pointer(glTexEnvfv):=GetProcAddress(hlib,'glTexEnvfv'); + pointer(glTexParameterf):=GetProcAddress(hlib,'glTexParameterf'); + pointer(glTexParameterfv):=GetProcAddress(hlib,'glTexParameterfv'); + pointer(glTranslatef):=GetProcAddress(hlib,'glTranslatef'); + pointer(glActiveTexture):=GetProcAddress(hlib,'glActiveTexture'); + pointer(glAlphaFuncx):=GetProcAddress(hlib,'glAlphaFuncx'); + pointer(glBindBuffer):=GetProcAddress(hlib,'glBindBuffer'); + pointer(glBindTexture):=GetProcAddress(hlib,'glBindTexture'); + pointer(glBlendFunc):=GetProcAddress(hlib,'glBlendFunc'); + pointer(glBufferData):=GetProcAddress(hlib,'glBufferData'); + pointer(glBufferSubData):=GetProcAddress(hlib,'glBufferSubData'); + pointer(glClear):=GetProcAddress(hlib,'glClear'); + pointer(glClearColorx):=GetProcAddress(hlib,'glClearColorx'); + pointer(glClearDepthx):=GetProcAddress(hlib,'glClearDepthx'); + pointer(glClearStencil):=GetProcAddress(hlib,'glClearStencil'); + pointer(glClientActiveTexture):=GetProcAddress(hlib,'glClientActiveTexture'); + pointer(glClipPlanex):=GetProcAddress(hlib,'glClipPlanex'); + pointer(glColor4ub):=GetProcAddress(hlib,'glColor4ub'); + pointer(glColor4x):=GetProcAddress(hlib,'glColor4x'); + pointer(glColorMask):=GetProcAddress(hlib,'glColorMask'); + pointer(glColorPointer):=GetProcAddress(hlib,'glColorPointer'); + pointer(glCompressedTexImage2D):=GetProcAddress(hlib,'glCompressedTexImage2D'); + pointer(glCompressedTexSubImage2D):=GetProcAddress(hlib,'glCompressedTexSubImage2D'); + pointer(glCopyTexImage2D):=GetProcAddress(hlib,'glCopyTexImage2D'); + pointer(glCopyTexSubImage2D):=GetProcAddress(hlib,'glCopyTexSubImage2D'); + pointer(glCullFace):=GetProcAddress(hlib,'glCullFace'); + pointer(glDeleteBuffers):=GetProcAddress(hlib,'glDeleteBuffers'); + pointer(glDeleteTextures):=GetProcAddress(hlib,'glDeleteTextures'); + pointer(glDepthFunc):=GetProcAddress(hlib,'glDepthFunc'); + pointer(glDepthMask):=GetProcAddress(hlib,'glDepthMask'); + pointer(glDepthRangex):=GetProcAddress(hlib,'glDepthRangex'); + pointer(glDisable):=GetProcAddress(hlib,'glDisable'); + pointer(glDisableClientState):=GetProcAddress(hlib,'glDisableClientState'); + pointer(glDrawArrays):=GetProcAddress(hlib,'glDrawArrays'); + pointer(glDrawElements):=GetProcAddress(hlib,'glDrawElements'); + pointer(glEnable):=GetProcAddress(hlib,'glEnable'); + pointer(glEnableClientState):=GetProcAddress(hlib,'glEnableClientState'); + pointer(glFinish):=GetProcAddress(hlib,'glFinish'); + pointer(glFlush):=GetProcAddress(hlib,'glFlush'); + pointer(glFogx):=GetProcAddress(hlib,'glFogx'); + pointer(glFogxv):=GetProcAddress(hlib,'glFogxv'); + pointer(glFrontFace):=GetProcAddress(hlib,'glFrontFace'); + pointer(glFrustumx):=GetProcAddress(hlib,'glFrustumx'); + pointer(glGetBooleanv):=GetProcAddress(hlib,'glGetBooleanv'); + pointer(glGetBufferParameteriv):=GetProcAddress(hlib,'glGetBufferParameteriv'); + pointer(glGetClipPlanex):=GetProcAddress(hlib,'glGetClipPlanex'); + pointer(glGenBuffers):=GetProcAddress(hlib,'glGenBuffers'); + pointer(glGenTextures):=GetProcAddress(hlib,'glGenTextures'); + pointer(glGetError):=GetProcAddress(hlib,'glGetError'); + pointer(glGetFixedv):=GetProcAddress(hlib,'glGetFixedv'); + pointer(glGetIntegerv):=GetProcAddress(hlib,'glGetIntegerv'); + pointer(glGetLightxv):=GetProcAddress(hlib,'glGetLightxv'); + pointer(glGetMaterialxv):=GetProcAddress(hlib,'glGetMaterialxv'); + pointer(glGetPointerv):=GetProcAddress(hlib,'glGetPointerv'); + pointer(glGetString):=GetProcAddress(hlib,'glGetString'); + pointer(glGetTexEnviv):=GetProcAddress(hlib,'glGetTexEnviv'); + pointer(glGetTexEnvxv):=GetProcAddress(hlib,'glGetTexEnvxv'); + pointer(glGetTexParameteriv):=GetProcAddress(hlib,'glGetTexParameteriv'); + pointer(glGetTexParameterxv):=GetProcAddress(hlib,'glGetTexParameterxv'); + pointer(glHint):=GetProcAddress(hlib,'glHint'); + pointer(glIsBuffer):=GetProcAddress(hlib,'glIsBuffer'); + pointer(glIsEnabled):=GetProcAddress(hlib,'glIsEnabled'); + pointer(glIsTexture):=GetProcAddress(hlib,'glIsTexture'); + pointer(glLightModelx):=GetProcAddress(hlib,'glLightModelx'); + pointer(glLightModelxv):=GetProcAddress(hlib,'glLightModelxv'); + pointer(glLightx):=GetProcAddress(hlib,'glLightx'); + pointer(glLightxv):=GetProcAddress(hlib,'glLightxv'); + pointer(glLineWidthx):=GetProcAddress(hlib,'glLineWidthx'); + pointer(glLoadIdentity):=GetProcAddress(hlib,'glLoadIdentity'); + pointer(glLoadMatrixx):=GetProcAddress(hlib,'glLoadMatrixx'); + pointer(glLogicOp):=GetProcAddress(hlib,'glLogicOp'); + pointer(glMaterialx):=GetProcAddress(hlib,'glMaterialx'); + pointer(glMaterialxv):=GetProcAddress(hlib,'glMaterialxv'); + pointer(glMatrixMode):=GetProcAddress(hlib,'glMatrixMode'); + pointer(glMultMatrixx):=GetProcAddress(hlib,'glMultMatrixx'); + pointer(glMultiTexCoord4x):=GetProcAddress(hlib,'glMultiTexCoord4x'); + pointer(glNormal3x):=GetProcAddress(hlib,'glNormal3x'); + pointer(glNormalPointer):=GetProcAddress(hlib,'glNormalPointer'); + pointer(glOrthox):=GetProcAddress(hlib,'glOrthox'); + pointer(glPixelStorei):=GetProcAddress(hlib,'glPixelStorei'); + pointer(glPointParameterx):=GetProcAddress(hlib,'glPointParameterx'); + pointer(glPointParameterxv):=GetProcAddress(hlib,'glPointParameterxv'); + pointer(glPointSizex):=GetProcAddress(hlib,'glPointSizex'); + pointer(glPolygonOffsetx):=GetProcAddress(hlib,'glPolygonOffsetx'); + pointer(glPopMatrix):=GetProcAddress(hlib,'glPopMatrix'); + pointer(glPushMatrix):=GetProcAddress(hlib,'glPushMatrix'); + pointer(glReadPixels):=GetProcAddress(hlib,'glReadPixels'); + pointer(glRotatex):=GetProcAddress(hlib,'glRotatex'); + pointer(glSampleCoverage):=GetProcAddress(hlib,'glSampleCoverage'); + pointer(glSampleCoveragex):=GetProcAddress(hlib,'glSampleCoveragex'); + pointer(glScalex):=GetProcAddress(hlib,'glScalex'); + pointer(glScissor):=GetProcAddress(hlib,'glScissor'); + pointer(glShadeModel):=GetProcAddress(hlib,'glShadeModel'); + pointer(glStencilFunc):=GetProcAddress(hlib,'glStencilFunc'); + pointer(glStencilMask):=GetProcAddress(hlib,'glStencilMask'); + pointer(glStencilOp):=GetProcAddress(hlib,'glStencilOp'); + pointer(glTexCoordPointer):=GetProcAddress(hlib,'glTexCoordPointer'); + pointer(glTexEnvi):=GetProcAddress(hlib,'glTexEnvi'); + pointer(glTexEnvx):=GetProcAddress(hlib,'glTexEnvx'); + pointer(glTexEnviv):=GetProcAddress(hlib,'glTexEnviv'); + pointer(glTexEnvxv):=GetProcAddress(hlib,'glTexEnvxv'); + pointer(glTexImage2D):=GetProcAddress(hlib,'glTexImage2D'); + pointer(glTexParameteri):=GetProcAddress(hlib,'glTexParameteri'); + pointer(glTexParameterx):=GetProcAddress(hlib,'glTexParameterx'); + pointer(glTexParameteriv):=GetProcAddress(hlib,'glTexParameteriv'); + pointer(glTexParameterxv):=GetProcAddress(hlib,'glTexParameterxv'); + pointer(glTexSubImage2D):=GetProcAddress(hlib,'glTexSubImage2D'); + pointer(glTranslatex):=GetProcAddress(hlib,'glTranslatex'); + pointer(glVertexPointer):=GetProcAddress(hlib,'glVertexPointer'); + pointer(glViewport):=GetProcAddress(hlib,'glViewport'); + pointer(glPointSizePointerOES):=GetProcAddress(hlib,'glPointSizePointerOES'); + end; + +procedure init; +begin + WriteToConsole('init'); + Loadgles11('libGLESv1_CM.so'); +end; + + +initialization + Loadgles11('gles11'); +finalization + Freegles11; + +end.