/ecl-12.2.1/src/clx/gl.lisp

Large files files are truncated, but you can click here to view the full file

(defpackage :gl
  (:use :common-lisp :xlib)
  (:import-from :glx
                "*CURRENT-CONTEXT*"
                "CONTEXT"
                "CONTEXT-P"
                "CONTEXT-DISPLAY"
                "CONTEXT-TAG"
                "CONTEXT-RBUF"
                "CONTEXT-INDEX"
                )
  (:import-from :xlib
                "DATA"
                "WITH-BUFFER-REQUEST"
                "WITH-BUFFER-REQUEST-AND-REPLY"
                "CARD32-GET"
                "SEQUENCE-GET"

                "WITH-DISPLAY"
                "DISPLAY-FORCE-OUTPUT"

                "INT8" "INT16" "INT32" "INTEGER"
                "CARD8" "CARD16" "CARD32"

                "ASET-CARD8"
                "ASET-CARD16"
                "ASET-CARD32"
                "ASET-INT8"
                "ASET-INT16"
                "ASET-INT32"

                "DECLARE-BUFFUN"

                ;; Types
                "ARRAY-INDEX"
                "BUFFER-BYTES"
                )

  (:export "GET-STRING"

           ;; Rendering commands (alphabetical order)

           "ACCUM"
           "ACTIVE-TEXTURE-ARB"
           "ALPHA-FUNC"
           "BEGIN"
           "BIND-TEXTURE"
           "BLEND-COLOR"
           "BLEND-EQUOTION"
           "BLEND-FUNC"
           "CALL-LIST"
           "CLEAR"
           "CLEAR-ACCUM"
           "CLEAR-COLOR"
           "CLEAR-DEPTH"
           "CLEAR-INDEX"
           "CLEAR-STENCIL"
           "CLIP-PLANE"
           "COLOR-3B"
           "COLOR-3D"
           "COLOR-3F"
           "COLOR-3I"
           "COLOR-3S"
           "COLOR-3UB"
           "COLOR-3UI"
           "COLOR-3US"
           "COLOR-4B"
           "COLOR-4D"
           "COLOR-4F"
           "COLOR-4I"
           "COLOR-4S"
           "COLOR-4UB"
           "COLOR-4UI"
           "COLOR-4US"
           "COLOR-MASK"
           "COLOR-MATERIAL"
           "CONVOLUTION-PARAMETER-F"
           "CONVOLUTION-PARAMETER-I"
           "COPY-COLOR-SUB-TABLE"
           "COPY-COLOR-TABLE"
           "COPY-CONVOLUTION-FILTER-ID"
           "COPY-CONVOLUTION-FILTER-2D"
           "COPY-PIXELS"
           "COPY-TEX-IMAGE-1D"
           "COPY-TEX-IMAGE-2D"
           "COPY-TEX-SUB-IMAGE-1D"
           "COPY-TEX-SUB-IMAGE-2D"
           "COPY-TEX-SUB-IMAGE-3D"
           "CULL-FACE"
           "DEPTH-FUNC"
           "DEPTH-MASK"
           "DEPTH-RANGE"
           "DRAW-BUFFER"
           "EDGE-FLAG-V"
           "END"
           "EVAL-COORD-1D"
           "EVAL-COORD-1F"
           "EVAL-COORD-2D"
           "EVAL-COORD-2F"
           "EVAL-MESH-1"
           "EVAL-MESH-2"
           "EVAL-POINT-1"
           "EVAL-POINT-2"
           "FOG-F"
           "FOG-I"
           "FRONT-FACE"
           "FRUSTUM"
           "HINT"
           "HISTOGRAM"
           "INDEX-MASK"
           "INDEX-D"
           "INDEX-F"
           "INDEX-I"
           "INDEX-S"
           "INDEX-UB"
           "INIT-NAMES"
           "LIGHT-MODEL-F"
           "LIGHT-MODEL-I"
           "LIGHT-F"
           "LIGHT-FV"
           "LIGHT-I"
           "LIGHT-IV"
           "LINE-STIPPLE"
           "LINE-WIDTH"
           "LIST-BASE"
           "LOAD-IDENTITY"
           "LOAD-NAME"
           "LOGIC-OP"
           "MAP-GRID-1D"
           "MAP-GRID-1F"
           "MAP-GRID-2D"
           "MAP-GRID-2F"
           "MATERIAL-F"
           "MATERIAL-FV"
           "MATERIAL-I"
           "MATERIAL-IV"
           "MATRIX-MODE"
           "MINMAX"
           "MULTI-TEX-COORD-1D-ARB"
           "MULTI-TEX-COORD-1F-ARB"
           "MULTI-TEX-COORD-1I-ARB"
           "MULTI-TEX-COORD-1S-ARB"
           "MULTI-TEX-COORD-2D-ARB"
           "MULTI-TEX-COORD-2F-ARB"
           "MULTI-TEX-COORD-2I-ARB"
           "MULTI-TEX-COORD-2S-ARB"
           "MULTI-TEX-COORD-3D-ARB"
           "MULTI-TEX-COORD-3F-ARB"
           "MULTI-TEX-COORD-3I-ARB"
           "MULTI-TEX-COORD-3S-ARB"
           "MULTI-TEX-COORD-4D-ARB"
           "MULTI-TEX-COORD-4F-ARB"
           "MULTI-TEX-COORD-4I-ARB"
           "MULTI-TEX-COORD-4S-ARB"
           "NORMAL-3B"
           "NORMAL-3D"
           "NORMAL-3F"
           "NORMAL-3I"
           "NORMAL-3S"
           "ORTHO"
           "PASS-THROUGH"
           "PIXEL-TRANSFER-F"
           "PIXEL-TRANSFER-I"
           "PIXEL-ZOOM"
           "POINT-SIZE"
           "POLYGON-MODE"
           "POLYGON-OFFSET"
           "POP-ATTRIB"
           "POP-MATRIX"
           "POP-NAME"
           "PUSH-ATTRIB"
           "PUSH-MATRIX"
           "PUSH-NAME"
           "RASTER-POS-2D"
           "RASTER-POS-2F"
           "RASTER-POS-2I"
           "RASTER-POS-2S"
           "RASTER-POS-3D"
           "RASTER-POS-3F"
           "RASTER-POS-3I"
           "RASTER-POS-3S"
           "RASTER-POS-4D"
           "RASTER-POS-4F"
           "RASTER-POS-4I"
           "RASTER-POS-4S"
           "READ-BUFFER"
           "RECT-D"
           "RECT-F"
           "RECT-I"
           "RECT-S"
           "RESET-HISTOGRAM"
           "RESET-MINMAX"
           "ROTATE-D"
           "ROTATE-F"
           "SCALE-D"
           "SCALE-F"
           "SCISSOR"
           "SHADE-MODEL"
           "STENCIL-FUNC"
           "STENCIL-MASK"
           "STENCIL-OP"
           "TEX-ENV-F"
           "TEX-ENV-I"
           "TEX-GEN-D"
           "TEX-GEN-F"
           "TEX-GEN-I"
           "TEX-PARAMETER-F"
           "TEX-PARAMETER-I"
           "TRANSLATE-D"
           "TRANSLATE-F"
           "VERTEX-2D"
           "VERTEX-2F"
           "VERTEX-2I"
           "VERTEX-2S"
           "VERTEX-3D"
           "VERTEX-3F"
           "VERTEX-3I"
           "VERTEX-3S"
           "VERTEX-4D"
           "VERTEX-4F"
           "VERTEX-4I"
           "VERTEX-4S"
           "VIEWPORT"

           ;; * Where did this come from?
           ;;"NO-FLOATS"

           ;; Non-rendering commands
           "NEW-LIST"
           "END-LIST"
           "GEN-LISTS"
           "ENABLE"
           "DISABLE"
           "FLUSH"
           "FINISH"

           ;; Constants

           ;; Boolean

           "+FALSE+"
           "+TRUE+"

           ;; Types

           "+BYTE+"
           "+UNSIGNED-BYTE+"
           "+SHORT+"
           "+UNSIGNED-SHORT+"
           "+INT+"
           "+UNSIGNED-INT+"
           "+FLOAT+"
           "+DOUBLE+"
           "+2-BYTES+"
           "+3-BYTES+"
           "+4-BYTES+"

           ;; Primitives

           "+POINTS+"
           "+LINES+"
           "+LINE-LOOP+"
           "+LINE-STRIP+"
           "+TRIANGLES+"
           "+TRIANGLE-STRIP+"
           "+triangle-fan+"
           "+QUADS+"
           "+QUAD-STRIP+"
           "+POLYGON+"

           ;; Arrays

           "+VERTEX-ARRAY+"
           "+NORMAL-ARRAY+"
           "+COLOR-ARRAY+"
           "+INDEX-ARRAY+"
           "+TEXTURE-COORD-ARRAY+"
           "+EDGE-FLAG-ARRAY+"
           "+VERTEX-ARRAY-SIZE+"
           "+VERTEX-ARRAY-TYPE+"
           "+VERTEX-ARRAY-STRIDE+"
           "+NORMAL-ARRAY-TYPE+"
           "+NORMAL-ARRAY-STRIDE+"
           "+COLOR-ARRAY-SIZE+"
           "+COLOR-ARRAY-TYPE+"
           "+COLOR-ARRAY-STRIDE+"
           "+INDEX-ARRAY-TYPE+"
           "+INDEX-ARRAY-STRIDE+"
           "+TEXTURE-COORD-ARRAY-SIZE+"
           "+TEXTURE-COORD-ARRAY-TYPE+"
           "+TEXTURE-COORD-ARRAY-STRIDE+"
           "+EDGE-FLAG-ARRAY-STRIDE+"
           "+VERTEX-ARRAY-POINTER+"
           "+NORMAL-ARRAY-POINTER+"
           "+COLOR-ARRAY-POINTER+"
           "+INDEX-ARRAY-POINTER+"
           "+TEXTURE-COORD-ARRAY-POINTER+"
           "+EDGE-FLAG-ARRAY-POINTER+"

           ;; Array formats

           "+V2F+"
           "+V3F+"
           "+C4UB-V2F+"
           "+C4UB-V3F+"
           "+C3F-V3F+"
           "+N3F-V3F+"
           "+C4F-N3F-V3F+"
           "+T2F-V3F+"
           "+T4F-V4F+"
           "+T2F-C4UB-V3F+"
           "+T2F-C3F-V3F+"
           "+T2F-N3F-V3F+"
           "+T2F-C4F-N3F-V3F+"
           "+T4F-C4F-N3F-V4F+"

           ;; Matrices

           "+MATRIX-MODE+"
           "+MODELVIEW+"
           "+PROJECTION+"
           "+TEXTURE+"

           ;; Points

           "+POINT-SMOOTH+"
           "+POINT-SIZE+"
           "+POINT-SIZE-GRANULARITY+"
           "+POINT-SIZE-RANGE+"

           ;; Lines

           "+LINE-SMOOTH+"
           "+LINE-STIPPLE+"
           "+LINE-STIPPLE-PATTERN+"
           "+LINE-STIPPLE-REPEAT+"
           "+LINE-WIDTH+"
           "+LINE-WIDTH-GRANULARITY+"
           "+LINE-WIDTH-RANGE+"

           ;; Polygons

           "+POINT+"
           "+LINE+"
           "+FILL+"
           "+CW+"
           "+CCW+"
           "+FRONT+"
           "+BACK+"
           "+POLYGON-MODE+"
           "+POLYGON-SMOOTH+"
           "+POLYGON-STIPPLE+"
           "+EDGE-FLAG+"
           "+CULL-FACE+"
           "+CULL-FACE-MODE+"
           "+FRONT-FACE+"
           "+POLYGON-OFFSET-FACTOR+"
           "+POLYGON-OFFSET-UNITS+"
           "+POLYGON-OFFSET-POINT+"
           "+POLYGON-OFFSET-LINE+"
           "+POLYGON-OFFSET-FILL+"

           ;; Display Lists

           "+COMPILE+"
           "+COMPILE-AND-EXECUTE+"
           "+LIST-BASE+"
           "+LIST-INDEX+"
           "+LIST-MODE+"

           ;; Depth Buffer

           "+NEVER+"
           "+LESS+"
           "+EQUAL+"
           "+LEQUAL+"
           "+GREATER+"
           "+NOTEQUAL+"
           "+GEQUAL+"
           "+ALWAYS+"
           "+DEPTH-TEST+"
           "+DEPTH-BITS+"
           "+DEPTH-CLEAR-VALUE+"
           "+DEPTH-FUNC+"
           "+DEPTH-RANGE+"
           "+DEPTH-WRITEMASK+"
           "+DEPTH-COMPONENT+"

           ;; Lighting

           "+LIGHTING+"
           "+LIGHT0+"
           "+LIGHT1+"
           "+LIGHT2+"
           "+LIGHT3+"
           "+LIGHT4+"
           "+LIGHT5+"
           "+LIGHT6+"
           "+LIGHT7+"
           "+SPOT-EXPONENT+"
           "+SPOT-CUTOFF+"
           "+CONSTANT-ATTENUATION+"
           "+LINEAR-ATTENUATION+"
           "+QUADRATIC-ATTENUATION+"
           "+AMBIENT+"
           "+DIFFUSE+"
           "+SPECULAR+"
           "+SHININESS+"
           "+EMISSION+"
           "+POSITION+"
           "+SPOT-DIRECTION+"
           "+AMBIENT-AND-DIFFUSE+"
           "+COLOR-INDEXES+"
           "+LIGHT-MODEL-TWO-SIDE+"
           "+LIGHT-MODEL-LOCAL-VIEWER+"
           "+LIGHT-MODEL-AMBIENT+"
           "+FRONT-AND-BACK+"
           "+SHADE-MODEL+"
           "+FLAT+"
           "+SMOOTH+"
           "+COLOR-MATERIAL+"
           "+COLOR-MATERIAL-FACE+"
           "+COLOR-MATERIAL-PARAMETER+"
           "+NORMALIZE+"

           ;; Clipping planes

           "+CLIP-PLANE0+"
           "+CLIP-PLANE1+"
           "+CLIP-PLANE2+"
           "+CLIP-PLANE3+"
           "+CLIP-PLANE4+"
           "+CLIP-PLANE5+"

           ;; Accumulation buffer

           "+ACCUM-RED-BITS+"
           "+ACCUM-GREEN-BITS+"
           "+ACCUM-BLUE-BITS+"
           "+ACCUM-ALPHA-BITS+"
           "+ACCUM-CLEAR-VALUE+"
           "+ACCUM+"
           "+ADD+"
           "+LOAD+"
           "+MULT+"
           "+RETURN+"

           ;; Alpha Testing

           "+ALPHA-TEST+"
           "+ALPHA-TEST-REF+"
           "+ALPHA-TEST-FUNC+"

           ;; Blending

           "+BLEND+"
           "+BLEND-SRC+"
           "+BLEND-DST+"
           "+ZERO+"
           "+ONE+"
           "+SRC-COLOR+"
           "+ONE-MINUS-SRC-COLOR+"
           "+DST-COLOR+"
           "+ONE-MINUS-DST-COLOR+"
           "+SRC-ALPHA+"
           "+ONE-MINUS-SRC-ALPHA+"
           "+DST-ALPHA+"
           "+ONE-MINUS-DST-ALPHA+"
           "+SRC-ALPHA-SATURATE+"
           "+CONSTANT-COLOR+"
           "+ONE-MINUS-CONSTANT-COLOR+"
           "+CONSTANT-ALPHA+"
           "+ONE-MINUS-CONSTANT-ALPHA+"

           ;; Render mode

           "+FEEDBACK+"
           "+RENDER+"
           "+SELECT+"

           ;; Feedback

           "+2D+"
           "+3D+"
           "+3D-COLOR+"
           "+3D-COLOR-TEXTURE+"
           "+4D-COLOR-TEXTURE+"
           "+POINT-TOKEN+"
           "+LINE-TOKEN+"
           "+LINE-RESET-TOKEN+"
           "+POLYGON-TOKEN+"
           "+BITMAP-TOKEN+"
           "+DRAW-PIXEL-TOKEN+"
           "+COPY-PIXEL-TOKEN+"
           "+PASS-THROUGH-TOKEN+"
           "+FEEDBACK-BUFFER-POINTER+"
           "+FEEDBACK-BUFFER-SIZE+"
           "+FEEDBACK-BUFFER-TYPE+"

           ;; Selection

           "+SELECTION-BUFFER-POINTER+"
           "+SELECTION-BUFFER-SIZE+"

           ;; Fog

           "+FOG+"
           "+FOG-MODE+"
           "+FOG-DENSITY+"
           "+FOG-COLOR+"
           "+FOG-INDEX+"
           "+FOG-START+"
           "+FOG-END+"
           "+LINEAR+"
           "+EXP+"
           "+EXP2+"

           ;; Logic operations

           "+LOGIC-OP+"
           "+INDEX-LOGIC-OP+"
           "+COLOR-LOGIC-OP+"
           "+LOGIC-OP-MODE+"
           "+CLEAR+"
           "+SET+"
           "+COPY+"
           "+COPY-INVERTED+"
           "+NOOP+"
           "+INVERT+"
           "+AND+"
           "+NAND+"
           "+OR+"
           "+NOR+"
           "+XOR+"
           "+EQUIV+"
           "+AND-REVERSE+"
           "+AND-INVERTED+"
           "+OR-REVERSE+"
           "+OR-INVERTED+"

           ;; Stencil

           "+STENCIL-TEST+"
           "+STENCIL-WRITEMASK+"
           "+STENCIL-BITS+"
           "+STENCIL-FUNC+"
           "+STENCIL-VALUE-MASK+"
           "+STENCIL-REF+"
           "+STENCIL-FAIL+"
           "+STENCIL-PASS-DEPTH-PASS+"
           "+STENCIL-PASS-DEPTH-FAIL+"
           "+STENCIL-CLEAR-VALUE+"
           "+STENCIL-INDEX+"
           "+KEEP+"
           "+REPLACE+"
           "+INCR+"
           "+DECR+"

           ;; Buffers, Pixel Drawing/Reading

           "+NONE+"
           "+LEFT+"
           "+RIGHT+"
           "+FRONT-LEFT+"
           "+FRONT-RIGHT+"
           "+BACK-LEFT+"
           "+BACK-RIGHT+"
           "+AUX0+"
           "+AUX1+"
           "+AUX2+"
           "+AUX3+"
           "+COLOR-INDEX+"
           "+RED+"
           "+GREEN+"
           "+BLUE+"
           "+ALPHA+"
           "+LUMINANCE+"
           "+LUMINANCE-ALPHA+"
           "+ALPHA-BITS+"
           "+RED-BITS+"
           "+GREEN-BITS+"
           "+BLUE-BITS+"
           "+INDEX-BITS+"
           "+SUBPIXEL-BITS+"
           "+AUX-BUFFERS+"
           "+READ-BUFFER+"
           "+DRAW-BUFFER+"
           "+DOUBLEBUFFER+"
           "+STEREO+"
           "+BITMAP+"
           "+COLOR+"
           "+DEPTH+"
           "+STENCIL+"
           "+DITHER+"
           "+RGB+"
           "+RGBA+"

           ;; Implementation Limits

           "+MAX-LIST-NESTING+"
           "+MAX-ATTRIB-STACK-DEPTH+"
           "+MAX-MODELVIEW-STACK-DEPTH+"
           "+MAX-NAME-STACK-DEPTH+"
           "+MAX-PROJECTION-STACK-DEPTH+"
           "+MAX-TEXTURE-STACK-DEPTH+"
           "+MAX-EVAL-ORDER+"
           "+MAX-LIGHTS+"
           "+MAX-CLIP-PLANES+"
           "+MAX-TEXTURE-SIZE+"
           "+MAX-PIXEL-MAP-TABLE+"
           "+MAX-VIEWPORT-DIMS+"
           "+MAX-CLIENT-ATTRIB-STACK-DEPTH+"

           ;; Gets

           "+ATTRIB-STACK-DEPTH+"
           "+CLIENT-ATTRIB-STACK-DEPTH+"
           "+COLOR-CLEAR-VALUE+"
           "+COLOR-WRITEMASK+"
           "+CURRENT-INDEX+"
           "+CURRENT-COLOR+"
           "+CURRENT-NORMAL+"
           "+CURRENT-RASTER-COLOR+"
           "+CURRENT-RASTER-DISTANCE+"
           "+current-raster-index+"
           "+CURRENT-RASTER-POSITION+"
           "+CURRENT-RASTER-TEXTURE-COORDS+"
           "+CURRENT-RASTER-POSITION-VALID+"
           "+CURRENT-TEXTURE-COORDS+"
           "+INDEX-CLEAR-VALUE+"
           "+INDEX-MODE+"
           "+INDEX-WRITEMASK+"
           "+MODELVIEW-MATRIX+"
           "+MODELVIEW-STACK-DEPTH+"
           "+NAME-STACK-DEPTH+"
           "+PROJECTION-MATRIX+"
           "+PROJECTION-STACK-DEPTH+"
           "+RENDER-MODE+"
           "+RGBA-MODE+"
           "+TEXTURE-MATRIX+"
           "+TEXTURE-STACK-DEPTH+"
           "+VIEWPORT+"

           ;; GL Evaluators

           "+AUTO-NORMAL+"
           "+MAP1-COLOR-4+"
           "+MAP1-GRID-DOMAIN+"
           "+MAP1-GRID-SEGMENTS+"
           "+MAP1-INDEX+"
           "+MAP1-NORMAL+"
           "+MAP1-TEXTURE-COORD-1+"
           "+MAP1-TEXTURE-COORD-2+"
           "+MAP1-TEXTURE-COORD-3+"
           "+MAP1-TEXTURE-COORD-4+"
           "+MAP1-VERTEX-3+"
           "+MAP1-VERTEX-4+"
           "+MAP2-COLOR-4+"
           "+MAP2-GRID-DOMAIN+"
           "+MAP2-GRID-SEGMENTS+"
           "+MAP2-INDEX+"
           "+MAP2-NORMAL+"
           "+MAP2-TEXTURE-COORD-1+"
           "+MAP2-TEXTURE-COORD-2+"
           "+MAP2-TEXTURE-COORD-3+"
           "+MAP2-TEXTURE-COORD-4+"
           "+MAP2-VERTEX-3+"
           "+MAP2-VERTEX-4+"
           "+COEFF+"
           "+DOMAIN+"
           "+ORDER+"

           ;; Hints

           "+FOG-HINT+"
           "+LINE-SMOOTH-HINT+"
           "+PERSPECTIVE-CORRECTION-HINT+"
           "+POINT-SMOOTH-HINT+"
           "+POLYGON-SMOOTH-HINT+"
           "+DONT-CARE+"
           "+FASTEST+"
           "+NICEST+"

           ;; Scissor box

           "+SCISSOR-TEST+"
           "+SCISSOR-BOX+"

           ;; Pixel Mode / Transfer

           "+MAP-COLOR+"
           "+MAP-STENCIL+"
           "+INDEX-SHIFT+"
           "+INDEX-OFFSET+"
           "+RED-SCALE+"
           "+RED-BIAS+"
           "+GREEN-SCALE+"
           "+GREEN-BIAS+"
           "+BLUE-SCALE+"
           "+BLUE-BIAS+"
           "+ALPHA-SCALE+"
           "+ALPHA-BIAS+"
           "+DEPTH-SCALE+"
           "+DEPTH-BIAS+"
           "+PIXEL-MAP-S-TO-S-SIZE+"
           "+PIXEL-MAP-I-TO-I-SIZE+"
           "+PIXEL-MAP-I-TO-R-SIZE+"
           "+PIXEL-MAP-I-TO-G-SIZE+"
           "+PIXEL-MAP-I-TO-B-SIZE+"
           "+PIXEL-MAP-I-TO-A-SIZE+"
           "+PIXEL-MAP-R-TO-R-SIZE+"
           "+PIXEL-MAP-G-TO-G-SIZE+"
           "+PIXEL-MAP-B-TO-B-SIZE+"
           "+PIXEL-MAP-A-TO-A-SIZE+"
           "+PIXEL-MAP-S-TO-S+"
           "+PIXEL-MAP-I-TO-I+"
           "+PIXEL-MAP-I-TO-R+"
           "+PIXEL-MAP-I-TO-G+"
           "+PIXEL-MAP-I-TO-B+"
           "+PIXEL-MAP-I-TO-A+"
           "+PIXEL-MAP-R-TO-R+"
           "+PIXEL-MAP-G-TO-G+"
           "+PIXEL-MAP-B-TO-B+"
           "+PIXEL-MAP-A-TO-A+"
           "+PACK-ALIGNMENT+"
           "+PACK-LSB-FIRST+"
           "+PACK-ROW-LENGTH+"
           "+PACK-SKIP-PIXELS+"
           "+PACK-SKIP-ROWS+"
           "+PACK-SWAP-BYTES+"
           "+UNPACK-ALIGNMENT+"
           "+UNPACK-LSB-FIRST+"
           "+UNPACK-ROW-LENGTH+"
           "+UNPACK-SKIP-PIXELS+"
           "+UNPACK-SKIP-ROWS+"
           "+UNPACK-SWAP-BYTES+"
           "+ZOOM-X+"
           "+ZOOM-Y+"

           ;; Texture Mapping

           "+TEXTURE-ENV+"
           "+TEXTURE-ENV-MODE+"
           "+TEXTURE-1D+"
           "+TEXTURE-2D+"
           "+TEXTURE-WRAP-S+"
           "+TEXTURE-WRAP-T+"
           "+TEXTURE-MAG-FILTER+"
           "+TEXTURE-MIN-FILTER+"
           "+TEXTURE-ENV-COLOR+"
           "+TEXTURE-GEN-S+"
           "+TEXTURE-GEN-T+"
           "+TEXTURE-GEN-MODE+"
           "+TEXTURE-BORDER-COLOR+"
           "+TEXTURE-WIDTH+"
           "+TEXTURE-HEIGHT+"
           "+TEXTURE-BORDER+"
           "+TEXTURE-COMPONENTS+"
           "+TEXTURE-RED-SIZE+"
           "+TEXTURE-GREEN-SIZE+"
           "+TEXTURE-BLUE-SIZE+"
           "+TEXTURE-ALPHA-SIZE+"
           "+TEXTURE-LUMINANCE-SIZE+"
           "+TEXTURE-INTENSITY-SIZE+"
           "+NEAREST-MIPMAP-NEAREST+"
           "+NEAREST-MIPMAP-LINEAR+"
           "+LINEAR-MIPMAP-NEAREST+"
           "+LINEAR-MIPMAP-LINEAR+"
           "+OBJECT-LINEAR+"
           "+OBJECT-PLANE+"
           "+EYE-LINEAR+"
           "+EYE-PLANE+"
           "+SPHERE-MAP+"
           "+DECAL+"
           "+MODULATE+"
           "+NEAREST+"
           "+REPEAT+"
           "+CLAMP+"
           "+S+"
           "+T+"
           "+R+"
           "+Q+"
           "+TEXTURE-GEN-R+"
           "+TEXTURE-GEN-Q+"

           ;; GL 1.1 Texturing

           "+PROXY-TEXTURE-1D+"
           "+PROXY-TEXTURE-2D+"
           "+TEXTURE-PRIORITY+"
           "+TEXTURE-RESIDENT+"
           "+TEXTURE-BINDING-1D+"
           "+TEXTURE-BINDING-2D+"
           "+TEXTURE-INTERNAL-FORMAT+"
           "+PACK-SKIP-IMAGES+"
           "+PACK-IMAGE-HEIGHT+"
           "+UNPACK-SKIP-IMAGES+"
           "+UNPACK-IMAGE-HEIGHT+"
           "+TEXTURE-3D+"
           "+PROXY-TEXTURE-3D+"
           "+TEXTURE-DEPTH+"
           "+TEXTURE-WRAP-R+"
           "+MAX-3D-TEXTURE-SIZE+"
           "+TEXTURE-BINDING-3D+"

           ;; Internal texture formats (GL 1.1)
           "+ALPHA4+"
           "+ALPHA8+"
           "+ALPHA12+"
           "+ALPHA16+"
           "+LUMINANCE4+"
           "+LUMINANCE8+"
           "+LUMINANCE12+"
           "+LUMINANCE16+"
           "+LUMINANCE4-ALPHA4+"
           "+LUMINANCE6-ALPHA2+"
           "+LUMINANCE8-ALPHA8+"
           "+LUMINANCE12-ALPHA4+"
           "+LUMINANCE12-ALPHA12+"
           "+LUMINANCE16-ALPHA16+"
           "+INTENSITY+"
           "+INTENSITY4+"
           "+INTENSITY8+"
           "+INTENSITY12+"
           "+INTENSITY16+"
           "+R3-G3-B2+"
           "+RGB4+"
           "+RGB5+"
           "+RGB8+"
           "+RGB10+"
           "+RGB12+"
           "+RGB16+"
           "+RGBA2+"
           "+RGBA4+"
           "+RGB5-A1+"
           "+RGBA8+"
           "+rgb10-a2+"
           "+RGBA12+"
           "+RGBA16+"

           ;; Utility

           "+VENDOR+"
           "+RENDERER+"
           "+VERSION+"
           "+EXTENSIONS+"

           ;; Errors

           "+NO-ERROR+"
           "+INVALID-VALUE+"
           "+INVALID-ENUM+"
           "+INVALID-OPERATION+"
           "+STACK-OVERFLOW+"
           "+STACK-UNDERFLOW+"
           "+OUT-OF-MEMORY+"

           ;; OpenGL 1.2

           "+RESCALE-NORMAL+"
           "+CLAMP-TO-EDGE+"
           "+MAX-ELEMENTS-VERTICES+"
           "+MAX-ELEMENTS-INDICES+"
           "+BGR+"
           "+BGRA+"
           "+UNSIGNED-BYTE-3-3-2+"
           "+UNSIGNED-BYTE-2-3-3-REV+"
           "+UNSIGNED-SHORT-5-6-5+"
           "+UNSIGNED-SHORT-5-6-5-REV+"
           "+UNSIGNED-SHORT-4-4-4-4+"
           "+UNSIGNED-SHORT-4-4-4-4-REV+"
           "+UNSIGNED-SHORT-5-5-5-1+"
           "+UNSIGNED-SHORT-1-5-5-5-REV+"
           "+UNSIGNED-INT-8-8-8-8+"
           "+UNSIGNED-INT-8-8-8-8-REV+"
           "+UNSIGNED-INT-10-10-10-2+"
           "+UNSIGNED-INT-2-10-10-10-REV+"
           "+LIGHT-MODEL-COLOR-CONTROL+"
           "+SINGLE-COLOR+"
           "+SEPARATE-SPECULAR-COLOR+"
           "+TEXTURE-MIN-LOD+"
           "+TEXTURE-MAX-LOD+"
           "+TEXTURE-BASE-LEVEL+"
           "+TEXTURE-MAX-LEVEL+"
           "+SMOOTH-POINT-SIZE-RANGE+"
           "+SMOOTH-POINT-SIZE-GRANULARITY+"
           "+SMOOTH-LINE-WIDTH-RANGE+"
           "+SMOOTH-LINE-WIDTH-GRANULARITY+"
           "+ALIASED-POINT-SIZE-RANGE+"
           "+ALIASED-LINE-WIDTH-RANGE+"

           ;; OpenGL 1.2 Imaging subset
           ;; GL_EXT_color_table
           "+COLOR-TABLE+"
           "+POST-CONVOLUTION-COLOR-TABLE+"
           "+POST-COLOR-MATRIX-COLOR-TABLE+"
           "+PROXY-COLOR-TABLE+"
           "+PROXY-POST-CONVOLUTION-COLOR-TABLE+"
           "+PROXY-POST-COLOR-MATRIX-COLOR-TABLE+"
           "+COLOR-TABLE-SCALE+"
           "+COLOR-TABLE-BIAS+"
           "+COLOR-TABLE-FORMAT+"
           "+COLOR-TABLE-WIDTH+"
           "+COLOR-TABLE-RED-SIZE+"
           "+COLOR-TABLE-GREEN-SIZE+"
           "+COLOR-TABLE-BLUE-SIZE+"
           "+COLOR-TABLE-ALPHA-SIZE+"
           "+COLOR-TABLE-LUMINANCE-SIZE+"
           "+COLOR-TABLE-INTENSITY-SIZE+"
           ;; GL_EXT_convolution and GL_HP_convolution
           "+CONVOLUTION-1D+"
           "+CONVOLUTION-2D+"
           "+SEPARABLE-2D+"
           "+CONVOLUTION-BORDER-MODE+"
           "+CONVOLUTION-FILTER-SCALE+"
           "+CONVOLUTION-FILTER-BIAS+"
           "+REDUCE+"
           "+CONVOLUTION-FORMAT+"
           "+CONVOLUTION-WIDTH+"
           "+CONVOLUTION-HEIGHT+"
           "+MAX-CONVOLUTION-WIDTH+"
           "+MAX-CONVOLUTION-HEIGHT+"
           "+POST-CONVOLUTION-RED-SCALE+"
           "+POST-CONVOLUTION-GREEN-SCALE+"
           "+POST-CONVOLUTION-BLUE-SCALE+"
           "+POST-CONVOLUTION-ALPHA-SCALE+"
           "+POST-CONVOLUTION-RED-BIAS+"
           "+POST-CONVOLUTION-GREEN-BIAS+"
           "+POST-CONVOLUTION-BLUE-BIAS+"
           "+POST-CONVOLUTION-ALPHA-BIAS+"
           "+CONSTANT-BORDER+"
           "+REPLICATE-BORDER+"
           "+CONVOLUTION-BORDER-COLOR+"
           ;; GL_SGI_color_matrix
           "+COLOR-MATRIX+"
           "+COLOR-MATRIX-STACK-DEPTH+"
           "+MAX-COLOR-MATRIX-STACK-DEPTH+"
           "+POST-COLOR-MATRIX-RED-SCALE+"
           "+POST-COLOR-MATRIX-GREEN-SCALE+"
           "+POST-COLOR-MATRIX-BLUE-SCALE+"
           "+POST-COLOR-MATRIX-ALPHA-SCALE+"
           "+POST-COLOR-MATRIX-RED-BIAS+"
           "+POST-COLOR-MATRIX-GREEN-BIAS+"
           "+POST-COLOR-MATRIX-BLUE-BIAS+"
           "+POST-COLOR-MATRIX-ALPHA-BIAS+"
           ;; GL_EXT_histogram
           "+HISTOGRAM+"
           "+PROXY-HISTOGRAM+"
           "+HISTOGRAM-WIDTH+"
           "+HISTOGRAM-FORMAT+"
           "+HISTOGRAM-RED-SIZE+"
           "+HISTOGRAM-GREEN-SIZE+"
           "+HISTOGRAM-BLUE-SIZE+"
           "+HISTOGRAM-ALPHA-SIZE+"
           "+HISTOGRAM-LUMINANCE-SIZE+"
           "+HISTOGRAM-SINK+"
           "+MINMAX+"
           "+MINMAX-FORMAT+"
           "+MINMAX-SINK+"
           "+TABLE-TOO-LARGE+"
           ;; GL_EXT_blend_color, GL_EXT_blend_minmax
           "+BLEND-EQUATION+"
           "+MIN+"
           "+MAX+"
           "+FUNC-ADD+"
           "+FUNC-SUBTRACT+"
           "+FUNC-REVERSE-SUBTRACT+"

           ;; glPush/PopAttrib bits

           "+CURRENT-BIT+"
           "+POINT-BIT+"
           "+LINE-BIT+"
           "+POLYGON-BIT+"
           "+POLYGON-STIPPLE-BIT+"
           "+PIXEL-MODE-BIT+"
           "+LIGHTING-BIT+"
           "+FOG-BIT+"
           "+DEPTH-BUFFER-BIT+"
           "+ACCUM-BUFFER-BIT+"
           "+STENCIL-BUFFER-BIT+"
           "+VIEWPORT-BIT+"
           "+TRANSFORM-BIT+"
           "+ENABLE-BIT+"
           "+COLOR-BUFFER-BIT+"
           "+HINT-BIT+"
           "+EVAL-BIT+"
           "+LIST-BIT+"
           "+TEXTURE-BIT+"
           "+SCISSOR-BIT+"
           "+ALL-ATTRIB-BITS+"
           "+CLIENT-PIXEL-STORE-BIT+"
           "+CLIENT-VERTEX-ARRAY-BIT+"
           "+CLIENT-ALL-ATTRIB-BITS+"

           ;; ARB Multitexturing extension

           "+ARB-MULTITEXTURE+"
           "+TEXTURE0-ARB+"
           "+TEXTURE1-ARB+"
           "+TEXTURE2-ARB+"
           "+TEXTURE3-ARB+"
           "+TEXTURE4-ARB+"
           "+TEXTURE5-ARB+"
           "+TEXTURE6-ARB+"
           "+TEXTURE7-ARB+"
           "+TEXTURE8-ARB+"
           "+TEXTURE9-ARB+"
           "+TEXTURE10-ARB+"
           "+TEXTURE11-ARB+"
           "+TEXTURE12-ARB+"
           "+TEXTURE13-ARB+"
           "+TEXTURE14-ARB+"
           "+TEXTURE15-ARB+"
           "+TEXTURE16-ARB+"
           "+TEXTURE17-ARB+"
           "+TEXTURE18-ARB+"
           "+TEXTURE19-ARB+"
           "+TEXTURE20-ARB+"
           "+TEXTURE21-ARB+"
           "+TEXTURE22-ARB+"
           "+TEXTURE23-ARB+"
           "+TEXTURE24-ARB+"
           "+TEXTURE25-ARB+"
           "+TEXTURE26-ARB+"
           "+TEXTURE27-ARB+"
           "+TEXTURE28-ARB+"
           "+TEXTURE29-ARB+"
           "+TEXTURE30-ARB+"
           "+TEXTURE31-ARB+"
           "+ACTIVE-TEXTURE-ARB+"
           "+CLIENT-ACTIVE-TEXTURE-ARB+"
           "+MAX-TEXTURE-UNITS-ARB+"

;;; Misc extensions

           "+EXT-ABGR+"
           "+ABGR-EXT+"
           "+EXT-BLEND-COLOR+"
           "+CONSTANT-COLOR-EXT+"
           "+ONE-MINUS-CONSTANT-COLOR-EXT+"
           "+CONSTANT-ALPHA-EXT+"
           "+ONE-MINUS-CONSTANT-ALPHA-EXT+"
           "+blend-color-ext+"
           "+EXT-POLYGON-OFFSET+"
           "+POLYGON-OFFSET-EXT+"
           "+POLYGON-OFFSET-FACTOR-EXT+"
           "+POLYGON-OFFSET-BIAS-EXT+"
           "+EXT-TEXTURE3D+"
           "+PACK-SKIP-IMAGES-EXT+"
           "+PACK-IMAGE-HEIGHT-EXT+"
           "+UNPACK-SKIP-IMAGES-EXT+"
           "+UNPACK-IMAGE-HEIGHT-EXT+"
           "+TEXTURE-3D-EXT+"
           "+PROXY-TEXTURE-3D-EXT+"
           "+TEXTURE-DEPTH-EXT+"
           "+TEXTURE-WRAP-R-EXT+"
           "+MAX-3D-TEXTURE-SIZE-EXT+"
           "+TEXTURE-3D-BINDING-EXT+"
           "+EXT-TEXTURE-OBJECT+"
           "+TEXTURE-PRIORITY-EXT+"
           "+TEXTURE-RESIDENT-EXT+"
           "+TEXTURE-1D-BINDING-EXT+"
           "+TEXTURE-2D-BINDING-EXT+"
           "+EXT-RESCALE-NORMAL+"
           "+RESCALE-NORMAL-EXT+"
           "+EXT-VERTEX-ARRAY+"
           "+VERTEX-ARRAY-EXT+"
           "+NORMAL-ARRAY-EXT+"
           "+COLOR-ARRAY-EXT+"
           "+INDEX-ARRAY-EXT+"
           "+TEXTURE-COORD-ARRAY-EXT+"
           "+EDGE-FLAG-ARRAY-EXT+"
           "+VERTEX-ARRAY-SIZE-EXT+"
           "+VERTEX-ARRAY-TYPE-EXT+"
           "+VERTEX-ARRAY-STRIDE-EXT+"
           "+VERTEX-ARRAY-COUNT-EXT+"
           "+NORMAL-ARRAY-TYPE-EXT+"
           "+NORMAL-ARRAY-STRIDE-EXT+"
           "+NORMAL-ARRAY-COUNT-EXT+"
           "+COLOR-ARRAY-SIZE-EXT+"
           "+COLOR-ARRAY-TYPE-EXT+"
           "+COLOR-ARRAY-STRIDE-EXT+"
           "+COLOR-ARRAY-COUNT-EXT+"
           "+INDEX-ARRAY-TYPE-EXT+"
           "+INDEX-ARRAY-STRIDE-EXT+"
           "+INDEX-ARRAY-COUNT-EXT+"
           "+TEXTURE-COORD-ARRAY-SIZE-EXT+"
           "+TEXTURE-COORD-ARRAY-TYPE-EXT+"
           "+TEXTURE-COORD-ARRAY-STRIDE-EXT+"
           "+TEXTURE-COORD-ARRAY-COUNT-EXT+"
           "+EDGE-FLAG-ARRAY-STRIDE-EXT+"
           "+EDGE-FLAG-ARRAY-COUNT-EXT+"
           "+VERTEX-ARRAY-POINTER-EXT+"
           "+NORMAL-ARRAY-POINTER-EXT+"
           "+COLOR-ARRAY-POINTER-EXT+"
           "+INDEX-ARRAY-POINTER-EXT+"
           "+TEXTURE-COORD-ARRAY-POINTER-EXT+"
           "+EDGE-FLAG-ARRAY-POINTER-EXT+"
           "+SGIS-TEXTURE-EDGE-CLAMP+"
           "+CLAMP-TO-EDGE-SGIS+"
           "+EXT-BLEND-MINMAX+"
           "+FUNC-ADD-EXT+"
           "+MIN-EXT+"
           "+MAX-EXT+"
           "+BLEND-EQUATION-EXT+"
           "+EXT-BLEND-SUBTRACT+"
           "+FUNC-SUBTRACT-EXT+"
           "+FUNC-REVERSE-SUBTRACT-EXT+"
           "+EXT-BLEND-LOGIC-OP+"
           "+EXT-POINT-PARAMETERS+"
           "+POINT-SIZE-MIN-EXT+"
           "+POINT-SIZE-MAX-EXT+"
           "+POINT-FADE-THRESHOLD-SIZE-EXT+"
           "+DISTANCE-ATTENUATION-EXT+"
           "+EXT-PALETTED-TEXTURE+"
           "+TABLE-TOO-LARGE-EXT+"
           "+COLOR-TABLE-FORMAT-EXT+"
           "+COLOR-TABLE-WIDTH-EXT+"
           "+COLOR-TABLE-RED-SIZE-EXT+"
           "+COLOR-TABLE-GREEN-SIZE-EXT+"
           "+COLOR-TABLE-BLUE-SIZE-EXT+"
           "+COLOR-TABLE-ALPHA-SIZE-EXT+"
           "+COLOR-TABLE-LUMINANCE-SIZE-EXT+"
           "+COLOR-TABLE-INTENSITY-SIZE-EXT+"
           "+TEXTURE-INDEX-SIZE-EXT+"
           "+COLOR-INDEX1-EXT+"
           "+COLOR-INDEX2-EXT+"
           "+COLOR-INDEX4-EXT+"
           "+COLOR-INDEX8-EXT+"
           "+COLOR-INDEX12-EXT+"
           "+COLOR-INDEX16-EXT+"
           "+EXT-CLIP-VOLUME-HINT+"
           "+CLIP-VOLUME-CLIPPING-HINT-EXT+"
           "+EXT-COMPILED-VERTEX-ARRAY+"
           "+ARRAY-ELEMENT-LOCK-FIRST-EXT+"
           "+ARRAY-ELEMENT-LOCK-COUNT-EXT+"
           "+HP-OCCLUSION-TEST+"
           "+OCCLUSION-TEST-HP+"
           "+OCCLUSION-TEST-RESULT-HP+"
           "+EXT-SHARED-TEXTURE-PALETTE+"
           "+SHARED-TEXTURE-PALETTE-EXT+"
           "+EXT-STENCIL-WRAP+"
           "+INCR-WRAP-EXT+"
           "+DECR-WRAP-EXT+"
           "+NV-TEXGEN-REFLECTION+"
           "+NORMAL-MAP-NV+"
           "+REFLECTION-MAP-NV+"
           "+EXT-TEXTURE-ENV-ADD+"
           "+MESA-WINDOW-POS+"
           "+MESA-RESIZE-BUFFERS+"
           
           ))


(in-package :gl)



;;; Opcodes.

(eval-when (:compile-toplevel :load-toplevel :execute)
(defconstant +get-string+       129)
(defconstant +new-list+         101)
(defconstant +end-list+         102)
(defconstant +gen-lists+        104)
(defconstant +finish+           108)
(defconstant +disable+          138)
(defconstant +enable+           139)
(defconstant +flush+            142)



;;; Constants.
;;; Shamelessly taken from CL-SDL.

;; Boolean

(defconstant +false+                            #x0) 
(defconstant +true+                             #x1) 

;; Types

(defconstant +byte+                          #x1400) 
(defconstant +unsigned-byte+                 #x1401) 
(defconstant +short+                         #x1402) 
(defconstant +unsigned-short+                #x1403) 
(defconstant +int+                           #x1404) 
(defconstant +unsigned-int+                  #x1405) 
(defconstant +float+                         #x1406) 
(defconstant +double+                        #x140a) 
(defconstant +2-bytes+                       #x1407) 
(defconstant +3-bytes+                       #x1408) 
(defconstant +4-bytes+                       #x1409) 

;; Primitives

(defconstant +points+                        #x0000) 
(defconstant +lines+                         #x0001) 
(defconstant +line-loop+                     #x0002) 
(defconstant +line-strip+                    #x0003) 
(defconstant +triangles+                     #x0004) 
(defconstant +triangle-strip+                #x0005) 
(defconstant +triangle-fan+                  #x0006) 
(defconstant +quads+                         #x0007) 
(defconstant +quad-strip+                    #x0008) 
(defconstant +polygon+                       #x0009) 

;; Arrays

(defconstant +vertex-array+                  #x8074) 
(defconstant +normal-array+                  #x8075) 
(defconstant +color-array+                   #x8076) 
(defconstant +index-array+                   #x8077) 
(defconstant +texture-coord-array+           #x8078) 
(defconstant +edge-flag-array+               #x8079) 
(defconstant +vertex-array-size+             #x807a) 
(defconstant +vertex-array-type+             #x807b) 
(defconstant +vertex-array-stride+           #x807c) 
(defconstant +normal-array-type+             #x807e) 
(defconstant +normal-array-stride+           #x807f) 
(defconstant +color-array-size+              #x8081) 
(defconstant +color-array-type+              #x8082) 
(defconstant +color-array-stride+            #x8083) 
(defconstant +index-array-type+              #x8085) 
(defconstant +index-array-stride+            #x8086) 
(defconstant +texture-coord-array-size+      #x8088) 
(defconstant +texture-coord-array-type+      #x8089) 
(defconstant +texture-coord-array-stride+    #x808a) 
(defconstant +edge-flag-array-stride+        #x808c) 
(defconstant +vertex-array-pointer+          #x808e) 
(defconstant +normal-array-pointer+          #x808f) 
(defconstant +color-array-pointer+           #x8090) 
(defconstant +index-array-pointer+           #x8091) 
(defconstant +texture-coord-array-pointer+   #x8092) 
(defconstant +edge-flag-array-pointer+       #x8093) 

;; Array formats

(defconstant +v2f+                           #x2a20) 
(defconstant +v3f+                           #x2a21) 
(defconstant +c4ub-v2f+                      #x2a22) 
(defconstant +c4ub-v3f+                      #x2a23) 
(defconstant +c3f-v3f+                       #x2a24) 
(defconstant +n3f-v3f+                       #x2a25) 
(defconstant +c4f-n3f-v3f+                   #x2a26) 
(defconstant +t2f-v3f+                       #x2a27) 
(defconstant +t4f-v4f+                       #x2a28) 
(defconstant +t2f-c4ub-v3f+                  #x2a29) 
(defconstant +t2f-c3f-v3f+                   #x2a2a) 
(defconstant +t2f-n3f-v3f+                   #x2a2b) 
(defconstant +t2f-c4f-n3f-v3f+               #x2a2c) 
(defconstant +t4f-c4f-n3f-v4f+               #x2a2d) 

;; Matrices

(defconstant +matrix-mode+                   #x0ba0) 
(defconstant +modelview+                     #x1700) 
(defconstant +projection+                    #x1701) 
(defconstant +texture+                       #x1702) 

;; Points

(defconstant +point-smooth+                  #x0b10) 
(defconstant +point-size+                    #x0b11) 
(defconstant +point-size-granularity+        #x0b13) 
(defconstant +point-size-range+              #x0b12) 

;; Lines

(defconstant +line-smooth+                   #x0b20) 
(defconstant +line-stipple+                  #x0b24) 
(defconstant +line-stipple-pattern+          #x0b25) 
(defconstant +line-stipple-repeat+           #x0b26) 
(defconstant +line-width+                    #x0b21) 
(defconstant +line-width-granularity+        #x0b23) 
(defconstant +line-width-range+              #x0b22) 

;; Polygons

(defconstant +point+                         #x1b00) 
(defconstant +line+                          #x1b01) 
(defconstant +fill+                          #x1b02) 
(defconstant +cw+                            #x0900) 
(defconstant +ccw+                           #x0901) 
(defconstant +front+                         #x0404) 
(defconstant +back+                          #x0405) 
(defconstant +polygon-mode+                  #x0b40) 
(defconstant +polygon-smooth+                #x0b41) 
(defconstant +polygon-stipple+               #x0b42) 
(defconstant +edge-flag+                     #x0b43) 
(defconstant +cull-face+                     #x0b44) 
(defconstant +cull-face-mode+                #x0b45) 
(defconstant +front-face+                    #x0b46) 
(defconstant +polygon-offset-factor+         #x8038) 
(defconstant +polygon-offset-units+          #x2a00) 
(defconstant +polygon-offset-point+          #x2a01) 
(defconstant +polygon-offset-line+           #x2a02) 
(defconstant +polygon-offset-fill+           #x8037) 

;; Display Lists

(defconstant +compile+                       #x1300) 
(defconstant +compile-and-execute+           #x1301) 
(defconstant +list-base+                     #x0b32) 
(defconstant +list-index+                    #x0b33) 
(defconstant +list-mode+                     #x0b30) 

;; Depth Buffer

(defconstant +never+                         #x0200) 
(defconstant +less+                          #x0201) 
(defconstant +equal+                         #x0202) 
(defconstant +lequal+                        #x0203) 
(defconstant +greater+                       #x0204) 
(defconstant +notequal+                      #x0205) 
(defconstant +gequal+                        #x0206) 
(defconstant +always+                        #x0207) 
(defconstant +depth-test+                    #x0b71) 
(defconstant +depth-bits+                    #x0d56) 
(defconstant +depth-clear-value+             #x0b73) 
(defconstant +depth-func+                    #x0b74) 
(defconstant +depth-range+                   #x0b70) 
(defconstant +depth-writemask+               #x0b72) 
(defconstant +depth-component+               #x1902) 

;; Lighting

(defconstant +lighting+                      #x0b50) 
(defconstant +light0+                        #x4000) 
(defconstant +light1+                        #x4001) 
(defconstant +light2+                        #x4002) 
(defconstant +light3+                        #x4003) 
(defconstant +light4+                        #x4004) 
(defconstant +light5+                        #x4005) 
(defconstant +light6+                        #x4006) 
(defconstant +light7+                        #x4007) 
(defconstant +spot-exponent+                 #x1205) 
(defconstant +spot-cutoff+                   #x1206) 
(defconstant +constant-attenuation+          #x1207) 
(defconstant +linear-attenuation+            #x1208) 
(defconstant +quadratic-attenuation+         #x1209) 
(defconstant +ambient+                       #x1200) 
(defconstant +diffuse+                       #x1201) 
(defconstant +specular+                      #x1202) 
(defconstant +shininess+                     #x1601) 
(defconstant +emission+                      #x1600) 
(defconstant +position+                      #x1203) 
(defconstant +spot-direction+                #x1204) 
(defconstant +ambient-and-diffuse+           #x1602) 
(defconstant +color-indexes+                 #x1603) 
(defconstant +light-model-two-side+          #x0b52) 
(defconstant +light-model-local-viewer+      #x0b51) 
(defconstant +light-model-ambient+           #x0b53) 
(defconstant +front-and-back+                #x0408) 
(defconstant +shade-model+                   #x0b54) 
(defconstant +flat+                          #x1d00) 
(defconstant +smooth+                        #x1d01) 
(defconstant +color-material+                #x0b57) 
(defconstant +color-material-face+           #x0b55) 
(defconstant +color-material-parameter+      #x0b56) 
(defconstant +normalize+                     #x0ba1) 

;; Clipping planes

(defconstant +clip-plane0+                   #x3000) 
(defconstant +clip-plane1+                   #x3001) 
(defconstant +clip-plane2+                   #x3002) 
(defconstant +clip-plane3+                   #x3003) 
(defconstant +clip-plane4+                   #x3004) 
(defconstant +clip-plane5+                   #x3005) 

;; Accumulation buffer

(defconstant +accum-red-bits+                #x0d58) 
(defconstant +accum-green-bits+              #x0d59) 
(defconstant +accum-blue-bits+               #x0d5a) 
(defconstant +accum-alpha-bits+              #x0d5b) 
(defconstant +accum-clear-value+             #x0b80) 
(defconstant +accum+                         #x0100) 
(defconstant +add+                           #x0104) 
(defconstant +load+                          #x0101) 
(defconstant +mult+                          #x0103) 
(defconstant +return+                        #x0102) 

;; Alpha Testing

(defconstant +alpha-test+                    #x0bc0) 
(defconstant +alpha-test-ref+                #x0bc2) 
(defconstant +alpha-test-func+               #x0bc1) 

;; Blending

(defconstant +blend+                         #x0be2) 
(defconstant +blend-src+                     #x0be1) 
(defconstant +blend-dst+                     #x0be0) 
(defconstant +zero+                             #x0) 
(defconstant +one+                              #x1) 
(defconstant +src-color+                     #x0300) 
(defconstant +one-minus-src-color+           #x0301) 
(defconstant +dst-color+                     #x0306) 
(defconstant +one-minus-dst-color+           #x0307) 
(defconstant +src-alpha+                     #x0302) 
(defconstant +one-minus-src-alpha+           #x0303) 
(defconstant +dst-alpha+                     #x0304) 
(defconstant +one-minus-dst-alpha+           #x0305) 
(defconstant +src-alpha-saturate+            #x0308) 
(defconstant +constant-color+                #x8001) 
(defconstant +one-minus-constant-color+      #x8002) 
(defconstant +constant-alpha+                #x8003) 
(defconstant +one-minus-constant-alpha+      #x8004) 

;; Render mode

(defconstant +feedback+                      #x1c01) 
(defconstant +render+                        #x1c00) 
(defconstant +select+                        #x1c02) 

;; Feedback

(defconstant +2d+                            #x0600) 
(defconstant +3d+                            #x0601) 
(defconstant +3d-color+                      #x0602) 
(defconstant +3d-color-texture+              #x0603) 
(defconstant +4d-color-texture+              #x0604) 
(defconstant +point-token+                   #x0701) 
(defconstant +line-token+                    #x0702) 
(defconstant +line-reset-token+              #x0707) 
(defconstant +polygon-token+                 #x0703) 
(defconstant +bitmap-token+                  #x0704) 
(defconstant +draw-pixel-token+              #x0705) 
(defconstant +copy-pixel-token+              #x0706) 
(defconstant +pass-through-token+            #x0700) 
(defconstant +feedback-buffer-pointer+       #x0df0) 
(defconstant +feedback-buffer-size+          #x0df1) 
(defconstant +feedback-buffer-type+          #x0df2) 

;; Selection

(defconstant +selection-buffer-pointer+      #x0df3) 
(defconstant +selection-buffer-size+         #x0df4) 

;; Fog

(defconstant +fog+                           #x0b60) 
(defconstant +fog-mode+                      #x0b65) 
(defconstant +fog-density+                   #x0b62) 
(defconstant +fog-color+                     #x0b66) 
(defconstant +fog-index+                     #x0b61) 
(defconstant +fog-start+                     #x0b63) 
(defconstant +fog-end+                       #x0b64) 
(defconstant +linear+                        #x2601) 
(defconstant +exp+                           #x0800) 
(defconstant +exp2+                          #x0801) 

;; Logic operations

(defconstant +logic-op+                      #x0bf1) 
(defconstant +index-logic-op+                #x0bf1) 
(defconstant +color-logic-op+                #x0bf2) 
(defconstant +logic-op-mode+                 #x0bf0) 
(defconstant +clear+                         #x1500) 
(defconstant +set+                           #x150f) 
(defconstant +copy+                          #x1503) 
(defconstant +copy-inverted+                 #x150c) 
(defconstant +noop+                          #x1505) 
(defconstant +invert+                        #x150a) 
(defconstant +and+                           #x1501) 
(defconstant +nand+                          #x150e) 
(defconstant +or+                            #x1507) 
(defconstant +nor+                           #x1508) 
(defconstant +xor+                           #x1506) 
(defconstant +equiv+                         #x1509) 
(defconstant +and-reverse+                   #x1502) 
(defconstant +and-inverted+                  #x1504) 
(defconstant +or-reverse+                    #x150b) 
(defconstant +or-inverted+                   #x150d) 

;; Stencil

(defconstant +stencil-test+                  #x0b90) 
(defconstant +stencil-writemask+             #x0b98) 
(defconstant +stencil-bits+                  #x0d57) 
(defconstant +stencil-func+                  #x0b92) 
(defconstant +stencil-value-mask+            #x0b93) 
(defconstant +stencil-ref+                   #x0b97) 
(defconstant +stencil-fail+                  #x0b94) 
(defconstant +stencil-pass-depth-pass+       #x0b96) 
(defconstant +stencil-pass-depth-fail+       #x0b95) 
(defconstant +stencil-clear-value+           #x0b91) 
(defconstant +stencil-index+                 #x1901) 
(defconstant +keep+                          #x1e00) 
(defconstant +replace+                       #x1e01) 
(defconstant +incr+                          #x1e02) 
(defconstant +decr+                          #x1e03) 

;; Buffers, Pixel Drawing/Reading

(defconstant +none+                             #x0) 
(defconstant +left+                          #x0406) 
(defconstant +right+                         #x0407) 
(defconstant +front-left+                    #x0400) 
(defconstant +front-right+                   #x0401) 
(defconstant +back-left+                     #x0402) 
(defconstant +back-right+                    #x0403) 
(defconstant +aux0+                          #x0409) 
(defconstant +aux1+                          #x040a) 
(defconstant +aux2+                          #x040b) 
(defconstant +aux3+                          #x040c) 
(defconstant +color-index+                   #x1900) 
(defconstant +red+                           #x1903) 
(defconstant +green+                         #x1904) 
(defconstant +blue+                          #x1905) 
(defconstant +alpha+                         #x1906) 
(defconstant +luminance+                     #x1909) 
(defconstant +luminance-alpha+               #x190a) 
(defconstant +alpha-bits+                    #x0d55) 
(defconstant +red-bits+                      #x0d52) 
(defconstant +green-bits+                    #x0d53) 
(defconstant +blue-bits+                     #x0d54) 
(defconstant +index-bits+                    #x0d51) 
(defconstant +subpixel-bits+                 #x0d50) 
(defconstant +aux-buffers+                   #x0c00) 
(defconstant +read-buffer+                   #x0c02) 
(defconstant +draw-buffer+                   #x0c01) 
(defconstant +doublebuffer+                  #x0c32) 
(defconstant +stereo+                        #x0c33) 
(defconstant +bitmap+                        #x1a00) 
(defconstant +color+                         #x1800) 
(defconstant +depth+                         #x1801) 
(defconstant +stencil+                       #x1802) 
(defconstant +dither+                        #x0bd0) 
(defconstant +rgb+                           #x1907) 
(defconstant +rgba+                          #x1908) 

;; Implementation Limits

(defconstant +max-list-nesting+              #x0b31) 
(defconstant +max-attrib-stack-depth+        #x0d35) 
(defconstant +max-modelview-stack-depth+     #x0d36) 
(defconstant +max-name-stack-depth+          #x0d37) 
(defconstant +max-projection-stack-depth+    #x0d38) 
(defconstant +max-texture-stack-depth+       #x0d39) 
(defconstant +max-eval-order+                #x0d30) 
(defconstant +max-lights+                    #x0d31) 
(defconstant +max-clip-planes+               #x0d32) 
(defconstant +max-texture-size+              #x0d33) 
(defconstant +max-pixel-map-table+           #x0d34) 
(defconstant +max-viewport-dims+             #x0d3a) 
(defconstant +max-client-attrib-stack-depth+ #x0d3b) 

;; Gets

(defconstant +attrib-stack-depth+            #x0bb0) 
(defconstant +client-attrib-stack-depth+     #x0bb1) 
(defconstant +color-clear-value+             #x0c22) 
(defconstant +color-writemask+               #x0c23) 
(defconstant +current-index+                 #x0b01) 
(defconstant +current-color+                 #x0b00) 
(defconstant +current-normal+                #x0b02) 
(defconstant +current-raster-color+          #x0b04) 
(defconstant +current-raster-distance+       #x0b09) 
(defconstant +current-raster-index+          #x0b05) 
(defconstant +current-raster-position+       #x0b07) 
(defconstant +current-raster-texture-coords+ #x0b06) 
(defconstant +current-raster-position-valid+ #x0b08) 
(defconstant +current-texture-coords+        #x0b03) 
(defconstant +index-clear-value+             #x0c20) 
(defconstant +index-mode+                    #x0c30) 
(defconstant +index-writemask+               #x0c21) 
(defconstant +modelview-matrix+              #x0ba6) 
(defconstant +modelview-stack-depth+         #x0ba3) 
(defconstant +name-stack-depth+              #x0d70) 
(defconstant +projection-matrix+             #x0ba7) 
(defconstant +pr…

Large files files are truncated, but you can click here to view the full file