Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
3526 lines (3036 sloc) 106 KB
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Copyright (c) 2004-2008 Yoshikatsu Fujita. All rights reserved.
;; Copyright (c) 2004-2008 LittleWing Company Limited. All rights reserved.
;; Redistribution and use in source and binary forms, with or without
;; modification, are permitted provided that the following conditions are met:
;; 1. Redistributions of source code must retain the above copyright notice,
;; this list of conditions and the following disclaimer.
;; 2. Redistributions in binary form must reproduce the above copyright notice,
;; this list of conditions and the following disclaimer in the documentation
;; and/or other materials provided with the distribution.
;; 3. Neither the name of the authors nor the names of its contributors may be
;; used to endorse or promote products derived from this software without
;; specific prior written permission.
;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
;; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
;; ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
;; LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
;; POSSIBILITY OF SUCH DAMAGE.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This library is derived from 'gl.scm' from Ypsilon Scheme.
;;
;; Ported to Larceny Scheme by Ed Cavazos <wayo.cavazos@gmail.com>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(library
(gl)
(export GL_FALSE
GL_TRUE
GL_BYTE
GL_UNSIGNED_BYTE
GL_SHORT
GL_UNSIGNED_SHORT
GL_INT
GL_UNSIGNED_INT
GL_FLOAT
GL_2_BYTES
GL_3_BYTES
GL_4_BYTES
GL_DOUBLE
GL_POINTS
GL_LINES
GL_LINE_LOOP
GL_LINE_STRIP
GL_TRIANGLES
GL_TRIANGLE_STRIP
GL_TRIANGLE_FAN
GL_QUADS
GL_QUAD_STRIP
GL_POLYGON
GL_VERTEX_ARRAY
GL_NORMAL_ARRAY
GL_COLOR_ARRAY
GL_INDEX_ARRAY
GL_TEXTURE_COORD_ARRAY
GL_EDGE_FLAG_ARRAY
GL_VERTEX_ARRAY_SIZE
GL_VERTEX_ARRAY_TYPE
GL_VERTEX_ARRAY_STRIDE
GL_NORMAL_ARRAY_TYPE
GL_NORMAL_ARRAY_STRIDE
GL_COLOR_ARRAY_SIZE
GL_COLOR_ARRAY_TYPE
GL_COLOR_ARRAY_STRIDE
GL_INDEX_ARRAY_TYPE
GL_INDEX_ARRAY_STRIDE
GL_TEXTURE_COORD_ARRAY_SIZE
GL_TEXTURE_COORD_ARRAY_TYPE
GL_TEXTURE_COORD_ARRAY_STRIDE
GL_EDGE_FLAG_ARRAY_STRIDE
GL_VERTEX_ARRAY_POINTER
GL_NORMAL_ARRAY_POINTER
GL_COLOR_ARRAY_POINTER
GL_INDEX_ARRAY_POINTER
GL_TEXTURE_COORD_ARRAY_POINTER
GL_EDGE_FLAG_ARRAY_POINTER
GL_V2F
GL_V3F
GL_C4UB_V2F
GL_C4UB_V3F
GL_C3F_V3F
GL_N3F_V3F
GL_C4F_N3F_V3F
GL_T2F_V3F
GL_T4F_V4F
GL_T2F_C4UB_V3F
GL_T2F_C3F_V3F
GL_T2F_N3F_V3F
GL_T2F_C4F_N3F_V3F
GL_T4F_C4F_N3F_V4F
GL_MATRIX_MODE
GL_MODELVIEW
GL_PROJECTION
GL_TEXTURE
GL_POINT_SMOOTH
GL_POINT_SIZE
GL_POINT_SIZE_GRANULARITY
GL_POINT_SIZE_RANGE
GL_LINE_SMOOTH
GL_LINE_STIPPLE
GL_LINE_STIPPLE_PATTERN
GL_LINE_STIPPLE_REPEAT
GL_LINE_WIDTH
GL_LINE_WIDTH_GRANULARITY
GL_LINE_WIDTH_RANGE
GL_POINT
GL_LINE
GL_FILL
GL_CW
GL_CCW
GL_FRONT
GL_BACK
GL_POLYGON_MODE
GL_POLYGON_SMOOTH
GL_POLYGON_STIPPLE
GL_EDGE_FLAG
GL_CULL_FACE
GL_CULL_FACE_MODE
GL_FRONT_FACE
GL_POLYGON_OFFSET_FACTOR
GL_POLYGON_OFFSET_UNITS
GL_POLYGON_OFFSET_POINT
GL_POLYGON_OFFSET_LINE
GL_POLYGON_OFFSET_FILL
GL_COMPILE
GL_COMPILE_AND_EXECUTE
GL_LIST_BASE
GL_LIST_INDEX
GL_LIST_MODE
GL_NEVER
GL_LESS
GL_EQUAL
GL_LEQUAL
GL_GREATER
GL_NOTEQUAL
GL_GEQUAL
GL_ALWAYS
GL_DEPTH_TEST
GL_DEPTH_BITS
GL_DEPTH_CLEAR_VALUE
GL_DEPTH_FUNC
GL_DEPTH_RANGE
GL_DEPTH_WRITEMASK
GL_DEPTH_COMPONENT
GL_LIGHTING
GL_LIGHT0
GL_LIGHT1
GL_LIGHT2
GL_LIGHT3
GL_LIGHT4
GL_LIGHT5
GL_LIGHT6
GL_LIGHT7
GL_SPOT_EXPONENT
GL_SPOT_CUTOFF
GL_CONSTANT_ATTENUATION
GL_LINEAR_ATTENUATION
GL_QUADRATIC_ATTENUATION
GL_AMBIENT
GL_DIFFUSE
GL_SPECULAR
GL_SHININESS
GL_EMISSION
GL_POSITION
GL_SPOT_DIRECTION
GL_AMBIENT_AND_DIFFUSE
GL_COLOR_INDEXES
GL_LIGHT_MODEL_TWO_SIDE
GL_LIGHT_MODEL_LOCAL_VIEWER
GL_LIGHT_MODEL_AMBIENT
GL_FRONT_AND_BACK
GL_SHADE_MODEL
GL_FLAT
GL_SMOOTH
GL_COLOR_MATERIAL
GL_COLOR_MATERIAL_FACE
GL_COLOR_MATERIAL_PARAMETER
GL_NORMALIZE
GL_CLIP_PLANE0
GL_CLIP_PLANE1
GL_CLIP_PLANE2
GL_CLIP_PLANE3
GL_CLIP_PLANE4
GL_CLIP_PLANE5
GL_ACCUM_RED_BITS
GL_ACCUM_GREEN_BITS
GL_ACCUM_BLUE_BITS
GL_ACCUM_ALPHA_BITS
GL_ACCUM_CLEAR_VALUE
GL_ACCUM
GL_ADD
GL_LOAD
GL_MULT
GL_RETURN
GL_ALPHA_TEST
GL_ALPHA_TEST_REF
GL_ALPHA_TEST_FUNC
GL_BLEND
GL_BLEND_SRC
GL_BLEND_DST
GL_ZERO
GL_ONE
GL_SRC_COLOR
GL_ONE_MINUS_SRC_COLOR
GL_SRC_ALPHA
GL_ONE_MINUS_SRC_ALPHA
GL_DST_ALPHA
GL_ONE_MINUS_DST_ALPHA
GL_DST_COLOR
GL_ONE_MINUS_DST_COLOR
GL_SRC_ALPHA_SATURATE
GL_FEEDBACK
GL_RENDER
GL_SELECT
GL_2D
GL_3D
GL_3D_COLOR
GL_3D_COLOR_TEXTURE
GL_4D_COLOR_TEXTURE
GL_POINT_TOKEN
GL_LINE_TOKEN
GL_LINE_RESET_TOKEN
GL_POLYGON_TOKEN
GL_BITMAP_TOKEN
GL_DRAW_PIXEL_TOKEN
GL_COPY_PIXEL_TOKEN
GL_PASS_THROUGH_TOKEN
GL_FEEDBACK_BUFFER_POINTER
GL_FEEDBACK_BUFFER_SIZE
GL_FEEDBACK_BUFFER_TYPE
GL_SELECTION_BUFFER_POINTER
GL_SELECTION_BUFFER_SIZE
GL_FOG
GL_FOG_MODE
GL_FOG_DENSITY
GL_FOG_COLOR
GL_FOG_INDEX
GL_FOG_START
GL_FOG_END
GL_LINEAR
GL_EXP
GL_EXP2
GL_LOGIC_OP
GL_INDEX_LOGIC_OP
GL_COLOR_LOGIC_OP
GL_LOGIC_OP_MODE
GL_CLEAR
GL_SET
GL_COPY
GL_COPY_INVERTED
GL_NOOP
GL_INVERT
GL_AND
GL_NAND
GL_OR
GL_NOR
GL_XOR
GL_EQUIV
GL_AND_REVERSE
GL_AND_INVERTED
GL_OR_REVERSE
GL_OR_INVERTED
GL_STENCIL_BITS
GL_STENCIL_TEST
GL_STENCIL_CLEAR_VALUE
GL_STENCIL_FUNC
GL_STENCIL_VALUE_MASK
GL_STENCIL_FAIL
GL_STENCIL_PASS_DEPTH_FAIL
GL_STENCIL_PASS_DEPTH_PASS
GL_STENCIL_REF
GL_STENCIL_WRITEMASK
GL_STENCIL_INDEX
GL_KEEP
GL_REPLACE
GL_INCR
GL_DECR
GL_NONE
GL_LEFT
GL_RIGHT
GL_FRONT_LEFT
GL_FRONT_RIGHT
GL_BACK_LEFT
GL_BACK_RIGHT
GL_AUX0
GL_AUX1
GL_AUX2
GL_AUX3
GL_COLOR_INDEX
GL_RED
GL_GREEN
GL_BLUE
GL_ALPHA
GL_LUMINANCE
GL_LUMINANCE_ALPHA
GL_ALPHA_BITS
GL_RED_BITS
GL_GREEN_BITS
GL_BLUE_BITS
GL_INDEX_BITS
GL_SUBPIXEL_BITS
GL_AUX_BUFFERS
GL_READ_BUFFER
GL_DRAW_BUFFER
GL_DOUBLEBUFFER
GL_STEREO
GL_BITMAP
GL_COLOR
GL_DEPTH
GL_STENCIL
GL_DITHER
GL_RGB
GL_RGBA
GL_MAX_LIST_NESTING
GL_MAX_EVAL_ORDER
GL_MAX_LIGHTS
GL_MAX_CLIP_PLANES
GL_MAX_TEXTURE_SIZE
GL_MAX_PIXEL_MAP_TABLE
GL_MAX_ATTRIB_STACK_DEPTH
GL_MAX_MODELVIEW_STACK_DEPTH
GL_MAX_NAME_STACK_DEPTH
GL_MAX_PROJECTION_STACK_DEPTH
GL_MAX_TEXTURE_STACK_DEPTH
GL_MAX_VIEWPORT_DIMS
GL_MAX_CLIENT_ATTRIB_STACK_DEPTH
GL_ATTRIB_STACK_DEPTH
GL_CLIENT_ATTRIB_STACK_DEPTH
GL_COLOR_CLEAR_VALUE
GL_COLOR_WRITEMASK
GL_CURRENT_INDEX
GL_CURRENT_COLOR
GL_CURRENT_NORMAL
GL_CURRENT_RASTER_COLOR
GL_CURRENT_RASTER_DISTANCE
GL_CURRENT_RASTER_INDEX
GL_CURRENT_RASTER_POSITION
GL_CURRENT_RASTER_TEXTURE_COORDS
GL_CURRENT_RASTER_POSITION_VALID
GL_CURRENT_TEXTURE_COORDS
GL_INDEX_CLEAR_VALUE
GL_INDEX_MODE
GL_INDEX_WRITEMASK
GL_MODELVIEW_MATRIX
GL_MODELVIEW_STACK_DEPTH
GL_NAME_STACK_DEPTH
GL_PROJECTION_MATRIX
GL_PROJECTION_STACK_DEPTH
GL_RENDER_MODE
GL_RGBA_MODE
GL_TEXTURE_MATRIX
GL_TEXTURE_STACK_DEPTH
GL_VIEWPORT
GL_AUTO_NORMAL
GL_MAP1_COLOR_4
GL_MAP1_INDEX
GL_MAP1_NORMAL
GL_MAP1_TEXTURE_COORD_1
GL_MAP1_TEXTURE_COORD_2
GL_MAP1_TEXTURE_COORD_3
GL_MAP1_TEXTURE_COORD_4
GL_MAP1_VERTEX_3
GL_MAP1_VERTEX_4
GL_MAP2_COLOR_4
GL_MAP2_INDEX
GL_MAP2_NORMAL
GL_MAP2_TEXTURE_COORD_1
GL_MAP2_TEXTURE_COORD_2
GL_MAP2_TEXTURE_COORD_3
GL_MAP2_TEXTURE_COORD_4
GL_MAP2_VERTEX_3
GL_MAP2_VERTEX_4
GL_MAP1_GRID_DOMAIN
GL_MAP1_GRID_SEGMENTS
GL_MAP2_GRID_DOMAIN
GL_MAP2_GRID_SEGMENTS
GL_COEFF
GL_ORDER
GL_DOMAIN
GL_PERSPECTIVE_CORRECTION_HINT
GL_POINT_SMOOTH_HINT
GL_LINE_SMOOTH_HINT
GL_POLYGON_SMOOTH_HINT
GL_FOG_HINT
GL_DONT_CARE
GL_FASTEST
GL_NICEST
GL_SCISSOR_BOX
GL_SCISSOR_TEST
GL_MAP_COLOR
GL_MAP_STENCIL
GL_INDEX_SHIFT
GL_INDEX_OFFSET
GL_RED_SCALE
GL_RED_BIAS
GL_GREEN_SCALE
GL_GREEN_BIAS
GL_BLUE_SCALE
GL_BLUE_BIAS
GL_ALPHA_SCALE
GL_ALPHA_BIAS
GL_DEPTH_SCALE
GL_DEPTH_BIAS
GL_PIXEL_MAP_S_TO_S_SIZE
GL_PIXEL_MAP_I_TO_I_SIZE
GL_PIXEL_MAP_I_TO_R_SIZE
GL_PIXEL_MAP_I_TO_G_SIZE
GL_PIXEL_MAP_I_TO_B_SIZE
GL_PIXEL_MAP_I_TO_A_SIZE
GL_PIXEL_MAP_R_TO_R_SIZE
GL_PIXEL_MAP_G_TO_G_SIZE
GL_PIXEL_MAP_B_TO_B_SIZE
GL_PIXEL_MAP_A_TO_A_SIZE
GL_PIXEL_MAP_S_TO_S
GL_PIXEL_MAP_I_TO_I
GL_PIXEL_MAP_I_TO_R
GL_PIXEL_MAP_I_TO_G
GL_PIXEL_MAP_I_TO_B
GL_PIXEL_MAP_I_TO_A
GL_PIXEL_MAP_R_TO_R
GL_PIXEL_MAP_G_TO_G
GL_PIXEL_MAP_B_TO_B
GL_PIXEL_MAP_A_TO_A
GL_PACK_ALIGNMENT
GL_PACK_LSB_FIRST
GL_PACK_ROW_LENGTH
GL_PACK_SKIP_PIXELS
GL_PACK_SKIP_ROWS
GL_PACK_SWAP_BYTES
GL_UNPACK_ALIGNMENT
GL_UNPACK_LSB_FIRST
GL_UNPACK_ROW_LENGTH
GL_UNPACK_SKIP_PIXELS
GL_UNPACK_SKIP_ROWS
GL_UNPACK_SWAP_BYTES
GL_ZOOM_X
GL_ZOOM_Y
GL_TEXTURE_ENV
GL_TEXTURE_ENV_MODE
GL_TEXTURE_1D
GL_TEXTURE_2D
GL_TEXTURE_WRAP_S
GL_TEXTURE_WRAP_T
GL_TEXTURE_MAG_FILTER
GL_TEXTURE_MIN_FILTER
GL_TEXTURE_ENV_COLOR
GL_TEXTURE_GEN_S
GL_TEXTURE_GEN_T
GL_TEXTURE_GEN_MODE
GL_TEXTURE_BORDER_COLOR
GL_TEXTURE_WIDTH
GL_TEXTURE_HEIGHT
GL_TEXTURE_BORDER
GL_TEXTURE_COMPONENTS
GL_TEXTURE_RED_SIZE
GL_TEXTURE_GREEN_SIZE
GL_TEXTURE_BLUE_SIZE
GL_TEXTURE_ALPHA_SIZE
GL_TEXTURE_LUMINANCE_SIZE
GL_TEXTURE_INTENSITY_SIZE
GL_NEAREST_MIPMAP_NEAREST
GL_NEAREST_MIPMAP_LINEAR
GL_LINEAR_MIPMAP_NEAREST
GL_LINEAR_MIPMAP_LINEAR
GL_OBJECT_LINEAR
GL_OBJECT_PLANE
GL_EYE_LINEAR
GL_EYE_PLANE
GL_SPHERE_MAP
GL_DECAL
GL_MODULATE
GL_NEAREST
GL_REPEAT
GL_CLAMP
GL_S
GL_T
GL_R
GL_Q
GL_TEXTURE_GEN_R
GL_TEXTURE_GEN_Q
GL_VENDOR
GL_RENDERER
GL_VERSION
GL_EXTENSIONS
GL_NO_ERROR
GL_INVALID_ENUM
GL_INVALID_VALUE
GL_INVALID_OPERATION
GL_STACK_OVERFLOW
GL_STACK_UNDERFLOW
GL_OUT_OF_MEMORY
GL_CURRENT_BIT
GL_POINT_BIT
GL_LINE_BIT
GL_POLYGON_BIT
GL_POLYGON_STIPPLE_BIT
GL_PIXEL_MODE_BIT
GL_LIGHTING_BIT
GL_FOG_BIT
GL_DEPTH_BUFFER_BIT
GL_ACCUM_BUFFER_BIT
GL_STENCIL_BUFFER_BIT
GL_VIEWPORT_BIT
GL_TRANSFORM_BIT
GL_ENABLE_BIT
GL_COLOR_BUFFER_BIT
GL_HINT_BIT
GL_EVAL_BIT
GL_LIST_BIT
GL_TEXTURE_BIT
GL_SCISSOR_BIT
GL_ALL_ATTRIB_BITS
GL_PROXY_TEXTURE_1D
GL_PROXY_TEXTURE_2D
GL_TEXTURE_PRIORITY
GL_TEXTURE_RESIDENT
GL_TEXTURE_BINDING_1D
GL_TEXTURE_BINDING_2D
GL_TEXTURE_INTERNAL_FORMAT
GL_ALPHA4
GL_ALPHA8
GL_ALPHA12
GL_ALPHA16
GL_LUMINANCE4
GL_LUMINANCE8
GL_LUMINANCE12
GL_LUMINANCE16
GL_LUMINANCE4_ALPHA4
GL_LUMINANCE6_ALPHA2
GL_LUMINANCE8_ALPHA8
GL_LUMINANCE12_ALPHA4
GL_LUMINANCE12_ALPHA12
GL_LUMINANCE16_ALPHA16
GL_INTENSITY
GL_INTENSITY4
GL_INTENSITY8
GL_INTENSITY12
GL_INTENSITY16
GL_R3_G3_B2
GL_RGB4
GL_RGB5
GL_RGB8
GL_RGB10
GL_RGB12
GL_RGB16
GL_RGBA2
GL_RGBA4
GL_RGB5_A1
GL_RGBA8
GL_RGB10_A2
GL_RGBA12
GL_RGBA16
GL_CLIENT_PIXEL_STORE_BIT
GL_CLIENT_VERTEX_ARRAY_BIT
GL_ALL_CLIENT_ATTRIB_BITS
GL_CLIENT_ALL_ATTRIB_BITS
GL_RESCALE_NORMAL
GL_CLAMP_TO_EDGE
GL_MAX_ELEMENTS_VERTICES
GL_MAX_ELEMENTS_INDICES
GL_BGR
GL_BGRA
GL_UNSIGNED_BYTE_3_3_2
GL_UNSIGNED_BYTE_2_3_3_REV
GL_UNSIGNED_SHORT_5_6_5
GL_UNSIGNED_SHORT_5_6_5_REV
GL_UNSIGNED_SHORT_4_4_4_4
GL_UNSIGNED_SHORT_4_4_4_4_REV
GL_UNSIGNED_SHORT_5_5_5_1
GL_UNSIGNED_SHORT_1_5_5_5_REV
GL_UNSIGNED_INT_8_8_8_8
GL_UNSIGNED_INT_8_8_8_8_REV
GL_UNSIGNED_INT_10_10_10_2
GL_UNSIGNED_INT_2_10_10_10_REV
GL_LIGHT_MODEL_COLOR_CONTROL
GL_SINGLE_COLOR
GL_SEPARATE_SPECULAR_COLOR
GL_TEXTURE_MIN_LOD
GL_TEXTURE_MAX_LOD
GL_TEXTURE_BASE_LEVEL
GL_TEXTURE_MAX_LEVEL
GL_SMOOTH_POINT_SIZE_RANGE
GL_SMOOTH_POINT_SIZE_GRANULARITY
GL_SMOOTH_LINE_WIDTH_RANGE
GL_SMOOTH_LINE_WIDTH_GRANULARITY
GL_ALIASED_POINT_SIZE_RANGE
GL_ALIASED_LINE_WIDTH_RANGE
GL_PACK_SKIP_IMAGES
GL_PACK_IMAGE_HEIGHT
GL_UNPACK_SKIP_IMAGES
GL_UNPACK_IMAGE_HEIGHT
GL_TEXTURE_3D
GL_PROXY_TEXTURE_3D
GL_TEXTURE_DEPTH
GL_TEXTURE_WRAP_R
GL_MAX_3D_TEXTURE_SIZE
GL_TEXTURE_BINDING_3D
GL_CONSTANT_COLOR
GL_ONE_MINUS_CONSTANT_COLOR
GL_CONSTANT_ALPHA
GL_ONE_MINUS_CONSTANT_ALPHA
GL_COLOR_TABLE
GL_POST_CONVOLUTION_COLOR_TABLE
GL_POST_COLOR_MATRIX_COLOR_TABLE
GL_PROXY_COLOR_TABLE
GL_PROXY_POST_CONVOLUTION_COLOR_TABLE
GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE
GL_COLOR_TABLE_SCALE
GL_COLOR_TABLE_BIAS
GL_COLOR_TABLE_FORMAT
GL_COLOR_TABLE_WIDTH
GL_COLOR_TABLE_RED_SIZE
GL_COLOR_TABLE_GREEN_SIZE
GL_COLOR_TABLE_BLUE_SIZE
GL_COLOR_TABLE_ALPHA_SIZE
GL_COLOR_TABLE_LUMINANCE_SIZE
GL_COLOR_TABLE_INTENSITY_SIZE
GL_CONVOLUTION_1D
GL_CONVOLUTION_2D
GL_SEPARABLE_2D
GL_CONVOLUTION_BORDER_MODE
GL_CONVOLUTION_FILTER_SCALE
GL_CONVOLUTION_FILTER_BIAS
GL_REDUCE
GL_CONVOLUTION_FORMAT
GL_CONVOLUTION_WIDTH
GL_CONVOLUTION_HEIGHT
GL_MAX_CONVOLUTION_WIDTH
GL_MAX_CONVOLUTION_HEIGHT
GL_POST_CONVOLUTION_RED_SCALE
GL_POST_CONVOLUTION_GREEN_SCALE
GL_POST_CONVOLUTION_BLUE_SCALE
GL_POST_CONVOLUTION_ALPHA_SCALE
GL_POST_CONVOLUTION_RED_BIAS
GL_POST_CONVOLUTION_GREEN_BIAS
GL_POST_CONVOLUTION_BLUE_BIAS
GL_POST_CONVOLUTION_ALPHA_BIAS
GL_CONSTANT_BORDER
GL_REPLICATE_BORDER
GL_CONVOLUTION_BORDER_COLOR
GL_COLOR_MATRIX
GL_COLOR_MATRIX_STACK_DEPTH
GL_MAX_COLOR_MATRIX_STACK_DEPTH
GL_POST_COLOR_MATRIX_RED_SCALE
GL_POST_COLOR_MATRIX_GREEN_SCALE
GL_POST_COLOR_MATRIX_BLUE_SCALE
GL_POST_COLOR_MATRIX_ALPHA_SCALE
GL_POST_COLOR_MATRIX_RED_BIAS
GL_POST_COLOR_MATRIX_GREEN_BIAS
GL_POST_COLOR_MATRIX_BLUE_BIAS
GL_POST_COLOR_MATRIX_ALPHA_BIAS
GL_HISTOGRAM
GL_PROXY_HISTOGRAM
GL_HISTOGRAM_WIDTH
GL_HISTOGRAM_FORMAT
GL_HISTOGRAM_RED_SIZE
GL_HISTOGRAM_GREEN_SIZE
GL_HISTOGRAM_BLUE_SIZE
GL_HISTOGRAM_ALPHA_SIZE
GL_HISTOGRAM_LUMINANCE_SIZE
GL_HISTOGRAM_SINK
GL_MINMAX
GL_MINMAX_FORMAT
GL_MINMAX_SINK
GL_TABLE_TOO_LARGE
GL_BLEND_EQUATION
GL_MIN
GL_MAX
GL_FUNC_ADD
GL_FUNC_SUBTRACT
GL_FUNC_REVERSE_SUBTRACT
GL_BLEND_COLOR
GL_TEXTURE0
GL_TEXTURE1
GL_TEXTURE2
GL_TEXTURE3
GL_TEXTURE4
GL_TEXTURE5
GL_TEXTURE6
GL_TEXTURE7
GL_TEXTURE8
GL_TEXTURE9
GL_TEXTURE10
GL_TEXTURE11
GL_TEXTURE12
GL_TEXTURE13
GL_TEXTURE14
GL_TEXTURE15
GL_TEXTURE16
GL_TEXTURE17
GL_TEXTURE18
GL_TEXTURE19
GL_TEXTURE20
GL_TEXTURE21
GL_TEXTURE22
GL_TEXTURE23
GL_TEXTURE24
GL_TEXTURE25
GL_TEXTURE26
GL_TEXTURE27
GL_TEXTURE28
GL_TEXTURE29
GL_TEXTURE30
GL_TEXTURE31
GL_ACTIVE_TEXTURE
GL_CLIENT_ACTIVE_TEXTURE
GL_MAX_TEXTURE_UNITS
GL_NORMAL_MAP
GL_REFLECTION_MAP
GL_TEXTURE_CUBE_MAP
GL_TEXTURE_BINDING_CUBE_MAP
GL_TEXTURE_CUBE_MAP_POSITIVE_X
GL_TEXTURE_CUBE_MAP_NEGATIVE_X
GL_TEXTURE_CUBE_MAP_POSITIVE_Y
GL_TEXTURE_CUBE_MAP_NEGATIVE_Y
GL_TEXTURE_CUBE_MAP_POSITIVE_Z
GL_TEXTURE_CUBE_MAP_NEGATIVE_Z
GL_PROXY_TEXTURE_CUBE_MAP
GL_MAX_CUBE_MAP_TEXTURE_SIZE
GL_COMPRESSED_ALPHA
GL_COMPRESSED_LUMINANCE
GL_COMPRESSED_LUMINANCE_ALPHA
GL_COMPRESSED_INTENSITY
GL_COMPRESSED_RGB
GL_COMPRESSED_RGBA
GL_TEXTURE_COMPRESSION_HINT
GL_TEXTURE_COMPRESSED_IMAGE_SIZE
GL_TEXTURE_COMPRESSED
GL_NUM_COMPRESSED_TEXTURE_FORMATS
GL_COMPRESSED_TEXTURE_FORMATS
GL_MULTISAMPLE
GL_SAMPLE_ALPHA_TO_COVERAGE
GL_SAMPLE_ALPHA_TO_ONE
GL_SAMPLE_COVERAGE
GL_SAMPLE_BUFFERS
GL_SAMPLES
GL_SAMPLE_COVERAGE_VALUE
GL_SAMPLE_COVERAGE_INVERT
GL_MULTISAMPLE_BIT
GL_TRANSPOSE_MODELVIEW_MATRIX
GL_TRANSPOSE_PROJECTION_MATRIX
GL_TRANSPOSE_TEXTURE_MATRIX
GL_TRANSPOSE_COLOR_MATRIX
GL_COMBINE
GL_COMBINE_RGB
GL_COMBINE_ALPHA
GL_SOURCE0_RGB
GL_SOURCE1_RGB
GL_SOURCE2_RGB
GL_SOURCE0_ALPHA
GL_SOURCE1_ALPHA
GL_SOURCE2_ALPHA
GL_OPERAND0_RGB
GL_OPERAND1_RGB
GL_OPERAND2_RGB
GL_OPERAND0_ALPHA
GL_OPERAND1_ALPHA
GL_OPERAND2_ALPHA
GL_RGB_SCALE
GL_ADD_SIGNED
GL_INTERPOLATE
GL_SUBTRACT
GL_CONSTANT
GL_PRIMARY_COLOR
GL_PREVIOUS
GL_DOT3_RGB
GL_DOT3_RGBA
GL_CLAMP_TO_BORDER
GL_TEXTURE0_ARB
GL_TEXTURE1_ARB
GL_TEXTURE2_ARB
GL_TEXTURE3_ARB
GL_TEXTURE4_ARB
GL_TEXTURE5_ARB
GL_TEXTURE6_ARB
GL_TEXTURE7_ARB
GL_TEXTURE8_ARB
GL_TEXTURE9_ARB
GL_TEXTURE10_ARB
GL_TEXTURE11_ARB
GL_TEXTURE12_ARB
GL_TEXTURE13_ARB
GL_TEXTURE14_ARB
GL_TEXTURE15_ARB
GL_TEXTURE16_ARB
GL_TEXTURE17_ARB
GL_TEXTURE18_ARB
GL_TEXTURE19_ARB
GL_TEXTURE20_ARB
GL_TEXTURE21_ARB
GL_TEXTURE22_ARB
GL_TEXTURE23_ARB
GL_TEXTURE24_ARB
GL_TEXTURE25_ARB
GL_TEXTURE26_ARB
GL_TEXTURE27_ARB
GL_TEXTURE28_ARB
GL_TEXTURE29_ARB
GL_TEXTURE30_ARB
GL_TEXTURE31_ARB
GL_ACTIVE_TEXTURE_ARB
GL_CLIENT_ACTIVE_TEXTURE_ARB
GL_MAX_TEXTURE_UNITS_ARB
glClearIndex
glClearColor
glClear
glIndexMask
glColorMask
glAlphaFunc
glBlendFunc
glLogicOp
glCullFace
glFrontFace
glPointSize
glLineWidth
glLineStipple
glPolygonMode
glPolygonOffset
glPolygonStipple
glGetPolygonStipple
glEdgeFlag
glEdgeFlagv
glScissor
glClipPlane
glGetClipPlane
glDrawBuffer
glReadBuffer
glEnable
glDisable
glIsEnabled
glEnableClientState
glDisableClientState
glGetBooleanv
glGetDoublev
glGetFloatv
glGetIntegerv
glPushAttrib
glPopAttrib
glPushClientAttrib
glPopClientAttrib
glRenderMode
glGetError
glGetString
glFinish
glFlush
glHint
glClearDepth
glDepthFunc
glDepthMask
glDepthRange
glClearAccum
glAccum
glMatrixMode
glOrtho
glFrustum
glViewport
glPushMatrix
glPopMatrix
glLoadIdentity
glLoadMatrixd
glLoadMatrixf
glMultMatrixd
glMultMatrixf
glRotated
glRotatef
glScaled
glScalef
glTranslated
glTranslatef
glIsList
glDeleteLists
glGenLists
glNewList
glEndList
glCallList
glCallLists
glListBase
glBegin
glEnd
glVertex2d
glVertex2f
glVertex2i
glVertex2s
glVertex3d
glVertex3f
glVertex3i
glVertex3s
glVertex4d
glVertex4f
glVertex4i
glVertex4s
glVertex2dv
glVertex2fv
glVertex2iv
glVertex2sv
glVertex3dv
glVertex3fv
glVertex3iv
glVertex3sv
glVertex4dv
glVertex4fv
glVertex4iv
glVertex4sv
glNormal3b
glNormal3d
glNormal3f
glNormal3i
glNormal3s
glNormal3bv
glNormal3dv
glNormal3fv
glNormal3iv
glNormal3sv
glIndexd
glIndexf
glIndexi
glIndexs
glIndexub
glIndexdv
glIndexfv
glIndexiv
glIndexsv
glIndexubv
glColor3b
glColor3d
glColor3f
glColor3i
glColor3s
glColor3ub
glColor3ui
glColor3us
glColor4b
glColor4d
glColor4f
glColor4i
glColor4s
glColor4ub
glColor4ui
glColor4us
glColor3bv
glColor3dv
glColor3fv
glColor3iv
glColor3sv
glColor3ubv
glColor3uiv
glColor3usv
glColor4bv
glColor4dv
glColor4fv
glColor4iv
glColor4sv
glColor4ubv
glColor4uiv
glColor4usv
glTexCoord1d
glTexCoord1f
glTexCoord1i
glTexCoord1s
glTexCoord2d
glTexCoord2f
glTexCoord2i
glTexCoord2s
glTexCoord3d
glTexCoord3f
glTexCoord3i
glTexCoord3s
glTexCoord4d
glTexCoord4f
glTexCoord4i
glTexCoord4s
glTexCoord1dv
glTexCoord1fv
glTexCoord1iv
glTexCoord1sv
glTexCoord2dv
glTexCoord2fv
glTexCoord2iv
glTexCoord2sv
glTexCoord3dv
glTexCoord3fv
glTexCoord3iv
glTexCoord3sv
glTexCoord4dv
glTexCoord4fv
glTexCoord4iv
glTexCoord4sv
glRasterPos2d
glRasterPos2f
glRasterPos2i
glRasterPos2s
glRasterPos3d
glRasterPos3f
glRasterPos3i
glRasterPos3s
glRasterPos4d
glRasterPos4f
glRasterPos4i
glRasterPos4s
glRasterPos2dv
glRasterPos2fv
glRasterPos2iv
glRasterPos2sv
glRasterPos3dv
glRasterPos3fv
glRasterPos3iv
glRasterPos3sv
glRasterPos4dv
glRasterPos4fv
glRasterPos4iv
glRasterPos4sv
glRectd
glRectf
glRecti
glRects
glRectdv
glRectfv
glRectiv
glRectsv
glVertexPointer
glNormalPointer
glColorPointer
glIndexPointer
glTexCoordPointer
glEdgeFlagPointer
glGetPointerv
glArrayElement
glDrawArrays
glDrawElements
glInterleavedArrays
glShadeModel
glLightf
glLighti
glLightfv
glLightiv
glGetLightfv
glGetLightiv
glLightModelf
glLightModeli
glLightModelfv
glLightModeliv
glMaterialf
glMateriali
glMaterialfv
glMaterialiv
glGetMaterialfv
glGetMaterialiv
glColorMaterial
glPixelZoom
glPixelStoref
glPixelStorei
glPixelTransferf
glPixelTransferi
glPixelMapfv
glPixelMapuiv
glPixelMapusv
glGetPixelMapfv
glGetPixelMapuiv
glGetPixelMapusv
glBitmap
glReadPixels
glDrawPixels
glCopyPixels
glStencilFunc
glStencilMask
glStencilOp
glClearStencil
glTexGend
glTexGenf
glTexGeni
glTexGendv
glTexGenfv
glTexGeniv
glGetTexGendv
glGetTexGenfv
glGetTexGeniv
glTexEnvf
glTexEnvi
glTexEnvfv
glTexEnviv
glGetTexEnvfv
glGetTexEnviv
glTexParameterf
glTexParameteri
glTexParameterfv
glTexParameteriv
glGetTexParameterfv
glGetTexParameteriv
glGetTexLevelParameterfv
glGetTexLevelParameteriv
glTexImage1D
glTexImage2D
glGetTexImage
glGenTextures
glDeleteTextures
glBindTexture
glPrioritizeTextures
glAreTexturesResident
glIsTexture
glTexSubImage1D
glTexSubImage2D
glCopyTexImage1D
glCopyTexImage2D
glCopyTexSubImage1D
glCopyTexSubImage2D
glMap1d
glMap1f
glMap2d
glMap2f
glGetMapdv
glGetMapfv
glGetMapiv
glEvalCoord1d
glEvalCoord1f
glEvalCoord1dv
glEvalCoord1fv
glEvalCoord2d
glEvalCoord2f
glEvalCoord2dv
glEvalCoord2fv
glMapGrid1d
glMapGrid1f
glMapGrid2d
glMapGrid2f
glEvalPoint1
glEvalPoint2
glEvalMesh1
glEvalMesh2
glFogf
glFogi
glFogfv
glFogiv
glFeedbackBuffer
glPassThrough
glSelectBuffer
glInitNames
glLoadName
glPushName
glPopName
glDrawRangeElements
glTexImage3D
glTexSubImage3D
glCopyTexSubImage3D
glColorTable
glColorSubTable
glColorTableParameteriv
glColorTableParameterfv
glCopyColorSubTable
glCopyColorTable
glGetColorTable
glGetColorTableParameterfv
glGetColorTableParameteriv
glBlendEquation
glBlendColor
glHistogram
glResetHistogram
glGetHistogram
glGetHistogramParameterfv
glGetHistogramParameteriv
glMinmax
glResetMinmax
glGetMinmax
glGetMinmaxParameterfv
glGetMinmaxParameteriv
glConvolutionFilter1D
glConvolutionFilter2D
glConvolutionParameterf
glConvolutionParameterfv
glConvolutionParameteri
glConvolutionParameteriv
glCopyConvolutionFilter1D
glCopyConvolutionFilter2D
glGetConvolutionFilter
glGetConvolutionParameterfv
glGetConvolutionParameteriv
glSeparableFilter2D
glGetSeparableFilter
glActiveTexture
glClientActiveTexture
glCompressedTexImage1D
glCompressedTexImage2D
glCompressedTexImage3D
glCompressedTexSubImage1D
glCompressedTexSubImage2D
glCompressedTexSubImage3D
glGetCompressedTexImage
glMultiTexCoord1d
glMultiTexCoord1dv
glMultiTexCoord1f
glMultiTexCoord1fv
glMultiTexCoord1i
glMultiTexCoord1iv
glMultiTexCoord1s
glMultiTexCoord1sv
glMultiTexCoord2d
glMultiTexCoord2dv
glMultiTexCoord2f
glMultiTexCoord2fv
glMultiTexCoord2i
glMultiTexCoord2iv
glMultiTexCoord2s
glMultiTexCoord2sv
glMultiTexCoord3d
glMultiTexCoord3dv
glMultiTexCoord3f
glMultiTexCoord3fv
glMultiTexCoord3i
glMultiTexCoord3iv
glMultiTexCoord3s
glMultiTexCoord3sv
glMultiTexCoord4d
glMultiTexCoord4dv
glMultiTexCoord4f
glMultiTexCoord4fv
glMultiTexCoord4i
glMultiTexCoord4iv
glMultiTexCoord4s
glMultiTexCoord4sv
glLoadTransposeMatrixd
glLoadTransposeMatrixf
glMultTransposeMatrixd
glMultTransposeMatrixf
glSampleCoverage
glActiveTextureARB
glClientActiveTextureARB
glMultiTexCoord1dARB
glMultiTexCoord1dvARB
glMultiTexCoord1fARB
glMultiTexCoord1fvARB
glMultiTexCoord1iARB
glMultiTexCoord1ivARB
glMultiTexCoord1sARB
glMultiTexCoord1svARB
glMultiTexCoord2dARB
glMultiTexCoord2dvARB
glMultiTexCoord2fARB
glMultiTexCoord2fvARB
glMultiTexCoord2iARB
glMultiTexCoord2ivARB
glMultiTexCoord2sARB
glMultiTexCoord2svARB
glMultiTexCoord3dARB
glMultiTexCoord3dvARB
glMultiTexCoord3fARB
glMultiTexCoord3fvARB
glMultiTexCoord3iARB
glMultiTexCoord3ivARB
glMultiTexCoord3sARB
glMultiTexCoord3svARB
glMultiTexCoord4dARB
glMultiTexCoord4dvARB
glMultiTexCoord4fARB
glMultiTexCoord4fvARB
glMultiTexCoord4iARB
glMultiTexCoord4ivARB
glMultiTexCoord4sARB
glMultiTexCoord4svARB)
(import (rnrs base)
(rnrs lists)
(rnrs io simple)
(rnrs files)
(err5rs records syntactic)
(primitives system-features
foreign-file
foreign-procedure))
(define libGL
(let ((os (cdr (assq 'os-name (system-features)))))
(cond ((string=? os "MacOS X") (foreign-file "OpenGL.framework/OpenGL"))
((string=? os "Win32") (foreign-file "opengl32.dll"))
((string=? os "Linux") (foreign-file "libGL.so.1"))
((string=? os "BSD Unix")
(if (file-exists? "libGL.so")
(foreign-file "libGL.so")
(foreign-file "libGL.so.7.3")))
(else
(assertion-violation #f
(string-append "can not locate OpenGL library,"
" unknown operating system"))))))
;;;; Boolean values
(define GL_FALSE #x0)
(define GL_TRUE #x1)
;;;; Data types
(define GL_BYTE #x1400)
(define GL_UNSIGNED_BYTE #x1401)
(define GL_SHORT #x1402)
(define GL_UNSIGNED_SHORT #x1403)
(define GL_INT #x1404)
(define GL_UNSIGNED_INT #x1405)
(define GL_FLOAT #x1406)
(define GL_2_BYTES #x1407)
(define GL_3_BYTES #x1408)
(define GL_4_BYTES #x1409)
(define GL_DOUBLE #x140A)
;;;; Primitives
(define GL_POINTS #x0000)
(define GL_LINES #x0001)
(define GL_LINE_LOOP #x0002)
(define GL_LINE_STRIP #x0003)
(define GL_TRIANGLES #x0004)
(define GL_TRIANGLE_STRIP #x0005)
(define GL_TRIANGLE_FAN #x0006)
(define GL_QUADS #x0007)
(define GL_QUAD_STRIP #x0008)
(define GL_POLYGON #x0009)
;;;; Vertex Arrays
(define GL_VERTEX_ARRAY #x8074)
(define GL_NORMAL_ARRAY #x8075)
(define GL_COLOR_ARRAY #x8076)
(define GL_INDEX_ARRAY #x8077)
(define GL_TEXTURE_COORD_ARRAY #x8078)
(define GL_EDGE_FLAG_ARRAY #x8079)
(define GL_VERTEX_ARRAY_SIZE #x807A)
(define GL_VERTEX_ARRAY_TYPE #x807B)
(define GL_VERTEX_ARRAY_STRIDE #x807C)
(define GL_NORMAL_ARRAY_TYPE #x807E)
(define GL_NORMAL_ARRAY_STRIDE #x807F)
(define GL_COLOR_ARRAY_SIZE #x8081)
(define GL_COLOR_ARRAY_TYPE #x8082)
(define GL_COLOR_ARRAY_STRIDE #x8083)
(define GL_INDEX_ARRAY_TYPE #x8085)
(define GL_INDEX_ARRAY_STRIDE #x8086)
(define GL_TEXTURE_COORD_ARRAY_SIZE #x8088)
(define GL_TEXTURE_COORD_ARRAY_TYPE #x8089)
(define GL_TEXTURE_COORD_ARRAY_STRIDE #x808A)
(define GL_EDGE_FLAG_ARRAY_STRIDE #x808C)
(define GL_VERTEX_ARRAY_POINTER #x808E)
(define GL_NORMAL_ARRAY_POINTER #x808F)
(define GL_COLOR_ARRAY_POINTER #x8090)
(define GL_INDEX_ARRAY_POINTER #x8091)
(define GL_TEXTURE_COORD_ARRAY_POINTER #x8092)
(define GL_EDGE_FLAG_ARRAY_POINTER #x8093)
(define GL_V2F #x2A20)
(define GL_V3F #x2A21)
(define GL_C4UB_V2F #x2A22)
(define GL_C4UB_V3F #x2A23)
(define GL_C3F_V3F #x2A24)
(define GL_N3F_V3F #x2A25)
(define GL_C4F_N3F_V3F #x2A26)
(define GL_T2F_V3F #x2A27)
(define GL_T4F_V4F #x2A28)
(define GL_T2F_C4UB_V3F #x2A29)
(define GL_T2F_C3F_V3F #x2A2A)
(define GL_T2F_N3F_V3F #x2A2B)
(define GL_T2F_C4F_N3F_V3F #x2A2C)
(define GL_T4F_C4F_N3F_V4F #x2A2D)
;;;; Matrix Mode
(define GL_MATRIX_MODE #x0BA0)
(define GL_MODELVIEW #x1700)
(define GL_PROJECTION #x1701)
(define GL_TEXTURE #x1702)
;;;; Points
(define GL_POINT_SMOOTH #x0B10)
(define GL_POINT_SIZE #x0B11)
(define GL_POINT_SIZE_GRANULARITY #x0B13)
(define GL_POINT_SIZE_RANGE #x0B12)
;;;; Lines
(define GL_LINE_SMOOTH #x0B20)
(define GL_LINE_STIPPLE #x0B24)
(define GL_LINE_STIPPLE_PATTERN #x0B25)
(define GL_LINE_STIPPLE_REPEAT #x0B26)
(define GL_LINE_WIDTH #x0B21)
(define GL_LINE_WIDTH_GRANULARITY #x0B23)
(define GL_LINE_WIDTH_RANGE #x0B22)
;;;; Polygons
(define GL_POINT #x1B00)
(define GL_LINE #x1B01)
(define GL_FILL #x1B02)
(define GL_CW #x0900)
(define GL_CCW #x0901)
(define GL_FRONT #x0404)
(define GL_BACK #x0405)
(define GL_POLYGON_MODE #x0B40)
(define GL_POLYGON_SMOOTH #x0B41)
(define GL_POLYGON_STIPPLE #x0B42)
(define GL_EDGE_FLAG #x0B43)
(define GL_CULL_FACE #x0B44)
(define GL_CULL_FACE_MODE #x0B45)
(define GL_FRONT_FACE #x0B46)
(define GL_POLYGON_OFFSET_FACTOR #x8038)
(define GL_POLYGON_OFFSET_UNITS #x2A00)
(define GL_POLYGON_OFFSET_POINT #x2A01)
(define GL_POLYGON_OFFSET_LINE #x2A02)
(define GL_POLYGON_OFFSET_FILL #x8037)
;;;; Display Lists
(define GL_COMPILE #x1300)
(define GL_COMPILE_AND_EXECUTE #x1301)
(define GL_LIST_BASE #x0B32)
(define GL_LIST_INDEX #x0B33)
(define GL_LIST_MODE #x0B30)
;;;; Depth buffer
(define GL_NEVER #x0200)
(define GL_LESS #x0201)
(define GL_EQUAL #x0202)
(define GL_LEQUAL #x0203)
(define GL_GREATER #x0204)
(define GL_NOTEQUAL #x0205)
(define GL_GEQUAL #x0206)
(define GL_ALWAYS #x0207)
(define GL_DEPTH_TEST #x0B71)
(define GL_DEPTH_BITS #x0D56)
(define GL_DEPTH_CLEAR_VALUE #x0B73)
(define GL_DEPTH_FUNC #x0B74)
(define GL_DEPTH_RANGE #x0B70)
(define GL_DEPTH_WRITEMASK #x0B72)
(define GL_DEPTH_COMPONENT #x1902)
;;;; Lighting
(define GL_LIGHTING #x0B50)
(define GL_LIGHT0 #x4000)
(define GL_LIGHT1 #x4001)
(define GL_LIGHT2 #x4002)
(define GL_LIGHT3 #x4003)
(define GL_LIGHT4 #x4004)
(define GL_LIGHT5 #x4005)
(define GL_LIGHT6 #x4006)
(define GL_LIGHT7 #x4007)
(define GL_SPOT_EXPONENT #x1205)
(define GL_SPOT_CUTOFF #x1206)
(define GL_CONSTANT_ATTENUATION #x1207)
(define GL_LINEAR_ATTENUATION #x1208)
(define GL_QUADRATIC_ATTENUATION #x1209)
(define GL_AMBIENT #x1200)
(define GL_DIFFUSE #x1201)
(define GL_SPECULAR #x1202)
(define GL_SHININESS #x1601)
(define GL_EMISSION #x1600)
(define GL_POSITION #x1203)
(define GL_SPOT_DIRECTION #x1204)
(define GL_AMBIENT_AND_DIFFUSE #x1602)
(define GL_COLOR_INDEXES #x1603)
(define GL_LIGHT_MODEL_TWO_SIDE #x0B52)
(define GL_LIGHT_MODEL_LOCAL_VIEWER #x0B51)
(define GL_LIGHT_MODEL_AMBIENT #x0B53)
(define GL_FRONT_AND_BACK #x0408)
(define GL_SHADE_MODEL #x0B54)
(define GL_FLAT #x1D00)
(define GL_SMOOTH #x1D01)
(define GL_COLOR_MATERIAL #x0B57)
(define GL_COLOR_MATERIAL_FACE #x0B55)
(define GL_COLOR_MATERIAL_PARAMETER #x0B56)
(define GL_NORMALIZE #x0BA1)
;;;; User clipping planes
(define GL_CLIP_PLANE0 #x3000)
(define GL_CLIP_PLANE1 #x3001)
(define GL_CLIP_PLANE2 #x3002)
(define GL_CLIP_PLANE3 #x3003)
(define GL_CLIP_PLANE4 #x3004)
(define GL_CLIP_PLANE5 #x3005)
;;;; Accumulation buffer
(define GL_ACCUM_RED_BITS #x0D58)
(define GL_ACCUM_GREEN_BITS #x0D59)
(define GL_ACCUM_BLUE_BITS #x0D5A)
(define GL_ACCUM_ALPHA_BITS #x0D5B)
(define GL_ACCUM_CLEAR_VALUE #x0B80)
(define GL_ACCUM #x0100)
(define GL_ADD #x0104)
(define GL_LOAD #x0101)
(define GL_MULT #x0103)
(define GL_RETURN #x0102)
;;;; Alpha testing
(define GL_ALPHA_TEST #x0BC0)
(define GL_ALPHA_TEST_REF #x0BC2)
(define GL_ALPHA_TEST_FUNC #x0BC1)
;;;; Blending
(define GL_BLEND #x0BE2)
(define GL_BLEND_SRC #x0BE1)
(define GL_BLEND_DST #x0BE0)
(define GL_ZERO #x0)
(define GL_ONE #x1)
(define GL_SRC_COLOR #x0300)
(define GL_ONE_MINUS_SRC_COLOR #x0301)
(define GL_SRC_ALPHA #x0302)
(define GL_ONE_MINUS_SRC_ALPHA #x0303)
(define GL_DST_ALPHA #x0304)
(define GL_ONE_MINUS_DST_ALPHA #x0305)
(define GL_DST_COLOR #x0306)
(define GL_ONE_MINUS_DST_COLOR #x0307)
(define GL_SRC_ALPHA_SATURATE #x0308)
;;;; Render Mode
(define GL_FEEDBACK #x1C01)
(define GL_RENDER #x1C00)
(define GL_SELECT #x1C02)
;;;; Feedback
(define GL_2D #x0600)
(define GL_3D #x0601)
(define GL_3D_COLOR #x0602)
(define GL_3D_COLOR_TEXTURE #x0603)
(define GL_4D_COLOR_TEXTURE #x0604)
(define GL_POINT_TOKEN #x0701)
(define GL_LINE_TOKEN #x0702)
(define GL_LINE_RESET_TOKEN #x0707)
(define GL_POLYGON_TOKEN #x0703)
(define GL_BITMAP_TOKEN #x0704)
(define GL_DRAW_PIXEL_TOKEN #x0705)
(define GL_COPY_PIXEL_TOKEN #x0706)
(define GL_PASS_THROUGH_TOKEN #x0700)
(define GL_FEEDBACK_BUFFER_POINTER #x0DF0)
(define GL_FEEDBACK_BUFFER_SIZE #x0DF1)
(define GL_FEEDBACK_BUFFER_TYPE #x0DF2)
;;;; Selection
(define GL_SELECTION_BUFFER_POINTER #x0DF3)
(define GL_SELECTION_BUFFER_SIZE #x0DF4)
;;;; Fog
(define GL_FOG #x0B60)
(define GL_FOG_MODE #x0B65)
(define GL_FOG_DENSITY #x0B62)
(define GL_FOG_COLOR #x0B66)
(define GL_FOG_INDEX #x0B61)
(define GL_FOG_START #x0B63)
(define GL_FOG_END #x0B64)
(define GL_LINEAR #x2601)
(define GL_EXP #x0800)
(define GL_EXP2 #x0801)
;;;; Logic Ops
(define GL_LOGIC_OP #x0BF1)
(define GL_INDEX_LOGIC_OP #x0BF1)
(define GL_COLOR_LOGIC_OP #x0BF2)
(define GL_LOGIC_OP_MODE #x0BF0)
(define GL_CLEAR #x1500)
(define GL_SET #x150F)
(define GL_COPY #x1503)
(define GL_COPY_INVERTED #x150C)
(define GL_NOOP #x1505)
(define GL_INVERT #x150A)
(define GL_AND #x1501)
(define GL_NAND #x150E)
(define GL_OR #x1507)
(define GL_NOR #x1508)
(define GL_XOR #x1506)
(define GL_EQUIV #x1509)
(define GL_AND_REVERSE #x1502)
(define GL_AND_INVERTED #x1504)
(define GL_OR_REVERSE #x150B)
(define GL_OR_INVERTED #x150D)
;;;; Stencil
(define GL_STENCIL_BITS #x0D57)
(define GL_STENCIL_TEST #x0B90)
(define GL_STENCIL_CLEAR_VALUE #x0B91)
(define GL_STENCIL_FUNC #x0B92)
(define GL_STENCIL_VALUE_MASK #x0B93)
(define GL_STENCIL_FAIL #x0B94)
(define GL_STENCIL_PASS_DEPTH_FAIL #x0B95)
(define GL_STENCIL_PASS_DEPTH_PASS #x0B96)
(define GL_STENCIL_REF #x0B97)
(define GL_STENCIL_WRITEMASK #x0B98)
(define GL_STENCIL_INDEX #x1901)
(define GL_KEEP #x1E00)
(define GL_REPLACE #x1E01)
(define GL_INCR #x1E02)
(define GL_DECR #x1E03)
;;;; Buffers, Pixel Drawing/Reading
(define GL_NONE #x0)
(define GL_LEFT #x0406)
(define GL_RIGHT #x0407)
;;;;GL_FRONT 0x0404
;;;;GL_BACK 0x0405
;;;;GL_FRONT_AND_BACK 0x0408
(define GL_FRONT_LEFT #x0400)
(define GL_FRONT_RIGHT #x0401)
(define GL_BACK_LEFT #x0402)
(define GL_BACK_RIGHT #x0403)
(define GL_AUX0 #x0409)
(define GL_AUX1 #x040A)
(define GL_AUX2 #x040B)
(define GL_AUX3 #x040C)
(define GL_COLOR_INDEX #x1900)
(define GL_RED #x1903)
(define GL_GREEN #x1904)
(define GL_BLUE #x1905)
(define GL_ALPHA #x1906)
(define GL_LUMINANCE #x1909)
(define GL_LUMINANCE_ALPHA #x190A)
(define GL_ALPHA_BITS #x0D55)
(define GL_RED_BITS #x0D52)
(define GL_GREEN_BITS #x0D53)
(define GL_BLUE_BITS #x0D54)
(define GL_INDEX_BITS #x0D51)
(define GL_SUBPIXEL_BITS #x0D50)
(define GL_AUX_BUFFERS #x0C00)
(define GL_READ_BUFFER #x0C02)
(define GL_DRAW_BUFFER #x0C01)
(define GL_DOUBLEBUFFER #x0C32)
(define GL_STEREO #x0C33)
(define GL_BITMAP #x1A00)
(define GL_COLOR #x1800)
(define GL_DEPTH #x1801)
(define GL_STENCIL #x1802)
(define GL_DITHER #x0BD0)
(define GL_RGB #x1907)
(define GL_RGBA #x1908)
;;;; Implementation limits
(define GL_MAX_LIST_NESTING #x0B31)
(define GL_MAX_EVAL_ORDER #x0D30)
(define GL_MAX_LIGHTS #x0D31)
(define GL_MAX_CLIP_PLANES #x0D32)
(define GL_MAX_TEXTURE_SIZE #x0D33)
(define GL_MAX_PIXEL_MAP_TABLE #x0D34)
(define GL_MAX_ATTRIB_STACK_DEPTH #x0D35)
(define GL_MAX_MODELVIEW_STACK_DEPTH #x0D36)
(define GL_MAX_NAME_STACK_DEPTH #x0D37)
(define GL_MAX_PROJECTION_STACK_DEPTH #x0D38)
(define GL_MAX_TEXTURE_STACK_DEPTH #x0D39)
(define GL_MAX_VIEWPORT_DIMS #x0D3A)
(define GL_MAX_CLIENT_ATTRIB_STACK_DEPTH #x0D3B)
;;;; Gets
(define GL_ATTRIB_STACK_DEPTH #x0BB0)
(define GL_CLIENT_ATTRIB_STACK_DEPTH #x0BB1)
(define GL_COLOR_CLEAR_VALUE #x0C22)
(define GL_COLOR_WRITEMASK #x0C23)
(define GL_CURRENT_INDEX #x0B01)
(define GL_CURRENT_COLOR #x0B00)
(define GL_CURRENT_NORMAL #x0B02)
(define GL_CURRENT_RASTER_COLOR #x0B04)
(define GL_CURRENT_RASTER_DISTANCE #x0B09)
(define GL_CURRENT_RASTER_INDEX #x0B05)
(define GL_CURRENT_RASTER_POSITION #x0B07)
(define GL_CURRENT_RASTER_TEXTURE_COORDS #x0B06)
(define GL_CURRENT_RASTER_POSITION_VALID #x0B08)
(define GL_CURRENT_TEXTURE_COORDS #x0B03)
(define GL_INDEX_CLEAR_VALUE #x0C20)
(define GL_INDEX_MODE #x0C30)
(define GL_INDEX_WRITEMASK #x0C21)
(define GL_MODELVIEW_MATRIX #x0BA6)
(define GL_MODELVIEW_STACK_DEPTH #x0BA3)
(define GL_NAME_STACK_DEPTH #x0D70)
(define GL_PROJECTION_MATRIX #x0BA7)
(define GL_PROJECTION_STACK_DEPTH #x0BA4)
(define GL_RENDER_MODE #x0C40)
(define GL_RGBA_MODE #x0C31)
(define GL_TEXTURE_MATRIX #x0BA8)
(define GL_TEXTURE_STACK_DEPTH #x0BA5)
(define GL_VIEWPORT #x0BA2)
;;;; Evaluators
(define GL_AUTO_NORMAL #x0D80)
(define GL_MAP1_COLOR_4 #x0D90)
(define GL_MAP1_INDEX #x0D91)
(define GL_MAP1_NORMAL #x0D92)
(define GL_MAP1_TEXTURE_COORD_1 #x0D93)
(define GL_MAP1_TEXTURE_COORD_2 #x0D94)
(define GL_MAP1_TEXTURE_COORD_3 #x0D95)
(define GL_MAP1_TEXTURE_COORD_4 #x0D96)
(define GL_MAP1_VERTEX_3 #x0D97)
(define GL_MAP1_VERTEX_4 #x0D98)
(define GL_MAP2_COLOR_4 #x0DB0)
(define GL_MAP2_INDEX #x0DB1)
(define GL_MAP2_NORMAL #x0DB2)
(define GL_MAP2_TEXTURE_COORD_1 #x0DB3)
(define GL_MAP2_TEXTURE_COORD_2 #x0DB4)
(define GL_MAP2_TEXTURE_COORD_3 #x0DB5)
(define GL_MAP2_TEXTURE_COORD_4 #x0DB6)
(define GL_MAP2_VERTEX_3 #x0DB7)
(define GL_MAP2_VERTEX_4 #x0DB8)
(define GL_MAP1_GRID_DOMAIN #x0DD0)
(define GL_MAP1_GRID_SEGMENTS #x0DD1)
(define GL_MAP2_GRID_DOMAIN #x0DD2)
(define GL_MAP2_GRID_SEGMENTS #x0DD3)
(define GL_COEFF #x0A00)
(define GL_ORDER #x0A01)
(define GL_DOMAIN #x0A02)
;;;; Hints
(define GL_PERSPECTIVE_CORRECTION_HINT #x0C50)
(define GL_POINT_SMOOTH_HINT #x0C51)
(define GL_LINE_SMOOTH_HINT #x0C52)
(define GL_POLYGON_SMOOTH_HINT #x0C53)
(define GL_FOG_HINT #x0C54)
(define GL_DONT_CARE #x1100)
(define GL_FASTEST #x1101)
(define GL_NICEST #x1102)
;;;; Scissor box
(define GL_SCISSOR_BOX #x0C10)
(define GL_SCISSOR_TEST #x0C11)
;;;; Pixel Mode / Transfer
(define GL_MAP_COLOR #x0D10)
(define GL_MAP_STENCIL #x0D11)
(define GL_INDEX_SHIFT #x0D12)
(define GL_INDEX_OFFSET #x0D13)
(define GL_RED_SCALE #x0D14)
(define GL_RED_BIAS #x0D15)
(define GL_GREEN_SCALE #x0D18)
(define GL_GREEN_BIAS #x0D19)
(define GL_BLUE_SCALE #x0D1A)
(define GL_BLUE_BIAS #x0D1B)
(define GL_ALPHA_SCALE #x0D1C)
(define GL_ALPHA_BIAS #x0D1D)
(define GL_DEPTH_SCALE #x0D1E)
(define GL_DEPTH_BIAS #x0D1F)
(define GL_PIXEL_MAP_S_TO_S_SIZE #x0CB1)
(define GL_PIXEL_MAP_I_TO_I_SIZE #x0CB0)
(define GL_PIXEL_MAP_I_TO_R_SIZE #x0CB2)
(define GL_PIXEL_MAP_I_TO_G_SIZE #x0CB3)
(define GL_PIXEL_MAP_I_TO_B_SIZE #x0CB4)
(define GL_PIXEL_MAP_I_TO_A_SIZE #x0CB5)
(define GL_PIXEL_MAP_R_TO_R_SIZE #x0CB6)
(define GL_PIXEL_MAP_G_TO_G_SIZE #x0CB7)
(define GL_PIXEL_MAP_B_TO_B_SIZE #x0CB8)
(define GL_PIXEL_MAP_A_TO_A_SIZE #x0CB9)
(define GL_PIXEL_MAP_S_TO_S #x0C71)
(define GL_PIXEL_MAP_I_TO_I #x0C70)
(define GL_PIXEL_MAP_I_TO_R #x0C72)
(define GL_PIXEL_MAP_I_TO_G #x0C73)
(define GL_PIXEL_MAP_I_TO_B #x0C74)
(define GL_PIXEL_MAP_I_TO_A #x0C75)
(define GL_PIXEL_MAP_R_TO_R #x0C76)
(define GL_PIXEL_MAP_G_TO_G #x0C77)
(define GL_PIXEL_MAP_B_TO_B #x0C78)
(define GL_PIXEL_MAP_A_TO_A #x0C79)
(define GL_PACK_ALIGNMENT #x0D05)
(define GL_PACK_LSB_FIRST #x0D01)
(define GL_PACK_ROW_LENGTH #x0D02)
(define GL_PACK_SKIP_PIXELS #x0D04)
(define GL_PACK_SKIP_ROWS #x0D03)
(define GL_PACK_SWAP_BYTES #x0D00)
(define GL_UNPACK_ALIGNMENT #x0CF5)
(define GL_UNPACK_LSB_FIRST #x0CF1)
(define GL_UNPACK_ROW_LENGTH #x0CF2)
(define GL_UNPACK_SKIP_PIXELS #x0CF4)
(define GL_UNPACK_SKIP_ROWS #x0CF3)
(define GL_UNPACK_SWAP_BYTES #x0CF0)
(define GL_ZOOM_X #x0D16)
(define GL_ZOOM_Y #x0D17)
;;;; Texture mapping
(define GL_TEXTURE_ENV #x2300)
(define GL_TEXTURE_ENV_MODE #x2200)
(define GL_TEXTURE_1D #x0DE0)
(define GL_TEXTURE_2D #x0DE1)
(define GL_TEXTURE_WRAP_S #x2802)
(define GL_TEXTURE_WRAP_T #x2803)
(define GL_TEXTURE_MAG_FILTER #x2800)
(define GL_TEXTURE_MIN_FILTER #x2801)
(define GL_TEXTURE_ENV_COLOR #x2201)
(define GL_TEXTURE_GEN_S #x0C60)
(define GL_TEXTURE_GEN_T #x0C61)
(define GL_TEXTURE_GEN_MODE #x2500)
(define GL_TEXTURE_BORDER_COLOR #x1004)
(define GL_TEXTURE_WIDTH #x1000)
(define GL_TEXTURE_HEIGHT #x1001)
(define GL_TEXTURE_BORDER #x1005)
(define GL_TEXTURE_COMPONENTS #x1003)
(define GL_TEXTURE_RED_SIZE #x805C)
(define GL_TEXTURE_GREEN_SIZE #x805D)
(define GL_TEXTURE_BLUE_SIZE #x805E)
(define GL_TEXTURE_ALPHA_SIZE #x805F)
(define GL_TEXTURE_LUMINANCE_SIZE #x8060)
(define GL_TEXTURE_INTENSITY_SIZE #x8061)
(define GL_NEAREST_MIPMAP_NEAREST #x2700)
(define GL_NEAREST_MIPMAP_LINEAR #x2702)
(define GL_LINEAR_MIPMAP_NEAREST #x2701)
(define GL_LINEAR_MIPMAP_LINEAR #x2703)
(define GL_OBJECT_LINEAR #x2401)
(define GL_OBJECT_PLANE #x2501)
(define GL_EYE_LINEAR #x2400)
(define GL_EYE_PLANE #x2502)
(define GL_SPHERE_MAP #x2402)
(define GL_DECAL #x2101)
(define GL_MODULATE #x2100)
(define GL_NEAREST #x2600)
(define GL_REPEAT #x2901)
(define GL_CLAMP #x2900)
(define GL_S #x2000)
(define GL_T #x2001)
(define GL_R #x2002)
(define GL_Q #x2003)
(define GL_TEXTURE_GEN_R #x0C62)
(define GL_TEXTURE_GEN_Q #x0C63)
;;;; Utility
(define GL_VENDOR #x1F00)
(define GL_RENDERER #x1F01)
(define GL_VERSION #x1F02)
(define GL_EXTENSIONS #x1F03)
;;;; Errors
(define GL_NO_ERROR #x0)
(define GL_INVALID_ENUM #x0500)
(define GL_INVALID_VALUE #x0501)
(define GL_INVALID_OPERATION #x0502)
(define GL_STACK_OVERFLOW #x0503)
(define GL_STACK_UNDERFLOW #x0504)
(define GL_OUT_OF_MEMORY #x0505)
;;;; glPush/PopAttrib bits
(define GL_CURRENT_BIT #x00000001)
(define GL_POINT_BIT #x00000002)
(define GL_LINE_BIT #x00000004)
(define GL_POLYGON_BIT #x00000008)
(define GL_POLYGON_STIPPLE_BIT #x00000010)
(define GL_PIXEL_MODE_BIT #x00000020)
(define GL_LIGHTING_BIT #x00000040)
(define GL_FOG_BIT #x00000080)
(define GL_DEPTH_BUFFER_BIT #x00000100)
(define GL_ACCUM_BUFFER_BIT #x00000200)
(define GL_STENCIL_BUFFER_BIT #x00000400)
(define GL_VIEWPORT_BIT #x00000800)
(define GL_TRANSFORM_BIT #x00001000)
(define GL_ENABLE_BIT #x00002000)
(define GL_COLOR_BUFFER_BIT #x00004000)
(define GL_HINT_BIT #x00008000)
(define GL_EVAL_BIT #x00010000)
(define GL_LIST_BIT #x00020000)
(define GL_TEXTURE_BIT #x00040000)
(define GL_SCISSOR_BIT #x00080000)
(define GL_ALL_ATTRIB_BITS #x000FFFFF)
;;;; OpenGL 1.1
(define GL_PROXY_TEXTURE_1D #x8063)
(define GL_PROXY_TEXTURE_2D #x8064)
(define GL_TEXTURE_PRIORITY #x8066)
(define GL_TEXTURE_RESIDENT #x8067)
(define GL_TEXTURE_BINDING_1D #x8068)
(define GL_TEXTURE_BINDING_2D #x8069)
(define GL_TEXTURE_INTERNAL_FORMAT #x1003)
(define GL_ALPHA4 #x803B)
(define GL_ALPHA8 #x803C)
(define GL_ALPHA12 #x803D)
(define GL_ALPHA16 #x803E)
(define GL_LUMINANCE4 #x803F)
(define GL_LUMINANCE8 #x8040)
(define GL_LUMINANCE12 #x8041)
(define GL_LUMINANCE16 #x8042)
(define GL_LUMINANCE4_ALPHA4 #x8043)
(define GL_LUMINANCE6_ALPHA2 #x8044)
(define GL_LUMINANCE8_ALPHA8 #x8045)
(define GL_LUMINANCE12_ALPHA4 #x8046)
(define GL_LUMINANCE12_ALPHA12 #x8047)
(define GL_LUMINANCE16_ALPHA16 #x8048)
(define GL_INTENSITY #x8049)
(define GL_INTENSITY4 #x804A)
(define GL_INTENSITY8 #x804B)
(define GL_INTENSITY12 #x804C)
(define GL_INTENSITY16 #x804D)
(define GL_R3_G3_B2 #x2A10)
(define GL_RGB4 #x804F)
(define GL_RGB5 #x8050)
(define GL_RGB8 #x8051)
(define GL_RGB10 #x8052)
(define GL_RGB12 #x8053)
(define GL_RGB16 #x8054)
(define GL_RGBA2 #x8055)
(define GL_RGBA4 #x8056)
(define GL_RGB5_A1 #x8057)
(define GL_RGBA8 #x8058)
(define GL_RGB10_A2 #x8059)
(define GL_RGBA12 #x805A)
(define GL_RGBA16 #x805B)
(define GL_CLIENT_PIXEL_STORE_BIT #x00000001)
(define GL_CLIENT_VERTEX_ARRAY_BIT #x00000002)
(define GL_ALL_CLIENT_ATTRIB_BITS #xFFFFFFFF)
(define GL_CLIENT_ALL_ATTRIB_BITS #xFFFFFFFF)
;;;; OpenGL 1.2
(define GL_RESCALE_NORMAL #x803A)
(define GL_CLAMP_TO_EDGE #x812F)
(define GL_MAX_ELEMENTS_VERTICES #x80E8)
(define GL_MAX_ELEMENTS_INDICES #x80E9)
(define GL_BGR #x80E0)
(define GL_BGRA #x80E1)
(define GL_UNSIGNED_BYTE_3_3_2 #x8032)
(define GL_UNSIGNED_BYTE_2_3_3_REV #x8362)
(define GL_UNSIGNED_SHORT_5_6_5 #x8363)
(define GL_UNSIGNED_SHORT_5_6_5_REV #x8364)
(define GL_UNSIGNED_SHORT_4_4_4_4 #x8033)
(define GL_UNSIGNED_SHORT_4_4_4_4_REV #x8365)
(define GL_UNSIGNED_SHORT_5_5_5_1 #x8034)
(define GL_UNSIGNED_SHORT_1_5_5_5_REV #x8366)
(define GL_UNSIGNED_INT_8_8_8_8 #x8035)
(define GL_UNSIGNED_INT_8_8_8_8_REV #x8367)
(define GL_UNSIGNED_INT_10_10_10_2 #x8036)
(define GL_UNSIGNED_INT_2_10_10_10_REV #x8368)
(define GL_LIGHT_MODEL_COLOR_CONTROL #x81F8)
(define GL_SINGLE_COLOR #x81F9)
(define GL_SEPARATE_SPECULAR_COLOR #x81FA)
(define GL_TEXTURE_MIN_LOD #x813A)
(define GL_TEXTURE_MAX_LOD #x813B)
(define GL_TEXTURE_BASE_LEVEL #x813C)
(define GL_TEXTURE_MAX_LEVEL #x813D)
(define GL_SMOOTH_POINT_SIZE_RANGE #x0B12)
(define GL_SMOOTH_POINT_SIZE_GRANULARITY #x0B13)
(define GL_SMOOTH_LINE_WIDTH_RANGE #x0B22)
(define GL_SMOOTH_LINE_WIDTH_GRANULARITY #x0B23)
(define GL_ALIASED_POINT_SIZE_RANGE #x846D)
(define GL_ALIASED_LINE_WIDTH_RANGE #x846E)
(define GL_PACK_SKIP_IMAGES #x806B)
(define GL_PACK_IMAGE_HEIGHT #x806C)
(define GL_UNPACK_SKIP_IMAGES #x806D)
(define GL_UNPACK_IMAGE_HEIGHT #x806E)
(define GL_TEXTURE_3D #x806F)
(define GL_PROXY_TEXTURE_3D #x8070)
(define GL_TEXTURE_DEPTH #x8071)
(define GL_TEXTURE_WRAP_R #x8072)
(define GL_MAX_3D_TEXTURE_SIZE #x8073)
(define GL_TEXTURE_BINDING_3D #x806A)
;;;; GL_ARB_imaging
(define GL_CONSTANT_COLOR #x8001)
(define GL_ONE_MINUS_CONSTANT_COLOR #x8002)
(define GL_CONSTANT_ALPHA #x8003)
(define GL_ONE_MINUS_CONSTANT_ALPHA #x8004)
(define GL_COLOR_TABLE #x80D0)
(define GL_POST_CONVOLUTION_COLOR_TABLE #x80D1)
(define GL_POST_COLOR_MATRIX_COLOR_TABLE #x80D2)
(define GL_PROXY_COLOR_TABLE #x80D3)
(define GL_PROXY_POST_CONVOLUTION_COLOR_TABLE #x80D4)
(define GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE #x80D5)
(define GL_COLOR_TABLE_SCALE #x80D6)
(define GL_COLOR_TABLE_BIAS #x80D7)
(define GL_COLOR_TABLE_FORMAT #x80D8)
(define GL_COLOR_TABLE_WIDTH #x80D9)
(define GL_COLOR_TABLE_RED_SIZE #x80DA)
(define GL_COLOR_TABLE_GREEN_SIZE #x80DB)
(define GL_COLOR_TABLE_BLUE_SIZE #x80DC)
(define GL_COLOR_TABLE_ALPHA_SIZE #x80DD)
(define GL_COLOR_TABLE_LUMINANCE_SIZE #x80DE)
(define GL_COLOR_TABLE_INTENSITY_SIZE #x80DF)
(define GL_CONVOLUTION_1D #x8010)
(define GL_CONVOLUTION_2D #x8011)
(define GL_SEPARABLE_2D #x8012)
(define GL_CONVOLUTION_BORDER_MODE #x8013)
(define GL_CONVOLUTION_FILTER_SCALE #x8014)
(define GL_CONVOLUTION_FILTER_BIAS #x8015)
(define GL_REDUCE #x8016)
(define GL_CONVOLUTION_FORMAT #x8017)
(define GL_CONVOLUTION_WIDTH #x8018)
(define GL_CONVOLUTION_HEIGHT #x8019)
(define GL_MAX_CONVOLUTION_WIDTH #x801A)
(define GL_MAX_CONVOLUTION_HEIGHT #x801B)
(define GL_POST_CONVOLUTION_RED_SCALE #x801C)
(define GL_POST_CONVOLUTION_GREEN_SCALE #x801D)
(define GL_POST_CONVOLUTION_BLUE_SCALE #x801E)
(define GL_POST_CONVOLUTION_ALPHA_SCALE #x801F)
(define GL_POST_CONVOLUTION_RED_BIAS #x8020)
(define GL_POST_CONVOLUTION_GREEN_BIAS #x8021)
(define GL_POST_CONVOLUTION_BLUE_BIAS #x8022)
(define GL_POST_CONVOLUTION_ALPHA_BIAS #x8023)
(define GL_CONSTANT_BORDER #x8151)
(define GL_REPLICATE_BORDER #x8153)
(define GL_CONVOLUTION_BORDER_COLOR #x8154)
(define GL_COLOR_MATRIX #x80B1)
(define GL_COLOR_MATRIX_STACK_DEPTH #x80B2)
(define GL_MAX_COLOR_MATRIX_STACK_DEPTH #x80B3)
(define GL_POST_COLOR_MATRIX_RED_SCALE #x80B4)
(define GL_POST_COLOR_MATRIX_GREEN_SCALE #x80B5)
(define GL_POST_COLOR_MATRIX_BLUE_SCALE #x80B6)
(define GL_POST_COLOR_MATRIX_ALPHA_SCALE #x80B7)
(define GL_POST_COLOR_MATRIX_RED_BIAS #x80B8)
(define GL_POST_COLOR_MATRIX_GREEN_BIAS #x80B9)
(define GL_POST_COLOR_MATRIX_BLUE_BIAS #x80BA)
(define GL_POST_COLOR_MATRIX_ALPHA_BIAS #x80BB)
(define GL_HISTOGRAM #x8024)
(define GL_PROXY_HISTOGRAM #x8025)
(define GL_HISTOGRAM_WIDTH #x8026)
(define GL_HISTOGRAM_FORMAT #x8027)
(define GL_HISTOGRAM_RED_SIZE #x8028)
(define GL_HISTOGRAM_GREEN_SIZE #x8029)
(define GL_HISTOGRAM_BLUE_SIZE #x802A)
(define GL_HISTOGRAM_ALPHA_SIZE #x802B)
(define GL_HISTOGRAM_LUMINANCE_SIZE #x802C)
(define GL_HISTOGRAM_SINK #x802D)
(define GL_MINMAX #x802E)
(define GL_MINMAX_FORMAT #x802F)
(define GL_MINMAX_SINK #x8030)
(define GL_TABLE_TOO_LARGE #x8031)
(define GL_BLEND_EQUATION #x8009)
(define GL_MIN #x8007)
(define GL_MAX #x8008)
(define GL_FUNC_ADD #x8006)
(define GL_FUNC_SUBTRACT #x800A)
(define GL_FUNC_REVERSE_SUBTRACT #x800B)
(define GL_BLEND_COLOR #x8005)
;;;; OpenGL 1.3
;;;; multitexture
(define GL_TEXTURE0 #x84C0)
(define GL_TEXTURE1 #x84C1)
(define GL_TEXTURE2 #x84C2)
(define GL_TEXTURE3 #x84C3)
(define GL_TEXTURE4 #x84C4)
(define GL_TEXTURE5 #x84C5)
(define GL_TEXTURE6 #x84C6)
(define GL_TEXTURE7 #x84C7)
(define GL_TEXTURE8 #x84C8)
(define GL_TEXTURE9 #x84C9)
(define GL_TEXTURE10 #x84CA)
(define GL_TEXTURE11 #x84CB)
(define GL_TEXTURE12 #x84CC)
(define GL_TEXTURE13 #x84CD)
(define GL_TEXTURE14 #x84CE)
(define GL_TEXTURE15 #x84CF)
(define GL_TEXTURE16 #x84D0)
(define GL_TEXTURE17 #x84D1)
(define GL_TEXTURE18 #x84D2)
(define GL_TEXTURE19 #x84D3)
(define GL_TEXTURE20 #x84D4)
(define GL_TEXTURE21 #x84D5)
(define GL_TEXTURE22 #x84D6)
(define GL_TEXTURE23 #x84D7)
(define GL_TEXTURE24 #x84D8)
(define GL_TEXTURE25 #x84D9)
(define GL_TEXTURE26 #x84DA)
(define GL_TEXTURE27 #x84DB)
(define GL_TEXTURE28 #x84DC)
(define GL_TEXTURE29 #x84DD)
(define GL_TEXTURE30 #x84DE)
(define GL_TEXTURE31 #x84DF)
(define GL_ACTIVE_TEXTURE #x84E0)
(define GL_CLIENT_ACTIVE_TEXTURE #x84E1)
(define GL_MAX_TEXTURE_UNITS #x84E2)
;;;; texture_cube_map
(define GL_NORMAL_MAP #x8511)
(define GL_REFLECTION_MAP #x8512)
(define GL_TEXTURE_CUBE_MAP #x8513)
(define GL_TEXTURE_BINDING_CUBE_MAP #x8514)
(define GL_TEXTURE_CUBE_MAP_POSITIVE_X #x8515)
(define GL_TEXTURE_CUBE_MAP_NEGATIVE_X #x8516)
(define GL_TEXTURE_CUBE_MAP_POSITIVE_Y #x8517)
(define GL_TEXTURE_CUBE_MAP_NEGATIVE_Y #x8518)
(define GL_TEXTURE_CUBE_MAP_POSITIVE_Z #x8519)
(define GL_TEXTURE_CUBE_MAP_NEGATIVE_Z #x851A)
(define GL_PROXY_TEXTURE_CUBE_MAP #x851B)
(define GL_MAX_CUBE_MAP_TEXTURE_SIZE #x851C)
;;;; texture_compression
(define GL_COMPRESSED_ALPHA #x84E9)
(define GL_COMPRESSED_LUMINANCE #x84EA)
(define GL_COMPRESSED_LUMINANCE_ALPHA #x84EB)
(define GL_COMPRESSED_INTENSITY #x84EC)
(define GL_COMPRESSED_RGB #x84ED)
(define GL_COMPRESSED_RGBA #x84EE)
(define GL_TEXTURE_COMPRESSION_HINT #x84EF)
(define GL_TEXTURE_COMPRESSED_IMAGE_SIZE #x86A0)
(define GL_TEXTURE_COMPRESSED #x86A1)
(define GL_NUM_COMPRESSED_TEXTURE_FORMATS #x86A2)
(define GL_COMPRESSED_TEXTURE_FORMATS #x86A3)
;;;; multisample
(define GL_MULTISAMPLE #x809D)
(define GL_SAMPLE_ALPHA_TO_COVERAGE #x809E)
(define GL_SAMPLE_ALPHA_TO_ONE #x809F)
(define GL_SAMPLE_COVERAGE #x80A0)
(define GL_SAMPLE_BUFFERS #x80A8)
(define GL_SAMPLES #x80A9)
(define GL_SAMPLE_COVERAGE_VALUE #x80AA)
(define GL_SAMPLE_COVERAGE_INVERT #x80AB)
(define GL_MULTISAMPLE_BIT #x20000000)
;;;; transpose_matrix
(define GL_TRANSPOSE_MODELVIEW_MATRIX #x84E3)
(define GL_TRANSPOSE_PROJECTION_MATRIX #x84E4)
(define GL_TRANSPOSE_TEXTURE_MATRIX #x84E5)
(define GL_TRANSPOSE_COLOR_MATRIX #x84E6)
;;;; texture_env_combine
(define GL_COMBINE #x8570)
(define GL_COMBINE_RGB #x8571)
(define GL_COMBINE_ALPHA #x8572)
(define GL_SOURCE0_RGB #x8580)
(define GL_SOURCE1_RGB #x8581)
(define GL_SOURCE2_RGB #x8582)
(define GL_SOURCE0_ALPHA #x8588)
(define GL_SOURCE1_ALPHA #x8589)
(define GL_SOURCE2_ALPHA #x858A)
(define GL_OPERAND0_RGB #x8590)
(define GL_OPERAND1_RGB #x8591)
(define GL_OPERAND2_RGB #x8592)
(define GL_OPERAND0_ALPHA #x8598)
(define GL_OPERAND1_ALPHA #x8599)
(define GL_OPERAND2_ALPHA #x859A)
(define GL_RGB_SCALE #x8573)
(define GL_ADD_SIGNED #x8574)
(define GL_INTERPOLATE #x8575)
(define GL_SUBTRACT #x84E7)
(define GL_CONSTANT #x8576)
(define GL_PRIMARY_COLOR #x8577)
(define GL_PREVIOUS #x8578)
;;;; texture_env_dot3
(define GL_DOT3_RGB #x86AE)
(define GL_DOT3_RGBA #x86AF)
;;;; texture_border_clamp
(define GL_CLAMP_TO_BORDER #x812D)
;;;; GL_ARB_multitexture: ARB extension 1 and OpenGL 1.2.1
(define GL_TEXTURE0_ARB #x84C0)
(define GL_TEXTURE1_ARB #x84C1)
(define GL_TEXTURE2_ARB #x84C2)
(define GL_TEXTURE3_ARB #x84C3)
(define GL_TEXTURE4_ARB #x84C4)
(define GL_TEXTURE5_ARB #x84C5)
(define GL_TEXTURE6_ARB #x84C6)
(define GL_TEXTURE7_ARB #x84C7)
(define GL_TEXTURE8_ARB #x84C8)
(define GL_TEXTURE9_ARB #x84C9)
(define GL_TEXTURE10_ARB #x84CA)
(define GL_TEXTURE11_ARB #x84CB)
(define GL_TEXTURE12_ARB #x84CC)
(define GL_TEXTURE13_ARB #x84CD)
(define GL_TEXTURE14_ARB #x84CE)
(define GL_TEXTURE15_ARB #x84CF)
(define GL_TEXTURE16_ARB #x84D0)
(define GL_TEXTURE17_ARB #x84D1)
(define GL_TEXTURE18_ARB #x84D2)
(define GL_TEXTURE19_ARB #x84D3)
(define GL_TEXTURE20_ARB #x84D4)
(define GL_TEXTURE21_ARB #x84D5)
(define GL_TEXTURE22_ARB #x84D6)
(define GL_TEXTURE23_ARB #x84D7)
(define GL_TEXTURE24_ARB #x84D8)
(define GL_TEXTURE25_ARB #x84D9)
(define GL_TEXTURE26_ARB #x84DA)
(define GL_TEXTURE27_ARB #x84DB)
(define GL_TEXTURE28_ARB #x84DC)
(define GL_TEXTURE29_ARB #x84DD)
(define GL_TEXTURE30_ARB #x84DE)
(define GL_TEXTURE31_ARB #x84DF)
(define GL_ACTIVE_TEXTURE_ARB #x84E0)
(define GL_CLIENT_ACTIVE_TEXTURE_ARB #x84E1)
(define GL_MAX_TEXTURE_UNITS_ARB #x84E2)
(define-syntax define-function
(syntax-rules ()
((_ ret name args)
(define name (foreign-procedure (symbol->string 'name) 'args 'ret)))))
;; void glClearIndex( GLfloat c )
(define-function void glClearIndex (float))
;; void glClearColor( GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha )
(define-function void glClearColor (float float float float))
;; void glClear( GLbitfield mask )
(define-function void glClear (int))
;; void glIndexMask( GLuint mask )
(define-function void glIndexMask (int))
;; void glColorMask( GLboolean red, GLboolean green, GLboolean blue, GLboolean alpha )
(define-function void glColorMask (int int int int))
;; void glAlphaFunc( GLenum func, GLclampf ref )
(define-function void glAlphaFunc (int float))
;; void glBlendFunc( GLenum sfactor, GLenum dfactor )
(define-function void glBlendFunc (int int))
;; void glLogicOp( GLenum opcode )
(define-function void glLogicOp (int))
;; void glCullFace( GLenum mode )
(define-function void glCullFace (int))
;; void glFrontFace( GLenum mode )
(define-function void glFrontFace (int))
;; void glPointSize( GLfloat size )
(define-function void glPointSize (float))
;; void glLineWidth( GLfloat width )
(define-function void glLineWidth (float))
;; void glLineStipple( GLint factor, GLushort pattern )
(define-function void glLineStipple (int int))
;; void glPolygonMode( GLenum face, GLenum mode )
(define-function void glPolygonMode (int int))
;; void glPolygonOffset( GLfloat factor, GLfloat units )
(define-function void glPolygonOffset (float float))
;; void glPolygonStipple( const GLubyte *mask )
(define-function void glPolygonStipple (boxed))
;; void glGetPolygonStipple( GLubyte *mask )
(define-function void glGetPolygonStipple (boxed))
;; void glEdgeFlag( GLboolean flag )
(define-function void glEdgeFlag (int))
;; void glEdgeFlagv( const GLboolean *flag )
(define-function void glEdgeFlagv (boxed))
;; void glScissor( GLint x, GLint y, GLsizei width, GLsizei height)
(define-function void glScissor (int int int int))
;; void glClipPlane( GLenum plane, const GLdouble *equation )
(define-function void glClipPlane (int boxed))
;; void glGetClipPlane( GLenum plane, GLdouble *equation )
(define-function void glGetClipPlane (int boxed))
;; void glDrawBuffer( GLenum mode )
(define-function void glDrawBuffer (int))
;; void glReadBuffer( GLenum mode )
(define-function void glReadBuffer (int))
;; void glEnable( GLenum cap )
(define-function void glEnable (int))
;; void glDisable( GLenum cap )
(define-function void glDisable (int))
;; GLboolean glIsEnabled( GLenum cap )
(define-function int glIsEnabled (int))
;; void glEnableClientState( GLenum cap ) /* 1.1 */
(define-function void glEnableClientState (int))
;; void glDisableClientState( GLenum cap ) /* 1.1 */
(define-function void glDisableClientState (int))
;; void glGetBooleanv( GLenum pname, GLboolean *params )
(define-function void glGetBooleanv (int boxed))
;; void glGetDoublev( GLenum pname, GLdouble *params )
(define-function void glGetDoublev (int boxed))
;; void glGetFloatv( GLenum pname, GLfloat *params )
(define-function void glGetFloatv (int boxed))
;; void glGetIntegerv( GLenum pname, GLint *params )
(define-function void glGetIntegerv (int boxed))
;; void glPushAttrib( GLbitfield mask )
(define-function void glPushAttrib (int))
;; void glPopAttrib( void )
(define-function void glPopAttrib ())
;; void glPushClientAttrib( GLbitfield mask ) /* 1.1 */
(define-function void glPushClientAttrib (int))
;; void glPopClientAttrib( void ) /* 1.1 */
(define-function void glPopClientAttrib ())
;; GLint glRenderMode( GLenum mode )
(define-function int glRenderMode (int))
;; GLenum glGetError( void )
(define-function int glGetError ())
;; const GLubyte * glGetString( GLenum name )
(define-function void* glGetString (int))
;; void glFinish( void )
(define-function void glFinish ())
;; void glFlush( void )
(define-function void glFlush ())
;; void glHint( GLenum target, GLenum mode )
(define-function void glHint (int int))
;;;; Depth Buffer
;; void glClearDepth( GLclampd depth )
(define-function void glClearDepth (double))
;; void glDepthFunc( GLenum func )
(define-function void glDepthFunc (int))
;; void glDepthMask( GLboolean flag )
(define-function void glDepthMask (int))
;; void glDepthRange( GLclampd near_val, GLclampd far_val )
(define-function void glDepthRange (double double))
;;;; Accumulation Buffer
;; void glClearAccum( GLfloat red, GLfloat green, GLfloat blue, GLfloat alpha )
(define-function void glClearAccum (float float float float))
;; void glAccum( GLenum op, GLfloat value )
(define-function void glAccum (int float))
;;;; Transformation
;; void glMatrixMode( GLenum mode )
(define-function void glMatrixMode (int))
;; void glOrtho( GLdouble left, GLdouble right, GLdouble bottom, GLdouble top, GLdouble near_val, GLdouble far_val )
(define-function void glOrtho (double double double double double double))
;; void glFrustum( GLdouble left, GLdouble right, GLdouble bottom, GLdouble top, GLdouble near_val, GLdouble far_val )
(define-function void glFrustum (double double double double double double))
;; void glViewport( GLint x, GLint y, GLsizei width, GLsizei height )
(define-function void glViewport (int int int int))
;; void glPushMatrix( void )
(define-function void glPushMatrix ())
;; void glPopMatrix( void )
(define-function void glPopMatrix ())
;; void glLoadIdentity( void )
(define-function void glLoadIdentity ())
;; void glLoadMatrixd( const GLdouble *m )
(define-function void glLoadMatrixd (boxed))
;; void glLoadMatrixf( const GLfloat *m )
(define-function void glLoadMatrixf (boxed))
;; void glMultMatrixd( const GLdouble *m )
(define-function void glMultMatrixd (boxed))
;; void glMultMatrixf( const GLfloat *m )
(define-function void glMultMatrixf (boxed))
;; void glRotated( GLdouble angle, GLdouble x, GLdouble y, GLdouble z )
(define-function void glRotated (double double double double))
;; void glRotatef( GLfloat angle, GLfloat x, GLfloat y, GLfloat z )
(define-function void glRotatef (float float float float))
;; void glScaled( GLdouble x, GLdouble y, GLdouble z )
(define-function void glScaled (double double double))
;; void glScalef( GLfloat x, GLfloat y, GLfloat z )
(define-function void glScalef (float float float))
;; void glTranslated( GLdouble x, GLdouble y, GLdouble z )
(define-function void glTranslated (double double double))
;; void glTranslatef( GLfloat x, GLfloat y, GLfloat z )
(define-function void glTranslatef (float float float))
;;;; Display Lists
;; GLboolean glIsList( GLuint list )
(define-function int glIsList (int))
;; void glDeleteLists( GLuint list, GLsizei range )
(define-function void glDeleteLists (int int))
;; GLuint glGenLists( GLsizei range )
(define-function int glGenLists (int))
;; void glNewList( GLuint list, GLenum mode )
(define-function void glNewList (int int))
;; void glEndList( void )
(define-function void glEndList ())
;; void glCallList( GLuint list )
(define-function void glCallList (int))
;; void glCallLists( GLsizei n, GLenum type, const GLvoid *lists )
(define-function void glCallLists (int int boxed))
;; void glListBase( GLuint base )
(define-function void glListBase (int))
;;;; Drawing Functions
;; void glBegin( GLenum mode )
(define-function void glBegin (int))
;; void glEnd( void )
(define-function void glEnd ())
;; void glVertex2d( GLdouble x, GLdouble y )
(define-function void glVertex2d (double double))
;; void glVertex2f( GLfloat x, GLfloat y )
(define-function void glVertex2f (float float))
;; void glVertex2i( GLint x, GLint y )
(define-function void glVertex2i (int int))
;; void glVertex2s( GLshort x, GLshort y )
(define-function void glVertex2s (int int))
;; void glVertex3d( GLdouble x, GLdouble y, GLdouble z )
(define-function void glVertex3d (double double double))
;; void glVertex3f( GLfloat x, GLfloat y, GLfloat z )
(define-function void glVertex3f (float float float))
;; void glVertex3i( GLint x, GLint y, GLint z )
(define-function void glVertex3i (int int int))
;; void glVertex3s( GLshort x, GLshort y, GLshort z )
(define-function void glVertex3s (int int int))
;; void glVertex4d( GLdouble x, GLdouble y, GLdouble z, GLdouble w )
(define-function void glVertex4d (double double double double))
;; void glVertex4f( GLfloat x, GLfloat y, GLfloat z, GLfloat w )
(define-function void glVertex4f (float float float float))
;; void glVertex4i( GLint x, GLint y, GLint z, GLint w )
(define-function void glVertex4i (int int int int))
;; void glVertex4s( GLshort x, GLshort y, GLshort z, GLshort w )
(define-function void glVertex4s (int int int int))
;; void glVertex2dv( const GLdouble *v )
(define-function void glVertex2dv (boxed))
;; void glVertex2fv( const GLfloat *v )
(define-function void glVertex2fv (boxed))
;; void glVertex2iv( const GLint *v )
(define-function void glVertex2iv (boxed))
;; void glVertex2sv( const GLshort *v )
(define-function void glVertex2sv (boxed))
;; void glVertex3dv( const GLdouble *v )
(define-function void glVertex3dv (boxed))
;; void glVertex3fv( const GLfloat *v )
(define-function void glVertex3fv (boxed))
;; void glVertex3iv( const GLint *v )
(define-function void glVertex3iv (boxed))
;; void glVertex3sv( const GLshort *v )
(define-function void glVertex3sv (boxed))
;; void glVertex4dv( const GLdouble *v )
(define-function void glVertex4dv (boxed))
;; void glVertex4fv( const GLfloat *v )
(define-function void glVertex4fv (boxed))
;; void glVertex4iv( const GLint *v )
(define-function void glVertex4iv (boxed))
;; void glVertex4sv( const GLshort *v )
(define-function void glVertex4sv (boxed))
;; void glNormal3b( GLbyte nx, GLbyte ny, GLbyte nz )
(define-function void glNormal3b (int int int))
;; void glNormal3d( GLdouble nx, GLdouble ny, GLdouble nz )
(define-function void glNormal3d (double double double))
;; void glNormal3f( GLfloat nx, GLfloat ny, GLfloat nz )
(define-function void glNormal3f (float float float))
;; void glNormal3i( GLint nx, GLint ny, GLint nz )
(define-function void glNormal3i (int int int))
;; void glNormal3s( GLshort nx, GLshort ny, GLshort nz )
(define-function void glNormal3s (int int int))
;; void glNormal3bv( const GLbyte *v )
(define-function void glNormal3bv (boxed))
;; void glNormal3dv( const GLdouble *v )
(define-function void glNormal3dv (boxed))
;; void glNormal3fv( const GLfloat *v )
(define-function void glNormal3fv (boxed))
;; void glNormal3iv( const GLint *v )
(define-function void glNormal3iv (boxed))
;; void glNormal3sv( const GLshort *v )
(define-function void glNormal3sv (boxed))
;; void glIndexd( GLdouble c )
(define-function void glIndexd (double))
;; void glIndexf( GLfloat c )
(define-function void glIndexf (float))
;; void glIndexi( GLint c )
(define-function void glIndexi (int))
;; void glIndexs( GLshort c )
(define-function void glIndexs (int))
;; void glIndexub( GLubyte c ) /* 1.1 */
(define-function void glIndexub (int))
;; void glIndexdv( const GLdouble *c )
(define-function void glIndexdv (boxed))
;; void glIndexfv( const GLfloat *c )
(define-function void glIndexfv (boxed))
;; void glIndexiv( const GLint *c )
(define-function void glIndexiv (boxed))
;; void glIndexsv( const GLshort *c )
(define-function void glIndexsv (boxed))
;; void glIndexubv( const GLubyte *c ) /* 1.1 */
(define-function void glIndexubv (boxed))
;; void glColor3b( GLbyte red, GLbyte green, GLbyte blue )
(define-function void glColor3b (int int int))
;; void glColor3d( GLdouble red, GLdouble green, GLdouble blue )
(define-function void glColor3d (double double double))
;; void glColor3f( GLfloat red, GLfloat green, GLfloat blue )
(define-function void glColor3f (float float float))
;; void glColor3i( GLint red, GLint green, GLint blue )
(define-function void glColor3i (int int int))
;; void glColor3s( GLshort red, GLshort green, GLshort blue )
(define-function void glColor3s (int int int))
;; void glColor3ub( GLubyte red, GLubyte green, GLubyte blue )
(define-function void glColor3ub (int int int))
;; void glColor3ui( GLuint red, GLuint green, GLuint blue )
(define-function void glColor3ui (int int int))
;; void glColor3us( GLushort red, GLushort green, GLushort blue )
(define-function void glColor3us (int int int))
;; void glColor4b( GLbyte red, GLbyte green, GLbyte blue, GLbyte alpha )
(define-function void glColor4b (int int int int))
;; void glColor4d( GLdouble red, GLdouble green, GLdouble blue, GLdouble alpha )
(define-function void glColor4d (double double double double))
;; void glColor4f( GLfloat red, GLfloat green, GLfloat blue, GLfloat alpha )
(define-function void glColor4f (float float float float))
;; void glColor4i( GLint red, GLint green, GLint blue, GLint alpha )
(define-function void glColor4i (int int int int))
;; void glColor4s( GLshort red, GLshort green, GLshort blue, GLshort alpha )
(define-function void glColor4s (int int int int))
;; void glColor4ub( GLubyte red, GLubyte green, GLubyte blue, GLubyte alpha )
(define-function void glColor4ub (int int int int))
;; void glColor4ui( GLuint red, GLuint green, GLuint blue, GLuint alpha )
(define-function void glColor4ui (int int int int))
;; void glColor4us( GLushort red, GLushort green, GLushort blue, GLushort alpha )
(define-function void glColor4us (int int int int))
;; void glColor3bv( const GLbyte *v )
(define-function void glColor3bv (boxed))
;; void glColor3dv( const GLdouble *v )
(define-function void glColor3dv (boxed))
;; void glColor3fv( const GLfloat *v )
(define-function void glColor3fv (boxed))
;; void glColor3iv( const GLint *v )
(define-function void glColor3iv (boxed))
;; void glColor3sv( const GLshort *v )
(define-function void glColor3sv (boxed))
;; void glColor3ubv( const GLubyte *v )
(define-function void glColor3ubv (boxed))
;; void glColor3uiv( const GLuint *v )
(define-function void glColor3uiv (boxed))
;; void glColor3usv( const GLushort *v )
(define-function void glColor3usv (boxed))
;; void glColor4bv( const GLbyte *v )
(define-function void glColor4bv (boxed))
;; void glColor4dv( const GLdouble *v )
(define-function void glColor4dv (boxed))
;; void glColor4fv( const GLfloat *v )
(define-function void glColor4fv (boxed))
;; void glColor4iv( const GLint *v )
(define-function void glColor4iv (boxed))
;; void glColor4sv( const GLshort *v )
(define-function void glColor4sv (boxed))
;; void glColor4ubv( const GLubyte *v )
(define-function void glColor4ubv (boxed))
;; void glColor4uiv( const GLuint *v )
(define-function void glColor4uiv (boxed))
;; void glColor4usv( const GLushort *v )
(define-function void glColor4usv (boxed))
;; void glTexCoord1d( GLdouble s )
(define-function void glTexCoord1d (double))
;; void glTexCoord1f( GLfloat s )
(define-function void glTexCoord1f (float))
;; void glTexCoord1i( GLint s )
(define-function void glTexCoord1i (int))
;; void glTexCoord1s( GLshort s )
(define-function void glTexCoord1s (int))
;; void glTexCoord2d( GLdouble s, GLdouble t )
(define-function void glTexCoord2d (double double))
;; void glTexCoord2f( GLfloat s, GLfloat t )
(define-function void glTexCoord2f (float float))
;; void glTexCoord2i( GLint s, GLint t )
(define-function void glTexCoord2i (int int))
;; void glTexCoord2s( GLshort s, GLshort t )
(define-function void glTexCoord2s (int int))
;; void glTexCoord3d( GLdouble s, GLdouble t, GLdouble r )
(define-function void glTexCoord3d (double double double))
;; void glTexCoord3f( GLfloat s, GLfloat t, GLfloat r )
(define-function void glTexCoord3f (float float float))
;; void glTexCoord3i( GLint s, GLint t, GLint r )
(define-function void glTexCoord3i (int int int))
;; void glTexCoord3s( GLshort s, GLshort t, GLshort r )
(define-function void glTexCoord3s (int int int))
;; void glTexCoord4d( GLdouble s, GLdouble t, GLdouble r, GLdouble q )
(define-function void glTexCoord4d (double double double double))
;; void glTexCoord4f( GLfloat s, GLfloat t, GLfloat r, GLfloat q )
(define-function void glTexCoord4f (float float float float))
;; void glTexCoord4i( GLint s, GLint t, GLint r, GLint q )
(define-function void glTexCoord4i (int int int int))
;; void glTexCoord4s( GLshort s, GLshort t, GLshort r, GLshort q )
(define-function void glTexCoord4s (int int int int))
;; void glTexCoord1dv( const GLdouble *v )
(define-function void glTexCoord1dv (boxed))
;; void glTexCoord1fv( const GLfloat *v )
(define-function void glTexCoord1fv (boxed))
;; void glTexCoord1iv( const GLint *v )
(define-function void glTexCoord1iv (boxed))
;; void glTexCoord1sv( const GLshort *v )
(define-function void glTexCoord1sv (boxed))
;; void glTexCoord2dv( const GLdouble *v )
(define-function void glTexCoord2dv (boxed))
;; void glTexCoord2fv( const GLfloat *v )
(define-function void glTexCoord2fv (boxed))
;; void glTexCoord2iv( const GLint *v )
(define-function void glTexCoord2iv (boxed))
;; void glTexCoord2sv( const GLshort *v )
(define-function void glTexCoord2sv (boxed))
;; void glTexCoord3dv( const GLdouble *v )
(define-function void glTexCoord3dv (boxed))
;; void glTexCoord3fv( const GLfloat *v )
(define-function void glTexCoord3fv (boxed))
;; void glTexCoord3iv( const GLint *v )
(define-function void glTexCoord3iv (boxed))
;; void glTexCoord3sv( const GLshort *v )
(define-function void glTexCoord3sv (boxed))
;; void glTexCoord4dv( const GLdouble *v )
(define-function void glTexCoord4dv (boxed))
;; void glTexCoord4fv( const GLfloat *v )
(define-function void glTexCoord4fv (boxed))
;; void glTexCoord4iv( const GLint *v )
(define-function void glTexCoord4iv (boxed))
;; void glTexCoord4sv( const GLshort *v )
(define-function void glTexCoord4sv (boxed))
;; void glRasterPos2d( GLdouble x, GLdouble y )
(define-function void glRasterPos2d (double double))
;; void glRasterPos2f( GLfloat x, GLfloat y )
(define-function void glRasterPos2f (float float))
;; void glRasterPos2i( GLint x, GLint y )
(define-function void glRasterPos2i (int int))
;; void glRasterPos2s( GLshort x, GLshort y )
(define-function void glRasterPos2s (int int))
;; void glRasterPos3d( GLdouble x, GLdouble y, GLdouble z )
(define-function void glRasterPos3d (double double double))
;; void glRasterPos3f( GLfloat x, GLfloat y, GLfloat z )
(define-function void glRasterPos3f (float float float))
;; void glRasterPos3i( GLint x, GLint y, GLint z )
(define-function void glRasterPos3i (int int int))
;; void glRasterPos3s( GLshort x, GLshort y, GLshort z )
(define-function void glRasterPos3s (int int int))
;; void glRasterPos4d( GLdouble x, GLdouble y, GLdouble z, GLdouble w )
(define-function void glRasterPos4d (double double double double))
;; void glRasterPos4f( GLfloat x, GLfloat y, GLfloat z, GLfloat w )
(define-function void glRasterPos4f (float float float float))
;; void glRasterPos4i( GLint x, GLint y, GLint z, GLint w )
(define-function void glRasterPos4i (int int int int))
;; void glRasterPos4s( GLshort x, GLshort y, GLshort z, GLshort w )
(define-function void glRasterPos4s (int int int int))
;; void glRasterPos2dv( const GLdouble *v )
(define-function void glRasterPos2dv (boxed))
;; void glRasterPos2fv( const GLfloat *v )
(define-function void glRasterPos2fv (boxed))
;; void glRasterPos2iv( const GLint *v )
(define-function void glRasterPos2iv (boxed))
;; void glRasterPos2sv( const GLshort *v )
(define-function void glRasterPos2sv (boxed))
;; void glRasterPos3dv( const GLdouble *v )
(define-function void glRasterPos3dv (boxed))
;; void glRasterPos3fv( const GLfloat *v )
(define-function void glRasterPos3fv (boxed))
;; void glRasterPos3iv( const GLint *v )
(define-function void glRasterPos3iv (boxed))
;; void glRasterPos3sv( const GLshort *v )
(define-function void glRasterPos3sv (boxed))
;; void glRasterPos4dv( const GLdouble *v )
(define-function void glRasterPos4dv (boxed))
;; void glRasterPos4fv( const GLfloat *v )
(define-function void glRasterPos4fv (boxed))
;; void glRasterPos4iv( const GLint *v )
(define-function void glRasterPos4iv (boxed))
;; void glRasterPos4sv( const GLshort *v )
(define-function void glRasterPos4sv (boxed))
;; void glRectd( GLdouble x1, GLdouble y1, GLdouble x2, GLdouble y2 )
(define-function void glRectd (double double double double))
;; void glRectf( GLfloat x1, GLfloat y1, GLfloat x2, GLfloat y2 )
(define-function void glRectf (float float float float))
;; void glRecti( GLint x1, GLint y1, GLint x2, GLint y2 )
(define-function void glRecti (int int int int))
;; void glRects( GLshort x1, GLshort y1, GLshort x2, GLshort y2 )
(define-function void glRects (int int int int))
;; void glRectdv( const GLdouble *v1, const GLdouble *v2 )
(define-function void glRectdv (boxed boxed))
;; void glRectfv( const GLfloat *v1, const GLfloat *v2 )
(define-function void glRectfv (boxed boxed))
;; void glRectiv( const GLint *v1, const GLint *v2 )
(define-function void glRectiv (boxed boxed))
;; void glRectsv( const GLshort *v1, const GLshort *v2 )
(define-function void glRectsv (boxed boxed))
;;;; Vertex Arrays 1.1
;; void glVertexPointer( GLint size, GLenum type, GLsizei stride, const GLvoid *ptr )
(define-function void glVertexPointer (int int int boxed))
;; void glNormalPointer( GLenum type, GLsizei stride, const GLvoid *ptr )
(define-function void glNormalPointer (int int boxed))
;; void glColorPointer( GLint size, GLenum type, GLsizei stride, const GLvoid *ptr )
(define-function void glColorPointer (int int int boxed))
;; void glIndexPointer( GLenum type, GLsizei stride, const GLvoid *ptr )
(define-function void glIndexPointer (int int boxed))
;; void glTexCoordPointer( GLint size, GLenum type, GLsizei stride, const GLvoid *ptr )
(define-function void glTexCoordPointer (int int int boxed))
;; void glEdgeFlagPointer( GLsizei stride, const GLvoid *ptr )
(define-function void glEdgeFlagPointer (int boxed))
;; void glGetPointerv( GLenum pname, GLvoid **params )
(define-function void glGetPointerv (int boxed))
;; void glArrayElement( GLint i )
(define-function void glArrayElement (int))
;; void glDrawArrays( GLenum mode, GLint first, GLsizei count )
(define-function void glDrawArrays (int int int))
;; void glDrawElements( GLenum mode, GLsizei count, GLenum type, const GLvoid *indices )
(define-function void glDrawElements (int int int boxed))
;; void glInterleavedArrays( GLenum format, GLsizei stride, const GLvoid *pointer )
(define-function void glInterleavedArrays (int int boxed))
;;;; Lighting
;; void glShadeModel( GLenum mode )
(define-function void glShadeModel (int))
;; void glLightf( GLenum light, GLenum pname, GLfloat param )
(define-function void glLightf (int int float))
;; void glLighti( GLenum light, GLenum pname, GLint param )
(define-function void glLighti (int int int))
;; void glLightfv( GLenum light, GLenum pname, const GLfloat *params )
(define-function void glLightfv (int int boxed))
;; void glLightiv( GLenum light, GLenum pname, const GLint *params )
(define-function void glLightiv (int int boxed))
;; void glGetLightfv( GLenum light, GLenum pname, GLfloat *params )
(define-function void glGetLightfv (int int boxed))
;; void glGetLightiv( GLenum light, GLenum pname, GLint *params )
(define-function void glGetLightiv (int int boxed))
;; void glLightModelf( GLenum pname, GLfloat param )
(define-function void glLightModelf (int float))
;; void glLightModeli( GLenum pname, GLint param )
(define-function void glLightModeli (int int))
;; void glLightModelfv( GLenum pname, const GLfloat *params )
(define-function void glLightModelfv (int boxed))
;; void glLightModeliv( GLenum pname, const GLint *params )
(define-function void glLightModeliv (int boxed))
;; void glMaterialf( GLenum face, GLenum pname, GLfloat param )
(define-function void glMaterialf (int int float))
;; void glMateriali( GLenum face, GLenum pname, GLint param )
(define-function void glMateriali (int int int))
;; void glMaterialfv( GLenum face, GLenum pname, const GLfloat *params )
(define-function void glMaterialfv (int int boxed))
;; void glMaterialiv( GLenum face, GLenum pname, const GLint *params )
(define-function void glMaterialiv (int int boxed))
;; void glGetMaterialfv( GLenum face, GLenum pname, GLfloat *params )
(define-function void glGetMaterialfv (int int boxed))
;; void glGetMaterialiv( GLenum face, GLenum pname, GLint *params )
(define-function void glGetMaterialiv (int int boxed))
;; void glColorMaterial( GLenum face, GLenum mode )
(define-function void glColorMaterial (int int))
;;;; Raster functions
;; void glPixelZoom( GLfloat xfactor, GLfloat yfactor )
(define-function void glPixelZoom (float float))
;; void glPixelStoref( GLenum pname, GLfloat param )
(define-function void glPixelStoref (int float))
;; void glPixelStorei( GLenum pname, GLint param )
(define-function void glPixelStorei (int int))
;; void glPixelTransferf( GLenum pname, GLfloat param )
(define-function void glPixelTransferf (int float))
;; void glPixelTransferi( GLenum pname, GLint param )
(define-function void glPixelTransferi (int int))
;; void glPixelMapfv( GLenum map, GLsizei mapsize, const GLfloat *values )
(define-function void glPixelMapfv (int int boxed))
;; void glPixelMapuiv( GLenum map, GLsizei mapsize, const GLuint *values )
(define-function void glPixelMapuiv (int int boxed))
;; void glPixelMapusv( GLenum map, GLsizei mapsize, const GLushort *values )
(define-function void glPixelMapusv (int int boxed))
;; void glGetPixelMapfv( GLenum map, GLfloat *values )
(define-function void glGetPixelMapfv (int boxed))
;; void glGetPixelMapuiv( GLenum map, GLuint *values )
(define-function void glGetPixelMapuiv (int boxed))
;; void glGetPixelMapusv( GLenum map, GLushort *values )
(define-function void glGetPixelMapusv (int boxed))
;; void glBitmap( GLsizei width, GLsizei height, GLfloat xorig, GLfloat yorig, GLfloat xmove, GLfloat ymove, const GLubyte *bitmap )
(define-function void glBitmap (int int float float float float boxed))
;; void glReadPixels( GLint x, GLint y, GLsizei width, GLsizei height, GLenum format, GLenum type, GLvoid *pixels )
(define-function void glReadPixels (int int int int int int boxed))
;; void glDrawPixels( GLsizei width, GLsizei height, GLenum format, GLenum type, const GLvoid *pixels )
(define-function void glDrawPixels (int int int int boxed))
;; void glCopyPixels( GLint x, GLint y, GLsizei width, GLsizei height, GLenum type )
(define-function void glCopyPixels (int int int int int))
;;;; Stenciling
;; void glStencilFunc( GLenum func, GLint ref, GLuint mask )
(define-function void glStencilFunc (int int int))
;; void glStencilMask( GLuint mask )
(define-function void glStencilMask (int))
;; void glStencilOp( GLenum fail, GLenum zfail, GLenum zpass )
(define-function void glStencilOp (int int int))
;; void glClearStencil( GLint s )
(define-function void glClearStencil (int))
;;;; Texture mapping
;; void glTexGend( GLenum coord, GLenum pname, GLdouble param )
(define-function void glTexGend (int int double))
;; void glTexGenf( GLenum coord, GLenum pname, GLfloat param )
(define-function void glTexGenf (int int float))
;; void glTexGeni( GLenum coord, GLenum pname, GLint param )
(define-function void glTexGeni (int int int))
;; void glTexGendv( GLenum coord, GLenum pname, const GLdouble *params )
(define-function void glTexGendv (int int boxed))
;; void glTexGenfv( GLenum coord, GLenum pname, const GLfloat *params )
(define-function void glTexGenfv (int int boxed))
;; void glTexGeniv( GLenum coord, GLenum pname, const GLint *params )
(define-function void glTexGeniv (int int boxed))
;; void glGetTexGendv( GLenum coord, GLenum pname, GLdouble *params )
(define-function void glGetTexGendv (int int boxed))
;; void glGetTexGenfv( GLenum coord, GLenum pname, GLfloat *params )
(define-function void glGetTexGenfv (int int boxed))
;; void glGetTexGeniv( GLenum coord, GLenum pname, GLint *params )
(define-function void glGetTexGeniv (int int boxed))
;; void glTexEnvf( GLenum target, GLenum pname, GLfloat param )
(define-function void glTexEnvf (int int float))
;; void glTexEnvi( GLenum target, GLenum pname, GLint param )
(define-function void glTexEnvi (int int int))
;; void glTexEnvfv( GLenum target, GLenum pname, const GLfloat *params )
(define-function void glTexEnvfv (int int boxed))
;; void glTexEnviv( GLenum target, GLenum pname, const GLint *params )
(define-function void glTexEnviv (int int boxed))
;; void glGetTexEnvfv( GLenum target, GLenum pname, GLfloat *params )
(define-function void glGetTexEnvfv (int int boxed))
;; void glGetTexEnviv( GLenum target, GLenum pname, GLint *params )
(define-function void glGetTexEnviv (int int boxed))
;; void glTexParameterf( GLenum target, GLenum pname, GLfloat param )
(define-function void glTexParameterf (int int float))
;; void glTexParameteri( GLenum target, GLenum pname, GLint param )
(define-function void glTexParameteri (int int int))
;; void glTexParameterfv( GLenum target, GLenum pname, const GLfloat *params )
(define-function void glTexParameterfv (int int boxed))
;; void glTexParameteriv( GLenum target, GLenum pname, const GLint *params )
(define-function void glTexParameteriv (int int boxed))
;; void glGetTexParameterfv( GLenum target, GLenum pname, GLfloat *params)
(define-function void glGetTexParameterfv (int int boxed))
;; void glGetTexParameteriv( GLenum target, GLenum pname, GLint *params )
(define-function void glGetTexParameteriv (int int boxed))
;; void glGetTexLevelParameterfv( GLenum target, GLint level, GLenum pname, GLfloat *params )
(define-function void glGetTexLevelParameterfv (int int int boxed))
;; void glGetTexLevelParameteriv( GLenum target, GLint level, GLenum pname, GLint *params )
(define-function void glGetTexLevelParameteriv (int int int boxed))
;; void glTexImage1D( GLenum target, GLint level, GLint internalFormat, GLsizei width, GLint border, GLenum format, GLenum type, const GLvoid *pixels )
(define-function void glTexImage1D (int int int int int int int boxed))
;; void glTexImage2D( GLenum target, GLint level, GLint internalFormat, GLsizei width, GLsizei height, GLint border, GLenum format, GLenum type, const GLvoid *pixels )
(define-function void glTexImage2D (int int int int int int int int boxed))
;; void glGetTexImage( GLenum target, GLint level, GLenum format, GLenum type, GLvoid *pixels )
(define-function void glGetTexImage (int int int int boxed))
;;;; 1.1 functions
;; void glGenTextures( GLsizei n, GLuint *textures )
(define-function void glGenTextures (int boxed))
;; void glDeleteTextures( GLsizei n, const GLuint *textures)
(define-function void glDeleteTextures (int boxed))
;; void glBindTexture( GLenum target, GLuint texture )
(define-function void glBindTexture (int int))
;; void glPrioritizeTextures( GLsizei n, const GLuint *textures, const GLclampf *priorities )
(define-function void glPrioritizeTextures (int boxed boxed))
;; GLboolean glAreTexturesResident( GLsizei n, const GLuint *textures, GLboolean *residences )
(define-function int glAreTexturesResident (int boxed boxed))
;; GLboolean glIsTexture( GLuint texture )
(define-function int glIsTexture (int))
;; void glTexSubImage1D( GLenum target, GLint level, GLint xoffset, GLsizei width, GLenum format, GLenum type, const GLvoid *pixels )
(define-function void glTexSubImage1D (int int int int int int boxed))
;; void glTexSubImage2D( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLsizei width, GLsizei height, GLenum format, GLenum type, const GLvoid *pixels )
(define-function void glTexSubImage2D (int int int int int int int int boxed))
;; void glCopyTexImage1D( GLenum target, GLint level, GLenum internalformat, GLint x, GLint y, GLsizei width, GLint border )
(define-function void glCopyTexImage1D (int int int int int int int))
;; void glCopyTexImage2D( GLenum target, GLint level, GLenum internalformat, GLint x, GLint y, GLsizei width, GLsizei height, GLint border )
(define-function void glCopyTexImage2D (int int int int int int int int))
;; void glCopyTexSubImage1D( GLenum target, GLint level, GLint xoffset, GLint x, GLint y, GLsizei width )
(define-function void glCopyTexSubImage1D (int int int int int int))
;; void glCopyTexSubImage2D( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint x, GLint y, GLsizei width, GLsizei height )
(define-function void glCopyTexSubImage2D (int int int int int int int int))
;;;; Evaluators
;; void glMap1d( GLenum target, GLdouble u1, GLdouble u2, GLint stride, GLint order, const GLdouble *points )
(define-function void glMap1d (int double double int int boxed))
;; void glMap1f( GLenum target, GLfloat u1, GLfloat u2, GLint stride, GLint order, const GLfloat *points )
(define-function void glMap1f (int float float int int boxed))
;; void glMap2d( GLenum target, GLdouble u1, GLdouble u2, GLint ustride, GLint uorder, GLdouble v1, GLdouble v2, GLint vstride, GLint vorder, const GLdouble *points )
(define-function void glMap2d (int double double int int double double int int boxed))
;; void glMap2f( GLenum target, GLfloat u1, GLfloat u2, GLint ustride, GLint uorder, GLfloat v1, GLfloat v2, GLint vstride, GLint vorder, const GLfloat *points )
(define-function void glMap2f (int float float int int float float int int boxed))
;; void glGetMapdv( GLenum target, GLenum query, GLdouble *v )
(define-function void glGetMapdv (int int boxed))
;; void glGetMapfv( GLenum target, GLenum query, GLfloat *v )
(define-function void glGetMapfv (int int boxed))
;; void glGetMapiv( GLenum target, GLenum query, GLint *v )
(define-function void glGetMapiv (int int boxed))
;; void glEvalCoord1d( GLdouble u )
(define-function void glEvalCoord1d (double))
;; void glEvalCoord1f( GLfloat u )
(define-function void glEvalCoord1f (float))
;; void glEvalCoord1dv( const GLdouble *u )
(define-function void glEvalCoord1dv (boxed))
;; void glEvalCoord1fv( const GLfloat *u )
(define-function void glEvalCoord1fv (boxed))
;; void glEvalCoord2d( GLdouble u, GLdouble v )
(define-function void glEvalCoord2d (double double))
;; void glEvalCoord2f( GLfloat u, GLfloat v )
(define-function void glEvalCoord2f (float float))
;; void glEvalCoord2dv( const GLdouble *u )
(define-function void glEvalCoord2dv (boxed))
;; void glEvalCoord2fv( const GLfloat *u )
(define-function void glEvalCoord2fv (boxed))
;; void glMapGrid1d( GLint un, GLdouble u1, GLdouble u2 )
(define-function void glMapGrid1d (int double double))
;; void glMapGrid1f( GLint un, GLfloat u1, GLfloat u2 )
(define-function void glMapGrid1f (int float float))
;; void glMapGrid2d( GLint un, GLdouble u1, GLdouble u2, GLint vn, GLdouble v1, GLdouble v2 )
(define-function void glMapGrid2d (int double double int double double))
;; void glMapGrid2f( GLint un, GLfloat u1, GLfloat u2, GLint vn, GLfloat v1, GLfloat v2 )
(define-function void glMapGrid2f (int float float int float float))
;; void glEvalPoint1( GLint i )
(define-function void glEvalPoint1 (int))
;; void glEvalPoint2( GLint i, GLint j )
(define-function void glEvalPoint2 (int int))
;; void glEvalMesh1( GLenum mode, GLint i1, GLint i2 )
(define-function void glEvalMesh1 (int int int))
;; void glEvalMesh2( GLenum mode, GLint i1, GLint i2, GLint j1, GLint j2 )
(define-function void glEvalMesh2 (int int int int int))
;;;; Fog
;; void glFogf( GLenum pname, GLfloat param )
(define-function void glFogf (int float))
;; void glFogi( GLenum pname, GLint param )
(define-function void glFogi (int int))
;; void glFogfv( GLenum pname, const GLfloat *params )
(define-function void glFogfv (int boxed))
;; void glFogiv( GLenum pname, const GLint *params )
(define-function void glFogiv (int boxed))
;;;; Selection and Feedback
;; void glFeedbackBuffer( GLsizei size, GLenum type, GLfloat *buffer )
(define-function void glFeedbackBuffer (int int boxed))
;; void glPassThrough( GLfloat token )
(define-function void glPassThrough (float))
;; void glSelectBuffer( GLsizei size, GLuint *buffer )
(define-function void glSelectBuffer (int boxed))
;; void glInitNames( void )
(define-function void glInitNames ())
;; void glLoadName( GLuint name )
(define-function void glLoadName (int))
;; void glPushName( GLuint name )
(define-function void glPushName (int))
;; void glPopName( void )
(define-function void glPopName ())
;;;; OpenGL 1.2
;; void glDrawRangeElements( GLenum mode, GLuint start, GLuint end, GLsizei count, GLenum type, const GLvoid *indices )
(define-function void glDrawRangeElements (int int int int int boxed))
;; void glTexImage3D( GLenum target, GLint level, GLint internalFormat, GLsizei width, GLsizei height, GLsizei depth, GLint border, GLenum format, GLenum type, const GLvoid *pixels )
(define-function void glTexImage3D (int int int int int int int int int boxed))
;; void glTexSubImage3D( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLenum type, const GLvoid *pixels)
(define-function void glTexSubImage3D (int int int int int int int int int int boxed))
;; void glCopyTexSubImage3D( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLint x, GLint y, GLsizei width, GLsizei height )
(define-function void glCopyTexSubImage3D (int int int int int int int int int))
;;;; GL_ARB_imaging
;; void glColorTable( GLenum target, GLenum internalformat, GLsizei width, GLenum format, GLenum type, const GLvoid *table )
(define-function void glColorTable (int int int int int boxed))
;; void glColorSubTable( GLenum target, GLsizei start, GLsizei count, GLenum format, GLenum type, const GLvoid *data )
(define-function void glColorSubTable (int int int int int boxed))
;; void glColorTableParameteriv(GLenum target, GLenum pname, const GLint *params)
(define-function void glColorTableParameteriv (int int boxed))
;; void glColorTableParameterfv(GLenum target, GLenum pname, const GLfloat *params)
(define-function void glColorTableParameterfv (int int boxed))
;; void glCopyColorSubTable( GLenum target, GLsizei start, GLint x, GLint y, GLsizei width )
(define-function void glCopyColorSubTable (int int int int int))
;; void glCopyColorTable( GLenum target, GLenum internalformat, GLint x, GLint y, GLsizei width )
(define-function void glCopyColorTable (int int int int int))
;; void glGetColorTable( GLenum target, GLenum format, GLenum type, GLvoid *table )
(define-function void glGetColorTable (int int int boxed))
;; void glGetColorTableParameterfv( GLenum target, GLenum pname, GLfloat *params )
(define-function void glGetColorTableParameterfv (int int boxed))
;; void glGetColorTableParameteriv( GLenum target, GLenum pname, GLint *params )
(define-function void glGetColorTableParameteriv (int int boxed))
;; void glBlendEquation( GLenum mode )
(define-function void glBlendEquation (int))
;; void glBlendColor( GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha )
(define-function void glBlendColor (float float float float))
;; void glHistogram( GLenum target, GLsizei width, GLenum internalformat, GLboolean sink )
(define-function void glHistogram (int int int int))
;; void glResetHistogram( GLenum target )
(define-function void glResetHistogram (int))
;; void glGetHistogram( GLenum target, GLboolean reset, GLenum format, GLenum type, GLvoid *values )
(define-function void glGetHistogram (int int int int boxed))
;; void glGetHistogramParameterfv( GLenum target, GLenum pname, GLfloat *params )
(define-function void glGetHistogramParameterfv (int int boxed))
;; void glGetHistogramParameteriv( GLenum target, GLenum pname, GLint *params )
(define-function void glGetHistogramParameteriv (int int boxed))
;; void glMinmax( GLenum target, GLenum internalformat, GLboolean sink )
(define-function void glMinmax (int int int))
;; void glResetMinmax( GLenum target )
(define-function void glResetMinmax (int))
;; void glGetMinmax( GLenum target, GLboolean reset, GLenum format, GLenum types, GLvoid *values )
(define-function void glGetMinmax (int int int int boxed))
;; void glGetMinmaxParameterfv( GLenum target, GLenum pname, GLfloat *params )
(define-function void glGetMinmaxParameterfv (int int boxed))
;; void glGetMinmaxParameteriv( GLenum target, GLenum pname, GLint *params )
(define-function void glGetMinmaxParameteriv (int int boxed))
;; void glConvolutionFilter1D( GLenum target, GLenum internalformat, GLsizei width, GLenum format, GLenum type, const GLvoid *image )
(define-function void glConvolutionFilter1D (int int int int int boxed))
;; void glConvolutionFilter2D( GLenum target, GLenum internalformat, GLsizei width, GLsizei height, GLenum format, GLenum type, const GLvoid *image )
(define-function void glConvolutionFilter2D (int int int int int int boxed))
;; void glConvolutionParameterf( GLenum target, GLenum pname, GLfloat params )
(define-function void glConvolutionParameterf (int int float))
;; void glConvolutionParameterfv( GLenum target, GLenum pname, const GLfloat *params )
(define-function void glConvolutionParameterfv (int int boxed))
;; void glConvolutionParameteri( GLenum target, GLenum pname, GLint params )
(define-function void glConvolutionParameteri (int int int))
;; void glConvolutionParameteriv( GLenum target, GLenum pname, const GLint *params )
(define-function void glConvolutionParameteriv (int int boxed))
;; void glCopyConvolutionFilter1D( GLenum target, GLenum internalformat, GLint x, GLint y, GLsizei width )
(define-function void glCopyConvolutionFilter1D (int int int int int))
;; void glCopyConvolutionFilter2D( GLenum target, GLenum internalformat, GLint x, GLint y, GLsizei width, GLsizei height)
(define-function void glCopyConvolutionFilter2D (int int int int int int))
;; void glGetConvolutionFilter( GLenum target, GLenum format, GLenum type, GLvoid *image )
(define-function void glGetConvolutionFilter (int int int boxed))
;; void glGetConvolutionParameterfv( GLenum target, GLenum pname, GLfloat *params )
(define-function void glGetConvolutionParameterfv (int int boxed))
;; void glGetConvolutionParameteriv( GLenum target, GLenum pname, GLint *params )
(define-function void glGetConvolutionParameteriv (int int boxed))
;; void glSeparableFilter2D( GLenum target, GLenum internalformat, GLsizei width, GLsizei height, GLenum format, GLenum type, const GLvoid *row, const GLvoid *column )
(define-function void glSeparableFilter2D (int int int int int int boxed boxed))
;; void glGetSeparableFilter( GLenum target, GLenum format, GLenum type, GLvoid *row, GLvoid *column, GLvoid *span )
(define-function void glGetSeparableFilter (int int int boxed boxed boxed))
;; void glActiveTexture( GLenum texture )
(define-function void glActiveTexture (int))
;; void glClientActiveTexture( GLenum texture )
(define-function void glClientActiveTexture (int))
;; void glCompressedTexImage1D( GLenum target, GLint level, GLenum internalformat, GLsizei width, GLint border, GLsizei imageSize, const GLvoid *data )
(define-function void glCompressedTexImage1D (int int int int int int boxed))
;; void glCompressedTexImage2D( GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLint border, GLsizei imageSize, const GLvoid *data )
(define-function void glCompressedTexImage2D (int int int int int int int boxed))
;; void glCompressedTexImage3D( GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLsizei depth, GLint border, GLsizei imageSize, const GLvoid *data )
(define-function void glCompressedTexImage3D (int int int int int int int int boxed))
;; void glCompressedTexSubImage1D( GLenum target, GLint level, GLint xoffset, GLsizei width, GLenum format, GLsizei imageSize, const GLvoid *data )
(define-function void glCompressedTexSubImage1D (int int int int int int boxed))
;; void glCompressedTexSubImage2D( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLsizei width, GLsizei height, GLenum format, GLsizei imageSize, const GLvoid *data )
(define-function void glCompressedTexSubImage2D (int int int int int int int int boxed))
;; void glCompressedTexSubImage3D( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLsizei imageSize, const GLvoid *data )
(define-function void glCompressedTexSubImage3D (int int int int int int int int int int boxed))
;; void glGetCompressedTexImage( GLenum target, GLint lod, GLvoid *img )
(define-function void glGetCompressedTexImage (int int boxed))
;; void glMultiTexCoord1d( GLenum target, GLdouble s )
(define-function void glMultiTexCoord1d (int double))
;; void glMultiTexCoord1dv( GLenum target, const GLdouble *v )
(define-function void glMultiTexCoord1dv (int boxed))
;; void glMultiTexCoord1f( GLenum target, GLfloat s )
(define-function void glMultiTexCoord1f (int float))
;; void glMultiTexCoord1fv( GLenum target, const GLfloat *v )
(define-function void glMultiTexCoord1fv (int boxed))
;; void glMultiTexCoord1i( GLenum target, GLint s )
(define-function void glMultiTexCoord1i (int int))
;; void glMultiTexCoord1iv( GLenum target, const GLint *v )
(define-function void glMultiTexCoord1iv (int boxed))
;; void glMultiTexCoord1s( GLenum target, GLshort s )
(define-function void glMultiTexCoord1s (int int))
;; void glMultiTexCoord1sv( GLenum target, const GLshort *v )
(define-function void glMultiTexCoord1sv (int boxed))
;; void glMultiTexCoord2d( GLenum target, GLdouble s, GLdouble t )
(define-function void glMultiTexCoord2d (int double double))
;; void glMultiTexCoord2dv( GLenum target, const GLdouble *v )
(define-function void glMultiTexCoord2dv (int boxed))
;; void glMultiTexCoord2f( GLenum target, GLfloat s, GLfloat t )
(define-function void glMultiTexCoord2f (int float float))
;; void glMultiTexCoord2fv( GLenum target, const GLfloat *v )
(define-function void glMultiTexCoord2fv (int boxed))
;; void glMultiTexCoord2i( GLenum target, GLint s, GLint t )
(define-function void glMultiTexCoord2i (int int int))
;; void glMultiTexCoord2iv( GLenum target, const GLint *v )
(define-function void glMultiTexCoord2iv (int boxed))
;; void glMultiTexCoord2s( GLenum target, GLshort s, GLshort t )
(define-function void glMultiTexCoord2s (int int int))
;; void glMultiTexCoord2sv( GLenum target, const GLshort *v )
(define-function void glMultiTexCoord2sv (int boxed))
;; void glMultiTexCoord3d( GLenum target, GLdouble s, GLdouble t, GLdouble r )
(define-function void glMultiTexCoord3d (int double double double))
;; void glMultiTexCoord3dv( GLenum target, const GLdouble *v )
(define-function void glMultiTexCoord3dv (int boxed))
;; void glMultiTexCoord3f( GLenum target, GLfloat s, GLfloat t, GLfloat r )
(define-function void glMultiTexCoord3f (int float float float))
;; void glMultiTexCoord3fv( GLenum target, const GLfloat *v )
(define-function void glMultiTexCoord3fv (int boxed))
;; void glMultiTexCoord3i( GLenum target, GLint s, GLint t, GLint r )
(define-function void glMultiTexCoord3i (int int int int))
;; void glMultiTexCoord3iv( GLenum target, const GLint *v )
(define-function void glMultiTexCoord3iv (int boxed))
;; void glMultiTexCoord3s( GLenum target, GLshort s, GLshort t, GLshort r )
(define-function void glMultiTexCoord3s (int int int int))
;; void glMultiTexCoord3sv( GLenum target, const GLshort *v )
(define-function void glMultiTexCoord3sv (int boxed))
;; void glMultiTexCoord4d( GLenum target, GLdouble s, GLdouble t, GLdouble r, GLdouble q )
(define-function void glMultiTexCoord4d (int double double double double))
;; void glMultiTexCoord4dv( GLenum target, const GLdouble *v )
(define-function void glMultiTexCoord4dv (int boxed))
;; void glMultiTexCoord4f( GLenum target, GLfloat s, GLfloat t, GLfloat r, GLfloat q )
(define-function void glMultiTexCoord4f (int float float float float))
;; void glMultiTexCoord4fv( GLenum target, const GLfloat *v )
(define-function void glMultiTexCoord4fv (int boxed))
;; void glMultiTexCoord4i( GLenum target, GLint s, GLint t, GLint r, GLint q )
(define-function void glMultiTexCoord4i (int int int int int))
;; void glMultiTexCoord4iv( GLenum target, const GLint *v )
(define-function void glMultiTexCoord4iv (int boxed))
;; void glMultiTexCoord4s( GLenum target, GLshort s, GLshort t, GLshort r, GLshort q )
(define-function void glMultiTexCoord4s (int int int int int))
;; void glMultiTexCoord4sv( GLenum target, const GLshort *v )
(define-function void glMultiTexCoord4sv (int boxed))
;; void glLoadTransposeMatrixd( const GLdouble *m ) /* void glLoadTransposeMatrixd( const GLdouble m[16] ) */
(define-function void glLoadTransposeMatrixd (boxed))
;; void glLoadTransposeMatrixf( const GLfloat *m ) /* void glLoadTransposeMatrixf( const GLfloat m[16] ) */
(define-function void glLoadTransposeMatrixf (boxed))
;; void glMultTransposeMatrixd( const GLdouble *m ) /* void glMultTransposeMatrixd( const GLdouble m[16] ) */
(define-function void glMultTransposeMatrixd (boxed))
;; void glMultTransposeMatrixf( const GLfloat *m ) /* void glMultTransposeMatrixf( const GLfloat m[16] ) */
(define-function void glMultTransposeMatrixf (boxed))
;; void glSampleCoverage( GLclampf value, GLboolean invert )
(define-function void glSampleCoverage (float int))
;;;; OpenGL 1.3
;; void glActiveTextureARB(GLenum texture)
(define-function void glActiveTextureARB (int))
;; void glClientActiveTextureARB(GLenum texture)
(define-function void glClientActiveTextureARB (int))
;; void glMultiTexCoord1dARB(GLenum target, GLdouble s)
(define-function void glMultiTexCoord1dARB (int double))
;; void glMultiTexCoord1dvARB(GLenum target, const GLdouble *v)
(define-function void glMultiTexCoord1dvARB (int boxed))
;; void glMultiTexCoord1fARB(GLenum target, GLfloat s)
(define-function void glMultiTexCoord1fARB (int float))
;; void glMultiTexCoord1fvARB(GLenum target, const GLfloat *v)
(define-function void glMultiTexCoord1fvARB (int boxed))
;; void glMultiTexCoord1iARB(GLenum target, GLint s)
(define-function void glMultiTexCoord1iARB (int int))
;; void glMultiTexCoord1ivARB(GLenum target, const GLint *v)
(define-function void glMultiTexCoord1ivARB (int boxed))
;; void glMultiTexCoord1sARB(GLenum target, GLshort s)
(define-function void glMultiTexCoord1sARB (int int))
;; void glMultiTexCoord1svARB(GLenum target, const GLshort *v)
(define-function void glMultiTexCoord1svARB (int boxed))
;; void glMultiTexCoord2dARB(GLenum target, GLdouble s, GLdouble t)
(define-function void glMultiTexCoord2dARB (int double double))
;; void glMultiTexCoord2dvARB(GLenum target, const GLdouble *v)
(define-function void glMultiTexCoord2dvARB (int boxed))
;; void glMultiTexCoord2fARB(GLenum target, GLfloat s, GLfloat t)
(define-function void glMultiTexCoord2fARB (int float float))
;; void glMultiTexCoord2fvARB(GLenum target, const GLfloat *v)
(define-function void glMultiTexCoord2fvARB (int boxed))
;; void glMultiTexCoord2iARB(GLenum target, GLint s, GLint t)
(define-function void glMultiTexCoord2iARB (int int int))
;; void glMultiTexCoord2ivARB(GLenum target, const GLint *v)
(define-function void glMultiTexCoord2ivARB (int boxed))
;; void glMultiTexCoord2sARB(GLenum target, GLshort s, GLshort t)
(define-function void glMultiTexCoord2sARB (int int int))
;; void glMultiTexCoord2svARB(GLenum target, const GLshort *v)
(define-function void glMultiTexCoord2svARB (int boxed))
;; void glMultiTexCoord3dARB(GLenum target, GLdouble s, GLdouble t, GLdouble r)
(define-function void glMultiTexCoord3dARB (int double double double))
;; void glMultiTexCoord3dvARB(GLenum target, const GLdouble *v)
(define-function void glMultiTexCoord3dvARB (int boxed))
;; void glMultiTexCoord3fARB(GLenum target, GLfloat s, GLfloat t, GLfloat r)
(define-function void glMultiTexCoord3fARB (int float float float))
;; void glMultiTexCoord3fvARB(GLenum target, const GLfloat *v)
(define-function void glMultiTexCoord3fvARB (int boxed))
;; void glMultiTexCoord3iARB(GLenum target, GLint s, GLint t, GLint r)
(define-function void glMultiTexCoord3iARB (int int int int))
;; void glMultiTexCoord3ivARB(GLenum target, const GLint *v)
(define-function void glMultiTexCoord3ivARB (int boxed))
;; void glMultiTexCoord3sARB(GLenum target, GLshort s, GLshort t, GLshort r)
(define-function void glMultiTexCoord3sARB (int int int int))
;; void glMultiTexCoord3svARB(GLenum target, const GLshort *v)
(define-function void glMultiTexCoord3svARB (int boxed))
;; void glMultiTexCoord4dARB(GLenum target, GLdouble s, GLdouble t, GLdouble r, GLdouble q)
(define-function void glMultiTexCoord4dARB (int double double double double))
;; void glMultiTexCoord4dvARB(GLenum target, const GLdouble *v)
(define-function void glMultiTexCoord4dvARB (int boxed))
;; void glMultiTexCoord4fARB(GLenum target, GLfloat s, GLfloat t, GLfloat r, GLfloat q)
(define-function void glMultiTexCoord4fARB (int float float float float))
;; void glMultiTexCoord4fvARB(GLenum target, const GLfloat *v)
(define-function void glMultiTexCoord4fvARB (int boxed))
;; void glMultiTexCoord4iARB(GLenum target, GLint s, GLint t, GLint r, GLint q)
(define-function void glMultiTexCoord4iARB (int int int int int))
;; void glMultiTexCoord4ivARB(GLenum target, const GLint *v)
(define-function void glMultiTexCoord4ivARB (int boxed))
;; void glMultiTexCoord4sARB(GLenum target, GLshort s, GLshort t, GLshort r, GLshort q)
(define-function void glMultiTexCoord4sARB (int int int int int))
;; void glMultiTexCoord4svARB(GLenum target, const GLshort *v)
(define-function void glMultiTexCoord4svARB (int boxed))
)