# HG changeset patch # User Xeli # Date 1308779768 -7200 # Node ID 690e88ef6ee7b2e93eda40c183167311b1d14a6a # Parent ab899b056f774c3f8e71bab5cf596addd3757bca Moved Android-build to project_files/Android-build diff -r ab899b056f77 -r 690e88ef6ee7 Android-build/Makefile.android --- a/Android-build/Makefile.android Wed Jun 22 23:55:32 2011 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,26 +0,0 @@ -#USER DEFINED -FPC_DIR=/home/richard/SoftDev/fpc-2.4.4 -ANDROID_NDK=/home/richard/SoftDev/android/android-ndk-r5b -ANDROID_SDK=/home/richard/SoftDev/android/android-sdk-linux_86 -#END USER DEFINED - -SDL_ANDROID_DIR=./SDL-android-project -ANDROID_API_LVL=5 - -PPCROSSARM=$(FPC_DIR)/compiler/ppcrossarm -PPCROSSARM_FLAGS= -Xd -O- -Tlinux -XParm-linux-androideabi- -vwnh -XS -PPCROSSARM_INCLUDES= \ - -FD$(ANDROID_NDK)/toolchains/arm-linux-androideabi-4.4.3/prebuilt/linux-x86/bin \ - -Fu$(FPC_DIR)/rtl/units/arm-linux \ - -Fl$(ANDROID_NDK)/platforms/android-$(ANDROID_API_LVL)/arch-arm/usr/lib \ - -Fl$(SDL_ANDROID_DIR)/libs/armeabi \ - -Fl$(ANDROID_NDK)/toolchains/arm-linux-androideabi-4.4.3/prebuilt/linux-x86/lib/gcc/arm-linux/arm-linux-androideabi/4.4.3/ \ -#LINKERFLAGS= -k"--static" -FPC_DEFINES=-dandroid -darm - - -all: - $(PPCROSSARM) $(LINKERFLAGS) $(PPCROSSARM_FLAGS) $(PPCROSSARM_INCLUDES) $(FPC_DEFINES) -oout/libhwengine.so ../hedgewars/hwLibrary.pas - -clean: - rm out/* diff -r ab899b056f77 -r 690e88ef6ee7 Android-build/gles11.pp --- 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. diff -r ab899b056f77 -r 690e88ef6ee7 Android-build/pushToDevice --- a/Android-build/pushToDevice Wed Jun 22 23:55:32 2011 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,5 +0,0 @@ -#!/bin/bash - -adb push ./out/libhwengine.so /sdcard/libhwengine.so -adb shell "su -c \"cat /sdcard/libhwengine.so > /data/data/org.hedgewars/lib/libhwengine.so \"" - diff -r ab899b056f77 -r 690e88ef6ee7 project_files/Android-build/Makefile.android --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/project_files/Android-build/Makefile.android Wed Jun 22 23:56:08 2011 +0200 @@ -0,0 +1,26 @@ +#USER DEFINED +FPC_DIR=/home/richard/SoftDev/fpc-2.4.4 +ANDROID_NDK=/home/richard/SoftDev/android/android-ndk-r5b +ANDROID_SDK=/home/richard/SoftDev/android/android-sdk-linux_86 +#END USER DEFINED + +SDL_ANDROID_DIR=./SDL-android-project +ANDROID_API_LVL=5 + +PPCROSSARM=$(FPC_DIR)/compiler/ppcrossarm +PPCROSSARM_FLAGS= -Xd -O- -Tlinux -XParm-linux-androideabi- -vwnh -XS +PPCROSSARM_INCLUDES= \ + -FD$(ANDROID_NDK)/toolchains/arm-linux-androideabi-4.4.3/prebuilt/linux-x86/bin \ + -Fu$(FPC_DIR)/rtl/units/arm-linux \ + -Fl$(ANDROID_NDK)/platforms/android-$(ANDROID_API_LVL)/arch-arm/usr/lib \ + -Fl$(SDL_ANDROID_DIR)/libs/armeabi \ + -Fl$(ANDROID_NDK)/toolchains/arm-linux-androideabi-4.4.3/prebuilt/linux-x86/lib/gcc/arm-linux/arm-linux-androideabi/4.4.3/ \ +#LINKERFLAGS= -k"--static" +FPC_DEFINES=-dandroid -darm + + +all: + $(PPCROSSARM) $(LINKERFLAGS) $(PPCROSSARM_FLAGS) $(PPCROSSARM_INCLUDES) $(FPC_DEFINES) -oout/libhwengine.so ../hedgewars/hwLibrary.pas + +clean: + rm out/* diff -r ab899b056f77 -r 690e88ef6ee7 project_files/Android-build/gles11.pp --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/project_files/Android-build/gles11.pp Wed Jun 22 23:56:08 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. diff -r ab899b056f77 -r 690e88ef6ee7 project_files/Android-build/pushToDevice --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/project_files/Android-build/pushToDevice Wed Jun 22 23:56:08 2011 +0200 @@ -0,0 +1,5 @@ +#!/bin/bash + +adb push ./out/libhwengine.so /sdcard/libhwengine.so +adb shell "su -c \"cat /sdcard/libhwengine.so > /data/data/org.hedgewars/lib/libhwengine.so \"" +