技术宅的结界

 找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 5605|回复: 20
收起左侧

【VB】VB6不用vbogl.tlb玩OpenGL

[复制链接]

1043

主题

2335

帖子

5万

积分

用户组: 管理员

一只技术宅

UID
1
精华
217
威望
294 点
宅币
18229 个
贡献
36857 次
宅之契约
0 份
在线时间
1738 小时
注册时间
2014-1-26
发表于 2014-8-29 02:35:05 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有帐号?立即注册→加入我们

x
常数部分
[Visual Basic] 纯文本查看 复制代码
Option Explicit

Global Const GL_VERSION_1_1 = 1&

Global Const GL_ZERO = 0&
Global Const GL_FALSE = 0&
Global Const GL_LOGIC_OP = &HBF1&
Global Const GL_NONE = 0&
Global Const GL_TEXTURE_COMPONENTS = &H1003&
Global Const GL_NO_ERROR = 0&
Global Const GL_POINTS = &H0&
Global Const GL_CURRENT_BIT = &H1&
Global Const GL_TRUE = 1&
Global Const GL_ONE = 1&
Global Const GL_CLIENT_PIXEL_STORE_BIT = &H1&
Global Const GL_LINES = &H1&
Global Const GL_LINE_LOOP = &H2&
Global Const GL_POINT_BIT = &H2&
Global Const GL_CLIENT_VERTEX_ARRAY_BIT = &H2&
Global Const GL_LINE_STRIP = &H3&
Global Const GL_LINE_BIT = &H4&
Global Const GL_TRIANGLES = &H4&
Global Const GL_TRIANGLE_STRIP = &H5&
Global Const GL_TRIANGLE_FAN = &H6&
Global Const GL_QUADS = &H7&
Global Const GL_QUAD_STRIP = &H8&
Global Const GL_POLYGON_BIT = &H8&
Global Const GL_POLYGON = &H9&
Global Const GL_POLYGON_STIPPLE_BIT = &H10&
Global Const GL_PIXEL_MODE_BIT = &H20&
Global Const GL_LIGHTING_BIT = &H40&
Global Const GL_FOG_BIT = &H80&
Global Const GL_DEPTH_BUFFER_BIT = &H100&
Global Const GL_ACCUM = &H100&
Global Const GL_LOAD = &H101&
Global Const GL_RETURN = &H102&
Global Const GL_MULT = &H103&
Global Const GL_ADD = &H104&
Global Const GL_NEVER = &H200&
Global Const GL_ACCUM_BUFFER_BIT = &H200&
Global Const GL_LESS = &H201&
Global Const GL_EQUAL = &H202&
Global Const GL_LEQUAL = &H203&
Global Const GL_GREATER = &H204&
Global Const GL_NOTEQUAL = &H205&
Global Const GL_GEQUAL = &H206&
Global Const GL_ALWAYS = &H207&
Global Const GL_SRC_COLOR = &H300&
Global Const GL_ONE_MINUS_SRC_COLOR = &H301&
Global Const GL_SRC_ALPHA = &H302&
Global Const GL_ONE_MINUS_SRC_ALPHA = &H303&
Global Const GL_DST_ALPHA = &H304&
Global Const GL_ONE_MINUS_DST_ALPHA = &H305&
Global Const GL_DST_COLOR = &H306&
Global Const GL_ONE_MINUS_DST_COLOR = &H307&
Global Const GL_SRC_ALPHA_SATURATE = &H308&
Global Const GL_STENCIL_BUFFER_BIT = &H400&
Global Const GL_FRONT_LEFT = &H400&
Global Const GL_FRONT_RIGHT = &H401&
Global Const GL_BACK_LEFT = &H402&
Global Const GL_BACK_RIGHT = &H403&
Global Const GL_FRONT = &H404&
Global Const GL_BACK = &H405&
Global Const GL_LEFT = &H406&
Global Const GL_RIGHT = &H407&
Global Const GL_FRONT_AND_BACK = &H408&
Global Const GL_AUX0 = &H409&
Global Const GL_AUX1 = &H40A&
Global Const GL_AUX2 = &H40B&
Global Const GL_AUX3 = &H40C&
Global Const GL_INVALID_ENUM = &H500&
Global Const GL_INVALID_VALUE = &H501&
Global Const GL_INVALID_OPERATION = &H502&
Global Const GL_STACK_OVERFLOW = &H503&
Global Const GL_STACK_UNDERFLOW = &H504&
Global Const GL_OUT_OF_MEMORY = &H505&
Global Const GL_2D = &H600&
Global Const GL_3D = &H601&
Global Const GL_3D_COLOR = &H602&
Global Const GL_3D_COLOR_TEXTURE = &H603&
Global Const GL_4D_COLOR_TEXTURE = &H604&
Global Const GL_PASS_THROUGH_TOKEN = &H700&
Global Const GL_POINT_TOKEN = &H701&
Global Const GL_LINE_TOKEN = &H702&
Global Const GL_POLYGON_TOKEN = &H703&
Global Const GL_BITMAP_TOKEN = &H704&
Global Const GL_DRAW_PIXEL_TOKEN = &H705&
Global Const GL_COPY_PIXEL_TOKEN = &H706&
Global Const GL_LINE_RESET_TOKEN = &H707&
Global Const GL_EXP = &H800&
Global Const GL_VIEWPORT_BIT = &H800&
Global Const GL_EXP2 = &H801&
Global Const GL_CW = &H900&
Global Const GL_CCW = &H901&
Global Const GL_COEFF = &HA00&
Global Const GL_ORDER = &HA01&
Global Const GL_DOMAIN = &HA02&
Global Const GL_CURRENT_COLOR = &HB00&
Global Const GL_CURRENT_INDEX = &HB01&
Global Const GL_CURRENT_NORMAL = &HB02&
Global Const GL_CURRENT_TEXTURE_COORDS = &HB03&
Global Const GL_CURRENT_RASTER_COLOR = &HB04&
Global Const GL_CURRENT_RASTER_INDEX = &HB05&
Global Const GL_CURRENT_RASTER_TEXTURE_COORDS = &HB06&
Global Const GL_CURRENT_RASTER_POSITION = &HB07&
Global Const GL_CURRENT_RASTER_POSITION_VALID = &HB08&
Global Const GL_CURRENT_RASTER_DISTANCE = &HB09&
Global Const GL_POINT_SMOOTH = &HB10&
Global Const GL_POINT_SIZE = &HB11&
Global Const GL_POINT_SIZE_RANGE = &HB12&
Global Const GL_POINT_SIZE_GRANULARITY = &HB13&
Global Const GL_LINE_SMOOTH = &HB20&
Global Const GL_LINE_WIDTH = &HB21&
Global Const GL_LINE_WIDTH_RANGE = &HB22&
Global Const GL_LINE_WIDTH_GRANULARITY = &HB23&
Global Const GL_LINE_STIPPLE = &HB24&
Global Const GL_LINE_STIPPLE_PATTERN = &HB25&
Global Const GL_LINE_STIPPLE_REPEAT = &HB26&
Global Const GL_LIST_MODE = &HB30&
Global Const GL_MAX_LIST_NESTING = &HB31&
Global Const GL_LIST_BASE = &HB32&
Global Const GL_LIST_INDEX = &HB33&
Global Const GL_POLYGON_MODE = &HB40&
Global Const GL_POLYGON_SMOOTH = &HB41&
Global Const GL_POLYGON_STIPPLE = &HB42&
Global Const GL_EDGE_FLAG = &HB43&
Global Const GL_CULL_FACE = &HB44&
Global Const GL_CULL_FACE_MODE = &HB45&
Global Const GL_FRONT_FACE = &HB46&
Global Const GL_LIGHTING = &HB50&
Global Const GL_LIGHT_MODEL_LOCAL_VIEWER = &HB51&
Global Const GL_LIGHT_MODEL_TWO_SIDE = &HB52&
Global Const GL_LIGHT_MODEL_AMBIENT = &HB53&
Global Const GL_SHADE_MODEL = &HB54&
Global Const GL_COLOR_MATERIAL_FACE = &HB55&
Global Const GL_COLOR_MATERIAL_PARAMETER = &HB56&
Global Const GL_COLOR_MATERIAL = &HB57&
Global Const GL_FOG = &HB60&
Global Const GL_FOG_INDEX = &HB61&
Global Const GL_FOG_DENSITY = &HB62&
Global Const GL_FOG_START = &HB63&
Global Const GL_FOG_END = &HB64&
Global Const GL_FOG_MODE = &HB65&
Global Const GL_FOG_COLOR = &HB66&
Global Const GL_DEPTH_RANGE = &HB70&
Global Const GL_DEPTH_TEST = &HB71&
Global Const GL_DEPTH_WRITEMASK = &HB72&
Global Const GL_DEPTH_CLEAR_VALUE = &HB73&
Global Const GL_DEPTH_FUNC = &HB74&
Global Const GL_ACCUM_CLEAR_VALUE = &HB80&
Global Const GL_STENCIL_TEST = &HB90&
Global Const GL_STENCIL_CLEAR_VALUE = &HB91&
Global Const GL_STENCIL_FUNC = &HB92&
Global Const GL_STENCIL_VALUE_MASK = &HB93&
Global Const GL_STENCIL_FAIL = &HB94&
Global Const GL_STENCIL_PASS_DEPTH_FAIL = &HB95&
Global Const GL_STENCIL_PASS_DEPTH_PASS = &HB96&
Global Const GL_STENCIL_REF = &HB97&
Global Const GL_STENCIL_WRITEMASK = &HB98&
Global Const GL_MATRIX_MODE = &HBA0&
Global Const GL_NORMALIZE = &HBA1&
Global Const GL_VIEWPORT = &HBA2&
Global Const GL_MODELVIEW_STACK_DEPTH = &HBA3&
Global Const GL_PROJECTION_STACK_DEPTH = &HBA4&
Global Const GL_TEXTURE_STACK_DEPTH = &HBA5&
Global Const GL_MODELVIEW_MATRIX = &HBA6&
Global Const GL_PROJECTION_MATRIX = &HBA7&
Global Const GL_TEXTURE_MATRIX = &HBA8&
Global Const GL_ATTRIB_STACK_DEPTH = &HBB0&
Global Const GL_CLIENT_ATTRIB_STACK_DEPTH = &HBB1&
Global Const GL_ALPHA_TEST = &HBC0&
Global Const GL_ALPHA_TEST_FUNC = &HBC1&
Global Const GL_ALPHA_TEST_REF = &HBC2&
Global Const GL_DITHER = &HBD0&
Global Const GL_BLEND_DST = &HBE0&
Global Const GL_BLEND_SRC = &HBE1&
Global Const GL_BLEND = &HBE2&
Global Const GL_LOGIC_OP_MODE = &HBF0&
Global Const GL_INDEX_LOGIC_OP = &HBF1&
Global Const GL_COLOR_LOGIC_OP = &HBF2&
Global Const GL_AUX_BUFFERS = &HC00&
Global Const GL_DRAW_BUFFER = &HC01&
Global Const GL_READ_BUFFER = &HC02&
Global Const GL_SCISSOR_BOX = &HC10&
Global Const GL_SCISSOR_TEST = &HC11&
Global Const GL_INDEX_CLEAR_VALUE = &HC20&
Global Const GL_INDEX_WRITEMASK = &HC21&
Global Const GL_COLOR_CLEAR_VALUE = &HC22&
Global Const GL_COLOR_WRITEMASK = &HC23&
Global Const GL_INDEX_MODE = &HC30&
Global Const GL_RGBA_MODE = &HC31&
Global Const GL_DOUBLEBUFFER = &HC32&
Global Const GL_STEREO = &HC33&
Global Const GL_RENDER_MODE = &HC40&
Global Const GL_PERSPECTIVE_CORRECTION_HINT = &HC50&
Global Const GL_POINT_SMOOTH_HINT = &HC51&
Global Const GL_LINE_SMOOTH_HINT = &HC52&
Global Const GL_POLYGON_SMOOTH_HINT = &HC53&
Global Const GL_FOG_HINT = &HC54&
Global Const GL_TEXTURE_GEN_S = &HC60&
Global Const GL_TEXTURE_GEN_T = &HC61&
Global Const GL_TEXTURE_GEN_R = &HC62&
Global Const GL_TEXTURE_GEN_Q = &HC63&
Global Const GL_PIXEL_MAP_I_TO_I = &HC70&
Global Const GL_PIXEL_MAP_S_TO_S = &HC71&
Global Const GL_PIXEL_MAP_I_TO_R = &HC72&
Global Const GL_PIXEL_MAP_I_TO_G = &HC73&
Global Const GL_PIXEL_MAP_I_TO_B = &HC74&
Global Const GL_PIXEL_MAP_I_TO_A = &HC75&
Global Const GL_PIXEL_MAP_R_TO_R = &HC76&
Global Const GL_PIXEL_MAP_G_TO_G = &HC77&
Global Const GL_PIXEL_MAP_B_TO_B = &HC78&
Global Const GL_PIXEL_MAP_A_TO_A = &HC79&
Global Const GL_PIXEL_MAP_I_TO_I_SIZE = &HCB0&
Global Const GL_PIXEL_MAP_S_TO_S_SIZE = &HCB1&
Global Const GL_PIXEL_MAP_I_TO_R_SIZE = &HCB2&
Global Const GL_PIXEL_MAP_I_TO_G_SIZE = &HCB3&
Global Const GL_PIXEL_MAP_I_TO_B_SIZE = &HCB4&
Global Const GL_PIXEL_MAP_I_TO_A_SIZE = &HCB5&
Global Const GL_PIXEL_MAP_R_TO_R_SIZE = &HCB6&
Global Const GL_PIXEL_MAP_G_TO_G_SIZE = &HCB7&
Global Const GL_PIXEL_MAP_B_TO_B_SIZE = &HCB8&
Global Const GL_PIXEL_MAP_A_TO_A_SIZE = &HCB9&
Global Const GL_UNPACK_SWAP_BYTES = &HCF0&
Global Const GL_UNPACK_LSB_FIRST = &HCF1&
Global Const GL_UNPACK_ROW_LENGTH = &HCF2&
Global Const GL_UNPACK_SKIP_ROWS = &HCF3&
Global Const GL_UNPACK_SKIP_PIXELS = &HCF4&
Global Const GL_UNPACK_ALIGNMENT = &HCF5&
Global Const GL_PACK_SWAP_BYTES = &HD00&
Global Const GL_PACK_LSB_FIRST = &HD01&
Global Const GL_PACK_ROW_LENGTH = &HD02&
Global Const GL_PACK_SKIP_ROWS = &HD03&
Global Const GL_PACK_SKIP_PIXELS = &HD04&
Global Const GL_PACK_ALIGNMENT = &HD05&
Global Const GL_MAP_COLOR = &HD10&
Global Const GL_MAP_STENCIL = &HD11&
Global Const GL_INDEX_SHIFT = &HD12&
Global Const GL_INDEX_OFFSET = &HD13&
Global Const GL_RED_SCALE = &HD14&
Global Const GL_RED_BIAS = &HD15&
Global Const GL_ZOOM_X = &HD16&
Global Const GL_ZOOM_Y = &HD17&
Global Const GL_GREEN_SCALE = &HD18&
Global Const GL_GREEN_BIAS = &HD19&
Global Const GL_BLUE_SCALE = &HD1A&
Global Const GL_BLUE_BIAS = &HD1B&
Global Const GL_ALPHA_SCALE = &HD1C&
Global Const GL_ALPHA_BIAS = &HD1D&
Global Const GL_DEPTH_SCALE = &HD1E&
Global Const GL_DEPTH_BIAS = &HD1F&
Global Const GL_MAX_EVAL_ORDER = &HD30&
Global Const GL_MAX_LIGHTS = &HD31&
Global Const GL_MAX_CLIP_PLANES = &HD32&
Global Const GL_MAX_TEXTURE_SIZE = &HD33&
Global Const GL_MAX_PIXEL_MAP_TABLE = &HD34&
Global Const GL_MAX_ATTRIB_STACK_DEPTH = &HD35&
Global Const GL_MAX_MODELVIEW_STACK_DEPTH = &HD36&
Global Const GL_MAX_NAME_STACK_DEPTH = &HD37&
Global Const GL_MAX_PROJECTION_STACK_DEPTH = &HD38&
Global Const GL_MAX_TEXTURE_STACK_DEPTH = &HD39&
Global Const GL_MAX_VIEWPORT_DIMS = &HD3A&
Global Const GL_MAX_CLIENT_ATTRIB_STACK_DEPTH = &HD3B&
Global Const GL_SUBPIXEL_BITS = &HD50&
Global Const GL_INDEX_BITS = &HD51&
Global Const GL_RED_BITS = &HD52&
Global Const GL_GREEN_BITS = &HD53&
Global Const GL_BLUE_BITS = &HD54&
Global Const GL_ALPHA_BITS = &HD55&
Global Const GL_DEPTH_BITS = &HD56&
Global Const GL_STENCIL_BITS = &HD57&
Global Const GL_ACCUM_RED_BITS = &HD58&
Global Const GL_ACCUM_GREEN_BITS = &HD59&
Global Const GL_ACCUM_BLUE_BITS = &HD5A&
Global Const GL_ACCUM_ALPHA_BITS = &HD5B&
Global Const GL_NAME_STACK_DEPTH = &HD70&
Global Const GL_AUTO_NORMAL = &HD80&
Global Const GL_MAP1_COLOR_4 = &HD90&
Global Const GL_MAP1_INDEX = &HD91&
Global Const GL_MAP1_NORMAL = &HD92&
Global Const GL_MAP1_TEXTURE_COORD_1 = &HD93&
Global Const GL_MAP1_TEXTURE_COORD_2 = &HD94&
Global Const GL_MAP1_TEXTURE_COORD_3 = &HD95&
Global Const GL_MAP1_TEXTURE_COORD_4 = &HD96&
Global Const GL_MAP1_VERTEX_3 = &HD97&
Global Const GL_MAP1_VERTEX_4 = &HD98&
Global Const GL_MAP2_COLOR_4 = &HDB0&
Global Const GL_MAP2_INDEX = &HDB1&
Global Const GL_MAP2_NORMAL = &HDB2&
Global Const GL_MAP2_TEXTURE_COORD_1 = &HDB3&
Global Const GL_MAP2_TEXTURE_COORD_2 = &HDB4&
Global Const GL_MAP2_TEXTURE_COORD_3 = &HDB5&
Global Const GL_MAP2_TEXTURE_COORD_4 = &HDB6&
Global Const GL_MAP2_VERTEX_3 = &HDB7&
Global Const GL_MAP2_VERTEX_4 = &HDB8&
Global Const GL_MAP1_GRID_DOMAIN = &HDD0&
Global Const GL_MAP1_GRID_SEGMENTS = &HDD1&
Global Const GL_MAP2_GRID_DOMAIN = &HDD2&
Global Const GL_MAP2_GRID_SEGMENTS = &HDD3&
Global Const GL_TEXTURE_1D = &HDE0&
Global Const GL_TEXTURE_2D = &HDE1&
Global Const GL_FEEDBACK_BUFFER_POINTER = &HDF0&
Global Const GL_FEEDBACK_BUFFER_SIZE = &HDF1&
Global Const GL_FEEDBACK_BUFFER_TYPE = &HDF2&
Global Const GL_SELECTION_BUFFER_POINTER = &HDF3&
Global Const GL_SELECTION_BUFFER_SIZE = &HDF4&
Global Const GL_TEXTURE_WIDTH = &H1000&
Global Const GL_TRANSFORM_BIT = &H1000&
Global Const GL_TEXTURE_HEIGHT = &H1001&
Global Const GL_TEXTURE_INTERNAL_FORMAT = &H1003&
Global Const GL_TEXTURE_BORDER_COLOR = &H1004&
Global Const GL_TEXTURE_BORDER = &H1005&
Global Const GL_DONT_CARE = &H1100&
Global Const GL_FASTEST = &H1101&
Global Const GL_NICEST = &H1102&
Global Const GL_AMBIENT = &H1200&
Global Const GL_DIFFUSE = &H1201&
Global Const GL_SPECULAR = &H1202&
Global Const GL_POSITION = &H1203&
Global Const GL_SPOT_DIRECTION = &H1204&
Global Const GL_SPOT_EXPONENT = &H1205&
Global Const GL_SPOT_CUTOFF = &H1206&
Global Const GL_CONSTANT_ATTENUATION = &H1207&
Global Const GL_LINEAR_ATTENUATION = &H1208&
Global Const GL_QUADRATIC_ATTENUATION = &H1209&
Global Const GL_COMPILE = &H1300&
Global Const GL_COMPILE_AND_EXECUTE = &H1301&
Global Const GL_BYTE = &H1400&
Global Const GL_UNSIGNED_BYTE = &H1401&
Global Const GL_SHORT = &H1402&
Global Const GL_UNSIGNED_SHORT = &H1403&
Global Const GL_INT = &H1404&
Global Const GL_UNSIGNED_INT = &H1405&
Global Const GL_FLOAT = &H1406&
Global Const GL_2_BYTES = &H1407&
Global Const GL_3_BYTES = &H1408&
Global Const GL_4_BYTES = &H1409&
Global Const GL_DOUBLE = &H140A&
Global Const GL_CLEAR = &H1500&
Global Const GL_AND = &H1501&
Global Const GL_AND_REVERSE = &H1502&
Global Const GL_COPY = &H1503&
Global Const GL_AND_INVERTED = &H1504&
Global Const GL_NOOP = &H1505&
Global Const GL_XOR = &H1506&
Global Const GL_OR = &H1507&
Global Const GL_NOR = &H1508&
Global Const GL_EQUIV = &H1509&
Global Const GL_INVERT = &H150A&
Global Const GL_OR_REVERSE = &H150B&
Global Const GL_COPY_INVERTED = &H150C&
Global Const GL_OR_INVERTED = &H150D&
Global Const GL_NAND = &H150E&
Global Const GL_SET = &H150F&
Global Const GL_EMISSION = &H1600&
Global Const GL_SHININESS = &H1601&
Global Const GL_AMBIENT_AND_DIFFUSE = &H1602&
Global Const GL_COLOR_INDEXES = &H1603&
Global Const GL_MODELVIEW = &H1700&
Global Const GL_PROJECTION = &H1701&
Global Const GL_TEXTURE = &H1702&
Global Const GL_COLOR = &H1800&
Global Const GL_DEPTH = &H1801&
Global Const GL_STENCIL = &H1802&
Global Const GL_COLOR_INDEX = &H1900&
Global Const GL_STENCIL_INDEX = &H1901&
Global Const GL_DEPTH_COMPONENT = &H1902&
Global Const GL_RED = &H1903&
Global Const GL_GREEN = &H1904&
Global Const GL_BLUE = &H1905&
Global Const GL_ALPHA = &H1906&
Global Const GL_RGB = &H1907&
Global Const GL_RGBA = &H1908&
Global Const GL_LUMINANCE = &H1909&
Global Const GL_LUMINANCE_ALPHA = &H190A&
Global Const GL_BITMAP = &H1A00&
Global Const GL_POINT = &H1B00&
Global Const GL_LINE = &H1B01&
Global Const GL_FILL = &H1B02&
Global Const GL_RENDER = &H1C00&
Global Const GL_FEEDBACK = &H1C01&
Global Const GL_SELECT = &H1C02&
Global Const GL_FLAT = &H1D00&
Global Const GL_SMOOTH = &H1D01&
Global Const GL_KEEP = &H1E00&
Global Const GL_REPLACE = &H1E01&
Global Const GL_INCR = &H1E02&
Global Const GL_DECR = &H1E03&
Global Const GL_VENDOR = &H1F00&
Global Const GL_RENDERER = &H1F01&
Global Const GL_VERSION = &H1F02&
Global Const GL_EXTENSIONS = &H1F03&
Global Const GL_S = &H2000&
Global Const GL_ENABLE_BIT = &H2000&
Global Const GL_T = &H2001&
Global Const GL_R = &H2002&
Global Const GL_Q = &H2003&
Global Const GL_MODULATE = &H2100&
Global Const GL_DECAL = &H2101&
Global Const GL_TEXTURE_ENV_MODE = &H2200&
Global Const GL_TEXTURE_ENV_COLOR = &H2201&
Global Const GL_TEXTURE_ENV = &H2300&
Global Const GL_EYE_LINEAR = &H2400&
Global Const GL_OBJECT_LINEAR = &H2401&
Global Const GL_SPHERE_MAP = &H2402&
Global Const GL_TEXTURE_GEN_MODE = &H2500&
Global Const GL_OBJECT_PLANE = &H2501&
Global Const GL_EYE_PLANE = &H2502&
Global Const GL_NEAREST = &H2600&
Global Const GL_LINEAR = &H2601&
Global Const GL_NEAREST_MIPMAP_NEAREST = &H2700&
Global Const GL_LINEAR_MIPMAP_NEAREST = &H2701&
Global Const GL_NEAREST_MIPMAP_LINEAR = &H2702&
Global Const GL_LINEAR_MIPMAP_LINEAR = &H2703&
Global Const GL_TEXTURE_MAG_FILTER = &H2800&
Global Const GL_TEXTURE_MIN_FILTER = &H2801&
Global Const GL_TEXTURE_WRAP_S = &H2802&
Global Const GL_TEXTURE_WRAP_T = &H2803&
Global Const GL_CLAMP = &H2900&
Global Const GL_REPEAT = &H2901&
Global Const GL_POLYGON_OFFSET_UNITS = &H2A00&
Global Const GL_POLYGON_OFFSET_POINT = &H2A01&
Global Const GL_POLYGON_OFFSET_LINE = &H2A02&
Global Const GL_R3_G3_B2 = &H2A10&
Global Const GL_V2F = &H2A20&
Global Const GL_V3F = &H2A21&
Global Const GL_C4UB_V2F = &H2A22&
Global Const GL_C4UB_V3F = &H2A23&
Global Const GL_C3F_V3F = &H2A24&
Global Const GL_N3F_V3F = &H2A25&
Global Const GL_C4F_N3F_V3F = &H2A26&
Global Const GL_T2F_V3F = &H2A27&
Global Const GL_T4F_V4F = &H2A28&
Global Const GL_T2F_C4UB_V3F = &H2A29&
Global Const GL_T2F_C3F_V3F = &H2A2A&
Global Const GL_T2F_N3F_V3F = &H2A2B&
Global Const GL_T2F_C4F_N3F_V3F = &H2A2C&
Global Const GL_T4F_C4F_N3F_V4F = &H2A2D&
Global Const GL_CLIP_PLANE0 = &H3000&
Global Const GL_CLIP_PLANE1 = &H3001&
Global Const GL_CLIP_PLANE2 = &H3002&
Global Const GL_CLIP_PLANE3 = &H3003&
Global Const GL_CLIP_PLANE4 = &H3004&
Global Const GL_CLIP_PLANE5 = &H3005&
Global Const GL_LIGHT0 = &H4000&
Global Const GL_COLOR_BUFFER_BIT = &H4000&
Global Const GL_LIGHT1 = &H4001&
Global Const GL_LIGHT2 = &H4002&
Global Const GL_LIGHT3 = &H4003&
Global Const GL_LIGHT4 = &H4004&
Global Const GL_LIGHT5 = &H4005&
Global Const GL_LIGHT6 = &H4006&
Global Const GL_LIGHT7 = &H4007&
Global Const GL_HINT_BIT = &H8000&
Global Const GL_POLYGON_OFFSET_FILL = &H8037&
Global Const GL_POLYGON_OFFSET_FACTOR = &H8038&
Global Const GL_ALPHA4 = &H803B&
Global Const GL_ALPHA8 = &H803C&
Global Const GL_ALPHA12 = &H803D&
Global Const GL_ALPHA16 = &H803E&
Global Const GL_LUMINANCE4 = &H803F&
Global Const GL_LUMINANCE8 = &H8040&
Global Const GL_LUMINANCE12 = &H8041&
Global Const GL_LUMINANCE16 = &H8042&
Global Const GL_LUMINANCE4_ALPHA4 = &H8043&
Global Const GL_LUMINANCE6_ALPHA2 = &H8044&
Global Const GL_LUMINANCE8_ALPHA8 = &H8045&
Global Const GL_LUMINANCE12_ALPHA4 = &H8046&
Global Const GL_LUMINANCE12_ALPHA12 = &H8047&
Global Const GL_LUMINANCE16_ALPHA16 = &H8048&
Global Const GL_INTENSITY = &H8049&
Global Const GL_INTENSITY4 = &H804A&
Global Const GL_INTENSITY8 = &H804B&
Global Const GL_INTENSITY12 = &H804C&
Global Const GL_INTENSITY16 = &H804D&
Global Const GL_RGB4 = &H804F&
Global Const GL_RGB5 = &H8050&
Global Const GL_RGB8 = &H8051&
Global Const GL_RGB10 = &H8052&
Global Const GL_RGB12 = &H8053&
Global Const GL_RGB16 = &H8054&
Global Const GL_RGBA2 = &H8055&
Global Const GL_RGBA4 = &H8056&
Global Const GL_RGB5_A1 = &H8057&
Global Const GL_RGBA8 = &H8058&
Global Const GL_RGB10_A2 = &H8059&
Global Const GL_RGBA12 = &H805A&
Global Const GL_RGBA16 = &H805B&
Global Const GL_TEXTURE_RED_SIZE = &H805C&
Global Const GL_TEXTURE_GREEN_SIZE = &H805D&
Global Const GL_TEXTURE_BLUE_SIZE = &H805E&
Global Const GL_TEXTURE_ALPHA_SIZE = &H805F&
Global Const GL_TEXTURE_LUMINANCE_SIZE = &H8060&
Global Const GL_TEXTURE_INTENSITY_SIZE = &H8061&
Global Const GL_PROXY_TEXTURE_1D = &H8063&
Global Const GL_PROXY_TEXTURE_2D = &H8064&
Global Const GL_TEXTURE_PRIORITY = &H8066&
Global Const GL_TEXTURE_RESIDENT = &H8067&
Global Const GL_TEXTURE_BINDING_1D = &H8068&
Global Const GL_TEXTURE_BINDING_2D = &H8069&
Global Const GL_VERTEX_ARRAY = &H8074&
Global Const GL_NORMAL_ARRAY = &H8075&
Global Const GL_COLOR_ARRAY = &H8076&
Global Const GL_INDEX_ARRAY = &H8077&
Global Const GL_TEXTURE_COORD_ARRAY = &H8078&
Global Const GL_EDGE_FLAG_ARRAY = &H8079&
Global Const GL_VERTEX_ARRAY_SIZE = &H807A&
Global Const GL_VERTEX_ARRAY_TYPE = &H807B&
Global Const GL_VERTEX_ARRAY_STRIDE = &H807C&
Global Const GL_NORMAL_ARRAY_TYPE = &H807E&
Global Const GL_NORMAL_ARRAY_STRIDE = &H807F&
Global Const GL_COLOR_ARRAY_SIZE = &H8081&
Global Const GL_COLOR_ARRAY_TYPE = &H8082&
Global Const GL_COLOR_ARRAY_STRIDE = &H8083&
Global Const GL_INDEX_ARRAY_TYPE = &H8085&
Global Const GL_INDEX_ARRAY_STRIDE = &H8086&
Global Const GL_TEXTURE_COORD_ARRAY_SIZE = &H8088&
Global Const GL_TEXTURE_COORD_ARRAY_TYPE = &H8089&
Global Const GL_TEXTURE_COORD_ARRAY_STRIDE = &H808A&
Global Const GL_EDGE_FLAG_ARRAY_STRIDE = &H808C&
Global Const GL_VERTEX_ARRAY_POINTER = &H808E&
Global Const GL_NORMAL_ARRAY_POINTER = &H808F&
Global Const GL_COLOR_ARRAY_POINTER = &H8090&
Global Const GL_INDEX_ARRAY_POINTER = &H8091&
Global Const GL_TEXTURE_COORD_ARRAY_POINTER = &H8092&
Global Const GL_EDGE_FLAG_ARRAY_POINTER = &H8093&
Global Const GL_COLOR_INDEX1_EXT = &H80E2&
Global Const GL_COLOR_INDEX2_EXT = &H80E3&
Global Const GL_COLOR_INDEX4_EXT = &H80E4&
Global Const GL_COLOR_INDEX8_EXT = &H80E5&
Global Const GL_COLOR_INDEX12_EXT = &H80E6&
Global Const GL_COLOR_INDEX16_EXT = &H80E7&
Global Const GL_EVAL_BIT = &H10000
Global Const GL_LIST_BIT = &H20000
Global Const GL_TEXTURE_BIT = &H40000
Global Const GL_SCISSOR_BIT = &H80000
Global Const GL_ALL_ATTRIB_BITS = &HFFFFF
Global Const GL_CLIENT_ALL_ATTRIB_BITS = &HFFFFFFFF

Global Const GL_VERSION_1_2 = 1&

Global Const GL_SMOOTH_POINT_SIZE_RANGE = &HB12&
Global Const GL_SMOOTH_POINT_SIZE_GRANULARITY = &HB13&
Global Const GL_SMOOTH_LINE_WIDTH_RANGE = &HB22&
Global Const GL_SMOOTH_LINE_WIDTH_GRANULARITY = &HB23&
Global Const GL_UNSIGNED_BYTE_3_3_2 = &H8032&
Global Const GL_UNSIGNED_SHORT_4_4_4_4 = &H8033&
Global Const GL_UNSIGNED_SHORT_5_5_5_1 = &H8034&
Global Const GL_UNSIGNED_INT_8_8_8_8 = &H8035&
Global Const GL_UNSIGNED_INT_10_10_10_2 = &H8036&
Global Const GL_RESCALE_NORMAL = &H803A&
Global Const GL_TEXTURE_BINDING_3D = &H806A&
Global Const GL_PACK_SKIP_IMAGES = &H806B&
Global Const GL_PACK_IMAGE_HEIGHT = &H806C&
Global Const GL_UNPACK_SKIP_IMAGES = &H806D&
Global Const GL_UNPACK_IMAGE_HEIGHT = &H806E&
Global Const GL_TEXTURE_3D = &H806F&
Global Const GL_PROXY_TEXTURE_3D = &H8070&
Global Const GL_TEXTURE_DEPTH = &H8071&
Global Const GL_TEXTURE_WRAP_R = &H8072&
Global Const GL_MAX_3D_TEXTURE_SIZE = &H8073&
Global Const GL_BGR = &H80E0&
Global Const GL_BGRA = &H80E1&
Global Const GL_MAX_ELEMENTS_VERTICES = &H80E8&
Global Const GL_MAX_ELEMENTS_INDICES = &H80E9&
Global Const GL_CLAMP_TO_EDGE = &H812F&
Global Const GL_TEXTURE_MIN_LOD = &H813A&
Global Const GL_TEXTURE_MAX_LOD = &H813B&
Global Const GL_TEXTURE_BASE_LEVEL = &H813C&
Global Const GL_TEXTURE_MAX_LEVEL = &H813D&
Global Const GL_LIGHT_MODEL_COLOR_CONTROL = &H81F8&
Global Const GL_SINGLE_COLOR = &H81F9&
Global Const GL_SEPARATE_SPECULAR_COLOR = &H81FA&
Global Const GL_UNSIGNED_BYTE_2_3_3_REV = &H8362&
Global Const GL_UNSIGNED_SHORT_5_6_5 = &H8363&
Global Const GL_UNSIGNED_SHORT_5_6_5_REV = &H8364&
Global Const GL_UNSIGNED_SHORT_4_4_4_4_REV = &H8365&
Global Const GL_UNSIGNED_SHORT_1_5_5_5_REV = &H8366&
Global Const GL_UNSIGNED_INT_8_8_8_8_REV = &H8367&
Global Const GL_ALIASED_POINT_SIZE_RANGE = &H846D&
Global Const GL_ALIASED_LINE_WIDTH_RANGE = &H846E&

Global Const GL_VERSION_1_3 = 1&

Global Const GL_MULTISAMPLE = &H809D&
Global Const GL_SAMPLE_ALPHA_TO_COVERAGE = &H809E&
Global Const GL_SAMPLE_ALPHA_TO_ONE = &H809F&
Global Const GL_SAMPLE_COVERAGE = &H80A0&
Global Const GL_SAMPLE_BUFFERS = &H80A8&
Global Const GL_SAMPLES = &H80A9&
Global Const GL_SAMPLE_COVERAGE_VALUE = &H80AA&
Global Const GL_SAMPLE_COVERAGE_INVERT = &H80AB&
Global Const GL_CLAMP_TO_BORDER = &H812D&
Global Const GL_TEXTURE0 = &H84C0&
Global Const GL_TEXTURE1 = &H84C1&
Global Const GL_TEXTURE2 = &H84C2&
Global Const GL_TEXTURE3 = &H84C3&
Global Const GL_TEXTURE4 = &H84C4&
Global Const GL_TEXTURE5 = &H84C5&
Global Const GL_TEXTURE6 = &H84C6&
Global Const GL_TEXTURE7 = &H84C7&
Global Const GL_TEXTURE8 = &H84C8&
Global Const GL_TEXTURE9 = &H84C9&
Global Const GL_TEXTURE10 = &H84CA&
Global Const GL_TEXTURE11 = &H84CB&
Global Const GL_TEXTURE12 = &H84CC&
Global Const GL_TEXTURE13 = &H84CD&
Global Const GL_TEXTURE14 = &H84CE&
Global Const GL_TEXTURE15 = &H84CF&
Global Const GL_TEXTURE16 = &H84D0&
Global Const GL_TEXTURE17 = &H84D1&
Global Const GL_TEXTURE18 = &H84D2&
Global Const GL_TEXTURE19 = &H84D3&
Global Const GL_TEXTURE20 = &H84D4&
Global Const GL_TEXTURE21 = &H84D5&
Global Const GL_TEXTURE22 = &H84D6&
Global Const GL_TEXTURE23 = &H84D7&
Global Const GL_TEXTURE24 = &H84D8&
Global Const GL_TEXTURE25 = &H84D9&
Global Const GL_TEXTURE26 = &H84DA&
Global Const GL_TEXTURE27 = &H84DB&
Global Const GL_TEXTURE28 = &H84DC&
Global Const GL_TEXTURE29 = &H84DD&
Global Const GL_TEXTURE30 = &H84DE&
Global Const GL_TEXTURE31 = &H84DF&
Global Const GL_ACTIVE_TEXTURE = &H84E0&
Global Const GL_CLIENT_ACTIVE_TEXTURE = &H84E1&
Global Const GL_MAX_TEXTURE_UNITS = &H84E2&
Global Const GL_TRANSPOSE_MODELVIEW_MATRIX = &H84E3&
Global Const GL_TRANSPOSE_PROJECTION_MATRIX = &H84E4&
Global Const GL_TRANSPOSE_TEXTURE_MATRIX = &H84E5&
Global Const GL_TRANSPOSE_COLOR_MATRIX = &H84E6&
Global Const GL_SUBTRACT = &H84E7&
Global Const GL_COMPRESSED_ALPHA = &H84E9&
Global Const GL_COMPRESSED_LUMINANCE = &H84EA&
Global Const GL_COMPRESSED_LUMINANCE_ALPHA = &H84EB&
Global Const GL_COMPRESSED_INTENSITY = &H84EC&
Global Const GL_COMPRESSED_RGB = &H84ED&
Global Const GL_COMPRESSED_RGBA = &H84EE&
Global Const GL_TEXTURE_COMPRESSION_HINT = &H84EF&
Global Const GL_NORMAL_MAP = &H8511&
Global Const GL_REFLECTION_MAP = &H8512&
Global Const GL_TEXTURE_CUBE_MAP = &H8513&
Global Const GL_TEXTURE_BINDING_CUBE_MAP = &H8514&
Global Const GL_TEXTURE_CUBE_MAP_POSITIVE_X = &H8515&
Global Const GL_TEXTURE_CUBE_MAP_NEGATIVE_X = &H8516&
Global Const GL_TEXTURE_CUBE_MAP_POSITIVE_Y = &H8517&
Global Const GL_TEXTURE_CUBE_MAP_NEGATIVE_Y = &H8518&
Global Const GL_TEXTURE_CUBE_MAP_POSITIVE_Z = &H8519&
Global Const GL_TEXTURE_CUBE_MAP_NEGATIVE_Z = &H851A&
Global Const GL_PROXY_TEXTURE_CUBE_MAP = &H851B&
Global Const GL_MAX_CUBE_MAP_TEXTURE_SIZE = &H851C&
Global Const GL_COMBINE = &H8570&
Global Const GL_COMBINE_RGB = &H8571&
Global Const GL_COMBINE_ALPHA = &H8572&
Global Const GL_RGB_SCALE = &H8573&
Global Const GL_ADD_SIGNED = &H8574&
Global Const GL_INTERPOLATE = &H8575&
Global Const GL_CONSTANT = &H8576&
Global Const GL_PRIMARY_COLOR = &H8577&
Global Const GL_PREVIOUS = &H8578&
Global Const GL_SOURCE0_RGB = &H8580&
Global Const GL_SOURCE1_RGB = &H8581&
Global Const GL_SOURCE2_RGB = &H8582&
Global Const GL_SOURCE0_ALPHA = &H8588&
Global Const GL_SOURCE1_ALPHA = &H8589&
Global Const GL_SOURCE2_ALPHA = &H858A&
Global Const GL_OPERAND0_RGB = &H8590&
Global Const GL_OPERAND1_RGB = &H8591&
Global Const GL_OPERAND2_RGB = &H8592&
Global Const GL_OPERAND0_ALPHA = &H8598&
Global Const GL_OPERAND1_ALPHA = &H8599&
Global Const GL_OPERAND2_ALPHA = &H859A&
Global Const GL_TEXTURE_COMPRESSED_IMAGE_SIZE = &H86A0&
Global Const GL_TEXTURE_COMPRESSED = &H86A1&
Global Const GL_NUM_COMPRESSED_TEXTURE_FORMATS = &H86A2&
Global Const GL_COMPRESSED_TEXTURE_FORMATS = &H86A3&
Global Const GL_DOT3_RGB = &H86AE&
Global Const GL_DOT3_RGBA = &H86AF&
Global Const GL_MULTISAMPLE_BIT = &H20000000

Global Const GL_VERSION_1_4 = 1&

Global Const GL_BLEND_DST_RGB = &H80C8&
Global Const GL_BLEND_SRC_RGB = &H80C9&
Global Const GL_BLEND_DST_ALPHA = &H80CA&
Global Const GL_BLEND_SRC_ALPHA = &H80CB&
Global Const GL_POINT_SIZE_MIN = &H8126&
Global Const GL_POINT_SIZE_MAX = &H8127&
Global Const GL_POINT_FADE_THRESHOLD_SIZE = &H8128&
Global Const GL_POINT_DISTANCE_ATTENUATION = &H8129&
Global Const GL_GENERATE_MIPMAP = &H8191&
Global Const GL_GENERATE_MIPMAP_HINT = &H8192&
Global Const GL_DEPTH_COMPONENT16 = &H81A5&
Global Const GL_DEPTH_COMPONENT24 = &H81A6&
Global Const GL_DEPTH_COMPONENT32 = &H81A7&
Global Const GL_MIRRORED_REPEAT = &H8370&
Global Const GL_FOG_COORDINATE_SOURCE = &H8450&
Global Const GL_FOG_COORDINATE = &H8451&
Global Const GL_FRAGMENT_DEPTH = &H8452&
Global Const GL_CURRENT_FOG_COORDINATE = &H8453&
Global Const GL_FOG_COORDINATE_ARRAY_TYPE = &H8454&
Global Const GL_FOG_COORDINATE_ARRAY_STRIDE = &H8455&
Global Const GL_FOG_COORDINATE_ARRAY_POINTER = &H8456&
Global Const GL_FOG_COORDINATE_ARRAY = &H8457&
Global Const GL_COLOR_SUM = &H8458&
Global Const GL_CURRENT_SECONDARY_COLOR = &H8459&
Global Const GL_SECONDARY_COLOR_ARRAY_SIZE = &H845A&
Global Const GL_SECONDARY_COLOR_ARRAY_TYPE = &H845B&
Global Const GL_SECONDARY_COLOR_ARRAY_STRIDE = &H845C&
Global Const GL_SECONDARY_COLOR_ARRAY_POINTER = &H845D&
Global Const GL_SECONDARY_COLOR_ARRAY = &H845E&
Global Const GL_MAX_TEXTURE_LOD_BIAS = &H84FD&
Global Const GL_TEXTURE_FILTER_CONTROL = &H8500&
Global Const GL_TEXTURE_LOD_BIAS = &H8501&
Global Const GL_INCR_WRAP = &H8507&
Global Const GL_DECR_WRAP = &H8508&
Global Const GL_TEXTURE_DEPTH_SIZE = &H884A&
Global Const GL_DEPTH_TEXTURE_MODE = &H884B&
Global Const GL_TEXTURE_COMPARE_MODE = &H884C&
Global Const GL_TEXTURE_COMPARE_FUNC = &H884D&
Global Const GL_COMPARE_R_TO_TEXTURE = &H884E&

Global Const GL_VERSION_1_5 = 1&

Global Const GL_CURRENT_FOG_COORD = GL_CURRENT_FOG_COORDINATE&
Global Const GL_FOG_COORD = GL_FOG_COORDINATE&
Global Const GL_FOG_COORD_ARRAY = GL_FOG_COORDINATE_ARRAY&
Global Const GL_FOG_COORD_ARRAY_POINTER = GL_FOG_COORDINATE_ARRAY_POINTER&
Global Const GL_FOG_COORD_ARRAY_STRIDE = GL_FOG_COORDINATE_ARRAY_STRIDE&
Global Const GL_FOG_COORD_ARRAY_TYPE = GL_FOG_COORDINATE_ARRAY_TYPE&
Global Const GL_FOG_COORD_SRC = GL_FOG_COORDINATE_SOURCE&
Global Const GL_SRC0_ALPHA = GL_SOURCE0_ALPHA&
Global Const GL_SRC0_RGB = GL_SOURCE0_RGB&
Global Const GL_SRC1_ALPHA = GL_SOURCE1_ALPHA&
Global Const GL_SRC1_RGB = GL_SOURCE1_RGB&
Global Const GL_SRC2_ALPHA = GL_SOURCE2_ALPHA&
Global Const GL_SRC2_RGB = GL_SOURCE2_RGB&
Global Const GL_BUFFER_SIZE = &H8764&
Global Const GL_BUFFER_USAGE = &H8765&
Global Const GL_QUERY_COUNTER_BITS = &H8864&
Global Const GL_CURRENT_QUERY = &H8865&
Global Const GL_QUERY_RESULT = &H8866&
Global Const GL_QUERY_RESULT_AVAILABLE = &H8867&
Global Const GL_ARRAY_BUFFER = &H8892&
Global Const GL_ELEMENT_ARRAY_BUFFER = &H8893&
Global Const GL_ARRAY_BUFFER_BINDING = &H8894&
Global Const GL_ELEMENT_ARRAY_BUFFER_BINDING = &H8895&
Global Const GL_VERTEX_ARRAY_BUFFER_BINDING = &H8896&
Global Const GL_NORMAL_ARRAY_BUFFER_BINDING = &H8897&
Global Const GL_COLOR_ARRAY_BUFFER_BINDING = &H8898&
Global Const GL_INDEX_ARRAY_BUFFER_BINDING = &H8899&
Global Const GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING = &H889A&
Global Const GL_EDGE_FLAG_ARRAY_BUFFER_BINDING = &H889B&
Global Const GL_SECONDARY_COLOR_ARRAY_BUFFER_BINDING = &H889C&
Global Const GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING = &H889D&
Global Const GL_FOG_COORD_ARRAY_BUFFER_BINDING = GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING&
Global Const GL_WEIGHT_ARRAY_BUFFER_BINDING = &H889E&
Global Const GL_VERTEX_ATTRIB_ARRAY_BUFFER_BINDING = &H889F&
Global Const GL_READ_ONLY = &H88B8&
Global Const GL_WRITE_ONLY = &H88B9&
Global Const GL_READ_WRITE = &H88BA&
Global Const GL_BUFFER_ACCESS = &H88BB&
Global Const GL_BUFFER_MAPPED = &H88BC&
Global Const GL_BUFFER_MAP_POINTER = &H88BD&
Global Const GL_STREAM_DRAW = &H88E0&
Global Const GL_STREAM_READ = &H88E1&
Global Const GL_STREAM_COPY = &H88E2&
Global Const GL_STATIC_DRAW = &H88E4&
Global Const GL_STATIC_READ = &H88E5&
Global Const GL_STATIC_COPY = &H88E6&
Global Const GL_DYNAMIC_DRAW = &H88E8&
Global Const GL_DYNAMIC_READ = &H88E9&
Global Const GL_DYNAMIC_COPY = &H88EA&
Global Const GL_SAMPLES_PASSED = &H8914&

Global Const GL_VERSION_2_0 = 1&

Global Const GL_BLEND_EQUATION_RGB = GL_BLEND_EQUATION
Global Const GL_VERTEX_ATTRIB_ARRAY_ENABLED = &H8622&
Global Const GL_VERTEX_ATTRIB_ARRAY_SIZE = &H8623&
Global Const GL_VERTEX_ATTRIB_ARRAY_STRIDE = &H8624&
Global Const GL_VERTEX_ATTRIB_ARRAY_TYPE = &H8625&
Global Const GL_CURRENT_VERTEX_ATTRIB = &H8626&
Global Const GL_VERTEX_PROGRAM_POINT_SIZE = &H8642&
Global Const GL_VERTEX_PROGRAM_TWO_SIDE = &H8643&
Global Const GL_VERTEX_ATTRIB_ARRAY_POINTER = &H8645&
Global Const GL_STENCIL_BACK_FUNC = &H8800&
Global Const GL_STENCIL_BACK_FAIL = &H8801&
Global Const GL_STENCIL_BACK_PASS_DEPTH_FAIL = &H8802&
Global Const GL_STENCIL_BACK_PASS_DEPTH_PASS = &H8803&
Global Const GL_MAX_DRAW_BUFFERS = &H8824&
Global Const GL_DRAW_BUFFER0 = &H8825&
Global Const GL_DRAW_BUFFER1 = &H8826&
Global Const GL_DRAW_BUFFER2 = &H8827&
Global Const GL_DRAW_BUFFER3 = &H8828&
Global Const GL_DRAW_BUFFER4 = &H8829&
Global Const GL_DRAW_BUFFER5 = &H882A&
Global Const GL_DRAW_BUFFER6 = &H882B&
Global Const GL_DRAW_BUFFER7 = &H882C&
Global Const GL_DRAW_BUFFER8 = &H882D&
Global Const GL_DRAW_BUFFER9 = &H882E&
Global Const GL_DRAW_BUFFER10 = &H882F&
Global Const GL_DRAW_BUFFER11 = &H8830&
Global Const GL_DRAW_BUFFER12 = &H8831&
Global Const GL_DRAW_BUFFER13 = &H8832&
Global Const GL_DRAW_BUFFER14 = &H8833&
Global Const GL_DRAW_BUFFER15 = &H8834&
Global Const GL_BLEND_EQUATION_ALPHA = &H883D&
Global Const GL_POINT_SPRITE = &H8861&
Global Const GL_COORD_REPLACE = &H8862&
Global Const GL_MAX_VERTEX_ATTRIBS = &H8869&
Global Const GL_VERTEX_ATTRIB_ARRAY_NORMALIZED = &H886A&
Global Const GL_MAX_TEXTURE_COORDS = &H8871&
Global Const GL_MAX_TEXTURE_IMAGE_UNITS = &H8872&
Global Const GL_FRAGMENT_SHADER = &H8B30&
Global Const GL_VERTEX_SHADER = &H8B31&
Global Const GL_MAX_FRAGMENT_UNIFORM_COMPONENTS = &H8B49&
Global Const GL_MAX_VERTEX_UNIFORM_COMPONENTS = &H8B4A&
Global Const GL_MAX_VARYING_FLOATS = &H8B4B&
Global Const GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS = &H8B4C&
Global Const GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS = &H8B4D&
Global Const GL_SHADER_TYPE = &H8B4F&
Global Const GL_FLOAT_VEC2 = &H8B50&
Global Const GL_FLOAT_VEC3 = &H8B51&
Global Const GL_FLOAT_VEC4 = &H8B52&
Global Const GL_INT_VEC2 = &H8B53&
Global Const GL_INT_VEC3 = &H8B54&
Global Const GL_INT_VEC4 = &H8B55&
Global Const GL_BOOL = &H8B56&
Global Const GL_BOOL_VEC2 = &H8B57&
Global Const GL_BOOL_VEC3 = &H8B58&
Global Const GL_BOOL_VEC4 = &H8B59&
Global Const GL_FLOAT_MAT2 = &H8B5A&
Global Const GL_FLOAT_MAT3 = &H8B5B&
Global Const GL_FLOAT_MAT4 = &H8B5C&
Global Const GL_SAMPLER_1D = &H8B5D&
Global Const GL_SAMPLER_2D = &H8B5E&
Global Const GL_SAMPLER_3D = &H8B5F&
Global Const GL_SAMPLER_CUBE = &H8B60&
Global Const GL_SAMPLER_1D_SHADOW = &H8B61&
Global Const GL_SAMPLER_2D_SHADOW = &H8B62&
Global Const GL_DELETE_STATUS = &H8B80&
Global Const GL_COMPILE_STATUS = &H8B81&
Global Const GL_LINK_STATUS = &H8B82&
Global Const GL_VALIDATE_STATUS = &H8B83&
Global Const GL_INFO_LOG_LENGTH = &H8B84&
Global Const GL_ATTACHED_SHADERS = &H8B85&
Global Const GL_ACTIVE_UNIFORMS = &H8B86&
Global Const GL_ACTIVE_UNIFORM_MAX_LENGTH = &H8B87&
Global Const GL_SHADER_SOURCE_LENGTH = &H8B88&
Global Const GL_ACTIVE_ATTRIBUTES = &H8B89&
Global Const GL_ACTIVE_ATTRIBUTE_MAX_LENGTH = &H8B8A&
Global Const GL_FRAGMENT_SHADER_DERIVATIVE_HINT = &H8B8B&
Global Const GL_SHADING_LANGUAGE_VERSION = &H8B8C&
Global Const GL_CURRENT_PROGRAM = &H8B8D&
Global Const GL_POINT_SPRITE_COORD_ORIGIN = &H8CA0&
Global Const GL_LOWER_LEFT = &H8CA1&
Global Const GL_UPPER_LEFT = &H8CA2&
Global Const GL_STENCIL_BACK_REF = &H8CA3&
Global Const GL_STENCIL_BACK_VALUE_MASK = &H8CA4&
Global Const GL_STENCIL_BACK_WRITEMASK = &H8CA5&

Global Const GL_VERSION_2_1 = 1&

Global Const GL_CURRENT_RASTER_SECONDARY_COLOR = &H845F&
Global Const GL_PIXEL_PACK_BUFFER = &H88EB&
Global Const GL_PIXEL_UNPACK_BUFFER = &H88EC&
Global Const GL_PIXEL_PACK_BUFFER_BINDING = &H88ED&
Global Const GL_PIXEL_UNPACK_BUFFER_BINDING = &H88EF&
Global Const GL_FLOAT_MAT2x3 = &H8B65&
Global Const GL_FLOAT_MAT2x4 = &H8B66&
Global Const GL_FLOAT_MAT3x2 = &H8B67&
Global Const GL_FLOAT_MAT3x4 = &H8B68&
Global Const GL_FLOAT_MAT4x2 = &H8B69&
Global Const GL_FLOAT_MAT4x3 = &H8B6A&
Global Const GL_SRGB = &H8C40&
Global Const GL_SRGB8 = &H8C41&
Global Const GL_SRGB_ALPHA = &H8C42&
Global Const GL_SRGB8_ALPHA8 = &H8C43&
Global Const GL_SLUMINANCE_ALPHA = &H8C44&
Global Const GL_SLUMINANCE8_ALPHA8 = &H8C45&
Global Const GL_SLUMINANCE = &H8C46&
Global Const GL_SLUMINANCE8 = &H8C47&
Global Const GL_COMPRESSED_SRGB = &H8C48&
Global Const GL_COMPRESSED_SRGB_ALPHA = &H8C49&
Global Const GL_COMPRESSED_SLUMINANCE = &H8C4A&
Global Const GL_COMPRESSED_SLUMINANCE_ALPHA = &H8C4B&

Global Const GL_VERSION_3_0 = 1&

Global Const GL_CLIP_DISTANCE0 = GL_CLIP_PLANE0&
Global Const GL_CLIP_DISTANCE1 = GL_CLIP_PLANE1&
Global Const GL_CLIP_DISTANCE2 = GL_CLIP_PLANE2&
Global Const GL_CLIP_DISTANCE3 = GL_CLIP_PLANE3&
Global Const GL_CLIP_DISTANCE4 = GL_CLIP_PLANE4&
Global Const GL_CLIP_DISTANCE5 = GL_CLIP_PLANE5&
Global Const GL_COMPARE_REF_TO_TEXTURE = &H884E&
Global Const GL_MAX_CLIP_DISTANCES = GL_MAX_CLIP_PLANES&
Global Const GL_MAX_VARYING_COMPONENTS = GL_MAX_VARYING_FLOATS&
Global Const GL_CONTEXT_FLAG_FORWARD_COMPATIBLE_BIT = &H1&
Global Const GL_MAJOR_VERSION = &H821B&
Global Const GL_MINOR_VERSION = &H821C&
Global Const GL_NUM_EXTENSIONS = &H821D&
Global Const GL_CONTEXT_FLAGS = &H821E&
Global Const GL_DEPTH_BUFFER = &H8223&
Global Const GL_STENCIL_BUFFER = &H8224&
Global Const GL_RGBA32F = &H8814&
Global Const GL_RGB32F = &H8815&
Global Const GL_RGBA16F = &H881A&
Global Const GL_RGB16F = &H881B&
Global Const GL_VERTEX_ATTRIB_ARRAY_INTEGER = &H88FD&
Global Const GL_MAX_ARRAY_TEXTURE_LAYERS = &H88FF&
Global Const GL_MIN_PROGRAM_TEXEL_OFFSET = &H8904&
Global Const GL_MAX_PROGRAM_TEXEL_OFFSET = &H8905&
Global Const GL_CLAMP_VERTEX_COLOR = &H891A&
Global Const GL_CLAMP_FRAGMENT_COLOR = &H891B&
Global Const GL_CLAMP_READ_COLOR = &H891C&
Global Const GL_FIXED_ONLY = &H891D&
Global Const GL_TEXTURE_RED_TYPE = &H8C10&
Global Const GL_TEXTURE_GREEN_TYPE = &H8C11&
Global Const GL_TEXTURE_BLUE_TYPE = &H8C12&
Global Const GL_TEXTURE_ALPHA_TYPE = &H8C13&
Global Const GL_TEXTURE_LUMINANCE_TYPE = &H8C14&
Global Const GL_TEXTURE_INTENSITY_TYPE = &H8C15&
Global Const GL_TEXTURE_DEPTH_TYPE = &H8C16&
Global Const GL_TEXTURE_1D_ARRAY = &H8C18&
Global Const GL_PROXY_TEXTURE_1D_ARRAY = &H8C19&
Global Const GL_TEXTURE_2D_ARRAY = &H8C1A&
Global Const GL_PROXY_TEXTURE_2D_ARRAY = &H8C1B&
Global Const GL_TEXTURE_BINDING_1D_ARRAY = &H8C1C&
Global Const GL_TEXTURE_BINDING_2D_ARRAY = &H8C1D&
Global Const GL_R11F_G11F_B10F = &H8C3A&
Global Const GL_UNSIGNED_INT_10F_11F_11F_REV = &H8C3B&
Global Const GL_RGB9_E5 = &H8C3D&
Global Const GL_UNSIGNED_INT_5_9_9_9_REV = &H8C3E&
Global Const GL_TEXTURE_SHARED_SIZE = &H8C3F&
Global Const GL_TRANSFORM_FEEDBACK_VARYING_MAX_LENGTH = &H8C76&
Global Const GL_TRANSFORM_FEEDBACK_BUFFER_MODE = &H8C7F&
Global Const GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS = &H8C80&
Global Const GL_TRANSFORM_FEEDBACK_VARYINGS = &H8C83&
Global Const GL_TRANSFORM_FEEDBACK_BUFFER_START = &H8C84&
Global Const GL_TRANSFORM_FEEDBACK_BUFFER_SIZE = &H8C85&
Global Const GL_PRIMITIVES_GENERATED = &H8C87&
Global Const GL_TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN = &H8C88&
Global Const GL_RASTERIZER_DISCARD = &H8C89&
Global Const GL_MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS = &H8C8A&
Global Const GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS = &H8C8B&
Global Const GL_INTERLEAVED_ATTRIBS = &H8C8C&
Global Const GL_SEPARATE_ATTRIBS = &H8C8D&
Global Const GL_TRANSFORM_FEEDBACK_BUFFER = &H8C8E&
Global Const GL_TRANSFORM_FEEDBACK_BUFFER_BINDING = &H8C8F&
Global Const GL_RGBA32UI = &H8D70&
Global Const GL_RGB32UI = &H8D71&
Global Const GL_RGBA16UI = &H8D76&
Global Const GL_RGB16UI = &H8D77&
Global Const GL_RGBA8UI = &H8D7C&
Global Const GL_RGB8UI = &H8D7D&
Global Const GL_RGBA32I = &H8D82&
Global Const GL_RGB32I = &H8D83&
Global Const GL_RGBA16I = &H8D88&
Global Const GL_RGB16I = &H8D89&
Global Const GL_RGBA8I = &H8D8E&
Global Const GL_RGB8I = &H8D8F&
Global Const GL_RED_INTEGER = &H8D94&
Global Const GL_GREEN_INTEGER = &H8D95&
Global Const GL_BLUE_INTEGER = &H8D96&
Global Const GL_ALPHA_INTEGER = &H8D97&
Global Const GL_RGB_INTEGER = &H8D98&
Global Const GL_RGBA_INTEGER = &H8D99&
Global Const GL_BGR_INTEGER = &H8D9A&
Global Const GL_BGRA_INTEGER = &H8D9B&
Global Const GL_SAMPLER_1D_ARRAY = &H8DC0&
Global Const GL_SAMPLER_2D_ARRAY = &H8DC1&
Global Const GL_SAMPLER_1D_ARRAY_SHADOW = &H8DC3&
Global Const GL_SAMPLER_2D_ARRAY_SHADOW = &H8DC4&
Global Const GL_SAMPLER_CUBE_SHADOW = &H8DC5&
Global Const GL_UNSIGNED_INT_VEC2 = &H8DC6&
Global Const GL_UNSIGNED_INT_VEC3 = &H8DC7&
Global Const GL_UNSIGNED_INT_VEC4 = &H8DC8&
Global Const GL_INT_SAMPLER_1D = &H8DC9&
Global Const GL_INT_SAMPLER_2D = &H8DCA&
Global Const GL_INT_SAMPLER_3D = &H8DCB&
Global Const GL_INT_SAMPLER_CUBE = &H8DCC&
Global Const GL_INT_SAMPLER_1D_ARRAY = &H8DCE&
Global Const GL_INT_SAMPLER_2D_ARRAY = &H8DCF&
Global Const GL_UNSIGNED_INT_SAMPLER_1D = &H8DD1&
Global Const GL_UNSIGNED_INT_SAMPLER_2D = &H8DD2&
Global Const GL_UNSIGNED_INT_SAMPLER_3D = &H8DD3&
Global Const GL_UNSIGNED_INT_SAMPLER_CUBE = &H8DD4&
Global Const GL_UNSIGNED_INT_SAMPLER_1D_ARRAY = &H8DD6&
Global Const GL_UNSIGNED_INT_SAMPLER_2D_ARRAY = &H8DD7&
Global Const GL_QUERY_WAIT = &H8E13&
Global Const GL_QUERY_NO_WAIT = &H8E14&
Global Const GL_QUERY_BY_REGION_WAIT = &H8E15&
Global Const GL_QUERY_BY_REGION_NO_WAIT = &H8E16&

Global Const GL_VERSION_3_1 = 1&

Global Const GL_TEXTURE_RECTANGLE = &H84F5&
Global Const GL_TEXTURE_BINDING_RECTANGLE = &H84F6&
Global Const GL_PROXY_TEXTURE_RECTANGLE = &H84F7&
Global Const GL_MAX_RECTANGLE_TEXTURE_SIZE = &H84F8&
Global Const GL_SAMPLER_2D_RECT = &H8B63&
Global Const GL_SAMPLER_2D_RECT_SHADOW = &H8B64&
Global Const GL_TEXTURE_BUFFER = &H8C2A&
Global Const GL_MAX_TEXTURE_BUFFER_SIZE = &H8C2B&
Global Const GL_TEXTURE_BINDING_BUFFER = &H8C2C&
Global Const GL_TEXTURE_BUFFER_DATA_STORE_BINDING = &H8C2D&
Global Const GL_TEXTURE_BUFFER_FORMAT = &H8C2E&
Global Const GL_SAMPLER_BUFFER = &H8DC2&
Global Const GL_INT_SAMPLER_2D_RECT = &H8DCD&
Global Const GL_INT_SAMPLER_BUFFER = &H8DD0&
Global Const GL_UNSIGNED_INT_SAMPLER_2D_RECT = &H8DD5&
Global Const GL_UNSIGNED_INT_SAMPLER_BUFFER = &H8DD8&
Global Const GL_RED_SNORM = &H8F90&
Global Const GL_RG_SNORM = &H8F91&
Global Const GL_RGB_SNORM = &H8F92&
Global Const GL_RGBA_SNORM = &H8F93&
Global Const GL_R8_SNORM = &H8F94&
Global Const GL_RG8_SNORM = &H8F95&
Global Const GL_RGB8_SNORM = &H8F96&
Global Const GL_RGBA8_SNORM = &H8F97&
Global Const GL_R16_SNORM = &H8F98&
Global Const GL_RG16_SNORM = &H8F99&
Global Const GL_RGB16_SNORM = &H8F9A&
Global Const GL_RGBA16_SNORM = &H8F9B&
Global Const GL_SIGNED_NORMALIZED = &H8F9C&
Global Const GL_PRIMITIVE_RESTART = &H8F9D&
Global Const GL_PRIMITIVE_RESTART_INDEX = &H8F9E&
Global Const GL_BUFFER_ACCESS_FLAGS = &H911F&
Global Const GL_BUFFER_MAP_LENGTH = &H9120&
Global Const GL_BUFFER_MAP_OFFSET = &H9121&

Global Const GL_VERSION_3_2 = 1&

Global Const GL_CONTEXT_CORE_PROFILE_BIT = &H1&
Global Const GL_CONTEXT_COMPATIBILITY_PROFILE_BIT = &H2&
Global Const GL_LINES_ADJACENCY = &HA&
Global Const GL_LINE_STRIP_ADJACENCY = &HB&
Global Const GL_TRIANGLES_ADJACENCY = &HC&
Global Const GL_TRIANGLE_STRIP_ADJACENCY = &HD&
Global Const GL_PROGRAM_POINT_SIZE = &H8642&
Global Const GL_GEOMETRY_VERTICES_OUT = &H8916&
Global Const GL_GEOMETRY_INPUT_TYPE = &H8917&
Global Const GL_GEOMETRY_OUTPUT_TYPE = &H8918&
Global Const GL_MAX_GEOMETRY_TEXTURE_IMAGE_UNITS = &H8C29&
Global Const GL_FRAMEBUFFER_ATTACHMENT_LAYERED = &H8DA7&
Global Const GL_FRAMEBUFFER_INCOMPLETE_LAYER_TARGETS = &H8DA8&
Global Const GL_GEOMETRY_SHADER = &H8DD9&
Global Const GL_MAX_GEOMETRY_UNIFORM_COMPONENTS = &H8DDF&
Global Const GL_MAX_GEOMETRY_OUTPUT_VERTICES = &H8DE0&
Global Const GL_MAX_GEOMETRY_TOTAL_OUTPUT_COMPONENTS = &H8DE1&
Global Const GL_MAX_VERTEX_OUTPUT_COMPONENTS = &H9122&
Global Const GL_MAX_GEOMETRY_INPUT_COMPONENTS = &H9123&
Global Const GL_MAX_GEOMETRY_OUTPUT_COMPONENTS = &H9124&
Global Const GL_MAX_FRAGMENT_INPUT_COMPONENTS = &H9125&
Global Const GL_CONTEXT_PROFILE_MASK = &H9126&

Global Const GL_VERSION_3_3 = 1&

Global Const GL_VERTEX_ATTRIB_ARRAY_DIVISOR = &H88FE&
Global Const GL_RGB10_A2UI = &H906F&

Global Const GL_VERSION_4_0 = 1&

Global Const GL_SAMPLE_SHADING = &H8C36&
Global Const GL_MIN_SAMPLE_SHADING_VALUE = &H8C37&
Global Const GL_MIN_PROGRAM_TEXTURE_GATHER_OFFSET = &H8E5E&
Global Const GL_MAX_PROGRAM_TEXTURE_GATHER_OFFSET = &H8E5F&
Global Const GL_MAX_PROGRAM_TEXTURE_GATHER_COMPONENTS = &H8F9F&
Global Const GL_TEXTURE_CUBE_MAP_ARRAY = &H9009&
Global Const GL_TEXTURE_BINDING_CUBE_MAP_ARRAY = &H900A&
Global Const GL_PROXY_TEXTURE_CUBE_MAP_ARRAY = &H900B&
Global Const GL_SAMPLER_CUBE_MAP_ARRAY = &H900C&
Global Const GL_SAMPLER_CUBE_MAP_ARRAY_SHADOW = &H900D&
Global Const GL_INT_SAMPLER_CUBE_MAP_ARRAY = &H900E&
Global Const GL_UNSIGNED_INT_SAMPLER_CUBE_MAP_ARRAY = &H900F&

Global Const GL_VERSION_4_1 = 1&

Global Const GL_VERSION_4_2 = 1&

Global Const GL_COMPRESSED_RGBA_BPTC_UNORM = &H8E8C&
Global Const GL_COMPRESSED_SRGB_ALPHA_BPTC_UNORM = &H8E8D&
Global Const GL_COMPRESSED_RGB_BPTC_SIGNED_FLOAT = &H8E8E&
Global Const GL_COMPRESSED_RGB_BPTC_UNSIGNED_FLOAT = &H8E8F&

Global Const GL_VERSION_4_3 = 1&

Global Const GL_NUM_SHADING_LANGUAGE_VERSIONS = &H82E9&
Global Const GL_VERTEX_ATTRIB_ARRAY_LONG = &H874E&

Global Const GL_VERSION_4_4 = 1&

Global Const GL_PRIMITIVE_RESTART_FOR_PATCHES_SUPPORTED = &H8221&
Global Const GL_MAX_VERTEX_ATTRIB_STRIDE = &H82E5&
Global Const GL_TEXTURE_BUFFER_BINDING = &H8C2A&

Global Const GL_VERSION_4_5 = 1&

Global Const GL_3DFX_multisample = 1&

Global Const GL_MULTISAMPLE_3DFX = &H86B2&
Global Const GL_SAMPLE_BUFFERS_3DFX = &H86B3&
Global Const GL_SAMPLES_3DFX = &H86B4&
Global Const GL_MULTISAMPLE_BIT_3DFX = &H20000000

Global Const GL_3DFX_tbuffer = 1&

Global Const GL_3DFX_texture_compression_FXT1 = 1&

Global Const GL_COMPRESSED_RGB_FXT1_3DFX = &H86B0&
Global Const GL_COMPRESSED_RGBA_FXT1_3DFX = &H86B1&

Global Const GL_EXT_texture_cube_map = 1&

Global Const GL_NORMAL_MAP_EXT = &H8511&
Global Const GL_REFLECTION_MAP_EXT = &H8512&
Global Const GL_TEXTURE_CUBE_MAP_EXT = &H8513&
Global Const GL_TEXTURE_BINDING_CUBE_MAP_EXT = &H8514&
Global Const GL_TEXTURE_CUBE_MAP_POSITIVE_X_EXT = &H8515&
Global Const GL_TEXTURE_CUBE_MAP_NEGATIVE_X_EXT = &H8516&
Global Const GL_TEXTURE_CUBE_MAP_POSITIVE_Y_EXT = &H8517&
Global Const GL_TEXTURE_CUBE_MAP_NEGATIVE_Y_EXT = &H8518&
Global Const GL_TEXTURE_CUBE_MAP_POSITIVE_Z_EXT = &H8519&
Global Const GL_TEXTURE_CUBE_MAP_NEGATIVE_Z_EXT = &H851A&
Global Const GL_PROXY_TEXTURE_CUBE_MAP_EXT = &H851B&
Global Const GL_MAX_CUBE_MAP_TEXTURE_SIZE_EXT = &H851C&
API部分
[Visual Basic] 纯文本查看 复制代码
Option Explicit

Declare Sub glAccum Lib "opengl32.dll" (ByVal op As Long, ByVal value As Single)
Declare Sub glAlphaFunc Lib "opengl32.dll" (ByVal func As Long, ByVal ref As Single)
Declare Function glAreTexturesResident Lib "opengl32.dll" (ByVal n As Long, textures As Long, residences As Boolean) As Boolean
Declare Sub glArrayElement Lib "opengl32.dll" (ByVal i As Long)
Declare Sub glBegin Lib "opengl32.dll" (ByVal mode As Long)
Declare Sub glBindTexture Lib "opengl32.dll" (ByVal target As Long, ByVal texture As Long)
Declare Sub glBitmap Lib "opengl32.dll" (ByVal width As Long, ByVal height As Long, ByVal xorig As Single, ByVal yorig As Single, ByVal xmove As Single, ByVal ymove As Single, bitmap As Byte)
Declare Sub glBlendFunc Lib "opengl32.dll" (ByVal sfactor As Long, ByVal dfactor As Long)
Declare Sub glCallList Lib "opengl32.dll" (ByVal list As Long)
Declare Sub glCallLists Lib "opengl32.dll" (ByVal n As Long, ByVal type_ As Long, lists As Any)
Declare Sub glClear Lib "opengl32.dll" (ByVal mask As Long)
Declare Sub glClearAccum Lib "opengl32.dll" (ByVal red As Single, ByVal green As Single, ByVal blue As Single, ByVal alpha As Single)
Declare Sub glClearColor Lib "opengl32.dll" (ByVal red As Single, ByVal green As Single, ByVal blue As Single, ByVal alpha As Single)
Declare Sub glClearDepth Lib "opengl32.dll" (ByVal depth As Double)
Declare Sub glClearIndex Lib "opengl32.dll" (ByVal c As Single)
Declare Sub glClearStencil Lib "opengl32.dll" (ByVal s As Long)
Declare Sub glClipPlane Lib "opengl32.dll" (ByVal plane As Long, equation As Double)
Declare Sub glColor3b Lib "opengl32.dll" (ByVal red As Byte, ByVal green As Byte, ByVal blue As Byte)
Declare Sub glColor3bv Lib "opengl32.dll" (v As Byte)
Declare Sub glColor3d Lib "opengl32.dll" (ByVal red As Double, ByVal green As Double, ByVal blue As Double)
Declare Sub glColor3dv Lib "opengl32.dll" (v As Double)
Declare Sub glColor3f Lib "opengl32.dll" (ByVal red As Single, ByVal green As Single, ByVal blue As Single)
Declare Sub glColor3fv Lib "opengl32.dll" (v As Single)
Declare Sub glColor3i Lib "opengl32.dll" (ByVal red As Long, ByVal green As Long, ByVal blue As Long)
Declare Sub glColor3iv Lib "opengl32.dll" (v As Long)
Declare Sub glColor3s Lib "opengl32.dll" (ByVal red As Integer, ByVal green As Integer, ByVal blue As Integer)
Declare Sub glColor3sv Lib "opengl32.dll" (v As Integer)
Declare Sub glColor3ub Lib "opengl32.dll" (ByVal red As Byte, ByVal green As Byte, ByVal blue As Byte)
Declare Sub glColor3ubv Lib "opengl32.dll" (v As Byte)
Declare Sub glColor3ui Lib "opengl32.dll" (ByVal red As Long, ByVal green As Long, ByVal blue As Long)
Declare Sub glColor3uiv Lib "opengl32.dll" (v As Long)
Declare Sub glColor3us Lib "opengl32.dll" (ByVal red As Integer, ByVal green As Integer, ByVal blue As Integer)
Declare Sub glColor3usv Lib "opengl32.dll" (v As Integer)
Declare Sub glColor4b Lib "opengl32.dll" (ByVal red As Byte, ByVal green As Byte, ByVal blue As Byte, ByVal alpha As Byte)
Declare Sub glColor4bv Lib "opengl32.dll" (v As Byte)
Declare Sub glColor4d Lib "opengl32.dll" (ByVal red As Double, ByVal green As Double, ByVal blue As Double, ByVal alpha As Double)
Declare Sub glColor4dv Lib "opengl32.dll" (v As Double)
Declare Sub glColor4f Lib "opengl32.dll" (ByVal red As Single, ByVal green As Single, ByVal blue As Single, ByVal alpha As Single)
Declare Sub glColor4fv Lib "opengl32.dll" (v As Single)
Declare Sub glColor4i Lib "opengl32.dll" (ByVal red As Long, ByVal green As Long, ByVal blue As Long, ByVal alpha As Long)
Declare Sub glColor4iv Lib "opengl32.dll" (v As Long)
Declare Sub glColor4s Lib "opengl32.dll" (ByVal red As Integer, ByVal green As Integer, ByVal blue As Integer, ByVal alpha As Integer)
Declare Sub glColor4sv Lib "opengl32.dll" (v As Integer)
Declare Sub glColor4ub Lib "opengl32.dll" (ByVal red As Byte, ByVal green As Byte, ByVal blue As Byte, ByVal alpha As Byte)
Declare Sub glColor4ubv Lib "opengl32.dll" (v As Byte)
Declare Sub glColor4ui Lib "opengl32.dll" (ByVal red As Long, ByVal green As Long, ByVal blue As Long, ByVal alpha As Long)
Declare Sub glColor4uiv Lib "opengl32.dll" (v As Long)
Declare Sub glColor4us Lib "opengl32.dll" (ByVal red As Integer, ByVal green As Integer, ByVal blue As Integer, ByVal alpha As Integer)
Declare Sub glColor4usv Lib "opengl32.dll" (v As Integer)
Declare Sub glColorMask Lib "opengl32.dll" (ByVal red As Boolean, ByVal green As Boolean, ByVal blue As Boolean, ByVal alpha As Boolean)
Declare Sub glColorMaterial Lib "opengl32.dll" (ByVal face As Long, ByVal mode As Long)
Declare Sub glColorPointer Lib "opengl32.dll" (ByVal size As Long, ByVal type_ As Long, ByVal stride As Long, pointer As Any)
Declare Sub glCopyPixels Lib "opengl32.dll" (ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long, ByVal type_ As Long)
Declare Sub glCopyTexImage1D Lib "opengl32.dll" (ByVal target As Long, ByVal level As Long, ByVal internalFormat As Long, ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal border As Long)
Declare Sub glCopyTexImage2D Lib "opengl32.dll" (ByVal target As Long, ByVal level As Long, ByVal internalFormat As Long, ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long, ByVal border As Long)
Declare Sub glCopyTexSubImage1D Lib "opengl32.dll" (ByVal target As Long, ByVal level As Long, ByVal xoffset As Long, ByVal x As Long, ByVal y As Long, ByVal width As Long)
Declare Sub glCopyTexSubImage2D Lib "opengl32.dll" (ByVal target As Long, ByVal level As Long, ByVal xoffset As Long, ByVal yoffset As Long, ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long)
Declare Sub glCullFace Lib "opengl32.dll" (ByVal mode As Long)
Declare Sub glDeleteLists Lib "opengl32.dll" (ByVal list As Long, ByVal range As Long)
Declare Sub glDeleteTextures Lib "opengl32.dll" (ByVal n As Long, textures As Long)
Declare Sub glDepthFunc Lib "opengl32.dll" (ByVal func As Long)
Declare Sub glDepthMask Lib "opengl32.dll" (ByVal flag As Boolean)
Declare Sub glDepthRange Lib "opengl32.dll" (ByVal zNear As Double, ByVal zFar As Double)
Declare Sub glDisable Lib "opengl32.dll" (ByVal cap As Long)
Declare Sub glDisableClientState Lib "opengl32.dll" (ByVal array_ As Long)
Declare Sub glDrawArrays Lib "opengl32.dll" (ByVal mode As Long, ByVal first As Long, ByVal count As Long)
Declare Sub glDrawBuffer Lib "opengl32.dll" (ByVal mode As Long)
Declare Sub glDrawElements Lib "opengl32.dll" (ByVal mode As Long, ByVal count As Long, ByVal type_ As Long, indices As Any)
Declare Sub glDrawPixels Lib "opengl32.dll" (ByVal width As Long, ByVal height As Long, ByVal format As Long, ByVal type_ As Long, pixels As Any)
Declare Sub glEdgeFlag Lib "opengl32.dll" (ByVal flag As Boolean)
Declare Sub glEdgeFlagPointer Lib "opengl32.dll" (ByVal stride As Long, pointer As Any)
Declare Sub glEdgeFlagv Lib "opengl32.dll" (flag As Boolean)
Declare Sub glEnable Lib "opengl32.dll" (ByVal cap As Long)
Declare Sub glEnableClientState Lib "opengl32.dll" (ByVal array_ As Long)
Declare Sub glEnd Lib "opengl32.dll" ()
Declare Sub glEndList Lib "opengl32.dll" ()
Declare Sub glEvalCoord1d Lib "opengl32.dll" (ByVal u As Double)
Declare Sub glEvalCoord1dv Lib "opengl32.dll" (u As Double)
Declare Sub glEvalCoord1f Lib "opengl32.dll" (ByVal u As Single)
Declare Sub glEvalCoord1fv Lib "opengl32.dll" (u As Single)
Declare Sub glEvalCoord2d Lib "opengl32.dll" (ByVal u As Double, ByVal v As Double)
Declare Sub glEvalCoord2dv Lib "opengl32.dll" (u As Double)
Declare Sub glEvalCoord2f Lib "opengl32.dll" (ByVal u As Single, ByVal v As Single)
Declare Sub glEvalCoord2fv Lib "opengl32.dll" (u As Single)
Declare Sub glEvalMesh1 Lib "opengl32.dll" (ByVal mode As Long, ByVal i1 As Long, ByVal i2 As Long)
Declare Sub glEvalMesh2 Lib "opengl32.dll" (ByVal mode As Long, ByVal i1 As Long, ByVal i2 As Long, ByVal j1 As Long, ByVal j2 As Long)
Declare Sub glEvalPoint1 Lib "opengl32.dll" (ByVal i As Long)
Declare Sub glEvalPoint2 Lib "opengl32.dll" (ByVal i As Long, ByVal j As Long)
Declare Sub glFeedbackBuffer Lib "opengl32.dll" (ByVal size As Long, ByVal type_ As Long, buffer As Single)
Declare Sub glFinish Lib "opengl32.dll" ()
Declare Sub glFlush Lib "opengl32.dll" ()
Declare Sub glFogf Lib "opengl32.dll" (ByVal pname As Long, ByVal param As Single)
Declare Sub glFogfv Lib "opengl32.dll" (ByVal pname As Long, params As Single)
Declare Sub glFogi Lib "opengl32.dll" (ByVal pname As Long, ByVal param As Long)
Declare Sub glFogiv Lib "opengl32.dll" (ByVal pname As Long, params As Long)
Declare Sub glFrontFace Lib "opengl32.dll" (ByVal mode As Long)
Declare Sub glFrustum Lib "opengl32.dll" (ByVal left As Double, ByVal right As Double, ByVal bottom As Double, ByVal top As Double, ByVal zNear As Double, ByVal zFar As Double)
Declare Function glGenLists Lib "opengl32.dll" (ByVal range As Long) As Long
Declare Sub glGenTextures Lib "opengl32.dll" (ByVal n As Long, textures As Long)
Declare Sub glGetBooleanv Lib "opengl32.dll" (ByVal pname As Long, params As Boolean)
Declare Sub glGetClipPlane Lib "opengl32.dll" (ByVal plane As Long, equation As Double)
Declare Sub glGetDoublev Lib "opengl32.dll" (ByVal pname As Long, params As Double)
Declare Function glGetError Lib "opengl32.dll" () As Long
Declare Sub glGetFloatv Lib "opengl32.dll" (ByVal pname As Long, params As Single)
Declare Sub glGetIntegerv Lib "opengl32.dll" (ByVal pname As Long, params As Long)
Declare Sub glGetLightfv Lib "opengl32.dll" (ByVal light As Long, ByVal pname As Long, params As Single)
Declare Sub glGetLightiv Lib "opengl32.dll" (ByVal light As Long, ByVal pname As Long, params As Long)
Declare Sub glGetMapdv Lib "opengl32.dll" (ByVal target As Long, ByVal query As Long, v As Double)
Declare Sub glGetMapfv Lib "opengl32.dll" (ByVal target As Long, ByVal query As Long, v As Single)
Declare Sub glGetMapiv Lib "opengl32.dll" (ByVal target As Long, ByVal query As Long, v As Long)
Declare Sub glGetMaterialfv Lib "opengl32.dll" (ByVal face As Long, ByVal pname As Long, params As Single)
Declare Sub glGetMaterialiv Lib "opengl32.dll" (ByVal face As Long, ByVal pname As Long, params As Long)
Declare Sub glGetPixelMapfv Lib "opengl32.dll" (ByVal map As Long, values As Single)
Declare Sub glGetPixelMapuiv Lib "opengl32.dll" (ByVal map As Long, values As Long)
Declare Sub glGetPixelMapusv Lib "opengl32.dll" (ByVal map As Long, values As Integer)
Declare Sub glGetPointerv Lib "opengl32.dll" (ByVal pname As Long, params As Any)
Declare Sub glGetPolygonStipple Lib "opengl32.dll" (mask As Byte)
Declare Function glGetString Lib "opengl32.dll" (ByVal name As Long) As Long
Declare Sub glGetTexEnvfv Lib "opengl32.dll" (ByVal target As Long, ByVal pname As Long, params As Single)
Declare Sub glGetTexEnviv Lib "opengl32.dll" (ByVal target As Long, ByVal pname As Long, params As Long)
Declare Sub glGetTexGendv Lib "opengl32.dll" (ByVal coord As Long, ByVal pname As Long, params As Double)
Declare Sub glGetTexGenfv Lib "opengl32.dll" (ByVal coord As Long, ByVal pname As Long, params As Single)
Declare Sub glGetTexGeniv Lib "opengl32.dll" (ByVal coord As Long, ByVal pname As Long, params As Long)
Declare Sub glGetTexImage Lib "opengl32.dll" (ByVal target As Long, ByVal level As Long, ByVal format As Long, ByVal type_ As Long, pixels As Any)
Declare Sub glGetTexLevelParameterfv Lib "opengl32.dll" (ByVal target As Long, ByVal level As Long, ByVal pname As Long, params As Single)
Declare Sub glGetTexLevelParameteriv Lib "opengl32.dll" (ByVal target As Long, ByVal level As Long, ByVal pname As Long, params As Long)
Declare Sub glGetTexParameterfv Lib "opengl32.dll" (ByVal target As Long, ByVal pname As Long, params As Single)
Declare Sub glGetTexParameteriv Lib "opengl32.dll" (ByVal target As Long, ByVal pname As Long, params As Long)
Declare Sub glHint Lib "opengl32.dll" (ByVal target As Long, ByVal mode As Long)
Declare Sub glIndexMask Lib "opengl32.dll" (ByVal mask As Long)
Declare Sub glIndexPointer Lib "opengl32.dll" (ByVal type_ As Long, ByVal stride As Long, pointer As Any)
Declare Sub glIndexd Lib "opengl32.dll" (ByVal c As Double)
Declare Sub glIndexdv Lib "opengl32.dll" (c As Double)
Declare Sub glIndexf Lib "opengl32.dll" (ByVal c As Single)
Declare Sub glIndexfv Lib "opengl32.dll" (c As Single)
Declare Sub glIndexi Lib "opengl32.dll" (ByVal c As Long)
Declare Sub glIndexiv Lib "opengl32.dll" (c As Long)
Declare Sub glIndexs Lib "opengl32.dll" (ByVal c As Integer)
Declare Sub glIndexsv Lib "opengl32.dll" (c As Integer)
Declare Sub glIndexub Lib "opengl32.dll" (ByVal c As Byte)
Declare Sub glIndexubv Lib "opengl32.dll" (c As Byte)
Declare Sub glInitNames Lib "opengl32.dll" ()
Declare Sub glInterleavedArrays Lib "opengl32.dll" (ByVal format As Long, ByVal stride As Long, pointer As Any)
Declare Function glIsEnabled Lib "opengl32.dll" (ByVal cap As Long) As Boolean
Declare Function glIsList Lib "opengl32.dll" (ByVal list As Long) As Boolean
Declare Function glIsTexture Lib "opengl32.dll" (ByVal texture As Long) As Boolean
Declare Sub glLightModelf Lib "opengl32.dll" (ByVal pname As Long, ByVal param As Single)
Declare Sub glLightModelfv Lib "opengl32.dll" (ByVal pname As Long, params As Single)
Declare Sub glLightModeli Lib "opengl32.dll" (ByVal pname As Long, ByVal param As Long)
Declare Sub glLightModeliv Lib "opengl32.dll" (ByVal pname As Long, params As Long)
Declare Sub glLightf Lib "opengl32.dll" (ByVal light As Long, ByVal pname As Long, ByVal param As Single)
Declare Sub glLightfv Lib "opengl32.dll" (ByVal light As Long, ByVal pname As Long, params As Single)
Declare Sub glLighti Lib "opengl32.dll" (ByVal light As Long, ByVal pname As Long, ByVal param As Long)
Declare Sub glLightiv Lib "opengl32.dll" (ByVal light As Long, ByVal pname As Long, params As Long)
Declare Sub glLineStipple Lib "opengl32.dll" (ByVal factor As Long, ByVal pattern As Integer)
Declare Sub glLineWidth Lib "opengl32.dll" (ByVal width As Single)
Declare Sub glListBase Lib "opengl32.dll" (ByVal base As Long)
Declare Sub glLoadIdentity Lib "opengl32.dll" ()
Declare Sub glLoadMatrixd Lib "opengl32.dll" (m As Double)
Declare Sub glLoadMatrixf Lib "opengl32.dll" (m As Single)
Declare Sub glLoadName Lib "opengl32.dll" (ByVal name As Long)
Declare Sub glLogicOp Lib "opengl32.dll" (ByVal opcode As Long)
Declare Sub glMap1d Lib "opengl32.dll" (ByVal target As Long, ByVal u1 As Double, ByVal u2 As Double, ByVal stride As Long, ByVal order As Long, points As Double)
Declare Sub glMap1f Lib "opengl32.dll" (ByVal target As Long, ByVal u1 As Single, ByVal u2 As Single, ByVal stride As Long, ByVal order As Long, points As Single)
Declare Sub glMap2d Lib "opengl32.dll" (ByVal target As Long, ByVal u1 As Double, ByVal u2 As Double, ByVal ustride As Long, ByVal uorder As Long, ByVal v1 As Double, ByVal v2 As Double, ByVal vstride As Long, ByVal vorder As Long, points As Double)
Declare Sub glMap2f Lib "opengl32.dll" (ByVal target As Long, ByVal u1 As Single, ByVal u2 As Single, ByVal ustride As Long, ByVal uorder As Long, ByVal v1 As Single, ByVal v2 As Single, ByVal vstride As Long, ByVal vorder As Long, points As Single)
Declare Sub glMapGrid1d Lib "opengl32.dll" (ByVal un As Long, ByVal u1 As Double, ByVal u2 As Double)
Declare Sub glMapGrid1f Lib "opengl32.dll" (ByVal un As Long, ByVal u1 As Single, ByVal u2 As Single)
Declare Sub glMapGrid2d Lib "opengl32.dll" (ByVal un As Long, ByVal u1 As Double, ByVal u2 As Double, ByVal vn As Long, ByVal v1 As Double, ByVal v2 As Double)
Declare Sub glMapGrid2f Lib "opengl32.dll" (ByVal un As Long, ByVal u1 As Single, ByVal u2 As Single, ByVal vn As Long, ByVal v1 As Single, ByVal v2 As Single)
Declare Sub glMaterialf Lib "opengl32.dll" (ByVal face As Long, ByVal pname As Long, ByVal param As Single)
Declare Sub glMaterialfv Lib "opengl32.dll" (ByVal face As Long, ByVal pname As Long, params As Single)
Declare Sub glMateriali Lib "opengl32.dll" (ByVal face As Long, ByVal pname As Long, ByVal param As Long)
Declare Sub glMaterialiv Lib "opengl32.dll" (ByVal face As Long, ByVal pname As Long, params As Long)
Declare Sub glMatrixMode Lib "opengl32.dll" (ByVal mode As Long)
Declare Sub glMultMatrixd Lib "opengl32.dll" (m As Double)
Declare Sub glMultMatrixf Lib "opengl32.dll" (m As Single)
Declare Sub glNewList Lib "opengl32.dll" (ByVal list As Long, ByVal mode As Long)
Declare Sub glNormal3b Lib "opengl32.dll" (ByVal nx As Byte, ByVal ny As Byte, ByVal nz As Byte)
Declare Sub glNormal3bv Lib "opengl32.dll" (v As Byte)
Declare Sub glNormal3d Lib "opengl32.dll" (ByVal nx As Double, ByVal ny As Double, ByVal nz As Double)
Declare Sub glNormal3dv Lib "opengl32.dll" (v As Double)
Declare Sub glNormal3f Lib "opengl32.dll" (ByVal nx As Single, ByVal ny As Single, ByVal nz As Single)
Declare Sub glNormal3fv Lib "opengl32.dll" (v As Single)
Declare Sub glNormal3i Lib "opengl32.dll" (ByVal nx As Long, ByVal ny As Long, ByVal nz As Long)
Declare Sub glNormal3iv Lib "opengl32.dll" (v As Long)
Declare Sub glNormal3s Lib "opengl32.dll" (ByVal nx As Integer, ByVal ny As Integer, ByVal nz As Integer)
Declare Sub glNormal3sv Lib "opengl32.dll" (v As Integer)
Declare Sub glNormalPointer Lib "opengl32.dll" (ByVal type_ As Long, ByVal stride As Long, pointer As Any)
Declare Sub glOrtho Lib "opengl32.dll" (ByVal left As Double, ByVal right As Double, ByVal bottom As Double, ByVal top As Double, ByVal zNear As Double, ByVal zFar As Double)
Declare Sub glPassThrough Lib "opengl32.dll" (ByVal token As Single)
Declare Sub glPixelMapfv Lib "opengl32.dll" (ByVal map As Long, ByVal mapsize As Long, values As Single)
Declare Sub glPixelMapuiv Lib "opengl32.dll" (ByVal map As Long, ByVal mapsize As Long, values As Long)
Declare Sub glPixelMapusv Lib "opengl32.dll" (ByVal map As Long, ByVal mapsize As Long, values As Integer)
Declare Sub glPixelStoref Lib "opengl32.dll" (ByVal pname As Long, ByVal param As Single)
Declare Sub glPixelStorei Lib "opengl32.dll" (ByVal pname As Long, ByVal param As Long)
Declare Sub glPixelTransferf Lib "opengl32.dll" (ByVal pname As Long, ByVal param As Single)
Declare Sub glPixelTransferi Lib "opengl32.dll" (ByVal pname As Long, ByVal param As Long)
Declare Sub glPixelZoom Lib "opengl32.dll" (ByVal xfactor As Single, ByVal yfactor As Single)
Declare Sub glPointSize Lib "opengl32.dll" (ByVal size As Single)
Declare Sub glPolygonMode Lib "opengl32.dll" (ByVal face As Long, ByVal mode As Long)
Declare Sub glPolygonOffset Lib "opengl32.dll" (ByVal factor As Single, ByVal units As Single)
Declare Sub glPolygonStipple Lib "opengl32.dll" (mask As Byte)
Declare Sub glPopAttrib Lib "opengl32.dll" ()
Declare Sub glPopClientAttrib Lib "opengl32.dll" ()
Declare Sub glPopMatrix Lib "opengl32.dll" ()
Declare Sub glPopName Lib "opengl32.dll" ()
Declare Sub glPrioritizeTextures Lib "opengl32.dll" (ByVal n As Long, textures As Long, priorities As Single)
Declare Sub glPushAttrib Lib "opengl32.dll" (ByVal mask As Long)
Declare Sub glPushClientAttrib Lib "opengl32.dll" (ByVal mask As Long)
Declare Sub glPushMatrix Lib "opengl32.dll" ()
Declare Sub glPushName Lib "opengl32.dll" (ByVal name As Long)
Declare Sub glRasterPos2d Lib "opengl32.dll" (ByVal x As Double, ByVal y As Double)
Declare Sub glRasterPos2dv Lib "opengl32.dll" (v As Double)
Declare Sub glRasterPos2f Lib "opengl32.dll" (ByVal x As Single, ByVal y As Single)
Declare Sub glRasterPos2fv Lib "opengl32.dll" (v As Single)
Declare Sub glRasterPos2i Lib "opengl32.dll" (ByVal x As Long, ByVal y As Long)
Declare Sub glRasterPos2iv Lib "opengl32.dll" (v As Long)
Declare Sub glRasterPos2s Lib "opengl32.dll" (ByVal x As Integer, ByVal y As Integer)
Declare Sub glRasterPos2sv Lib "opengl32.dll" (v As Integer)
Declare Sub glRasterPos3d Lib "opengl32.dll" (ByVal x As Double, ByVal y As Double, ByVal z As Double)
Declare Sub glRasterPos3dv Lib "opengl32.dll" (v As Double)
Declare Sub glRasterPos3f Lib "opengl32.dll" (ByVal x As Single, ByVal y As Single, ByVal z As Single)
Declare Sub glRasterPos3fv Lib "opengl32.dll" (v As Single)
Declare Sub glRasterPos3i Lib "opengl32.dll" (ByVal x As Long, ByVal y As Long, ByVal z As Long)
Declare Sub glRasterPos3iv Lib "opengl32.dll" (v As Long)
Declare Sub glRasterPos3s Lib "opengl32.dll" (ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)
Declare Sub glRasterPos3sv Lib "opengl32.dll" (v As Integer)
Declare Sub glRasterPos4d Lib "opengl32.dll" (ByVal x As Double, ByVal y As Double, ByVal z As Double, ByVal w As Double)
Declare Sub glRasterPos4dv Lib "opengl32.dll" (v As Double)
Declare Sub glRasterPos4f Lib "opengl32.dll" (ByVal x As Single, ByVal y As Single, ByVal z As Single, ByVal w As Single)
Declare Sub glRasterPos4fv Lib "opengl32.dll" (v As Single)
Declare Sub glRasterPos4i Lib "opengl32.dll" (ByVal x As Long, ByVal y As Long, ByVal z As Long, ByVal w As Long)
Declare Sub glRasterPos4iv Lib "opengl32.dll" (v As Long)
Declare Sub glRasterPos4s Lib "opengl32.dll" (ByVal x As Integer, ByVal y As Integer, ByVal z As Integer, ByVal w As Integer)
Declare Sub glRasterPos4sv Lib "opengl32.dll" (v As Integer)
Declare Sub glReadBuffer Lib "opengl32.dll" (ByVal mode As Long)
Declare Sub glReadPixels Lib "opengl32.dll" (ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long, ByVal format As Long, ByVal type_ As Long, pixels As Any)
Declare Sub glRectd Lib "opengl32.dll" (ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double)
Declare Sub glRectdv Lib "opengl32.dll" (v1 As Double, v2 As Double)
Declare Sub glRectf Lib "opengl32.dll" (ByVal x1 As Single, ByVal y1 As Single, ByVal x2 As Single, ByVal y2 As Single)
Declare Sub glRectfv Lib "opengl32.dll" (v1 As Single, v2 As Single)
Declare Sub glRecti Lib "opengl32.dll" (ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long)
Declare Sub glRectiv Lib "opengl32.dll" (v1 As Long, v2 As Long)
Declare Sub glRects Lib "opengl32.dll" (ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer)
Declare Sub glRectsv Lib "opengl32.dll" (v1 As Integer, v2 As Integer)
Declare Function glRenderMode Lib "opengl32.dll" (ByVal mode As Long) As Long
Declare Sub glRotated Lib "opengl32.dll" (ByVal angle As Double, ByVal x As Double, ByVal y As Double, ByVal z As Double)
Declare Sub glRotatef Lib "opengl32.dll" (ByVal angle As Single, ByVal x As Single, ByVal y As Single, ByVal z As Single)
Declare Sub glScaled Lib "opengl32.dll" (ByVal x As Double, ByVal y As Double, ByVal z As Double)
Declare Sub glScalef Lib "opengl32.dll" (ByVal x As Single, ByVal y As Single, ByVal z As Single)
Declare Sub glScissor Lib "opengl32.dll" (ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long)
Declare Sub glSelectBuffer Lib "opengl32.dll" (ByVal size As Long, buffer As Long)
Declare Sub glShadeModel Lib "opengl32.dll" (ByVal mode As Long)
Declare Sub glStencilFunc Lib "opengl32.dll" (ByVal func As Long, ByVal ref As Long, ByVal mask As Long)
Declare Sub glStencilMask Lib "opengl32.dll" (ByVal mask As Long)
Declare Sub glStencilOp Lib "opengl32.dll" (ByVal fail As Long, ByVal zfail As Long, ByVal zpass As Long)
Declare Sub glTexCoord1d Lib "opengl32.dll" (ByVal s As Double)
Declare Sub glTexCoord1dv Lib "opengl32.dll" (v As Double)
Declare Sub glTexCoord1f Lib "opengl32.dll" (ByVal s As Single)
Declare Sub glTexCoord1fv Lib "opengl32.dll" (v As Single)
Declare Sub glTexCoord1i Lib "opengl32.dll" (ByVal s As Long)
Declare Sub glTexCoord1iv Lib "opengl32.dll" (v As Long)
Declare Sub glTexCoord1s Lib "opengl32.dll" (ByVal s As Integer)
Declare Sub glTexCoord1sv Lib "opengl32.dll" (v As Integer)
Declare Sub glTexCoord2d Lib "opengl32.dll" (ByVal s As Double, ByVal t As Double)
Declare Sub glTexCoord2dv Lib "opengl32.dll" (v As Double)
Declare Sub glTexCoord2f Lib "opengl32.dll" (ByVal s As Single, ByVal t As Single)
Declare Sub glTexCoord2fv Lib "opengl32.dll" (v As Single)
Declare Sub glTexCoord2i Lib "opengl32.dll" (ByVal s As Long, ByVal t As Long)
Declare Sub glTexCoord2iv Lib "opengl32.dll" (v As Long)
Declare Sub glTexCoord2s Lib "opengl32.dll" (ByVal s As Integer, ByVal t As Integer)
Declare Sub glTexCoord2sv Lib "opengl32.dll" (v As Integer)
Declare Sub glTexCoord3d Lib "opengl32.dll" (ByVal s As Double, ByVal t As Double, ByVal r As Double)
Declare Sub glTexCoord3dv Lib "opengl32.dll" (v As Double)
Declare Sub glTexCoord3f Lib "opengl32.dll" (ByVal s As Single, ByVal t As Single, ByVal r As Single)
Declare Sub glTexCoord3fv Lib "opengl32.dll" (v As Single)
Declare Sub glTexCoord3i Lib "opengl32.dll" (ByVal s As Long, ByVal t As Long, ByVal r As Long)
Declare Sub glTexCoord3iv Lib "opengl32.dll" (v As Long)
Declare Sub glTexCoord3s Lib "opengl32.dll" (ByVal s As Integer, ByVal t As Integer, ByVal r As Integer)
Declare Sub glTexCoord3sv Lib "opengl32.dll" (v As Integer)
Declare Sub glTexCoord4d Lib "opengl32.dll" (ByVal s As Double, ByVal t As Double, ByVal r As Double, ByVal q As Double)
Declare Sub glTexCoord4dv Lib "opengl32.dll" (v As Double)
Declare Sub glTexCoord4f Lib "opengl32.dll" (ByVal s As Single, ByVal t As Single, ByVal r As Single, ByVal q As Single)
Declare Sub glTexCoord4fv Lib "opengl32.dll" (v As Single)
Declare Sub glTexCoord4i Lib "opengl32.dll" (ByVal s As Long, ByVal t As Long, ByVal r As Long, ByVal q As Long)
Declare Sub glTexCoord4iv Lib "opengl32.dll" (v As Long)
Declare Sub glTexCoord4s Lib "opengl32.dll" (ByVal s As Integer, ByVal t As Integer, ByVal r As Integer, ByVal q As Integer)
Declare Sub glTexCoord4sv Lib "opengl32.dll" (v As Integer)
Declare Sub glTexCoordPointer Lib "opengl32.dll" (ByVal size As Long, ByVal type_ As Long, ByVal stride As Long, pointer As Any)
Declare Sub glTexEnvf Lib "opengl32.dll" (ByVal target As Long, ByVal pname As Long, ByVal param As Single)
Declare Sub glTexEnvfv Lib "opengl32.dll" (ByVal target As Long, ByVal pname As Long, params As Single)
Declare Sub glTexEnvi Lib "opengl32.dll" (ByVal target As Long, ByVal pname As Long, ByVal param As Long)
Declare Sub glTexEnviv Lib "opengl32.dll" (ByVal target As Long, ByVal pname As Long, params As Long)
Declare Sub glTexGend Lib "opengl32.dll" (ByVal coord As Long, ByVal pname As Long, ByVal param As Double)
Declare Sub glTexGendv Lib "opengl32.dll" (ByVal coord As Long, ByVal pname As Long, params As Double)
Declare Sub glTexGenf Lib "opengl32.dll" (ByVal coord As Long, ByVal pname As Long, ByVal param As Single)
Declare Sub glTexGenfv Lib "opengl32.dll" (ByVal coord As Long, ByVal pname As Long, params As Single)
Declare Sub glTexGeni Lib "opengl32.dll" (ByVal coord As Long, ByVal pname As Long, ByVal param As Long)
Declare Sub glTexGeniv Lib "opengl32.dll" (ByVal coord As Long, ByVal pname As Long, params As Long)
Declare Sub glTexImage1D Lib "opengl32.dll" (ByVal target As Long, ByVal level As Long, ByVal internalFormat As Long, ByVal width As Long, ByVal border As Long, ByVal format As Long, ByVal type_ As Long, pixels As Any)
Declare Sub glTexImage2D Lib "opengl32.dll" (ByVal target As Long, ByVal level As Long, ByVal internalFormat As Long, ByVal width As Long, ByVal height As Long, ByVal border As Long, ByVal format As Long, ByVal type_ As Long, pixels As Any)
Declare Sub glTexParameterf Lib "opengl32.dll" (ByVal target As Long, ByVal pname As Long, ByVal param As Single)
Declare Sub glTexParameterfv Lib "opengl32.dll" (ByVal target As Long, ByVal pname As Long, params As Single)
Declare Sub glTexParameteri Lib "opengl32.dll" (ByVal target As Long, ByVal pname As Long, ByVal param As Long)
Declare Sub glTexParameteriv Lib "opengl32.dll" (ByVal target As Long, ByVal pname As Long, params As Long)
Declare Sub glTexSubImage1D Lib "opengl32.dll" (ByVal target As Long, ByVal level As Long, ByVal xoffset As Long, ByVal width As Long, ByVal format As Long, ByVal type_ As Long, pixels As Any)
Declare Sub glTexSubImage2D Lib "opengl32.dll" (ByVal target As Long, ByVal level As Long, ByVal xoffset As Long, ByVal yoffset As Long, ByVal width As Long, ByVal height As Long, ByVal format As Long, ByVal type_ As Long, pixels As Any)
Declare Sub glTranslated Lib "opengl32.dll" (ByVal x As Double, ByVal y As Double, ByVal z As Double)
Declare Sub glTranslatef Lib "opengl32.dll" (ByVal x As Single, ByVal y As Single, ByVal z As Single)
Declare Sub glVertex2d Lib "opengl32.dll" (ByVal x As Double, ByVal y As Double)
Declare Sub glVertex2dv Lib "opengl32.dll" (v As Double)
Declare Sub glVertex2f Lib "opengl32.dll" (ByVal x As Single, ByVal y As Single)
Declare Sub glVertex2fv Lib "opengl32.dll" (v As Single)
Declare Sub glVertex2i Lib "opengl32.dll" (ByVal x As Long, ByVal y As Long)
Declare Sub glVertex2iv Lib "opengl32.dll" (v As Long)
Declare Sub glVertex2s Lib "opengl32.dll" (ByVal x As Integer, ByVal y As Integer)
Declare Sub glVertex2sv Lib "opengl32.dll" (v As Integer)
Declare Sub glVertex3d Lib "opengl32.dll" (ByVal x As Double, ByVal y As Double, ByVal z As Double)
Declare Sub glVertex3dv Lib "opengl32.dll" (v As Double)
Declare Sub glVertex3f Lib "opengl32.dll" (ByVal x As Single, ByVal y As Single, ByVal z As Single)
Declare Sub glVertex3fv Lib "opengl32.dll" (v As Single)
Declare Sub glVertex3i Lib "opengl32.dll" (ByVal x As Long, ByVal y As Long, ByVal z As Long)
Declare Sub glVertex3iv Lib "opengl32.dll" (v As Long)
Declare Sub glVertex3s Lib "opengl32.dll" (ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)
Declare Sub glVertex3sv Lib "opengl32.dll" (v As Integer)
Declare Sub glVertex4d Lib "opengl32.dll" (ByVal x As Double, ByVal y As Double, ByVal z As Double, ByVal w As Double)
Declare Sub glVertex4dv Lib "opengl32.dll" (v As Double)
Declare Sub glVertex4f Lib "opengl32.dll" (ByVal x As Single, ByVal y As Single, ByVal z As Single, ByVal w As Single)
Declare Sub glVertex4fv Lib "opengl32.dll" (v As Single)
Declare Sub glVertex4i Lib "opengl32.dll" (ByVal x As Long, ByVal y As Long, ByVal z As Long, ByVal w As Long)
Declare Sub glVertex4iv Lib "opengl32.dll" (v As Long)
Declare Sub glVertex4s Lib "opengl32.dll" (ByVal x As Integer, ByVal y As Integer, ByVal z As Integer, ByVal w As Integer)
Declare Sub glVertex4sv Lib "opengl32.dll" (v As Integer)
Declare Sub glVertexPointer Lib "opengl32.dll" (ByVal size As Long, ByVal type_ As Long, ByVal stride As Long, pointer As Any)
Declare Sub glViewport Lib "opengl32.dll" (ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long)

Declare Sub glCopyTexSubImage3D Lib "glew32.dll" Alias "__glewCopyTexSubImage3D" (ByVal target As Long, ByVal level As Long, ByVal xoffset As Long, ByVal yoffset As Long, ByVal zoffset As Long, ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long)
Declare Sub glDrawRangeElements Lib "glew32.dll" Alias "__glewDrawRangeElements" (ByVal mode As Long, ByVal start As Long, ByVal end_ As Long, ByVal count As Long, ByVal type_ As Long, indices As Any)
Declare Sub glTexImage3D Lib "glew32.dll" Alias "__glewTexImage3D" (ByVal target As Long, ByVal level As Long, ByVal internalFormat As Long, ByVal width As Long, ByVal height As Long, ByVal depth As Long, ByVal border As Long, ByVal format As Long, ByVal type_ As Long, pixels As Any)
Declare Sub glTexSubImage3D Lib "glew32.dll" Alias "__glewTexSubImage3D" (ByVal target As Long, ByVal level As Long, ByVal xoffset As Long, ByVal yoffset As Long, ByVal zoffset As Long, ByVal width As Long, ByVal height As Long, ByVal depth As Long, ByVal format As Long, ByVal type_ As Long, pixels As Any)

Declare Sub glActiveTexture Lib "glew32.dll" Alias "__glewActiveTexture" (ByVal texture As Long)
Declare Sub glClientActiveTexture Lib "glew32.dll" Alias "__glewClientActiveTexture" (ByVal texture As Long)
Declare Sub glCompressedTexImage1D Lib "glew32.dll" Alias "__glewCompressedTexImage1D" (ByVal target As Long, ByVal level As Long, ByVal internalFormat As Long, ByVal width As Long, ByVal border As Long, ByVal imageSize As Long, data As Any)
Declare Sub glCompressedTexImage2D Lib "glew32.dll" Alias "__glewCompressedTexImage2D" (ByVal target As Long, ByVal level As Long, ByVal internalFormat As Long, ByVal width As Long, ByVal height As Long, ByVal border As Long, ByVal imageSize As Long, data As Any)
Declare Sub glCompressedTexImage3D Lib "glew32.dll" Alias "__glewCompressedTexImage3D" (ByVal target As Long, ByVal level As Long, ByVal internalFormat As Long, ByVal width As Long, ByVal height As Long, ByVal depth As Long, ByVal border As Long, ByVal imageSize As Long, data As Any)
Declare Sub glCompressedTexSubImage1D Lib "glew32.dll" Alias "__glewCompressedTexSubImage1D" (ByVal target As Long, ByVal level As Long, ByVal xoffset As Long, ByVal width As Long, ByVal format As Long, ByVal imageSize As Long, data As Any)
Declare Sub glCompressedTexSubImage2D Lib "glew32.dll" Alias "__glewCompressedTexSubImage2D" (ByVal target As Long, ByVal level As Long, ByVal xoffset As Long, ByVal yoffset As Long, ByVal width As Long, ByVal height As Long, ByVal format As Long, ByVal imageSize As Long, data As Any)
Declare Sub glCompressedTexSubImage3D Lib "glew32.dll" Alias "__glewCompressedTexSubImage3D" (ByVal target As Long, ByVal level As Long, ByVal xoffset As Long, ByVal yoffset As Long, ByVal zoffset As Long, ByVal width As Long, ByVal height As Long, ByVal depth As Long, ByVal format As Long, ByVal imageSize As Long, data As Any)
Declare Sub glGetCompressedTexImage Lib "glew32.dll" Alias "__glewGetCompressedTexImage" (ByVal target As Long, ByVal lod As Long, img As Any)
Declare Sub glLoadTransposeMatrixd Lib "glew32.dll" Alias "__glewLoadTransposeMatrixd" (m As Double)
Declare Sub glLoadTransposeMatrixf Lib "glew32.dll" Alias "__glewLoadTransposeMatrixf" (m As Single)
Declare Sub glMultTransposeMatrixd Lib "glew32.dll" Alias "__glewMultTransposeMatrixd" (m As Double)
Declare Sub glMultTransposeMatrixf Lib "glew32.dll" Alias "__glewMultTransposeMatrixf" (m As Single)
Declare Sub glMultiTexCoord1d Lib "glew32.dll" Alias "__glewMultiTexCoord1d" (ByVal target As Long, ByVal s As Double)
Declare Sub glMultiTexCoord1dv Lib "glew32.dll" Alias "__glewMultiTexCoord1dv" (ByVal target As Long, v As Double)
Declare Sub glMultiTexCoord1f Lib "glew32.dll" Alias "__glewMultiTexCoord1f" (ByVal target As Long, ByVal s As Single)
Declare Sub glMultiTexCoord1fv Lib "glew32.dll" Alias "__glewMultiTexCoord1fv" (ByVal target As Long, v As Single)
Declare Sub glMultiTexCoord1i Lib "glew32.dll" Alias "__glewMultiTexCoord1i" (ByVal target As Long, ByVal s As Long)
Declare Sub glMultiTexCoord1iv Lib "glew32.dll" Alias "__glewMultiTexCoord1iv" (ByVal target As Long, v As Long)
Declare Sub glMultiTexCoord1s Lib "glew32.dll" Alias "__glewMultiTexCoord1s" (ByVal target As Long, ByVal s As Integer)
Declare Sub glMultiTexCoord1sv Lib "glew32.dll" Alias "__glewMultiTexCoord1sv" (ByVal target As Long, v As Integer)
Declare Sub glMultiTexCoord2d Lib "glew32.dll" Alias "__glewMultiTexCoord2d" (ByVal target As Long, ByVal s As Double, ByVal t As Double)
Declare Sub glMultiTexCoord2dv Lib "glew32.dll" Alias "__glewMultiTexCoord2dv" (ByVal target As Long, v As Double)
Declare Sub glMultiTexCoord2f Lib "glew32.dll" Alias "__glewMultiTexCoord2f" (ByVal target As Long, ByVal s As Single, ByVal t As Single)
Declare Sub glMultiTexCoord2fv Lib "glew32.dll" Alias "__glewMultiTexCoord2fv" (ByVal target As Long, v As Single)
Declare Sub glMultiTexCoord2i Lib "glew32.dll" Alias "__glewMultiTexCoord2i" (ByVal target As Long, ByVal s As Long, ByVal t As Long)
Declare Sub glMultiTexCoord2iv Lib "glew32.dll" Alias "__glewMultiTexCoord2iv" (ByVal target As Long, v As Long)
Declare Sub glMultiTexCoord2s Lib "glew32.dll" Alias "__glewMultiTexCoord2s" (ByVal target As Long, ByVal s As Integer, ByVal t As Integer)
Declare Sub glMultiTexCoord2sv Lib "glew32.dll" Alias "__glewMultiTexCoord2sv" (ByVal target As Long, v As Integer)
Declare Sub glMultiTexCoord3d Lib "glew32.dll" Alias "__glewMultiTexCoord3d" (ByVal target As Long, ByVal s As Double, ByVal t As Double, ByVal r As Double)
Declare Sub glMultiTexCoord3dv Lib "glew32.dll" Alias "__glewMultiTexCoord3dv" (ByVal target As Long, v As Double)
Declare Sub glMultiTexCoord3f Lib "glew32.dll" Alias "__glewMultiTexCoord3f" (ByVal target As Long, ByVal s As Single, ByVal t As Single, ByVal r As Single)
Declare Sub glMultiTexCoord3fv Lib "glew32.dll" Alias "__glewMultiTexCoord3fv" (ByVal target As Long, v As Single)
Declare Sub glMultiTexCoord3i Lib "glew32.dll" Alias "__glewMultiTexCoord3i" (ByVal target As Long, ByVal s As Long, ByVal t As Long, ByVal r As Long)
Declare Sub glMultiTexCoord3iv Lib "glew32.dll" Alias "__glewMultiTexCoord3iv" (ByVal target As Long, v As Long)
Declare Sub glMultiTexCoord3s Lib "glew32.dll" Alias "__glewMultiTexCoord3s" (ByVal target As Long, ByVal s As Integer, ByVal t As Integer, ByVal r As Integer)
Declare Sub glMultiTexCoord3sv Lib "glew32.dll" Alias "__glewMultiTexCoord3sv" (ByVal target As Long, v As Integer)
Declare Sub glMultiTexCoord4d Lib "glew32.dll" Alias "__glewMultiTexCoord4d" (ByVal target As Long, ByVal s As Double, ByVal t As Double, ByVal r As Double, ByVal q As Double)
Declare Sub glMultiTexCoord4dv Lib "glew32.dll" Alias "__glewMultiTexCoord4dv" (ByVal target As Long, v As Double)
Declare Sub glMultiTexCoord4f Lib "glew32.dll" Alias "__glewMultiTexCoord4f" (ByVal target As Long, ByVal s As Single, ByVal t As Single, ByVal r As Single, ByVal q As Single)
Declare Sub glMultiTexCoord4fv Lib "glew32.dll" Alias "__glewMultiTexCoord4fv" (ByVal target As Long, v As Single)
Declare Sub glMultiTexCoord4i Lib "glew32.dll" Alias "__glewMultiTexCoord4i" (ByVal target As Long, ByVal s As Long, ByVal t As Long, ByVal r As Long, ByVal q As Long)
Declare Sub glMultiTexCoord4iv Lib "glew32.dll" Alias "__glewMultiTexCoord4iv" (ByVal target As Long, v As Long)
Declare Sub glMultiTexCoord4s Lib "glew32.dll" Alias "__glewMultiTexCoord4s" (ByVal target As Long, ByVal s As Integer, ByVal t As Integer, ByVal r As Integer, ByVal q As Integer)
Declare Sub glMultiTexCoord4sv Lib "glew32.dll" Alias "__glewMultiTexCoord4sv" (ByVal target As Long, v As Integer)
Declare Sub glSampleCoverage Lib "glew32.dll" Alias "__glewSampleCoverage" (ByVal value As Single, ByVal invert As Boolean)

Declare Sub glBlendColor Lib "glew32.dll" Alias "__glewBlendColor" (ByVal red As Single, ByVal green As Single, ByVal blue As Single, ByVal alpha As Single)
Declare Sub glBlendEquation Lib "glew32.dll" Alias "__glewBlendEquation" (ByVal mode As Long)
Declare Sub glBlendFuncSeparate Lib "glew32.dll" Alias "__glewBlendFuncSeparate" (ByVal sfactorRGB As Long, ByVal dfactorRGB As Long, ByVal sfactorAlpha As Long, ByVal dfactorAlpha As Long)
Declare Sub glFogCoordPointer Lib "glew32.dll" Alias "__glewFogCoordPointer" (ByVal type_ As Long, ByVal stride As Long, pointer As Any)
Declare Sub glFogCoordd Lib "glew32.dll" Alias "__glewFogCoordd" (ByVal coord As Double)
Declare Sub glFogCoorddv Lib "glew32.dll" Alias "__glewFogCoorddv" (coord As Double)
Declare Sub glFogCoordf Lib "glew32.dll" Alias "__glewFogCoordf" (ByVal coord As Single)
Declare Sub glFogCoordfv Lib "glew32.dll" Alias "__glewFogCoordfv" (coord As Single)
Declare Sub glMultiDrawArrays Lib "glew32.dll" Alias "__glewMultiDrawArrays" (ByVal mode As Long, first As Long, count As Long, ByVal drawcount As Long)
Declare Sub glMultiDrawElements Lib "glew32.dll" Alias "__glewMultiDrawElements" (ByVal mode As Long, count As Long, ByVal type_ As Long, indices As Any, ByVal drawcount As Long)
Declare Sub glPointParameterf Lib "glew32.dll" Alias "__glewPointParameterf" (ByVal pname As Long, ByVal param As Single)
Declare Sub glPointParameterfv Lib "glew32.dll" Alias "__glewPointParameterfv" (ByVal pname As Long, params As Single)
Declare Sub glPointParameteri Lib "glew32.dll" Alias "__glewPointParameteri" (ByVal pname As Long, ByVal param As Long)
Declare Sub glPointParameteriv Lib "glew32.dll" Alias "__glewPointParameteriv" (ByVal pname As Long, params As Long)
Declare Sub glSecondaryColor3b Lib "glew32.dll" Alias "__glewSecondaryColor3b" (ByVal red As Byte, ByVal green As Byte, ByVal blue As Byte)
Declare Sub glSecondaryColor3bv Lib "glew32.dll" Alias "__glewSecondaryColor3bv" (v As Byte)
Declare Sub glSecondaryColor3d Lib "glew32.dll" Alias "__glewSecondaryColor3d" (ByVal red As Double, ByVal green As Double, ByVal blue As Double)
Declare Sub glSecondaryColor3dv Lib "glew32.dll" Alias "__glewSecondaryColor3dv" (v As Double)
Declare Sub glSecondaryColor3f Lib "glew32.dll" Alias "__glewSecondaryColor3f" (ByVal red As Single, ByVal green As Single, ByVal blue As Single)
Declare Sub glSecondaryColor3fv Lib "glew32.dll" Alias "__glewSecondaryColor3fv" (v As Single)
Declare Sub glSecondaryColor3i Lib "glew32.dll" Alias "__glewSecondaryColor3i" (ByVal red As Long, ByVal green As Long, ByVal blue As Long)
Declare Sub glSecondaryColor3iv Lib "glew32.dll" Alias "__glewSecondaryColor3iv" (v As Long)
Declare Sub glSecondaryColor3s Lib "glew32.dll" Alias "__glewSecondaryColor3s" (ByVal red As Integer, ByVal green As Integer, ByVal blue As Integer)
Declare Sub glSecondaryColor3sv Lib "glew32.dll" Alias "__glewSecondaryColor3sv" (v As Integer)
Declare Sub glSecondaryColor3ub Lib "glew32.dll" Alias "__glewSecondaryColor3ub" (ByVal red As Byte, ByVal green As Byte, ByVal blue As Byte)
Declare Sub glSecondaryColor3ubv Lib "glew32.dll" Alias "__glewSecondaryColor3ubv" (v As Byte)
Declare Sub glSecondaryColor3ui Lib "glew32.dll" Alias "__glewSecondaryColor3ui" (ByVal red As Long, ByVal green As Long, ByVal blue As Long)
Declare Sub glSecondaryColor3uiv Lib "glew32.dll" Alias "__glewSecondaryColor3uiv" (v As Long)
Declare Sub glSecondaryColor3us Lib "glew32.dll" Alias "__glewSecondaryColor3us" (ByVal red As Integer, ByVal green As Integer, ByVal blue As Integer)
Declare Sub glSecondaryColor3usv Lib "glew32.dll" Alias "__glewSecondaryColor3usv" (v As Integer)
Declare Sub glSecondaryColorPointer Lib "glew32.dll" Alias "__glewSecondaryColorPointer" (ByVal size As Long, ByVal type_ As Long, ByVal stride As Long, pointer As Any)
Declare Sub glWindowPos2d Lib "glew32.dll" Alias "__glewWindowPos2d" (ByVal x As Double, ByVal y As Double)
Declare Sub glWindowPos2dv Lib "glew32.dll" Alias "__glewWindowPos2dv" (p As Double)
Declare Sub glWindowPos2f Lib "glew32.dll" Alias "__glewWindowPos2f" (ByVal x As Single, ByVal y As Single)
Declare Sub glWindowPos2fv Lib "glew32.dll" Alias "__glewWindowPos2fv" (p As Single)
Declare Sub glWindowPos2i Lib "glew32.dll" Alias "__glewWindowPos2i" (ByVal x As Long, ByVal y As Long)
Declare Sub glWindowPos2iv Lib "glew32.dll" Alias "__glewWindowPos2iv" (p As Long)
Declare Sub glWindowPos2s Lib "glew32.dll" Alias "__glewWindowPos2s" (ByVal x As Integer, ByVal y As Integer)
Declare Sub glWindowPos2sv Lib "glew32.dll" Alias "__glewWindowPos2sv" (p As Integer)
Declare Sub glWindowPos3d Lib "glew32.dll" Alias "__glewWindowPos3d" (ByVal x As Double, ByVal y As Double, ByVal z As Double)
Declare Sub glWindowPos3dv Lib "glew32.dll" Alias "__glewWindowPos3dv" (p As Double)
Declare Sub glWindowPos3f Lib "glew32.dll" Alias "__glewWindowPos3f" (ByVal x As Single, ByVal y As Single, ByVal z As Single)
Declare Sub glWindowPos3fv Lib "glew32.dll" Alias "__glewWindowPos3fv" (p As Single)
Declare Sub glWindowPos3i Lib "glew32.dll" Alias "__glewWindowPos3i" (ByVal x As Long, ByVal y As Long, ByVal z As Long)
Declare Sub glWindowPos3iv Lib "glew32.dll" Alias "__glewWindowPos3iv" (p As Long)
Declare Sub glWindowPos3s Lib "glew32.dll" Alias "__glewWindowPos3s" (ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)
Declare Sub glWindowPos3sv Lib "glew32.dll" Alias "__glewWindowPos3sv" (p As Integer)

Declare Sub glBeginQuery Lib "glew32.dll" Alias "__glewBeginQuery" (ByVal target As Long, ByVal id As Long)
Declare Sub glBindBuffer Lib "glew32.dll" Alias "__glewBindBuffer" (ByVal target As Long, ByVal buffer As Long)
Declare Sub glBufferData Lib "glew32.dll" Alias "__glewBufferData" (ByVal target As Long, size As Long, data As Any, ByVal usage As Long)
Declare Sub glBufferSubData Lib "glew32.dll" Alias "__glewBufferSubData" (ByVal target As Long, offset As Long, size As Long, data As Any)
Declare Sub glDeleteBuffers Lib "glew32.dll" Alias "__glewDeleteBuffers" (ByVal n As Long, buffers As Long)
Declare Sub glDeleteQueries Lib "glew32.dll" Alias "__glewDeleteQueries" (ByVal n As Long, ids As Long)
Declare Sub glEndQuery Lib "glew32.dll" Alias "__glewEndQuery" (ByVal target As Long)
Declare Sub glGenBuffers Lib "glew32.dll" Alias "__glewGenBuffers" (ByVal n As Long, buffers As Long)
Declare Sub glGenQueries Lib "glew32.dll" Alias "__glewGenQueries" (ByVal n As Long, ids As Long)
Declare Sub glGetBufferParameteriv Lib "glew32.dll" Alias "__glewGetBufferParameteriv" (ByVal target As Long, ByVal pname As Long, params As Long)
Declare Sub glGetBufferPointerv Lib "glew32.dll" Alias "__glewGetBufferPointerv" (ByVal target As Long, ByVal pname As Long, params As Any)
Declare Sub glGetBufferSubData Lib "glew32.dll" Alias "__glewGetBufferSubData" (ByVal target As Long, offset As Long, size As Long, data As Any)
Declare Sub glGetQueryObjectiv Lib "glew32.dll" Alias "__glewGetQueryObjectiv" (ByVal id As Long, ByVal pname As Long, params As Long)
Declare Sub glGetQueryObjectuiv Lib "glew32.dll" Alias "__glewGetQueryObjectuiv" (ByVal id As Long, ByVal pname As Long, params As Long)
Declare Sub glGetQueryiv Lib "glew32.dll" Alias "__glewGetQueryiv" (ByVal target As Long, ByVal pname As Long, params As Long)
Declare Sub glIsBuffer Lib "glew32.dll" Alias "__glewIsBuffer" (ByVal buffer As Long)
Declare Sub glIsQuery Lib "glew32.dll" Alias "__glewIsQuery" (ByVal id As Long)
Declare Sub glMapBuffer Lib "glew32.dll" Alias "__glewMapBuffer" (ByVal target As Long, ByVal access As Long)
Declare Sub glUnmapBuffer Lib "glew32.dll" Alias "__glewUnmapBuffer" (ByVal target As Long)

Declare Sub glAttachShader Lib "glew32.dll" Alias "__glewAttachShader" (ByVal program As Long, ByVal shader As Long)
Declare Sub glBindAttribLocation Lib "glew32.dll" Alias "__glewBindAttribLocation" (ByVal program As Long, ByVal index As Long, name As Byte)
Declare Sub glBlendEquationSeparate Lib "glew32.dll" Alias "__glewBlendEquationSeparate" (ByVal modeRGB As Long, ByVal modeAlpha As Long)
Declare Sub glCompileShader Lib "glew32.dll" Alias "__glewCompileShader" (ByVal shader As Long)
Declare Function glCreateProgram Lib "glew32.dll" Alias "__glewCreateProgram" (ByVal any_ As Any) As Long
Declare Function glCreateShader Lib "glew32.dll" Alias "__glewCreateShader" (ByVal type_ As Long) As Long
Declare Sub glDeleteProgram Lib "glew32.dll" Alias "__glewDeleteProgram" (ByVal program As Long)
Declare Sub glDeleteShader Lib "glew32.dll" Alias "__glewDeleteShader" (ByVal shader As Long)
Declare Sub glDetachShader Lib "glew32.dll" Alias "__glewDetachShader" (ByVal program As Long, ByVal shader As Long)
Declare Sub glDisableVertexAttribArray Lib "glew32.dll" Alias "__glewDisableVertexAttribArray" (ByVal index As Long)
Declare Sub glDrawBuffers Lib "glew32.dll" Alias "__glewDrawBuffers" (ByVal n As Long, bufs As Long)
Declare Sub glEnableVertexAttribArray Lib "glew32.dll" Alias "__glewEnableVertexAttribArray" (ByVal index As Long)
Declare Sub glGetActiveAttrib Lib "glew32.dll" Alias "__glewGetActiveAttrib" (ByVal program As Long, ByVal index As Long, ByVal maxLength As Long, length As Long, size As Long, type_ As Long, name As Byte)
Declare Sub glGetActiveUniform Lib "glew32.dll" Alias "__glewGetActiveUniform" (ByVal program As Long, ByVal index As Long, ByVal maxLength As Long, length As Long, size As Long, type_ As Long, name As Byte)
Declare Sub glGetAttachedShaders Lib "glew32.dll" Alias "__glewGetAttachedShaders" (ByVal program As Long, ByVal maxCount As Long, count As Long, shaders As Long)
Declare Function glGetAttribLocation Lib "glew32.dll" Alias "__glewGetAttribLocation" (ByVal program As Long, name As Byte) As Long
Declare Sub glGetProgramInfoLog Lib "glew32.dll" Alias "__glewGetProgramInfoLog" (ByVal program As Long, ByVal bufsize As Long, length As Long, infoLog As Byte)
Declare Sub glGetProgramiv Lib "glew32.dll" Alias "__glewGetProgramiv" (ByVal program As Long, ByVal pname As Long, param As Long)
Declare Sub glGetShaderInfoLog Lib "glew32.dll" Alias "__glewGetShaderInfoLog" (ByVal shader As Long, ByVal bufsize As Long, length As Long, infoLog As Byte)
Declare Sub glGetShaderSource Lib "glew32.dll" Alias "__glewGetShaderSource" (ByVal obj As Long, ByVal maxLength As Long, length As Long, source As Byte)
Declare Sub glGetShaderiv Lib "glew32.dll" Alias "__glewGetShaderiv" (ByVal shader As Long, ByVal pname As Long, param As Long)
Declare Function glGetUniformLocation Lib "glew32.dll" Alias "__glewGetUniformLocation" (ByVal program As Long, name As Byte) As Long
Declare Sub glGetUniformfv Lib "glew32.dll" Alias "__glewGetUniformfv" (ByVal program As Long, ByVal location As Long, params As Single)
Declare Sub glGetUniformiv Lib "glew32.dll" Alias "__glewGetUniformiv" (ByVal program As Long, ByVal location As Long, params As Long)
Declare Sub glGetVertexAttribPointerv Lib "glew32.dll" Alias "__glewGetVertexAttribPointerv" (ByVal index As Long, ByVal pname As Long, pointer As Any)
Declare Sub glGetVertexAttribdv Lib "glew32.dll" Alias "__glewGetVertexAttribdv" (ByVal index As Long, ByVal pname As Long, params As Double)
Declare Sub glGetVertexAttribfv Lib "glew32.dll" Alias "__glewGetVertexAttribfv" (ByVal index As Long, ByVal pname As Long, params As Single)
Declare Sub glGetVertexAttribiv Lib "glew32.dll" Alias "__glewGetVertexAttribiv" (ByVal index As Long, ByVal pname As Long, params As Long)
Declare Function glIsProgram Lib "glew32.dll" Alias "__glewIsProgram" (ByVal program As Long) As Boolean
Declare Function glIsShader Lib "glew32.dll" Alias "__glewIsShader" (ByVal shader As Long) As Boolean
Declare Sub glLinkProgram Lib "glew32.dll" Alias "__glewLinkProgram" (ByVal program As Long)
Declare Sub glShaderSource Lib "glew32.dll" Alias "__glewShaderSource" (ByVal shader As Long, ByVal count As Long, str As Byte, length As Long)
Declare Sub glStencilFuncSeparate Lib "glew32.dll" Alias "__glewStencilFuncSeparate" (ByVal frontfunc As Long, ByVal backfunc As Long, ByVal ref As Long, ByVal mask As Long)
Declare Sub glStencilMaskSeparate Lib "glew32.dll" Alias "__glewStencilMaskSeparate" (ByVal face As Long, ByVal mask As Long)
Declare Sub glStencilOpSeparate Lib "glew32.dll" Alias "__glewStencilOpSeparate" (ByVal face As Long, ByVal sfail As Long, ByVal dpfail As Long, ByVal dppass As Long)
Declare Sub glUniform1f Lib "glew32.dll" Alias "__glewUniform1f" (ByVal location As Long, ByVal v0 As Single)
Declare Sub glUniform1fv Lib "glew32.dll" Alias "__glewUniform1fv" (ByVal location As Long, ByVal count As Long, value As Single)
Declare Sub glUniform1i Lib "glew32.dll" Alias "__glewUniform1i" (ByVal location As Long, ByVal v0 As Long)
Declare Sub glUniform1iv Lib "glew32.dll" Alias "__glewUniform1iv" (ByVal location As Long, ByVal count As Long, value As Long)
Declare Sub glUniform2f Lib "glew32.dll" Alias "__glewUniform2f" (ByVal location As Long, ByVal v0 As Single, ByVal v1 As Single)
Declare Sub glUniform2fv Lib "glew32.dll" Alias "__glewUniform2fv" (ByVal location As Long, ByVal count As Long, value As Single)
Declare Sub glUniform2i Lib "glew32.dll" Alias "__glewUniform2i" (ByVal location As Long, ByVal v0 As Long, ByVal v1 As Long)
Declare Sub glUniform2iv Lib "glew32.dll" Alias "__glewUniform2iv" (ByVal location As Long, ByVal count As Long, value As Long)
Declare Sub glUniform3f Lib "glew32.dll" Alias "__glewUniform3f" (ByVal location As Long, ByVal v0 As Single, ByVal v1 As Single, ByVal v2 As Single)
Declare Sub glUniform3fv Lib "glew32.dll" Alias "__glewUniform3fv" (ByVal location As Long, ByVal count As Long, value As Single)
Declare Sub glUniform3i Lib "glew32.dll" Alias "__glewUniform3i" (ByVal location As Long, ByVal v0 As Long, ByVal v1 As Long, ByVal v2 As Long)
Declare Sub glUniform3iv Lib "glew32.dll" Alias "__glewUniform3iv" (ByVal location As Long, ByVal count As Long, value As Long)
Declare Sub glUniform4f Lib "glew32.dll" Alias "__glewUniform4f" (ByVal location As Long, ByVal v0 As Single, ByVal v1 As Single, ByVal v2 As Single, ByVal v3 As Single)
Declare Sub glUniform4fv Lib "glew32.dll" Alias "__glewUniform4fv" (ByVal location As Long, ByVal count As Long, value As Single)
Declare Sub glUniform4i Lib "glew32.dll" Alias "__glewUniform4i" (ByVal location As Long, ByVal v0 As Long, ByVal v1 As Long, ByVal v2 As Long, ByVal v3 As Long)
Declare Sub glUniform4iv Lib "glew32.dll" Alias "__glewUniform4iv" (ByVal location As Long, ByVal count As Long, value As Long)
Declare Sub glUniformMatrix2fv Lib "glew32.dll" Alias "__glewUniformMatrix2fv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Single)
Declare Sub glUniformMatrix3fv Lib "glew32.dll" Alias "__glewUniformMatrix3fv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Single)
Declare Sub glUniformMatrix4fv Lib "glew32.dll" Alias "__glewUniformMatrix4fv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Single)
Declare Sub glUseProgram Lib "glew32.dll" Alias "__glewUseProgram" (ByVal program As Long)
Declare Sub glValidateProgram Lib "glew32.dll" Alias "__glewValidateProgram" (ByVal program As Long)
Declare Sub glVertexAttrib1d Lib "glew32.dll" Alias "__glewVertexAttrib1d" (ByVal index As Long, ByVal x As Double)
Declare Sub glVertexAttrib1dv Lib "glew32.dll" Alias "__glewVertexAttrib1dv" (ByVal index As Long, v As Double)
Declare Sub glVertexAttrib1f Lib "glew32.dll" Alias "__glewVertexAttrib1f" (ByVal index As Long, ByVal x As Single)
Declare Sub glVertexAttrib1fv Lib "glew32.dll" Alias "__glewVertexAttrib1fv" (ByVal index As Long, v As Single)
Declare Sub glVertexAttrib1s Lib "glew32.dll" Alias "__glewVertexAttrib1s" (ByVal index As Long, ByVal x As Integer)
Declare Sub glVertexAttrib1sv Lib "glew32.dll" Alias "__glewVertexAttrib1sv" (ByVal index As Long, v As Integer)
Declare Sub glVertexAttrib2d Lib "glew32.dll" Alias "__glewVertexAttrib2d" (ByVal index As Long, ByVal x As Double, ByVal y As Double)
Declare Sub glVertexAttrib2dv Lib "glew32.dll" Alias "__glewVertexAttrib2dv" (ByVal index As Long, v As Double)
Declare Sub glVertexAttrib2f Lib "glew32.dll" Alias "__glewVertexAttrib2f" (ByVal index As Long, ByVal x As Single, ByVal y As Single)
Declare Sub glVertexAttrib2fv Lib "glew32.dll" Alias "__glewVertexAttrib2fv" (ByVal index As Long, v As Single)
Declare Sub glVertexAttrib2s Lib "glew32.dll" Alias "__glewVertexAttrib2s" (ByVal index As Long, ByVal x As Integer, ByVal y As Integer)
Declare Sub glVertexAttrib2sv Lib "glew32.dll" Alias "__glewVertexAttrib2sv" (ByVal index As Long, v As Integer)
Declare Sub glVertexAttrib3d Lib "glew32.dll" Alias "__glewVertexAttrib3d" (ByVal index As Long, ByVal x As Double, ByVal y As Double, ByVal z As Double)
Declare Sub glVertexAttrib3dv Lib "glew32.dll" Alias "__glewVertexAttrib3dv" (ByVal index As Long, v As Double)
Declare Sub glVertexAttrib3f Lib "glew32.dll" Alias "__glewVertexAttrib3f" (ByVal index As Long, ByVal x As Single, ByVal y As Single, ByVal z As Single)
Declare Sub glVertexAttrib3fv Lib "glew32.dll" Alias "__glewVertexAttrib3fv" (ByVal index As Long, v As Single)
Declare Sub glVertexAttrib3s Lib "glew32.dll" Alias "__glewVertexAttrib3s" (ByVal index As Long, ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)
Declare Sub glVertexAttrib3sv Lib "glew32.dll" Alias "__glewVertexAttrib3sv" (ByVal index As Long, v As Integer)
Declare Sub glVertexAttrib4Nbv Lib "glew32.dll" Alias "__glewVertexAttrib4Nbv" (ByVal index As Long, v As Byte)
Declare Sub glVertexAttrib4Niv Lib "glew32.dll" Alias "__glewVertexAttrib4Niv" (ByVal index As Long, v As Long)
Declare Sub glVertexAttrib4Nsv Lib "glew32.dll" Alias "__glewVertexAttrib4Nsv" (ByVal index As Long, v As Integer)
Declare Sub glVertexAttrib4Nub Lib "glew32.dll" Alias "__glewVertexAttrib4Nub" (ByVal index As Long, ByVal x As Byte, ByVal y As Byte, ByVal z As Byte, ByVal w As Byte)
Declare Sub glVertexAttrib4Nubv Lib "glew32.dll" Alias "__glewVertexAttrib4Nubv" (ByVal index As Long, v As Byte)
Declare Sub glVertexAttrib4Nuiv Lib "glew32.dll" Alias "__glewVertexAttrib4Nuiv" (ByVal index As Long, v As Long)
Declare Sub glVertexAttrib4Nusv Lib "glew32.dll" Alias "__glewVertexAttrib4Nusv" (ByVal index As Long, v As Integer)
Declare Sub glVertexAttrib4bv Lib "glew32.dll" Alias "__glewVertexAttrib4bv" (ByVal index As Long, v As Byte)
Declare Sub glVertexAttrib4d Lib "glew32.dll" Alias "__glewVertexAttrib4d" (ByVal index As Long, ByVal x As Double, ByVal y As Double, ByVal z As Double, ByVal w As Double)
Declare Sub glVertexAttrib4dv Lib "glew32.dll" Alias "__glewVertexAttrib4dv" (ByVal index As Long, v As Double)
Declare Sub glVertexAttrib4f Lib "glew32.dll" Alias "__glewVertexAttrib4f" (ByVal index As Long, ByVal x As Single, ByVal y As Single, ByVal z As Single, ByVal w As Single)
Declare Sub glVertexAttrib4fv Lib "glew32.dll" Alias "__glewVertexAttrib4fv" (ByVal index As Long, v As Single)
Declare Sub glVertexAttrib4iv Lib "glew32.dll" Alias "__glewVertexAttrib4iv" (ByVal index As Long, v As Long)
Declare Sub glVertexAttrib4s Lib "glew32.dll" Alias "__glewVertexAttrib4s" (ByVal index As Long, ByVal x As Integer, ByVal y As Integer, ByVal z As Integer, ByVal w As Integer)
Declare Sub glVertexAttrib4sv Lib "glew32.dll" Alias "__glewVertexAttrib4sv" (ByVal index As Long, v As Integer)
Declare Sub glVertexAttrib4ubv Lib "glew32.dll" Alias "__glewVertexAttrib4ubv" (ByVal index As Long, v As Byte)
Declare Sub glVertexAttrib4uiv Lib "glew32.dll" Alias "__glewVertexAttrib4uiv" (ByVal index As Long, v As Long)
Declare Sub glVertexAttrib4usv Lib "glew32.dll" Alias "__glewVertexAttrib4usv" (ByVal index As Long, v As Integer)
Declare Sub glVertexAttribPointer Lib "glew32.dll" Alias "__glewVertexAttribPointer" (ByVal index As Long, ByVal size As Long, ByVal type_ As Long, ByVal normalized As Boolean, ByVal stride As Long, pointer As Any)

Declare Sub glUniformMatrix2x3fv Lib "glew32.dll" Alias "__glewUniformMatrix2x3fv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Single)
Declare Sub glUniformMatrix2x4fv Lib "glew32.dll" Alias "__glewUniformMatrix2x4fv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Single)
Declare Sub glUniformMatrix3x2fv Lib "glew32.dll" Alias "__glewUniformMatrix3x2fv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Single)
Declare Sub glUniformMatrix3x4fv Lib "glew32.dll" Alias "__glewUniformMatrix3x4fv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Single)
Declare Sub glUniformMatrix4x2fv Lib "glew32.dll" Alias "__glewUniformMatrix4x2fv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Single)
Declare Sub glUniformMatrix4x3fv Lib "glew32.dll" Alias "__glewUniformMatrix4x3fv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Single)

Declare Sub glBeginConditionalRender Lib "glew32.dll" Alias "__glewBeginConditionalRender" (ByVal id As Long, ByVal mode As Long)
Declare Sub glBeginTransformFeedback Lib "glew32.dll" Alias "__glewBeginTransformFeedback" (ByVal primitiveMode As Long)
Declare Sub glBindFragDataLocation Lib "glew32.dll" Alias "__glewBindFragDataLocation" (ByVal program As Long, ByVal colorNumber As Long, name As Byte)
Declare Sub glClampColor Lib "glew32.dll" Alias "__glewClampColor" (ByVal target As Long, ByVal clamp As Long)
Declare Sub glClearBufferfi Lib "glew32.dll" Alias "__glewClearBufferfi" (ByVal buffer As Long, ByVal drawBuffer As Long, ByVal depth As Single, ByVal stencil As Long)
Declare Sub glClearBufferfv Lib "glew32.dll" Alias "__glewClearBufferfv" (ByVal buffer As Long, ByVal drawBuffer As Long, value As Single)
Declare Sub glClearBufferiv Lib "glew32.dll" Alias "__glewClearBufferiv" (ByVal buffer As Long, ByVal drawBuffer As Long, value As Long)
Declare Sub glClearBufferuiv Lib "glew32.dll" Alias "__glewClearBufferuiv" (ByVal buffer As Long, ByVal drawBuffer As Long, value As Long)
Declare Sub glColorMaski Lib "glew32.dll" Alias "__glewColorMaski" (ByVal buf As Long, ByVal red As Boolean, ByVal green As Boolean, ByVal blue As Boolean, ByVal alpha As Boolean)
Declare Sub glDisablei Lib "glew32.dll" Alias "__glewDisablei" (ByVal cap As Long, ByVal index As Long)
Declare Sub glEnablei Lib "glew32.dll" Alias "__glewEnablei" (ByVal cap As Long, ByVal index As Long)
Declare Sub glEndConditionalRender Lib "glew32.dll" Alias "__glewEndConditionalRender" ()
Declare Sub glEndTransformFeedback Lib "glew32.dll" Alias "__glewEndTransformFeedback" ()
Declare Sub glGetBooleani_v Lib "glew32.dll" Alias "__glewGetBooleani_v" (ByVal pname As Long, ByVal index As Long, data As Boolean)
Declare Function glGetFragDataLocation Lib "glew32.dll" Alias "__glewGetFragDataLocation" (ByVal program As Long, name As Byte) As Long
Declare Function glGetStringi Lib "glew32.dll" Alias "__glewGetStringi" (ByVal name As Long, ByVal index As Long) As Long
Declare Sub glGetTexParameterIiv Lib "glew32.dll" Alias "__glewGetTexParameterIiv" (ByVal target As Long, ByVal pname As Long, params As Long)
Declare Sub glGetTexParameterIuiv Lib "glew32.dll" Alias "__glewGetTexParameterIuiv" (ByVal target As Long, ByVal pname As Long, params As Long)
Declare Sub glGetTransformFeedbackVarying Lib "glew32.dll" Alias "__glewGetTransformFeedbackVarying" (ByVal program As Long, ByVal index As Long, ByVal bufsize As Long, length As Long, size As Long, type_ As Long, name As Byte)
Declare Sub glGetUniformuiv Lib "glew32.dll" Alias "__glewGetUniformuiv" (ByVal program As Long, ByVal location As Long, params As Long)
Declare Sub glGetVertexAttribIiv Lib "glew32.dll" Alias "__glewGetVertexAttribIiv" (ByVal index As Long, ByVal pname As Long, params As Long)
Declare Sub glGetVertexAttribIuiv Lib "glew32.dll" Alias "__glewGetVertexAttribIuiv" (ByVal index As Long, ByVal pname As Long, params As Long)
Declare Function glIsEnabledi Lib "glew32.dll" Alias "__glewIsEnabledi" (ByVal cap As Long, ByVal index As Long) As Boolean
Declare Sub glTexParameterIiv Lib "glew32.dll" Alias "__glewTexParameterIiv" (ByVal target As Long, ByVal pname As Long, params As Long)
Declare Sub glTexParameterIuiv Lib "glew32.dll" Alias "__glewTexParameterIuiv" (ByVal target As Long, ByVal pname As Long, params As Long)
Declare Sub glTransformFeedbackVaryings Lib "glew32.dll" Alias "__glewTransformFeedbackVaryings" (ByVal program As Long, ByVal count As Long, varyings As Byte, ByVal bufferMode As Long)
Declare Sub glUniform1ui Lib "glew32.dll" Alias "__glewUniform1ui" (ByVal location As Long, ByVal v0 As Long)
Declare Sub glUniform1uiv Lib "glew32.dll" Alias "__glewUniform1uiv" (ByVal location As Long, ByVal count As Long, value As Long)
Declare Sub glUniform2ui Lib "glew32.dll" Alias "__glewUniform2ui" (ByVal location As Long, ByVal v0 As Long, ByVal v1 As Long)
Declare Sub glUniform2uiv Lib "glew32.dll" Alias "__glewUniform2uiv" (ByVal location As Long, ByVal count As Long, value As Long)
Declare Sub glUniform3ui Lib "glew32.dll" Alias "__glewUniform3ui" (ByVal location As Long, ByVal v0 As Long, ByVal v1 As Long, ByVal v2 As Long)
Declare Sub glUniform3uiv Lib "glew32.dll" Alias "__glewUniform3uiv" (ByVal location As Long, ByVal count As Long, value As Long)
Declare Sub glUniform4ui Lib "glew32.dll" Alias "__glewUniform4ui" (ByVal location As Long, ByVal v0 As Long, ByVal v1 As Long, ByVal v2 As Long, ByVal v3 As Long)
Declare Sub glUniform4uiv Lib "glew32.dll" Alias "__glewUniform4uiv" (ByVal location As Long, ByVal count As Long, value As Long)
Declare Sub glVertexAttribI1i Lib "glew32.dll" Alias "__glewVertexAttribI1i" (ByVal index As Long, ByVal v0 As Long)
Declare Sub glVertexAttribI1iv Lib "glew32.dll" Alias "__glewVertexAttribI1iv" (ByVal index As Long, v0 As Long)
Declare Sub glVertexAttribI1ui Lib "glew32.dll" Alias "__glewVertexAttribI1ui" (ByVal index As Long, ByVal v0 As Long)
Declare Sub glVertexAttribI1uiv Lib "glew32.dll" Alias "__glewVertexAttribI1uiv" (ByVal index As Long, v0 As Long)
Declare Sub glVertexAttribI2i Lib "glew32.dll" Alias "__glewVertexAttribI2i" (ByVal index As Long, ByVal v0 As Long, ByVal v1 As Long)
Declare Sub glVertexAttribI2iv Lib "glew32.dll" Alias "__glewVertexAttribI2iv" (ByVal index As Long, v0 As Long)
Declare Sub glVertexAttribI2ui Lib "glew32.dll" Alias "__glewVertexAttribI2ui" (ByVal index As Long, ByVal v0 As Long, ByVal v1 As Long)
Declare Sub glVertexAttribI2uiv Lib "glew32.dll" Alias "__glewVertexAttribI2uiv" (ByVal index As Long, v0 As Long)
Declare Sub glVertexAttribI3i Lib "glew32.dll" Alias "__glewVertexAttribI3i" (ByVal index As Long, ByVal v0 As Long, ByVal v1 As Long, ByVal v2 As Long)
Declare Sub glVertexAttribI3iv Lib "glew32.dll" Alias "__glewVertexAttribI3iv" (ByVal index As Long, v0 As Long)
Declare Sub glVertexAttribI3ui Lib "glew32.dll" Alias "__glewVertexAttribI3ui" (ByVal index As Long, ByVal v0 As Long, ByVal v1 As Long, ByVal v2 As Long)
Declare Sub glVertexAttribI3uiv Lib "glew32.dll" Alias "__glewVertexAttribI3uiv" (ByVal index As Long, v0 As Long)
Declare Sub glVertexAttribI4bv Lib "glew32.dll" Alias "__glewVertexAttribI4bv" (ByVal index As Long, v0 As Byte)
Declare Sub glVertexAttribI4i Lib "glew32.dll" Alias "__glewVertexAttribI4i" (ByVal index As Long, ByVal v0 As Long, ByVal v1 As Long, ByVal v2 As Long, ByVal v3 As Long)
Declare Sub glVertexAttribI4iv Lib "glew32.dll" Alias "__glewVertexAttribI4iv" (ByVal index As Long, v0 As Long)
Declare Sub glVertexAttribI4sv Lib "glew32.dll" Alias "__glewVertexAttribI4sv" (ByVal index As Long, v0 As Integer)
Declare Sub glVertexAttribI4ubv Lib "glew32.dll" Alias "__glewVertexAttribI4ubv" (ByVal index As Long, v0 As Byte)
Declare Sub glVertexAttribI4ui Lib "glew32.dll" Alias "__glewVertexAttribI4ui" (ByVal index As Long, ByVal v0 As Long, ByVal v1 As Long, ByVal v2 As Long, ByVal v3 As Long)
Declare Sub glVertexAttribI4uiv Lib "glew32.dll" Alias "__glewVertexAttribI4uiv" (ByVal index As Long, v0 As Long)
Declare Sub glVertexAttribI4usv Lib "glew32.dll" Alias "__glewVertexAttribI4usv" (ByVal index As Long, v0 As Integer)
Declare Sub glVertexAttribIPointer Lib "glew32.dll" Alias "__glewVertexAttribIPointer" (ByVal index As Long, ByVal size As Long, ByVal type_ As Long, ByVal stride As Long, pointer As Any)

Declare Sub glDrawArraysInstanced Lib "glew32.dll" Alias "__glewDrawArraysInstanced" (ByVal mode As Long, ByVal first As Long, ByVal count As Long, ByVal primcount As Long)
Declare Sub glDrawElementsInstanced Lib "glew32.dll" Alias "__glewDrawElementsInstanced" (ByVal mode As Long, ByVal count As Long, ByVal type_ As Long, indices As Any, ByVal primcount As Long)
Declare Sub glPrimitiveRestartIndex Lib "glew32.dll" Alias "__glewPrimitiveRestartIndex" (ByVal buffer As Long)
Declare Sub glTexBuffer Lib "glew32.dll" Alias "__glewTexBuffer" (ByVal target As Long, ByVal internalFormat As Long, ByVal buffer As Long)

Declare Sub glFramebufferTexture Lib "glew32.dll" Alias "__glewFramebufferTexture" (ByVal target As Long, ByVal attachment As Long, ByVal texture As Long, ByVal level As Long)
Declare Sub glGetBufferParameteri64v Lib "glew32.dll" Alias "__glewGetBufferParameteri64v" (ByVal target As Long, ByVal value As Long, data As Any)
Declare Sub glGetInteger64i_v Lib "glew32.dll" Alias "__glewGetInteger64i_v" (ByVal pname As Long, ByVal index As Long, data As Any)

Declare Sub glVertexAttribDivisor Lib "glew32.dll" Alias "__glewVertexAttribDivisor" (ByVal index As Long, ByVal divisor As Long)

Declare Sub glBlendEquationSeparatei Lib "glew32.dll" Alias "__glewBlendEquationSeparatei" (ByVal buf As Long, ByVal modeRGB As Long, ByVal modeAlpha As Long)
Declare Sub glBlendEquationi Lib "glew32.dll" Alias "__glewBlendEquationi" (ByVal buf As Long, ByVal mode As Long)
Declare Sub glBlendFuncSeparatei Lib "glew32.dll" Alias "__glewBlendFuncSeparatei" (ByVal buf As Long, ByVal srcRGB As Long, ByVal dstRGB As Long, ByVal srcAlpha As Long, ByVal dstAlpha As Long)
Declare Sub glBlendFunci Lib "glew32.dll" Alias "__glewBlendFunci" (ByVal buf As Long, ByVal src As Long, ByVal dst As Long)
Declare Sub glMinSampleShading Lib "glew32.dll" Alias "__glewMinSampleShading" (ByVal value As Single)

Declare Sub glTbufferMask3DFX Lib "glew32.dll" Alias "__glewTbufferMask3DFX" (ByVal mask As Long)
着色器部分
[Visual Basic] 纯文本查看 复制代码
Option Explicit

Global Const GL_DOUBLE_MAT2 = &H8F46
Global Const GL_DOUBLE_MAT3 = &H8F47
Global Const GL_DOUBLE_MAT4 = &H8F48
Global Const GL_DOUBLE_MAT2x3 = &H8F49
Global Const GL_DOUBLE_MAT2x4 = &H8F4A
Global Const GL_DOUBLE_MAT3x2 = &H8F4B
Global Const GL_DOUBLE_MAT3x4 = &H8F4C
Global Const GL_DOUBLE_MAT4x2 = &H8F4D
Global Const GL_DOUBLE_MAT4x3 = &H8F4E
Global Const GL_DOUBLE_VEC2 = &H8FFC
Global Const GL_DOUBLE_VEC3 = &H8FFD
Global Const GL_DOUBLE_VEC4 = &H8FFE

Declare Sub glGetUniformdv Lib "glew32.dll" Alias "__glewGetUniformdv" (ByVal program As Long, ByVal location As Long, params As Double)
Declare Sub glUniform1d Lib "glew32.dll" Alias "__glewUniform1d" (ByVal location As Long, ByVal x As Double)
Declare Sub glUniform1dv Lib "glew32.dll" Alias "__glewUniform1dv" (ByVal location As Long, ByVal count As Long, value As Double)
Declare Sub glUniform2d Lib "glew32.dll" Alias "__glewUniform2d" (ByVal location As Long, ByVal x As Double, ByVal y As Double)
Declare Sub glUniform2dv Lib "glew32.dll" Alias "__glewUniform2dv" (ByVal location As Long, ByVal count As Long, value As Double)
Declare Sub glUniform3d Lib "glew32.dll" Alias "__glewUniform3d" (ByVal location As Long, ByVal x As Double, ByVal y As Double, ByVal z As Double)
Declare Sub glUniform3dv Lib "glew32.dll" Alias "__glewUniform3dv" (ByVal location As Long, ByVal count As Long, value As Double)
Declare Sub glUniform4d Lib "glew32.dll" Alias "__glewUniform4d" (ByVal location As Long, ByVal x As Double, ByVal y As Double, ByVal z As Double, ByVal w As Double)
Declare Sub glUniform4dv Lib "glew32.dll" Alias "__glewUniform4dv" (ByVal location As Long, ByVal count As Long, value As Double)
Declare Sub glUniformMatrix2dv Lib "glew32.dll" Alias "__glewUniformMatrix2dv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Double)
Declare Sub glUniformMatrix2x3dv Lib "glew32.dll" Alias "__glewUniformMatrix2x3dv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Double)
Declare Sub glUniformMatrix2x4dv Lib "glew32.dll" Alias "__glewUniformMatrix2x4dv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Double)
Declare Sub glUniformMatrix3dv Lib "glew32.dll" Alias "__glewUniformMatrix3dv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Double)
Declare Sub glUniformMatrix3x2dv Lib "glew32.dll" Alias "__glewUniformMatrix3x2dv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Double)
Declare Sub glUniformMatrix3x4dv Lib "glew32.dll" Alias "__glewUniformMatrix3x4dv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Double)
Declare Sub glUniformMatrix4dv Lib "glew32.dll" Alias "__glewUniformMatrix4dv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Double)
Declare Sub glUniformMatrix4x2dv Lib "glew32.dll" Alias "__glewUniformMatrix4x2dv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Double)
Declare Sub glUniformMatrix4x3dv Lib "glew32.dll" Alias "__glewUniformMatrix4x3dv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Double)

Global Const GL_CONSTANT_COLOR = &H8001
Global Const GL_ONE_MINUS_CONSTANT_COLOR = &H8002
Global Const GL_CONSTANT_ALPHA = &H8003
Global Const GL_ONE_MINUS_CONSTANT_ALPHA = &H8004
Global Const GL_BLEND_COLOR = &H8005
Global Const GL_FUNC_ADD = &H8006
Global Const GL_MIN = &H8007
Global Const GL_MAX = &H8008
Global Const GL_BLEND_EQUATION = &H8009
Global Const GL_FUNC_SUBTRACT = &H800A
Global Const GL_FUNC_REVERSE_SUBTRACT = &H800B
Global Const GL_CONVOLUTION_1D = &H8010
Global Const GL_CONVOLUTION_2D = &H8011
Global Const GL_SEPARABLE_2D = &H8012
Global Const GL_CONVOLUTION_BORDER_MODE = &H8013
Global Const GL_CONVOLUTION_FILTER_SCALE = &H8014
Global Const GL_CONVOLUTION_FILTER_BIAS = &H8015
Global Const GL_REDUCE = &H8016
Global Const GL_CONVOLUTION_FORMAT = &H8017
Global Const GL_CONVOLUTION_WIDTH = &H8018
Global Const GL_CONVOLUTION_HEIGHT = &H8019
Global Const GL_MAX_CONVOLUTION_WIDTH = &H801A
Global Const GL_MAX_CONVOLUTION_HEIGHT = &H801B
Global Const GL_POST_CONVOLUTION_RED_SCALE = &H801C
Global Const GL_POST_CONVOLUTION_GREEN_SCALE = &H801D
Global Const GL_POST_CONVOLUTION_BLUE_SCALE = &H801E
Global Const GL_POST_CONVOLUTION_ALPHA_SCALE = &H801F
Global Const GL_POST_CONVOLUTION_RED_BIAS = &H8020
Global Const GL_POST_CONVOLUTION_GREEN_BIAS = &H8021
Global Const GL_POST_CONVOLUTION_BLUE_BIAS = &H8022
Global Const GL_POST_CONVOLUTION_ALPHA_BIAS = &H8023
Global Const GL_HISTOGRAM = &H8024
Global Const GL_PROXY_HISTOGRAM = &H8025
Global Const GL_HISTOGRAM_WIDTH = &H8026
Global Const GL_HISTOGRAM_FORMAT = &H8027
Global Const GL_HISTOGRAM_RED_SIZE = &H8028
Global Const GL_HISTOGRAM_GREEN_SIZE = &H8029
Global Const GL_HISTOGRAM_BLUE_SIZE = &H802A
Global Const GL_HISTOGRAM_ALPHA_SIZE = &H802B
Global Const GL_HISTOGRAM_LUMINANCE_SIZE = &H802C
Global Const GL_HISTOGRAM_SINK = &H802D
Global Const GL_MINMAX = &H802E
Global Const GL_MINMAX_FORMAT = &H802F
Global Const GL_MINMAX_SINK = &H8030
Global Const GL_TABLE_TOO_LARGE = &H8031
Global Const GL_COLOR_MATRIX = &H80B1
Global Const GL_COLOR_MATRIX_STACK_DEPTH = &H80B2
Global Const GL_MAX_COLOR_MATRIX_STACK_DEPTH = &H80B3
Global Const GL_POST_COLOR_MATRIX_RED_SCALE = &H80B4
Global Const GL_POST_COLOR_MATRIX_GREEN_SCALE = &H80B5
Global Const GL_POST_COLOR_MATRIX_BLUE_SCALE = &H80B6
Global Const GL_POST_COLOR_MATRIX_ALPHA_SCALE = &H80B7
Global Const GL_POST_COLOR_MATRIX_RED_BIAS = &H80B8
Global Const GL_POST_COLOR_MATRIX_GREEN_BIAS = &H80B9
Global Const GL_POST_COLOR_MATRIX_BLUE_BIAS = &H80BA
Global Const GL_POST_COLOR_MATRIX_ALPHA_BIAS = &H80BB
Global Const GL_COLOR_TABLE = &H80D0
Global Const GL_POST_CONVOLUTION_COLOR_TABLE = &H80D1
Global Const GL_POST_COLOR_MATRIX_COLOR_TABLE = &H80D2
Global Const GL_PROXY_COLOR_TABLE = &H80D3
Global Const GL_PROXY_POST_CONVOLUTION_COLOR_TABLE = &H80D4
Global Const GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE = &H80D5
Global Const GL_COLOR_TABLE_SCALE = &H80D6
Global Const GL_COLOR_TABLE_BIAS = &H80D7
Global Const GL_COLOR_TABLE_FORMAT = &H80D8
Global Const GL_COLOR_TABLE_WIDTH = &H80D9
Global Const GL_COLOR_TABLE_RED_SIZE = &H80DA
Global Const GL_COLOR_TABLE_GREEN_SIZE = &H80DB
Global Const GL_COLOR_TABLE_BLUE_SIZE = &H80DC
Global Const GL_COLOR_TABLE_ALPHA_SIZE = &H80DD
Global Const GL_COLOR_TABLE_LUMINANCE_SIZE = &H80DE
Global Const GL_COLOR_TABLE_INTENSITY_SIZE = &H80DF
Global Const GL_IGNORE_BORDER = &H8150
Global Const GL_CONSTANT_BORDER = &H8151
Global Const GL_WRAP_BORDER = &H8152
Global Const GL_REPLICATE_BORDER = &H8153
Global Const GL_CONVOLUTION_BORDER_COLOR = &H8154

Declare Sub glColorSubTable Lib "glew32.dll" Alias "__glewColorSubTable" (ByVal target As Long, ByVal start As Long, ByVal count As Long, ByVal format As Long, ByVal type_ As Long, data As Any)
Declare Sub glColorTable Lib "glew32.dll" Alias "__glewColorTable" (ByVal target As Long, ByVal internalFormat As Long, ByVal width As Long, ByVal format As Long, ByVal type_ As Long, table As Any)
Declare Sub glColorTableParameterfv Lib "glew32.dll" Alias "__glewColorTableParameterfv" (ByVal target As Long, ByVal pname As Long, params As Single)
Declare Sub glColorTableParameteriv Lib "glew32.dll" Alias "__glewColorTableParameteriv" (ByVal target As Long, ByVal pname As Long, params As Long)
Declare Sub glConvolutionFilter1D Lib "glew32.dll" Alias "__glewConvolutionFilter1D" (ByVal target As Long, ByVal internalFormat As Long, ByVal width As Long, ByVal format As Long, ByVal type_ As Long, image As Any)
Declare Sub glConvolutionFilter2D Lib "glew32.dll" Alias "__glewConvolutionFilter2D" (ByVal target As Long, ByVal internalFormat As Long, ByVal width As Long, ByVal height As Long, ByVal format As Long, ByVal type_ As Long, image As Any)
Declare Sub glConvolutionParameterf Lib "glew32.dll" Alias "__glewConvolutionParameterf" (ByVal target As Long, ByVal pname As Long, ByVal params As Single)
Declare Sub glConvolutionParameterfv Lib "glew32.dll" Alias "__glewConvolutionParameterfv" (ByVal target As Long, ByVal pname As Long, params As Single)
Declare Sub glConvolutionParameteri Lib "glew32.dll" Alias "__glewConvolutionParameteri" (ByVal target As Long, ByVal pname As Long, ByVal params As Long)
Declare Sub glConvolutionParameteriv Lib "glew32.dll" Alias "__glewConvolutionParameteriv" (ByVal target As Long, ByVal pname As Long, params As Long)
Declare Sub glCopyColorSubTable Lib "glew32.dll" Alias "__glewCopyColorSubTable" (ByVal target As Long, ByVal start As Long, ByVal x As Long, ByVal y As Long, ByVal width As Long)
Declare Sub glCopyColorTable Lib "glew32.dll" Alias "__glewCopyColorTable" (ByVal target As Long, ByVal internalFormat As Long, ByVal x As Long, ByVal y As Long, ByVal width As Long)
Declare Sub glCopyConvolutionFilter1D Lib "glew32.dll" Alias "__glewCopyConvolutionFilter1D" (ByVal target As Long, ByVal internalFormat As Long, ByVal x As Long, ByVal y As Long, ByVal width As Long)
Declare Sub glCopyConvolutionFilter2D Lib "glew32.dll" Alias "__glewCopyConvolutionFilter2D" (ByVal target As Long, ByVal internalFormat As Long, ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long)
Declare Sub glGetColorTable Lib "glew32.dll" Alias "__glewGetColorTable" (ByVal target As Long, ByVal format As Long, ByVal type_ As Long, table As Any)
Declare Sub glGetColorTableParameterfv Lib "glew32.dll" Alias "__glewGetColorTableParameterfv" (ByVal target As Long, ByVal pname As Long, params As Single)
Declare Sub glGetColorTableParameteriv Lib "glew32.dll" Alias "__glewGetColorTableParameteriv" (ByVal target As Long, ByVal pname As Long, params As Long)
Declare Sub glGetConvolutionFilter Lib "glew32.dll" Alias "__glewGetConvolutionFilter" (ByVal target As Long, ByVal format As Long, ByVal type_ As Long, image As Any)
Declare Sub glGetConvolutionParameterfv Lib "glew32.dll" Alias "__glewGetConvolutionParameterfv" (ByVal target As Long, ByVal pname As Long, params As Single)
Declare Sub glGetConvolutionParameteriv Lib "glew32.dll" Alias "__glewGetConvolutionParameteriv" (ByVal target As Long, ByVal pname As Long, params As Long)
Declare Sub glGetHistogram Lib "glew32.dll" Alias "__glewGetHistogram" (ByVal target As Long, ByVal reset As Boolean, ByVal format As Long, ByVal type_ As Long, values As Any)
Declare Sub glGetHistogramParameterfv Lib "glew32.dll" Alias "__glewGetHistogramParameterfv" (ByVal target As Long, ByVal pname As Long, params As Single)
Declare Sub glGetHistogramParameteriv Lib "glew32.dll" Alias "__glewGetHistogramParameteriv" (ByVal target As Long, ByVal pname As Long, params As Long)
Declare Sub glGetMinmax Lib "glew32.dll" Alias "__glewGetMinmax" (ByVal target As Long, ByVal reset As Boolean, ByVal format As Long, ByVal types As Long, values As Any)
Declare Sub glGetMinmaxParameterfv Lib "glew32.dll" Alias "__glewGetMinmaxParameterfv" (ByVal target As Long, ByVal pname As Long, params As Single)
Declare Sub glGetMinmaxParameteriv Lib "glew32.dll" Alias "__glewGetMinmaxParameteriv" (ByVal target As Long, ByVal pname As Long, params As Long)
Declare Sub glGetSeparableFilter Lib "glew32.dll" Alias "__glewGetSeparableFilter" (ByVal target As Long, ByVal format As Long, ByVal type_ As Long, row As Any, column As Any, span As Any)
Declare Sub glHistogram Lib "glew32.dll" Alias "__glewHistogram" (ByVal target As Long, ByVal width As Long, ByVal internalFormat As Long, ByVal sink As Boolean)
Declare Sub glMinmax Lib "glew32.dll" Alias "__glewMinmax" (ByVal target As Long, ByVal internalFormat As Long, ByVal sink As Boolean)
Declare Sub glResetHistogram Lib "glew32.dll" Alias "__glewResetHistogram" (ByVal target As Long)
Declare Sub glResetMinmax Lib "glew32.dll" Alias "__glewResetMinmax" (ByVal target As Long)
Declare Sub glSeparableFilter2D Lib "glew32.dll" Alias "__glewSeparableFilter2D" (ByVal target As Long, ByVal internalFormat As Long, ByVal width As Long, ByVal height As Long, ByVal format As Long, ByVal type_ As Long, row As Any, column As Any)

Global Const GL_BLEND_EQUATION_RGB = GL_BLEND_EQUATION
Global Const GL_VERTEX_ATTRIB_ARRAY_ENABLED = &H8622
Global Const GL_VERTEX_ATTRIB_ARRAY_SIZE = &H8623
Global Const GL_VERTEX_ATTRIB_ARRAY_STRIDE = &H8624
Global Const GL_VERTEX_ATTRIB_ARRAY_TYPE = &H8625
Global Const GL_CURRENT_VERTEX_ATTRIB = &H8626
Global Const GL_VERTEX_PROGRAM_POINT_SIZE = &H8642
Global Const GL_VERTEX_PROGRAM_TWO_SIDE = &H8643
Global Const GL_VERTEX_ATTRIB_ARRAY_POINTER = &H8645
Global Const GL_STENCIL_BACK_FUNC = &H8800
Global Const GL_STENCIL_BACK_FAIL = &H8801
Global Const GL_STENCIL_BACK_PASS_DEPTH_FAIL = &H8802
Global Const GL_STENCIL_BACK_PASS_DEPTH_PASS = &H8803
Global Const GL_MAX_DRAW_BUFFERS = &H8824
Global Const GL_DRAW_BUFFER0 = &H8825
Global Const GL_DRAW_BUFFER1 = &H8826
Global Const GL_DRAW_BUFFER2 = &H8827
Global Const GL_DRAW_BUFFER3 = &H8828
Global Const GL_DRAW_BUFFER4 = &H8829
Global Const GL_DRAW_BUFFER5 = &H882A
Global Const GL_DRAW_BUFFER6 = &H882B
Global Const GL_DRAW_BUFFER7 = &H882C
Global Const GL_DRAW_BUFFER8 = &H882D
Global Const GL_DRAW_BUFFER9 = &H882E
Global Const GL_DRAW_BUFFER10 = &H882F
Global Const GL_DRAW_BUFFER11 = &H8830
Global Const GL_DRAW_BUFFER12 = &H8831
Global Const GL_DRAW_BUFFER13 = &H8832
Global Const GL_DRAW_BUFFER14 = &H8833
Global Const GL_DRAW_BUFFER15 = &H8834
Global Const GL_BLEND_EQUATION_ALPHA = &H883D
Global Const GL_POINT_SPRITE = &H8861
Global Const GL_COORD_REPLACE = &H8862
Global Const GL_MAX_VERTEX_ATTRIBS = &H8869
Global Const GL_VERTEX_ATTRIB_ARRAY_NORMALIZED = &H886A
Global Const GL_MAX_TEXTURE_COORDS = &H8871
Global Const GL_MAX_TEXTURE_IMAGE_UNITS = &H8872
Global Const GL_FRAGMENT_SHADER = &H8B30
Global Const GL_VERTEX_SHADER = &H8B31
Global Const GL_MAX_FRAGMENT_UNIFORM_COMPONENTS = &H8B49
Global Const GL_MAX_VERTEX_UNIFORM_COMPONENTS = &H8B4A
Global Const GL_MAX_VARYING_FLOATS = &H8B4B
Global Const GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS = &H8B4C
Global Const GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS = &H8B4D
Global Const GL_SHADER_TYPE = &H8B4F
Global Const GL_FLOAT_VEC2 = &H8B50
Global Const GL_FLOAT_VEC3 = &H8B51
Global Const GL_FLOAT_VEC4 = &H8B52
Global Const GL_INT_VEC2 = &H8B53
Global Const GL_INT_VEC3 = &H8B54
Global Const GL_INT_VEC4 = &H8B55
Global Const GL_BOOL = &H8B56
Global Const GL_BOOL_VEC2 = &H8B57
Global Const GL_BOOL_VEC3 = &H8B58
Global Const GL_BOOL_VEC4 = &H8B59
Global Const GL_FLOAT_MAT2 = &H8B5A
Global Const GL_FLOAT_MAT3 = &H8B5B
Global Const GL_FLOAT_MAT4 = &H8B5C
Global Const GL_SAMPLER_1D = &H8B5D
Global Const GL_SAMPLER_2D = &H8B5E
Global Const GL_SAMPLER_3D = &H8B5F
Global Const GL_SAMPLER_CUBE = &H8B60
Global Const GL_SAMPLER_1D_SHADOW = &H8B61
Global Const GL_SAMPLER_2D_SHADOW = &H8B62
Global Const GL_DELETE_STATUS = &H8B80
Global Const GL_COMPILE_STATUS = &H8B81
Global Const GL_LINK_STATUS = &H8B82
Global Const GL_VALIDATE_STATUS = &H8B83
Global Const GL_INFO_LOG_LENGTH = &H8B84
Global Const GL_ATTACHED_SHADERS = &H8B85
Global Const GL_ACTIVE_UNIFORMS = &H8B86
Global Const GL_ACTIVE_UNIFORM_MAX_LENGTH = &H8B87
Global Const GL_SHADER_SOURCE_LENGTH = &H8B88
Global Const GL_ACTIVE_ATTRIBUTES = &H8B89
Global Const GL_ACTIVE_ATTRIBUTE_MAX_LENGTH = &H8B8A
Global Const GL_FRAGMENT_SHADER_DERIVATIVE_HINT = &H8B8B
Global Const GL_SHADING_LANGUAGE_VERSION = &H8B8C
Global Const GL_CURRENT_PROGRAM = &H8B8D
Global Const GL_POINT_SPRITE_COORD_ORIGIN = &H8CA0
Global Const GL_LOWER_LEFT = &H8CA1
Global Const GL_UPPER_LEFT = &H8CA2
Global Const GL_STENCIL_BACK_REF = &H8CA3
Global Const GL_STENCIL_BACK_VALUE_MASK = &H8CA4
Global Const GL_STENCIL_BACK_WRITEMASK = &H8CA5

Declare Sub glAttachShader Lib "glew32.dll" Alias "__glewAttachShader" (ByVal program As Long, ByVal shader As Long)
Declare Sub glBindAttribLocation Lib "glew32.dll" Alias "__glewBindAttribLocation" (ByVal program As Long, ByVal index As Long, name As Byte)
Declare Sub glBlendEquationSeparate Lib "glew32.dll" Alias "__glewBlendEquationSeparate" (ByVal modeRGB As Long, ByVal modeAlpha As Long)
Declare Sub glCompileShader Lib "glew32.dll" Alias "__glewCompileShader" (ByVal shader As Long)
Declare Function glCreateProgram Lib "glew32.dll" Alias "__glewCreateProgram" () As Long
Declare Function glCreateShader Lib "glew32.dll" Alias "__glewCreateShader" (ByVal type_ As Long) As Long
Declare Sub glDeleteProgram Lib "glew32.dll" Alias "__glewDeleteProgram" (ByVal program As Long)
Declare Sub glDeleteShader Lib "glew32.dll" Alias "__glewDeleteShader" (ByVal shader As Long)
Declare Sub glDetachShader Lib "glew32.dll" Alias "__glewDetachShader" (ByVal program As Long, ByVal shader As Long)
Declare Sub glDisableVertexAttribArray Lib "glew32.dll" Alias "__glewDisableVertexAttribArray" (ByVal index As Long)
Declare Sub glDrawBuffers Lib "glew32.dll" Alias "__glewDrawBuffers" (ByVal n As Long, bufs As Long)
Declare Sub glEnableVertexAttribArray Lib "glew32.dll" Alias "__glewEnableVertexAttribArray" (ByVal index As Long)
Declare Sub glGetActiveAttrib Lib "glew32.dll" Alias "__glewGetActiveAttrib" (ByVal program As Long, ByVal index As Long, ByVal maxLength As Long, length As Long, size As Long, type_ As Long, name As Byte)
Declare Sub glGetActiveUniform Lib "glew32.dll" Alias "__glewGetActiveUniform" (ByVal program As Long, ByVal index As Long, ByVal maxLength As Long, length As Long, size As Long, type_ As Long, name As Byte)
Declare Sub glGetAttachedShaders Lib "glew32.dll" Alias "__glewGetAttachedShaders" (ByVal program As Long, ByVal maxCount As Long, count As Long, shaders As Long)
Declare Function glGetAttribLocation Lib "glew32.dll" Alias "__glewGetAttribLocation" (ByVal program As Long, name As Byte) As Long
Declare Sub glGetProgramInfoLog Lib "glew32.dll" Alias "__glewGetProgramInfoLog" (ByVal program As Long, ByVal bufsize As Long, length As Long, infoLog As Byte)
Declare Sub glGetProgramiv Lib "glew32.dll" Alias "__glewGetProgramiv" (ByVal program As Long, ByVal pname As Long, param As Long)
Declare Sub glGetShaderInfoLog Lib "glew32.dll" Alias "__glewGetShaderInfoLog" (ByVal shader As Long, ByVal bufsize As Long, length As Long, infoLog As Byte)
Declare Sub glGetShaderSource Lib "glew32.dll" Alias "__glewGetShaderSource" (ByVal obj As Long, ByVal maxLength As Long, length As Long, source As Byte)
Declare Sub glGetShaderiv Lib "glew32.dll" Alias "__glewGetShaderiv" (ByVal shader As Long, ByVal pname As Long, param As Long)
Declare Function glGetUniformLocation Lib "glew32.dll" Alias "__glewGetUniformLocation" (ByVal program As Long, name As Byte) As Long
Declare Sub glGetUniformfv Lib "glew32.dll" Alias "__glewGetUniformfv" (ByVal program As Long, ByVal location As Long, params As Single)
Declare Sub glGetUniformiv Lib "glew32.dll" Alias "__glewGetUniformiv" (ByVal program As Long, ByVal location As Long, params As Single)
Declare Sub glGetVertexAttribPointerv Lib "glew32.dll" Alias "__glewGetVertexAttribPointerv" (ByVal index As Long, ByVal pname As Long, pointer As Any)
Declare Sub glGetVertexAttribdv Lib "glew32.dll" Alias "__glewGetVertexAttribdv" (ByVal index As Long, ByVal pname As Long, params As Double)
Declare Sub glGetVertexAttribfv Lib "glew32.dll" Alias "__glewGetVertexAttribfv" (ByVal index As Long, ByVal pname As Long, params As Single)
Declare Sub glGetVertexAttribiv Lib "glew32.dll" Alias "__glewGetVertexAttribiv" (ByVal index As Long, ByVal pname As Long, params As Single)
Declare Function glIsProgram Lib "glew32.dll" Alias "__glewIsProgram" (ByVal program As Long) As Boolean
Declare Function glIsShader Lib "glew32.dll" Alias "__glewIsShader" (ByVal shader As Long) As Boolean
Declare Sub glLinkProgram Lib "glew32.dll" Alias "__glewLinkProgram" (ByVal program As Long)
Declare Sub glShaderSource Lib "glew32.dll" Alias "__glewShaderSource" (ByVal shader As Long, ByVal count As Long, string_ As Any, length As Long)
Declare Sub glStencilFuncSeparate Lib "glew32.dll" Alias "__glewStencilFuncSeparate" (ByVal frontfunc As Long, ByVal backfunc As Long, ByVal ref As Long, ByVal mask As Long)
Declare Sub glStencilMaskSeparate Lib "glew32.dll" Alias "__glewStencilMaskSeparate" (ByVal face As Long, ByVal mask As Long)
Declare Sub glStencilOpSeparate Lib "glew32.dll" Alias "__glewStencilOpSeparate" (ByVal face As Long, ByVal sfail As Long, ByVal dpfail As Long, ByVal dppass As Long)
Declare Sub glUniform1f Lib "glew32.dll" Alias "__glewUniform1f" (ByVal location As Long, ByVal v0 As Single)
Declare Sub glUniform1fv Lib "glew32.dll" Alias "__glewUniform1fv" (ByVal location As Long, ByVal count As Long, value As Single)
Declare Sub glUniform1i Lib "glew32.dll" Alias "__glewUniform1i" (ByVal location As Long, ByVal v0 As Long)
Declare Sub glUniform1iv Lib "glew32.dll" Alias "__glewUniform1iv" (ByVal location As Long, ByVal count As Long, value As Long)
Declare Sub glUniform2f Lib "glew32.dll" Alias "__glewUniform2f" (ByVal location As Long, ByVal v0 As Single, ByVal v1 As Single)
Declare Sub glUniform2fv Lib "glew32.dll" Alias "__glewUniform2fv" (ByVal location As Long, ByVal count As Long, value As Single)
Declare Sub glUniform2i Lib "glew32.dll" Alias "__glewUniform2i" (ByVal location As Long, ByVal v0 As Long, ByVal v1 As Long)
Declare Sub glUniform2iv Lib "glew32.dll" Alias "__glewUniform2iv" (ByVal location As Long, ByVal count As Long, value As Long)
Declare Sub glUniform3f Lib "glew32.dll" Alias "__glewUniform3f" (ByVal location As Long, ByVal v0 As Single, ByVal v1 As Single, ByVal v2 As Single)
Declare Sub glUniform3fv Lib "glew32.dll" Alias "__glewUniform3fv" (ByVal location As Long, ByVal count As Long, value As Single)
Declare Sub glUniform3i Lib "glew32.dll" Alias "__glewUniform3i" (ByVal location As Long, ByVal v0 As Long, ByVal v1 As Long, ByVal v2 As Long)
Declare Sub glUniform3iv Lib "glew32.dll" Alias "__glewUniform3iv" (ByVal location As Long, ByVal count As Long, value As Long)
Declare Sub glUniform4f Lib "glew32.dll" Alias "__glewUniform4f" (ByVal location As Long, ByVal v0 As Single, ByVal v1 As Single, ByVal v2 As Single, ByVal v3 As Single)
Declare Sub glUniform4fv Lib "glew32.dll" Alias "__glewUniform4fv" (ByVal location As Long, ByVal count As Long, value As Single)
Declare Sub glUniform4i Lib "glew32.dll" Alias "__glewUniform4i" (ByVal location As Long, ByVal v0 As Long, ByVal v1 As Long, ByVal v2 As Long, ByVal v3 As Long)
Declare Sub glUniform4iv Lib "glew32.dll" Alias "__glewUniform4iv" (ByVal location As Long, ByVal count As Long, value As Long)
Declare Sub glUniformMatrix2fv Lib "glew32.dll" Alias "__glewUniformMatrix2fv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Single)
Declare Sub glUniformMatrix3fv Lib "glew32.dll" Alias "__glewUniformMatrix3fv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Single)
Declare Sub glUniformMatrix4fv Lib "glew32.dll" Alias "__glewUniformMatrix4fv" (ByVal location As Long, ByVal count As Long, ByVal transpose As Boolean, value As Single)
Declare Sub glUseProgram Lib "glew32.dll" Alias "__glewUseProgram" (ByVal program As Long)
Declare Sub glValidateProgram Lib "glew32.dll" Alias "__glewValidateProgram" (ByVal program As Long)
Declare Sub glVertexAttrib1d Lib "glew32.dll" Alias "__glewVertexAttrib1d" (ByVal index As Long, ByVal x As Double)
Declare Sub glVertexAttrib1dv Lib "glew32.dll" Alias "__glewVertexAttrib1dv" (ByVal index As Long, v As Double)
Declare Sub glVertexAttrib1f Lib "glew32.dll" Alias "__glewVertexAttrib1f" (ByVal index As Long, ByVal x As Single)
Declare Sub glVertexAttrib1fv Lib "glew32.dll" Alias "__glewVertexAttrib1fv" (ByVal index As Long, v As Single)
Declare Sub glVertexAttrib1s Lib "glew32.dll" Alias "__glewVertexAttrib1s" (ByVal index As Long, ByVal x As Integer)
Declare Sub glVertexAttrib1sv Lib "glew32.dll" Alias "__glewVertexAttrib1sv" (ByVal index As Long, v As Integer)
Declare Sub glVertexAttrib2d Lib "glew32.dll" Alias "__glewVertexAttrib2d" (ByVal index As Long, ByVal x As Double, ByVal y As Double)
Declare Sub glVertexAttrib2dv Lib "glew32.dll" Alias "__glewVertexAttrib2dv" (ByVal index As Long, v As Double)
Declare Sub glVertexAttrib2f Lib "glew32.dll" Alias "__glewVertexAttrib2f" (ByVal index As Long, ByVal x As Single, ByVal y As Single)
Declare Sub glVertexAttrib2fv Lib "glew32.dll" Alias "__glewVertexAttrib2fv" (ByVal index As Long, v As Single)
Declare Sub glVertexAttrib2s Lib "glew32.dll" Alias "__glewVertexAttrib2s" (ByVal index As Long, ByVal x As Integer, ByVal y As Integer)
Declare Sub glVertexAttrib2sv Lib "glew32.dll" Alias "__glewVertexAttrib2sv" (ByVal index As Long, v As Integer)
Declare Sub glVertexAttrib3d Lib "glew32.dll" Alias "__glewVertexAttrib3d" (ByVal index As Long, ByVal x As Double, ByVal y As Double, ByVal z As Double)
Declare Sub glVertexAttrib3dv Lib "glew32.dll" Alias "__glewVertexAttrib3dv" (ByVal index As Long, v As Double)
Declare Sub glVertexAttrib3f Lib "glew32.dll" Alias "__glewVertexAttrib3f" (ByVal index As Long, ByVal x As Single, ByVal y As Single, ByVal z As Single)
Declare Sub glVertexAttrib3fv Lib "glew32.dll" Alias "__glewVertexAttrib3fv" (ByVal index As Long, v As Single)
Declare Sub glVertexAttrib3s Lib "glew32.dll" Alias "__glewVertexAttrib3s" (ByVal index As Long, ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)
Declare Sub glVertexAttrib3sv Lib "glew32.dll" Alias "__glewVertexAttrib3sv" (ByVal index As Long, v As Integer)
Declare Sub glVertexAttrib4Nbv Lib "glew32.dll" Alias "__glewVertexAttrib4Nbv" (ByVal index As Long, v As Byte)
Declare Sub glVertexAttrib4Niv Lib "glew32.dll" Alias "__glewVertexAttrib4Niv" (ByVal index As Long, v As Long)
Declare Sub glVertexAttrib4Nsv Lib "glew32.dll" Alias "__glewVertexAttrib4Nsv" (ByVal index As Long, v As Integer)
Declare Sub glVertexAttrib4Nub Lib "glew32.dll" Alias "__glewVertexAttrib4Nub" (ByVal index As Long, ByVal x As Byte, ByVal y As Byte, ByVal z As Byte, ByVal w As Byte)
Declare Sub glVertexAttrib4Nubv Lib "glew32.dll" Alias "__glewVertexAttrib4Nubv" (ByVal index As Long, v As Byte)
Declare Sub glVertexAttrib4Nuiv Lib "glew32.dll" Alias "__glewVertexAttrib4Nuiv" (ByVal index As Long, v As Long)
Declare Sub glVertexAttrib4Nusv Lib "glew32.dll" Alias "__glewVertexAttrib4Nusv" (ByVal index As Long, v As Integer)
Declare Sub glVertexAttrib4bv Lib "glew32.dll" Alias "__glewVertexAttrib4bv" (ByVal index As Long, v As Byte)
Declare Sub glVertexAttrib4d Lib "glew32.dll" Alias "__glewVertexAttrib4d" (ByVal index As Long, ByVal x As Double, ByVal y As Double, ByVal z As Double, ByVal w As Double)
Declare Sub glVertexAttrib4dv Lib "glew32.dll" Alias "__glewVertexAttrib4dv" (ByVal index As Long, v As Double)
Declare Sub glVertexAttrib4f Lib "glew32.dll" Alias "__glewVertexAttrib4f" (ByVal index As Long, ByVal x As Single, ByVal y As Single, ByVal z As Single, ByVal w As Single)
Declare Sub glVertexAttrib4fv Lib "glew32.dll" Alias "__glewVertexAttrib4fv" (ByVal index As Long, v As Single)
Declare Sub glVertexAttrib4iv Lib "glew32.dll" Alias "__glewVertexAttrib4iv" (ByVal index As Long, v As Long)
Declare Sub glVertexAttrib4s Lib "glew32.dll" Alias "__glewVertexAttrib4s" (ByVal index As Long, ByVal x As Integer, ByVal y As Integer, ByVal z As Integer, ByVal w As Integer)
Declare Sub glVertexAttrib4sv Lib "glew32.dll" Alias "__glewVertexAttrib4sv" (ByVal index As Long, v As Integer)
Declare Sub glVertexAttrib4ubv Lib "glew32.dll" Alias "__glewVertexAttrib4ubv" (ByVal index As Long, v As Byte)
Declare Sub glVertexAttrib4uiv Lib "glew32.dll" Alias "__glewVertexAttrib4uiv" (ByVal index As Long, v As Long)
Declare Sub glVertexAttrib4usv Lib "glew32.dll" Alias "__glewVertexAttrib4usv" (ByVal index As Long, v As Integer)
Declare Sub glVertexAttribPointer Lib "glew32.dll" Alias "__glewVertexAttribPointer" (ByVal index As Long, ByVal size As Long, ByVal type_ As Long, ByVal normalized As Boolean, ByVal stride As Long, pointer As Any)

Global Const GL_PROGRAM_BINARY_RETRIEVABLE_HINT = &H8257
Global Const GL_PROGRAM_BINARY_LENGTH = &H8741
Global Const GL_NUM_PROGRAM_BINARY_FORMATS = &H87FE
Global Const GL_PROGRAM_BINARY_FORMATS = &H87FF
杂项:
[Visual Basic] 纯文本查看 复制代码
Option Explicit

'pixel types
Global Const PFD_TYPE_RGBA = 0
Global Const PFD_TYPE_COLORINDEX = 1

'layer types
Global Const PFD_MAIN_PLANE = 0
Global Const PFD_OVERLAY_PLANE = 1
Global Const PFD_UNDERLAY_PLANE = (-1)

'PIXELFORMATDESCRIPTOR flags
Global Const PFD_DOUBLEBUFFER = &H1
Global Const PFD_STEREO = &H2
Global Const PFD_DRAW_TO_WINDOW = &H4
Global Const PFD_DRAW_TO_BITMAP = &H8
Global Const PFD_SUPPORT_GDI = &H10
Global Const PFD_SUPPORT_OPENGL = &H20
Global Const PFD_GENERIC_FORMAT = &H40
Global Const PFD_NEED_PALETTE = &H80
Global Const PFD_NEED_SYSTEM_PALETTE = &H100
Global Const PFD_SWAP_EXCHANGE = &H200
Global Const PFD_SWAP_COPY = &H400
Global Const PFD_SWAP_LAYER_BUFFERS = &H800
Global Const PFD_GENERIC_ACCELERATED = &H1000
Global Const PFD_SUPPORT_DIRECTDRAW = &H2000

'PIXELFORMATDESCRIPTOR flags for use in ChoosePixelFormat only
Global Const PFD_DEPTH_DONTCARE = &H20000000
Global Const PFD_DOUBLEBUFFER_DONTCARE = &H40000000
Global Const PFD_STEREO_DONTCARE = &H80000000


Type PIXELFORMATDESCRIPTOR
    nSize As Integer
    nVersion As Integer
    dwFlags As Long
    iPixelType As Byte
    cColorBits As Byte
    cRedBits As Byte
    cRedShift As Byte
    cGreenBits As Byte
    cGreenShift As Byte
    cBlueBits As Byte
    cBlueShift As Byte
    cAlphaBits As Byte
    cAlphaShift As Byte
    cAccumBits As Byte
    cAccumRedBits As Byte
    cAccumGreenBits As Byte
    cAccumBlueBits As Byte
    cAccumAlphaBits As Byte
    cDepthBits As Byte
    cStencilBits As Byte
    cAuxBuffers As Byte
    iLayerType As Byte
    bReserved As Byte
    dwLayerMask As Long
    dwVisibleMask As Long
    dwDamageMask As Long
End Type
 
Declare Function ChoosePixelFormat Lib "gdi32.dll" (ByVal hDC As Long, ppfd As PIXELFORMATDESCRIPTOR) As Long
Declare Function SetPixelFormat Lib "gdi32.dll" (ByVal hDC As Long, ByVal iPixelFormat As Long, ppfd As PIXELFORMATDESCRIPTOR) As Long

Declare Function wglCreateContext Lib "opengl32.dll" (ByVal hDC As Long) As Long
Declare Function wglMakeCurrent Lib "opengl32.dll" (ByVal hDC As Long, ByVal hRC As Long) As Long
Declare Function SwapBuffers Lib "gdi32.dll" (ByVal hDC As Long) As Long
Declare Function wglDeleteContext Lib "opengl32.dll" (ByVal hRC As Long) As Long

Declare Function gluScaleImage Lib "glu32.dll" (ByVal format As Long, ByVal widthin As Long, ByVal heightin As Long, ByVal typein As Long, datain As Any, ByVal widthout As Long, ByVal heightout As Long, ByVal typeout As Long, dataout As Any) As Long
VBOpenGL.7z (100.79 KB, 下载次数: 53, 售价: 4 个宅币)

本帖被以下淘专辑推荐:

2

主题

61

帖子

458

积分

用户组: 中·技术宅

UID
2364
精华
0
威望
0 点
宅币
397 个
贡献
0 次
宅之契约
0 份
在线时间
53 小时
注册时间
2017-3-30
发表于 2017-4-17 03:13:33 | 显示全部楼层
谢谢分享
回复

使用道具 举报

0

主题

1

帖子

8

积分

用户组: 初·技术宅

UID
2498
精华
0
威望
1 点
宅币
5 个
贡献
0 次
宅之契约
0 份
在线时间
0 小时
注册时间
2017-5-12
发表于 2017-5-12 10:13:49 | 显示全部楼层
谢谢分享好code,目前研究怎在VB6中使用 Opengl

1

主题

15

帖子

15

积分

用户组: 初·技术宅

UID
2735
精华
0
威望
0 点
宅币
0 个
贡献
0 次
宅之契约
0 份
在线时间
6 小时
注册时间
2017-7-28
发表于 2017-10-16 12:22:41 | 显示全部楼层

感谢大神,在此学习了。

0

主题

5

帖子

15

积分

用户组: 初·技术宅

UID
2980
精华
0
威望
0 点
宅币
10 个
贡献
0 次
宅之契约
0 份
在线时间
2 小时
注册时间
2017-10-19
发表于 2017-10-19 12:30:19 | 显示全部楼层
这个支持哪个版本的opengl啊?

0

主题

9

帖子

33

积分

用户组: 初·技术宅

UID
3431
精华
0
威望
2 点
宅币
20 个
贡献
0 次
宅之契约
0 份
在线时间
6 小时
注册时间
2018-2-5
发表于 2018-2-5 14:27:07 | 显示全部楼层
请问,这个vb的程序怎么使用啊?

1043

主题

2335

帖子

5万

积分

用户组: 管理员

一只技术宅

UID
1
精华
217
威望
294 点
宅币
18229 个
贡献
36857 次
宅之契约
0 份
在线时间
1738 小时
注册时间
2014-1-26
 楼主| 发表于 2018-2-7 11:55:48 | 显示全部楼层
wnglng2 发表于 2017-10-19 12:30
这个支持哪个版本的opengl啊?

因为用的是glew32.dll的导出函数,所以取决于glew32.dll的版本——其实我只做了一部分函数的声明。

1043

主题

2335

帖子

5万

积分

用户组: 管理员

一只技术宅

UID
1
精华
217
威望
294 点
宅币
18229 个
贡献
36857 次
宅之契约
0 份
在线时间
1738 小时
注册时间
2014-1-26
 楼主| 发表于 2018-2-7 11:56:26 | 显示全部楼层
banjinjiu 发表于 2018-2-5 14:27
请问,这个vb的程序怎么使用啊?

下载的模块只是给你提供了访问opengl函数的接口而已。也就是你可以像其他程序使用opengl那样,去用VB来使用opengl。

0

主题

9

帖子

33

积分

用户组: 初·技术宅

UID
3431
精华
0
威望
2 点
宅币
20 个
贡献
0 次
宅之契约
0 份
在线时间
6 小时
注册时间
2018-2-5
发表于 2018-2-8 15:29:30 | 显示全部楼层
本帖最后由 banjinjiu 于 2018-2-8 15:47 编辑

感谢版主回复!
上次好容易在一个网站下载了vbogl.tlb,粘贴到"C:\Windows\System32\"下,运行regsvr32 "C:\Windows\System32\vbogl.tlb",提示:模块与windows版本不兼容。检查模块是否与regsvr32.exe的32位或64位的版本兼容。
我使用的电脑是win7-32位系统,不知道怎么就不兼容,是系统问题,还是vbogl.tlb版本问题(听说是opengl二点几的版本),我的opengl是4.0版本。
我是一个新手,技术太低,还往版主提携。
我发现版主的程序,代码有些重复了,比如API部分glAttachShader函数与着色器部分有些都重复了,是怎么回事?没法运行,是把这个程序都放在一个模块,还是分几个模块?

0

主题

9

帖子

33

积分

用户组: 初·技术宅

UID
3431
精华
0
威望
2 点
宅币
20 个
贡献
0 次
宅之契约
0 份
在线时间
6 小时
注册时间
2018-2-5
发表于 2018-2-8 16:23:21 | 显示全部楼层
成功了,我的第一个VB6.0-OpenGL程序!刚才无意中在工程-引用vbogl.tlb,终于能引用VB OpenGL API 1.2 (ANSI)成功。前几天在家中的机器出现模块注册不成功,引用也不成功,今天在幼儿园一样的系统,竟然成功了,欣喜若狂。

1043

主题

2335

帖子

5万

积分

用户组: 管理员

一只技术宅

UID
1
精华
217
威望
294 点
宅币
18229 个
贡献
36857 次
宅之契约
0 份
在线时间
1738 小时
注册时间
2014-1-26
 楼主| 发表于 2018-2-8 20:43:27 | 显示全部楼层
banjinjiu 发表于 2018-2-8 15:29
感谢版主回复!
上次好容易在一个网站下载了vbogl.tlb,粘贴到"C:\Windows\System32\"下,运行regsvr32 "C: ...

估计是要删掉的。我本来是想把着色器的部分单独拿出来做个模块的。

0

主题

9

帖子

33

积分

用户组: 初·技术宅

UID
3431
精华
0
威望
2 点
宅币
20 个
贡献
0 次
宅之契约
0 份
在线时间
6 小时
注册时间
2018-2-5
发表于 2018-2-10 16:37:22 | 显示全部楼层
版主,你好!再求你一个事情,我到现在都不知道,OpenGL与VB的函数对应关系,常量在VB中的名称,你能否做个OpenGL与VB的函数、常量对应表,比如这样的。
OpenGL        VB
glClearColor        glClearColor
GL_COLOR_BUFFER_BIT        clrColorBufferBit
GL_DEPTH_BUFFER_BIT       
GL_PROJECTION        mmProjection
glutSwapBuffers        SwapBuffers
我知道,这个工作量可能大了,哪怕是常见的一些也行,我只会这几个,或者你有这方面的资料,发给我,我来做。
麻烦版主了!

0

主题

9

帖子

33

积分

用户组: 初·技术宅

UID
3431
精华
0
威望
2 点
宅币
20 个
贡献
0 次
宅之契约
0 份
在线时间
6 小时
注册时间
2018-2-5
发表于 2018-2-10 20:08:34 | 显示全部楼层
这是OpenGL程序
[AppleScript] 纯文本查看 复制代码
#define GLUT_DISABLE_ATEXIT_HACK
#include <GL/glut.h>  
#include <Windows.h>

void display(void)
{
	/*清楚所有的像素*/
	glClear(GL_COLOR_BUFFER_BIT);
	glColor3f(1.0,1.0,1.0);
	glLoadIdentity();//将当前矩阵设置为单位矩阵
	gluLookAt(0.0,0.0,5.0,0.0,0.0,0.0,0.0,1.0,0.0);
	glScalef(1.0,2.0,1.0);
	glutWireCube(1.0);
	/*不等待
	马上开始处理保存在缓冲区中的OpenGL函数调用*/
	glFlush();
}
void init(void)
{
	/*指定清楚颜色*/
	glClearColor(0.0,0.0,0.0,0.0);
	/*初始化视景体*/
	glShadeModel(GL_FLAT);
}
void reshape(int w,int h)
{
	glViewport(0,0,(GLsizei) w,(GLsizei) h);
	glMatrixMode(GL_PROJECTION);
	glLoadIdentity();
	glFrustum(-1.0,1.0,-1.0,1.0,1.5,20.0);
	glMatrixMode(GL_MODELVIEW);
}
int main(int argc, char** argv)
{
	glutInit(&argc,argv);
	glutInitDisplayMode(GLUT_SINGLE|GLUT_RGB);
	glutInitWindowSize(500,500);
	glutInitWindowPosition(100,100);
	glutCreateWindow(argv[0]);
	init();
	glutDisplayFunc(display);
	glutReshapeFunc(reshape);
	glutMainLoop();
	return 0;
}

这是VB程序
[AppleScript] 纯文本查看 复制代码
Sub EnableOpenGL(ghDC As Long)
    On Error GoTo Err
    Dim pfd As PIXELFORMATDESCRIPTOR                'pfd像素格式设置.
    hWnd& = FindWindow(vbNullString, Me.Caption)
    hDC& = GetDC(hWnd)
    ZeroMemory pfd, Len(pfd)
    pfd.nSize = Len(pfd)                        '大小
    pfd.nVersion = 1                            '版本
    pfd.dwFlags = PFD_DRAW_TO_WINDOW Or PFD_SUPPORT_OPENGL Or PFD_DOUBLEBUFFER '标志
    pfd.iPixelType = PFD_TYPE_RGBA              '像素类型
    pfd.cColorBits = 24                         '颜色位数
    pfd.cDepthBits = 32                         '位宽
    pfd.iLayerType = PFD_MAIN_PLANE             '图层类型
    Dim PixFormat As Long
    PixFormat = ChoosePixelFormat(ghDC, pfd)    '选择设备中最匹配我们所设置的像素
    SetPixelFormat ghDC, PixFormat, pfd         '设置成当前的像素
    hRC = wglCreateContext(ghDC)                '建立翻译描述表
    wglMakeCurrent ghDC, hRC                    '将建立的翻译描述表设置为当前
    Exit Sub
Err:
    MsgBox "不能建立OpenGL环境!", vbCritical, "Error"
    End
End Sub

Private Sub Display()
    hWnd& = FindWindow(vbNullString, Me.Caption)
    hDC& = GetDC(hWnd)
    glClearColor 0#, 0#, 1#, 0#   '清空颜色缓存的RGBA颜色值
    glClear clrColorBufferBit     '为绘下帧曲面清除缓冲区
    glColor3f 1, 1, 1       '设置显示的字体颜色
    glPushMatrix                  '依据当前模式(模式-视图矩阵)使矩阵入栈
    glPopMatrix                 '依据当前模式(模式-视图矩阵)使矩阵出栈
    SwapBuffers hDC             '切换缓存
End Sub
Private Sub Init()
    glClearColor 0, 0, 0, 0
    glShadeModel GL_FLAT
End Sub
 
Private Sub reshape(ByVal w As Integer, ByVal h As Integer)
    glViewport 0, 0, w, h
    glMatrixMode mmProjection
    glLoadIdentity
    glFrustum -1, 1, -1, 1, 1.5, 20
    glMatrixMode mmModelView
End Sub

请问怎么调用啊?
EnableOpenGL (hDC&)
Call reshape(5, 8)
Display
好像没什么反应啊?就是一个蓝色的底屏。
版主帮我,谢谢!

1043

主题

2335

帖子

5万

积分

用户组: 管理员

一只技术宅

UID
1
精华
217
威望
294 点
宅币
18229 个
贡献
36857 次
宅之契约
0 份
在线时间
1738 小时
注册时间
2014-1-26
 楼主| 发表于 2018-2-10 22:38:46 | 显示全部楼层
banjinjiu 发表于 2018-2-10 16:37
版主,你好!再求你一个事情,我到现在都不知道,OpenGL与VB的函数对应关系,常量在VB中的名称,你能否做个 ...


有关“OpenGL与VB的函数对应关系”的问题,那就是:那是你用的vbogl.tlb的“个性”,它自己把“GL_COLOR_BUFFER_BIT”定义成了“clrColorBufferBit”了。我在别的帖子里提供过自己的tlb,把glew封装了一遍,你可以用那个。

至于它为什么不使用OpenGL的常量原来的名字?我也是不理解的。

https://www.0xaa55.com/forum.php?mod=viewthread&tid=2031

1043

主题

2335

帖子

5万

积分

用户组: 管理员

一只技术宅

UID
1
精华
217
威望
294 点
宅币
18229 个
贡献
36857 次
宅之契约
0 份
在线时间
1738 小时
注册时间
2014-1-26
 楼主| 发表于 2018-2-10 22:40:13 | 显示全部楼层
banjinjiu 发表于 2018-2-10 20:08
这是OpenGL程序
[mw_shl_code=applescript,true]#define GLUT_DISABLE_ATEXIT_HACK
#include   

reshape函数并没有执行任何绘图操作,所以是蓝色的底屏。它就是设置了一下投影矩阵而已。

0

主题

9

帖子

33

积分

用户组: 初·技术宅

UID
3431
精华
0
威望
2 点
宅币
20 个
贡献
0 次
宅之契约
0 份
在线时间
6 小时
注册时间
2018-2-5
发表于 2018-2-11 10:36:05 | 显示全部楼层
本帖最后由 banjinjiu 于 2018-2-11 10:39 编辑
0xAA55 发表于 2018-2-10 22:40
reshape函数并没有执行任何绘图操作,所以是蓝色的底屏。它就是设置了一下投影矩阵而已。 ...


版主,还是不太懂,调用的顺序是怎样的?那程序怎么修改,才能成功画长方体,请版主帮忙,谢谢。
关键是网络上说的太少了,没有参考的实例,我只看了画矩形的例子,还有三角形、圆、五角星,别的调用什么的,还是不明白。
多次麻烦,再次感谢!

1043

主题

2335

帖子

5万

积分

用户组: 管理员

一只技术宅

UID
1
精华
217
威望
294 点
宅币
18229 个
贡献
36857 次
宅之契约
0 份
在线时间
1738 小时
注册时间
2014-1-26
 楼主| 发表于 2018-2-11 16:17:49 | 显示全部楼层
banjinjiu 发表于 2018-2-11 10:36
版主,还是不太懂,调用的顺序是怎样的?那程序怎么修改,才能成功画长方体,请版主帮忙,谢谢。
关键是 ...

你看到了画矩形的例子的话你就应该知道怎么画长方形了啊。

OpenGL的特点是它有很多的参数要调,然后调好了,再绘制。
绘制的方法很多,但对于简单的多边形,可以直接用glBegin(形状类型);glEnd();的这种方式。
此外我建议你加入VIP教学班,里面会告诉你怎么绘制的。

0

主题

9

帖子

33

积分

用户组: 初·技术宅

UID
3431
精华
0
威望
2 点
宅币
20 个
贡献
0 次
宅之契约
0 份
在线时间
6 小时
注册时间
2018-2-5
发表于 2018-2-11 18:55:40 | 显示全部楼层
请教报名方法,谢谢。

1043

主题

2335

帖子

5万

积分

用户组: 管理员

一只技术宅

UID
1
精华
217
威望
294 点
宅币
18229 个
贡献
36857 次
宅之契约
0 份
在线时间
1738 小时
注册时间
2014-1-26
 楼主| 发表于 2018-2-11 20:25:02 | 显示全部楼层
banjinjiu 发表于 2018-2-11 18:55
请教报名方法,谢谢。

请在QQ上联系我报名。我的QQ:838816058

0

主题

9

帖子

33

积分

用户组: 初·技术宅

UID
3431
精华
0
威望
2 点
宅币
20 个
贡献
0 次
宅之契约
0 份
在线时间
6 小时
注册时间
2018-2-5
发表于 2018-2-11 22:21:37 | 显示全部楼层
我已经加你,(网名:东东哥),不知版主为何没反应?

本版积分规则

QQ|申请友链||Archiver|手机版|小黑屋|技术宅的结界 ( 滇ICP备16008837号|网站地图

GMT+8, 2019-9-20 11:56 , Processed in 0.173973 second(s), 41 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表