--- a/Android-build/gles11.pp Wed Jun 22 23:55:32 2011 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,1107 +0,0 @@
-
-{$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.