--- /dev/null
+Slava Pestov
--- /dev/null
+Loading graphical user interface in stage 2 bootstrap
--- /dev/null
+Slava Pestov
--- /dev/null
+Loading graphical developer tools in stage 2 bootstrap
--- /dev/null
+USING: kernel vocabs vocabs.loader sequences system ;
+
+{ "ui" "help" "tools" }
+[ "bootstrap." prepend vocab ] all? [
+ "ui.tools" require
+
+ "ui.cocoa" vocab [
+ "ui.cocoa.tools" require
+ ] when
+
+ "ui.tools.walker" require
+] when
--- /dev/null
+USING: alien namespaces system combinators kernel sequences
+vocabs vocabs.loader ;
+
+"bootstrap.compiler" vocab [
+ "ui-backend" get [
+ {
+ { [ os macosx? ] [ "cocoa" ] }
+ { [ os windows? ] [ "windows" ] }
+ { [ os unix? ] [ "x11" ] }
+ } cond
+ ] unless* "ui." prepend require
+
+ "ui.freetype" require
+] when
--- /dev/null
+
+IN: math.geometry
+
+GENERIC: width ( object -- width )
+GENERIC: height ( object -- width )
+
+GENERIC# set-width! 1 ( object width -- object )
+GENERIC# set-height! 1 ( object height -- object )
+
+GENERIC# set-x! 1 ( object x -- object )
+GENERIC# set-y! 1 ( object y -- object )
\ No newline at end of file
--- /dev/null
+USING: help.markup help.syntax ;
+
+IN: math.geometry.rect
+
+HELP: rect
+{ $class-description "A rectangle with the following slots:"
+ { $list
+ { { $link rect-loc } " - the top-left corner of the rectangle as an x/y pair" }
+ { { $link rect-dim } " - the dimensions of the rectangle as a width/height pair" }
+ }
+ "Rectangles are constructed by calling " { $link <rect> } " and " { $link <extent-rect> } "."
+} ;
+
+HELP: <rect> ( loc dim -- rect )
+{ $values { "loc" "a pair of integers" } { "dim" "a pair of integers" } { "rect" "a new " { $link rect } } }
+{ $description "Creates a new rectangle with the specified top-left location and dimensions." } ;
+
+{ <zero-rect> <rect> <extent-rect> } related-words
+
+HELP: set-rect-dim ( dim rect -- )
+{ $values { "dim" "a pair of integers" } { "rect" rect } }
+{ $description "Modifies the dimensions of a rectangle." }
+{ $side-effects "rect" } ;
+
+HELP: rect-bounds
+{ $values { "rect" rect } { "loc" "a pair of integers" } { "dim" "a pair of integers" } }
+{ $description "Outputs the location and dimensions of a rectangle." } ;
+
+{ rect-bounds rect-extent } related-words
+
+HELP: <extent-rect> ( loc ext -- rect )
+{ $values { "loc" "a pair of integers" } { "ext" "a pair of integers" } { "rect" "a new " { $link rect } } }
+{ $description "Creates a new rectangle with the specified top-left and bottom-right corner locations." } ;
+
+HELP: rect-extent
+{ $values { "rect" rect } { "loc" "a pair of integers" } { "ext" "a pair of integers" } }
+{ $description "Outputs the location of the top-left and bottom-right corners of a rectangle." } ;
+
+HELP: offset-rect
+{ $values { "rect" rect } { "loc" "a pair of integers" } { "newrect" "a new " { $link rect } } }
+{ $description "Creates a new rectangle with the same dimensions, and top-left corner translated by " { $snippet "loc" } "." } ;
+
+HELP: rect-intersect
+{ $values { "rect1" rect } { "rect2" rect } { "newrect" "a new " { $link rect } } }
+{ $description "Computes the intersection of two rectangles." } ;
+
+HELP: intersects?
+{ $values { "rect/point" "a " { $link rect } " or a pair of integers" } { "rect" rect } { "?" "a boolean" } }
+{ $description "Tests if two rectangles (or a point and a rectangle, respectively) have a non-empty intersection." } ;
+
+HELP: <zero-rect>
+{ $values { "rect" "a new " { $link rect } } }
+{ $description "Creates a rectangle located at the origin with zero dimensions." } ;
+
--- /dev/null
+
+USING: tools.test math.geometry.rect ;
+
+IN: math.geometry.rect.tests
+
+[ T{ rect f { 10 10 } { 20 20 } } ]
+[
+ T{ rect f { 10 10 } { 50 50 } }
+ T{ rect f { -10 -10 } { 40 40 } }
+ rect-intersect
+] unit-test
+
+[ T{ rect f { 200 200 } { 0 0 } } ]
+[
+ T{ rect f { 100 100 } { 50 50 } }
+ T{ rect f { 200 200 } { 40 40 } }
+ rect-intersect
+] unit-test
+
+[ f ] [
+ T{ rect f { 100 100 } { 50 50 } }
+ T{ rect f { 200 200 } { 40 40 } }
+ intersects?
+] unit-test
+
+[ t ] [
+ T{ rect f { 100 100 } { 50 50 } }
+ T{ rect f { 120 120 } { 40 40 } }
+ intersects?
+] unit-test
+
+[ f ] [
+ T{ rect f { 1000 100 } { 50 50 } }
+ T{ rect f { 120 120 } { 40 40 } }
+ intersects?
+] unit-test
+
--- /dev/null
+
+USING: kernel arrays sequences
+ math math.points math.vectors math.geometry
+ accessors ;
+
+IN: math.geometry.rect
+
+TUPLE: rect loc dim ;
+
+: init-rect ( rect -- rect ) { 0 0 } clone >>loc { 0 0 } clone >>dim ;
+
+: <rect> ( loc dim -- rect ) rect boa ;
+
+: <zero-rect> ( -- rect ) rect new init-rect ;
+
+M: array rect-loc ;
+
+M: array rect-dim drop { 0 0 } ;
+
+: rect-bounds ( rect -- loc dim ) dup rect-loc swap rect-dim ;
+
+: rect-extent ( rect -- loc ext ) rect-bounds over v+ ;
+
+: 2rect-extent ( rect rect -- loc1 loc2 ext1 ext2 )
+ [ rect-extent ] bi@ swapd ;
+
+: <extent-rect> ( loc ext -- rect ) over [v-] <rect> ;
+
+: offset-rect ( rect loc -- newrect )
+ over rect-loc v+ swap rect-dim <rect> ;
+
+: (rect-intersect) ( rect rect -- array array )
+ 2rect-extent vmin >r vmax r> ;
+
+: rect-intersect ( rect1 rect2 -- newrect )
+ (rect-intersect) <extent-rect> ;
+
+: intersects? ( rect/point rect -- ? )
+ (rect-intersect) [v-] { 0 0 } = ;
+
+: (rect-union) ( rect rect -- array array )
+ 2rect-extent vmax >r vmin r> ;
+
+: rect-union ( rect1 rect2 -- newrect )
+ (rect-union) <extent-rect> ;
+
+M: rect width ( rect -- width ) dim>> first ;
+M: rect height ( rect -- height ) dim>> second ;
+
+M: rect set-width! ( rect width -- rect ) over dim>> set-first ;
+M: rect set-height! ( rect height -- rect ) over dim>> set-second ;
+
+M: rect set-x! ( rect x -- rect ) over loc>> set-first ;
+M: rect set-y! ( rect y -- rect ) over loc>> set-second ;
+
+! Accessing corners
+
+: top-left ( rect -- point ) loc>> ;
+: top-right ( rect -- point ) [ loc>> ] [ width 1 - ] bi v+x ;
+: bottom-left ( rect -- point ) [ loc>> ] [ height 1 - ] bi v+y ;
+: bottom-right ( rect -- point ) [ loc>> ] [ dim>> ] bi v+ { 1 1 } v- ;
--- /dev/null
+Slava Pestov
+Eduardo Cavazos
+Joe Groff
--- /dev/null
+Adam Wendt
--- /dev/null
+
+USING: kernel namespaces math.vectors opengl pos ori turtle self ;
+
+IN: opengl.camera
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: camera-eye ( -- point ) pos> ;
+
+: camera-focus ( -- point ) [ 1 step-turtle pos> ] save-self ;
+
+: camera-up ( -- dirvec )
+[ 90 pitch-up pos> 1 step-turtle pos> swap v- ] save-self ;
+
+: do-look-at ( camera -- )
+[ >self camera-eye camera-focus camera-up gl-look-at ] with-scope ;
--- /dev/null
+Joe Groff
\ No newline at end of file
--- /dev/null
+USING: help.markup help.syntax io kernel math quotations
+opengl.gl multiline assocs ;
+IN: opengl.capabilities
+
+HELP: gl-version
+{ $values { "version" "The version string from the OpenGL implementation" } }
+{ $description "Wrapper for " { $snippet "GL_VERSION glGetString" } " that removes the vendor-specific information from the version string." } ;
+
+HELP: gl-vendor-version
+{ $values { "version" "The vendor-specific version information from the OpenGL implementation" } }
+{ $description "Wrapper for " { $snippet "GL_VERSION glGetString" } " that returns only the vendor-specific information from the version string." } ;
+
+HELP: has-gl-version?
+{ $values { "version" "A version string" } { "?" "A boolean value" } }
+{ $description "Compares the version string returned by " { $link gl-version } " to " { $snippet "version" } ". Returns true if the implementation version meets or exceeds " { $snippet "version" } "." } ;
+
+HELP: require-gl-version
+{ $values { "version" "A version string" } }
+{ $description "Throws an exception if " { $link has-gl-version? } " returns false for " { $snippet "version" } "." } ;
+
+HELP: glsl-version
+{ $values { "version" "The GLSL version string from the OpenGL implementation" } }
+{ $description "Wrapper for " { $snippet "GL_SHADING_LANGUAGE_VERSION glGetString" } " that removes the vendor-specific information from the version string." } ;
+
+HELP: glsl-vendor-version
+{ $values { "version" "The vendor-specific GLSL version information from the OpenGL implementation" } }
+{ $description "Wrapper for " { $snippet "GL_SHADING_LANGUAGE_VERSION glGetString" } " that returns only the vendor-specific information from the version string." } ;
+
+HELP: has-glsl-version?
+{ $values { "version" "A version string" } { "?" "A boolean value" } }
+{ $description "Compares the version string returned by " { $link glsl-version } " to " { $snippet "version" } ". Returns true if the implementation version meets or exceeds " { $snippet "version" } "." } ;
+
+HELP: require-glsl-version
+{ $values { "version" "A version string" } }
+{ $description "Throws an exception if " { $link has-glsl-version? } " returns false for " { $snippet "version" } "." } ;
+
+HELP: gl-extensions
+{ $values { "seq" "A sequence of strings naming the implementation-supported OpenGL extensions" } }
+{ $description "Wrapper for " { $snippet "GL_EXTENSIONS glGetString" } " that returns a sequence of extension names supported by the OpenGL implementation." } ;
+
+HELP: has-gl-extensions?
+{ $values { "extensions" "A sequence of extension name strings" } { "?" "A boolean value" } }
+{ $description "Returns true if the set of " { $snippet "extensions" } " is a subset of the implementation-supported extensions returned by " { $link gl-extensions } "." } ;
+
+HELP: has-gl-version-or-extensions?
+{ $values { "version" "A version string" } { "extensions" "A sequence of extension name strings" } { "?" "a boolean" } }
+{ $description "Returns true if either " { $link has-gl-version? } " or " { $link has-gl-extensions? } " returns true for " { $snippet "version" } " or " { $snippet "extensions" } ", respectively. Intended for use when required OpenGL functionality can be verified either by a minimum version or a set of equivalent extensions." } ;
+
+HELP: require-gl-extensions
+{ $values { "extensions" "A sequence of extension name strings" } }
+{ $description "Throws an exception if " { $link has-gl-extensions? } " returns false for " { $snippet "extensions" } "." } ;
+
+HELP: require-gl-version-or-extensions
+{ $values { "version" "A version string" } { "extensions" "A sequence of extension name strings" } }
+{ $description "Throws an exception if neither " { $link has-gl-version? } " nor " { $link has-gl-extensions? } " returns true for " { $snippet "version" } " or " { $snippet "extensions" } ", respectively. Intended for use when required OpenGL functionality can be verified either by a minimum version or a set of equivalent extensions." } ;
+
+{ require-gl-version require-glsl-version require-gl-extensions require-gl-version-or-extensions has-gl-version? has-glsl-version? has-gl-extensions? has-gl-version-or-extensions? gl-version glsl-version gl-extensions } related-words
+
+ABOUT: "gl-utilities"
--- /dev/null
+! Copyright (C) 2008 Joe Groff.
+! See http://factorcode.org/license.txt for BSD license.
+USING: kernel namespaces sequences splitting opengl.gl
+continuations math.parser math arrays sets math.order ;
+IN: opengl.capabilities
+
+: (require-gl) ( thing require-quot make-error-quot -- )
+ >r dupd call
+ [ r> 2drop ]
+ [ r> " " make throw ]
+ if ; inline
+
+: gl-extensions ( -- seq )
+ GL_EXTENSIONS glGetString " " split ;
+: has-gl-extensions? ( extensions -- ? )
+ gl-extensions swap [ over member? ] all? nip ;
+: (make-gl-extensions-error) ( required-extensions -- )
+ gl-extensions diff
+ "Required OpenGL extensions not supported:\n" %
+ [ " " % % "\n" % ] each ;
+: require-gl-extensions ( extensions -- )
+ [ has-gl-extensions? ]
+ [ (make-gl-extensions-error) ]
+ (require-gl) ;
+
+: version-seq ( version-string -- version-seq )
+ "." split [ string>number ] map ;
+
+: version-before? ( version1 version2 -- ? )
+ swap version-seq swap version-seq before=? ;
+
+: (gl-version) ( -- version vendor )
+ GL_VERSION glGetString " " split1 ;
+: gl-version ( -- version )
+ (gl-version) drop ;
+: gl-vendor-version ( -- version )
+ (gl-version) nip ;
+: has-gl-version? ( version -- ? )
+ gl-version version-before? ;
+: (make-gl-version-error) ( required-version -- )
+ "Required OpenGL version " % % " not supported (" % gl-version % " available)" % ;
+: require-gl-version ( version -- )
+ [ has-gl-version? ]
+ [ (make-gl-version-error) ]
+ (require-gl) ;
+
+: (glsl-version) ( -- version vendor )
+ GL_SHADING_LANGUAGE_VERSION glGetString " " split1 ;
+: glsl-version ( -- version )
+ (glsl-version) drop ;
+: glsl-vendor-version ( -- version )
+ (glsl-version) nip ;
+: has-glsl-version? ( version -- ? )
+ glsl-version version-before? ;
+: require-glsl-version ( version -- )
+ [ has-glsl-version? ]
+ [ "Required GLSL version " % % " not supported (" % glsl-version % " available)" % ]
+ (require-gl) ;
+
+: has-gl-version-or-extensions? ( version extensions -- ? )
+ has-gl-extensions? swap has-gl-version? or ;
+
+: require-gl-version-or-extensions ( version extensions -- )
+ 2array [ first2 has-gl-version-or-extensions? ] [
+ dup first (make-gl-version-error) "\n" %
+ second (make-gl-extensions-error) "\n" %
+ ] (require-gl) ;
--- /dev/null
+Testing for OpenGL versions and extensions
\ No newline at end of file
--- /dev/null
+opengl
+bindings
--- /dev/null
+Joe Groff
\ No newline at end of file
--- /dev/null
+USING: arrays kernel math math.functions
+math.order math.vectors namespaces opengl opengl.gl sequences ui
+ui.gadgets ui.gestures ui.render accessors ;
+IN: opengl.demo-support
+
+: FOV 2.0 sqrt 1+ ; inline
+: MOUSE-MOTION-SCALE 0.5 ; inline
+: KEY-ROTATE-STEP 1.0 ; inline
+
+SYMBOL: last-drag-loc
+
+TUPLE: demo-gadget < gadget yaw pitch distance ;
+
+: new-demo-gadget ( yaw pitch distance class -- gadget )
+ new-gadget
+ swap >>distance
+ swap >>pitch
+ swap >>yaw ;
+
+GENERIC: far-plane ( gadget -- z )
+GENERIC: near-plane ( gadget -- z )
+GENERIC: distance-step ( gadget -- dz )
+
+M: demo-gadget far-plane ( gadget -- z )
+ drop 4.0 ;
+M: demo-gadget near-plane ( gadget -- z )
+ drop 1.0 64.0 / ;
+M: demo-gadget distance-step ( gadget -- dz )
+ drop 1.0 64.0 / ;
+
+: fov-ratio ( gadget -- fov ) dim>> dup first2 min v/n ;
+
+: yaw-demo-gadget ( yaw gadget -- )
+ [ + ] with change-yaw relayout-1 ;
+
+: pitch-demo-gadget ( pitch gadget -- )
+ [ + ] with change-pitch relayout-1 ;
+
+: zoom-demo-gadget ( distance gadget -- )
+ [ + ] with change-distance relayout-1 ;
+
+M: demo-gadget pref-dim* ( gadget -- dim )
+ drop { 640 480 } ;
+
+: -+ ( x -- -x x )
+ [ neg ] keep ;
+
+: demo-gadget-frustum ( gadget -- -x x -y y near far )
+ [ near-plane ] [ far-plane ] [ fov-ratio ] tri [
+ nip swap FOV / v*n
+ first2 [ -+ ] bi@
+ ] 3keep drop ;
+
+: demo-gadget-set-matrices ( gadget -- )
+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT bitor glClear
+ [
+ GL_PROJECTION glMatrixMode
+ glLoadIdentity
+ demo-gadget-frustum glFrustum
+ ] [
+ GL_MODELVIEW glMatrixMode
+ glLoadIdentity
+ [ >r 0.0 0.0 r> distance>> neg glTranslatef ]
+ [ pitch>> 1.0 0.0 0.0 glRotatef ]
+ [ yaw>> 0.0 1.0 0.0 glRotatef ]
+ tri
+ ] bi ;
+
+: reset-last-drag-rel ( -- )
+ { 0 0 } last-drag-loc set-global ;
+: last-drag-rel ( -- rel )
+ drag-loc [ last-drag-loc get v- ] keep last-drag-loc set-global ;
+
+: drag-yaw-pitch ( -- yaw pitch )
+ last-drag-rel MOUSE-MOTION-SCALE v*n first2 ;
+
+demo-gadget H{
+ { T{ key-down f f "LEFT" } [ KEY-ROTATE-STEP neg swap yaw-demo-gadget ] }
+ { T{ key-down f f "RIGHT" } [ KEY-ROTATE-STEP swap yaw-demo-gadget ] }
+ { T{ key-down f f "DOWN" } [ KEY-ROTATE-STEP neg swap pitch-demo-gadget ] }
+ { T{ key-down f f "UP" } [ KEY-ROTATE-STEP swap pitch-demo-gadget ] }
+ { T{ key-down f f "=" } [ dup distance-step neg swap zoom-demo-gadget ] }
+ { T{ key-down f f "-" } [ dup distance-step swap zoom-demo-gadget ] }
+
+ { T{ button-down f f 1 } [ drop reset-last-drag-rel ] }
+ { T{ drag f 1 } [ drag-yaw-pitch rot [ pitch-demo-gadget ] keep yaw-demo-gadget ] }
+ { T{ mouse-scroll } [ scroll-direction get second over distance-step * swap zoom-demo-gadget ] }
+} set-gestures
+
--- /dev/null
+Common support for OpenGL demos
\ No newline at end of file
--- /dev/null
+Joe Groff
\ No newline at end of file
--- /dev/null
+USING: help.markup help.syntax io kernel math quotations
+opengl.gl multiline assocs ;
+IN: opengl.framebuffers
+
+HELP: gen-framebuffer
+{ $values { "id" integer } }
+{ $description "Wrapper for " { $link glGenFramebuffersEXT } " to handle the common case of generating a single framebuffer ID." } ;
+
+HELP: gen-renderbuffer
+{ $values { "id" integer } }
+{ $description "Wrapper for " { $link glGenRenderbuffersEXT } " to handle the common case of generating a single render buffer ID." } ;
+
+HELP: delete-framebuffer
+{ $values { "id" integer } }
+{ $description "Wrapper for " { $link glDeleteFramebuffersEXT } " to handle the common case of deleting a single framebuffer ID." } ;
+
+HELP: delete-renderbuffer
+{ $values { "id" integer } }
+{ $description "Wrapper for " { $link glDeleteRenderbuffersEXT } " to handle the common case of deleting a single render buffer ID." } ;
+
+{ gen-framebuffer delete-framebuffer } related-words
+{ gen-renderbuffer delete-renderbuffer } related-words
+
+HELP: framebuffer-incomplete?
+{ $values { "status/f" "The framebuffer error code, or " { $snippet "f" } " if the framebuffer is render-complete." } }
+{ $description "Checks the framebuffer currently bound by " { $link glBindFramebufferEXT } " or " { $link with-framebuffer } " to see if it is incomplete, i.e., it is not ready to be rendered to." } ;
+
+HELP: check-framebuffer
+{ $description "Checks the framebuffer currently bound by " { $link glBindFramebufferEXT } " or " { $link with-framebuffer } " with " { $link framebuffer-incomplete? } ", and throws a descriptive error if the framebuffer is incomplete." } ;
+
+HELP: with-framebuffer
+{ $values { "id" "The id of a framebuffer object." } { "quot" "a quotation" } }
+{ $description "Binds framebuffer " { $snippet "id" } " in the dynamic extent of " { $snippet "quot" } ", restoring the window framebuffer when finished." } ;
+
+ABOUT: "gl-utilities"
\ No newline at end of file
--- /dev/null
+! Copyright (C) 2008 Joe Groff.
+! See http://factorcode.org/license.txt for BSD license.
+USING: opengl opengl.gl combinators continuations kernel
+alien.c-types ;
+IN: opengl.framebuffers
+
+: gen-framebuffer ( -- id )
+ [ glGenFramebuffersEXT ] (gen-gl-object) ;
+: gen-renderbuffer ( -- id )
+ [ glGenRenderbuffersEXT ] (gen-gl-object) ;
+
+: delete-framebuffer ( id -- )
+ [ glDeleteFramebuffersEXT ] (delete-gl-object) ;
+: delete-renderbuffer ( id -- )
+ [ glDeleteRenderbuffersEXT ] (delete-gl-object) ;
+
+: framebuffer-incomplete? ( -- status/f )
+ GL_FRAMEBUFFER_EXT glCheckFramebufferStatusEXT
+ dup GL_FRAMEBUFFER_COMPLETE_EXT = f rot ? ;
+
+: framebuffer-error ( status -- * )
+ {
+ { GL_FRAMEBUFFER_COMPLETE_EXT [ "framebuffer complete" ] }
+ { GL_FRAMEBUFFER_UNSUPPORTED_EXT [ "framebuffer configuration unsupported" ] }
+ { GL_FRAMEBUFFER_INCOMPLETE_ATTACHMENT_EXT [ "framebuffer incomplete (incomplete attachment)" ] }
+ { GL_FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT_EXT [ "framebuffer incomplete (missing attachment)" ] }
+ { GL_FRAMEBUFFER_INCOMPLETE_DIMENSIONS_EXT [ "framebuffer incomplete (dimension mismatch)" ] }
+ { GL_FRAMEBUFFER_INCOMPLETE_FORMATS_EXT [ "framebuffer incomplete (format mismatch)" ] }
+ { GL_FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER_EXT [ "framebuffer incomplete (draw buffer(s) have no attachment)" ] }
+ { GL_FRAMEBUFFER_INCOMPLETE_READ_BUFFER_EXT [ "framebuffer incomplete (read buffer has no attachment)" ] }
+ [ drop gl-error "unknown framebuffer error" ]
+ } case throw ;
+
+: check-framebuffer ( -- )
+ framebuffer-incomplete? [ framebuffer-error ] when* ;
+
+: with-framebuffer ( id quot -- )
+ GL_FRAMEBUFFER_EXT rot glBindFramebufferEXT
+ [ GL_FRAMEBUFFER_EXT 0 glBindFramebufferEXT ] [ ] cleanup ; inline
+
+: framebuffer-attachment ( attachment -- id )
+ GL_FRAMEBUFFER_EXT swap GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_EXT
+ 0 <uint> [ glGetFramebufferAttachmentParameterivEXT ] keep *uint ;
--- /dev/null
+Rendering to offscreen textures using the GL_EXT_framebuffer_object extension
\ No newline at end of file
--- /dev/null
+opengl
+bindings
--- /dev/null
+IN: opengl.gadgets.tests
+USING: tools.test opengl.gadgets ;
+
+\ render* must-infer
--- /dev/null
+! Copyright (C) 2008 Matthew Willis.
+! See http://factorcode.org/license.txt for BSD license.
+USING: locals math.functions math namespaces
+opengl.gl accessors kernel opengl ui.gadgets
+fry assocs
+destructors sequences ui.render colors ;
+IN: opengl.gadgets
+
+TUPLE: texture-gadget ;
+
+GENERIC: render* ( gadget -- texture dims )
+GENERIC: cache-key* ( gadget -- key )
+
+M: texture-gadget cache-key* ;
+
+SYMBOL: textures
+SYMBOL: refcounts
+
+: init-cache ( symbol -- )
+ dup get [ drop ] [ H{ } clone swap set-global ] if ;
+
+textures init-cache
+refcounts init-cache
+
+: refcount-change ( gadget quot -- )
+ >r cache-key* refcounts get
+ [ [ 0 ] unless* ] r> compose change-at ;
+
+TUPLE: cache-entry tex dims ;
+C: <entry> cache-entry
+
+: make-entry ( gadget -- entry )
+ dup render* <entry>
+ [ swap cache-key* textures get set-at ] keep ;
+
+: get-entry ( gadget -- {texture,dims} )
+ dup cache-key* textures get at
+ [ nip ] [ make-entry ] if* ;
+
+: get-dims ( gadget -- dims )
+ get-entry dims>> ;
+
+: get-texture ( gadget -- texture )
+ get-entry tex>> ;
+
+: release-texture ( gadget -- )
+ cache-key* textures get delete-at*
+ [ tex>> delete-texture ] [ drop ] if ;
+
+M: texture-gadget graft* ( gadget -- ) [ 1+ ] refcount-change ;
+
+M: texture-gadget ungraft* ( gadget -- )
+ dup [ 1- ] refcount-change
+ dup cache-key* refcounts get at
+ zero? [ release-texture ] [ drop ] if ;
+
+: 2^-ceil ( x -- y )
+ dup 2 < [ 2 * ] [ 1- log2 1+ 2^ ] if ; foldable flushable
+
+: 2^-bounds ( dim -- dim' )
+ [ 2^-ceil ] map ; foldable flushable
+
+:: (render-bytes) ( dims bytes format texture -- )
+ GL_ENABLE_BIT [
+ GL_TEXTURE_2D glEnable
+ GL_TEXTURE_2D texture glBindTexture
+ GL_TEXTURE_2D
+ 0
+ GL_RGBA
+ dims 2^-bounds first2
+ 0
+ format
+ GL_UNSIGNED_BYTE
+ bytes
+ glTexImage2D
+ init-texture
+ GL_TEXTURE_2D 0 glBindTexture
+ ] do-attribs ;
+
+: render-bytes ( dims bytes format -- texture )
+ gen-texture [ (render-bytes) ] keep ;
+
+: render-bytes* ( dims bytes format -- texture dims )
+ pick >r render-bytes r> ;
+
+:: four-corners ( dim -- )
+ [let* | w [ dim first ]
+ h [ dim second ]
+ dim' [ dim dup 2^-bounds [ /f ] 2map ]
+ w' [ dim' first ]
+ h' [ dim' second ] |
+ 0 0 glTexCoord2d 0 0 glVertex2d
+ 0 h' glTexCoord2d 0 h glVertex2d
+ w' h' glTexCoord2d w h glVertex2d
+ w' 0 glTexCoord2d w 0 glVertex2d
+ ] ;
+
+M: texture-gadget draw-gadget* ( gadget -- )
+ origin get [
+ GL_ENABLE_BIT [
+ white gl-color
+ 1.0 -1.0 glPixelZoom
+ GL_TEXTURE_2D glEnable
+ GL_TEXTURE_2D over get-texture glBindTexture
+ GL_QUADS [
+ get-dims four-corners
+ ] do-state
+ GL_TEXTURE_2D 0 glBindTexture
+ ] do-attribs
+ ] with-translation ;
+
+M: texture-gadget pref-dim* ( gadget -- dim ) get-dims ;
--- /dev/null
+Slava Pestov
--- /dev/null
+USING: alien alien.syntax combinators kernel parser sequences
+system words namespaces hashtables init math arrays assocs
+continuations lexer ;
+IN: opengl.gl.extensions
+
+ERROR: unknown-gl-platform ;
+<< {
+ { [ os windows? ] [ "opengl.gl.windows" ] }
+ { [ os macosx? ] [ "opengl.gl.macosx" ] }
+ { [ os unix? ] [ "opengl.gl.unix" ] }
+ [ unknown-gl-platform ]
+} cond use+ >>
+
+SYMBOL: +gl-function-number-counter+
+SYMBOL: +gl-function-pointers+
+
+: reset-gl-function-number-counter ( -- )
+ 0 +gl-function-number-counter+ set-global ;
+: reset-gl-function-pointers ( -- )
+ 100 <hashtable> +gl-function-pointers+ set-global ;
+
+[ reset-gl-function-pointers ] "opengl.gl" add-init-hook
+reset-gl-function-pointers
+reset-gl-function-number-counter
+
+: gl-function-number ( -- n )
+ +gl-function-number-counter+ get-global
+ dup 1+ +gl-function-number-counter+ set-global ;
+
+: gl-function-pointer ( names n -- funptr )
+ gl-function-context 2array dup +gl-function-pointers+ get-global at
+ [ 2nip ] [
+ >r [ gl-function-address ] map [ ] find nip
+ dup [ "OpenGL function not available" throw ] unless
+ dup r>
+ +gl-function-pointers+ get-global set-at
+ ] if* ;
+
+: GL-FUNCTION:
+ gl-function-calling-convention
+ scan
+ scan dup
+ scan drop "}" parse-tokens swap prefix
+ gl-function-number
+ [ gl-function-pointer ] 2curry swap
+ ";" parse-tokens [ "()" subseq? not ] filter
+ define-indirect
+ ; parsing
--- /dev/null
+
+USING: help.syntax help.markup ;
+
+IN: opengl.gl
+
+ARTICLE: "opengl-low-level" "OpenGL binding"
+ { $subsection "opengl-specifying-vertices" }
+ { $subsection "opengl-geometric-primitives" }
+ { $subsection "opengl-modeling-transformations" } ;
+
+ARTICLE: "opengl-specifying-vertices" "Specifying Vertices"
+
+ { $subsection glVertex2d }
+ { $subsection glVertex2f }
+ { $subsection glVertex2i }
+ { $subsection glVertex2s }
+ { $subsection glVertex3d }
+ { $subsection glVertex3f }
+ { $subsection glVertex3i }
+ { $subsection glVertex3s }
+ { $subsection glVertex4d }
+ { $subsection glVertex4f }
+ { $subsection glVertex4i }
+ { $subsection glVertex4s }
+ { $subsection glVertex2dv }
+ { $subsection glVertex2fv }
+ { $subsection glVertex2iv }
+ { $subsection glVertex2sv }
+ { $subsection glVertex3dv }
+ { $subsection glVertex3fv }
+ { $subsection glVertex3iv }
+ { $subsection glVertex3sv }
+ { $subsection glVertex4dv }
+ { $subsection glVertex4fv }
+ { $subsection glVertex4iv }
+ { $subsection glVertex4sv } ;
+
+ARTICLE: "opengl-geometric-primitives" "OpenGL Geometric Primitives"
+
+ { $table
+ { { $link GL_POINTS } "individual points" }
+ { { $link GL_LINES } { "pairs of vertices interpreted as "
+ "individual line segments" } }
+ { { $link GL_LINE_STRIP } "series of connected line segments" }
+ { { $link GL_LINE_LOOP } { "same as above, with a segment added "
+ "between last and first vertices" } }
+ { { $link GL_TRIANGLES }
+ "triples of vertices interpreted as triangles" }
+ { { $link GL_TRIANGLE_STRIP } "linked strip of triangles" }
+ { { $link GL_TRIANGLE_FAN } "linked fan of triangles" }
+ { { $link GL_QUADS }
+ "quadruples of vertices interpreted as four-sided polygons" }
+ { { $link GL_QUAD_STRIP } "linked strip of quadrilaterals" }
+ { { $link GL_POLYGON } "boundary of a simple, convex polygon" } }
+
+;
+
+HELP: glBegin
+ { $values { "mode"
+ { "One of the " { $link "opengl-geometric-primitives" } } } } ;
+
+HELP: glPolygonMode
+ { $values { "face" { "One of the following:"
+ { $list { $link GL_FRONT }
+ { $link GL_BACK }
+ { $link GL_FRONT_AND_BACK } } } }
+ { "mode" { "One of the following:"
+ { $list
+ { $link GL_POINT }
+ { $link GL_LINE }
+ { $link GL_FILL } } } } } ;
+
+ARTICLE: "opengl-modeling-transformations" "Modeling Transformations"
+ { $subsection glTranslatef }
+ { $subsection glTranslated }
+ { $subsection glRotatef }
+ { $subsection glRotated }
+ { $subsection glScalef }
+ { $subsection glScaled } ;
+
+
+{ glTranslatef glTranslated glRotatef glRotated glScalef glScaled }
+related-words
+
+
--- /dev/null
+! Copyright (C) 2005 Alex Chapman.
+! See http://factorcode.org/license.txt for BSD license.
+
+! This file is based on the gl.h that comes with xorg-x11 6.8.2
+
+USING: alien alien.syntax combinators kernel parser sequences
+system words opengl.gl.extensions ;
+
+IN: opengl.gl
+
+TYPEDEF: uint GLenum
+TYPEDEF: uchar GLboolean
+TYPEDEF: uint GLbitfield
+TYPEDEF: char GLbyte
+TYPEDEF: short GLshort
+TYPEDEF: int GLint
+TYPEDEF: int GLsizei
+TYPEDEF: uchar GLubyte
+TYPEDEF: ushort GLushort
+TYPEDEF: uint GLuint
+TYPEDEF: float GLfloat
+TYPEDEF: float GLclampf
+TYPEDEF: double GLdouble
+TYPEDEF: double GLclampd
+TYPEDEF: void* GLvoid*
+
+! Constants
+
+! Boolean values
+: GL_FALSE HEX: 0 ; inline
+: GL_TRUE HEX: 1 ; inline
+
+! Data types
+: GL_BYTE HEX: 1400 ; inline
+: GL_UNSIGNED_BYTE HEX: 1401 ; inline
+: GL_SHORT HEX: 1402 ; inline
+: GL_UNSIGNED_SHORT HEX: 1403 ; inline
+: GL_INT HEX: 1404 ; inline
+: GL_UNSIGNED_INT HEX: 1405 ; inline
+: GL_FLOAT HEX: 1406 ; inline
+: GL_2_BYTES HEX: 1407 ; inline
+: GL_3_BYTES HEX: 1408 ; inline
+: GL_4_BYTES HEX: 1409 ; inline
+: GL_DOUBLE HEX: 140A ; inline
+
+! Primitives
+: GL_POINTS HEX: 0000 ; inline
+: GL_LINES HEX: 0001 ; inline
+: GL_LINE_LOOP HEX: 0002 ; inline
+: GL_LINE_STRIP HEX: 0003 ; inline
+: GL_TRIANGLES HEX: 0004 ; inline
+: GL_TRIANGLE_STRIP HEX: 0005 ; inline
+: GL_TRIANGLE_FAN HEX: 0006 ; inline
+: GL_QUADS HEX: 0007 ; inline
+: GL_QUAD_STRIP HEX: 0008 ; inline
+: GL_POLYGON HEX: 0009 ; inline
+
+! Vertex arrays
+: GL_VERTEX_ARRAY HEX: 8074 ; inline
+: GL_NORMAL_ARRAY HEX: 8075 ; inline
+: GL_COLOR_ARRAY HEX: 8076 ; inline
+: GL_INDEX_ARRAY HEX: 8077 ; inline
+: GL_TEXTURE_COORD_ARRAY HEX: 8078 ; inline
+: GL_EDGE_FLAG_ARRAY HEX: 8079 ; inline
+: GL_VERTEX_ARRAY_SIZE HEX: 807A ; inline
+: GL_VERTEX_ARRAY_TYPE HEX: 807B ; inline
+: GL_VERTEX_ARRAY_STRIDE HEX: 807C ; inline
+: GL_NORMAL_ARRAY_TYPE HEX: 807E ; inline
+: GL_NORMAL_ARRAY_STRIDE HEX: 807F ; inline
+: GL_COLOR_ARRAY_SIZE HEX: 8081 ; inline
+: GL_COLOR_ARRAY_TYPE HEX: 8082 ; inline
+: GL_COLOR_ARRAY_STRIDE HEX: 8083 ; inline
+: GL_INDEX_ARRAY_TYPE HEX: 8085 ; inline
+: GL_INDEX_ARRAY_STRIDE HEX: 8086 ; inline
+: GL_TEXTURE_COORD_ARRAY_SIZE HEX: 8088 ; inline
+: GL_TEXTURE_COORD_ARRAY_TYPE HEX: 8089 ; inline
+: GL_TEXTURE_COORD_ARRAY_STRIDE HEX: 808A ; inline
+: GL_EDGE_FLAG_ARRAY_STRIDE HEX: 808C ; inline
+: GL_VERTEX_ARRAY_POINTER HEX: 808E ; inline
+: GL_NORMAL_ARRAY_POINTER HEX: 808F ; inline
+: GL_COLOR_ARRAY_POINTER HEX: 8090 ; inline
+: GL_INDEX_ARRAY_POINTER HEX: 8091 ; inline
+: GL_TEXTURE_COORD_ARRAY_POINTER HEX: 8092 ; inline
+: GL_EDGE_FLAG_ARRAY_POINTER HEX: 8093 ; inline
+: GL_V2F HEX: 2A20 ; inline
+: GL_V3F HEX: 2A21 ; inline
+: GL_C4UB_V2F HEX: 2A22 ; inline
+: GL_C4UB_V3F HEX: 2A23 ; inline
+: GL_C3F_V3F HEX: 2A24 ; inline
+: GL_N3F_V3F HEX: 2A25 ; inline
+: GL_C4F_N3F_V3F HEX: 2A26 ; inline
+: GL_T2F_V3F HEX: 2A27 ; inline
+: GL_T4F_V4F HEX: 2A28 ; inline
+: GL_T2F_C4UB_V3F HEX: 2A29 ; inline
+: GL_T2F_C3F_V3F HEX: 2A2A ; inline
+: GL_T2F_N3F_V3F HEX: 2A2B ; inline
+: GL_T2F_C4F_N3F_V3F HEX: 2A2C ; inline
+: GL_T4F_C4F_N3F_V4F HEX: 2A2D ; inline
+
+! Matrix mode
+: GL_MATRIX_MODE HEX: 0BA0 ; inline
+: GL_MODELVIEW HEX: 1700 ; inline
+: GL_PROJECTION HEX: 1701 ; inline
+: GL_TEXTURE HEX: 1702 ; inline
+
+! Points
+: GL_POINT_SMOOTH HEX: 0B10 ; inline
+: GL_POINT_SIZE HEX: 0B11 ; inline
+: GL_POINT_SIZE_GRANULARITY HEX: 0B13 ; inline
+: GL_POINT_SIZE_RANGE HEX: 0B12 ; inline
+
+! Lines
+: GL_LINE_SMOOTH HEX: 0B20 ; inline
+: GL_LINE_STIPPLE HEX: 0B24 ; inline
+: GL_LINE_STIPPLE_PATTERN HEX: 0B25 ; inline
+: GL_LINE_STIPPLE_REPEAT HEX: 0B26 ; inline
+: GL_LINE_WIDTH HEX: 0B21 ; inline
+: GL_LINE_WIDTH_GRANULARITY HEX: 0B23 ; inline
+: GL_LINE_WIDTH_RANGE HEX: 0B22 ; inline
+
+! Polygons
+: GL_POINT HEX: 1B00 ; inline
+: GL_LINE HEX: 1B01 ; inline
+: GL_FILL HEX: 1B02 ; inline
+: GL_CW HEX: 0900 ; inline
+: GL_CCW HEX: 0901 ; inline
+: GL_FRONT HEX: 0404 ; inline
+: GL_BACK HEX: 0405 ; inline
+: GL_POLYGON_MODE HEX: 0B40 ; inline
+: GL_POLYGON_SMOOTH HEX: 0B41 ; inline
+: GL_POLYGON_STIPPLE HEX: 0B42 ; inline
+: GL_EDGE_FLAG HEX: 0B43 ; inline
+: GL_CULL_FACE HEX: 0B44 ; inline
+: GL_CULL_FACE_MODE HEX: 0B45 ; inline
+: GL_FRONT_FACE HEX: 0B46 ; inline
+: GL_POLYGON_OFFSET_FACTOR HEX: 8038 ; inline
+: GL_POLYGON_OFFSET_UNITS HEX: 2A00 ; inline
+: GL_POLYGON_OFFSET_POINT HEX: 2A01 ; inline
+: GL_POLYGON_OFFSET_LINE HEX: 2A02 ; inline
+: GL_POLYGON_OFFSET_FILL HEX: 8037 ; inline
+
+! Display Lists
+: GL_COMPILE HEX: 1300 ; inline
+: GL_COMPILE_AND_EXECUTE HEX: 1301 ; inline
+: GL_LIST_BASE HEX: 0B32 ; inline
+: GL_LIST_INDEX HEX: 0B33 ; inline
+: GL_LIST_MODE HEX: 0B30 ; inline
+
+! Depth buffer
+: GL_NEVER HEX: 0200 ; inline
+: GL_LESS HEX: 0201 ; inline
+: GL_EQUAL HEX: 0202 ; inline
+: GL_LEQUAL HEX: 0203 ; inline
+: GL_GREATER HEX: 0204 ; inline
+: GL_NOTEQUAL HEX: 0205 ; inline
+: GL_GEQUAL HEX: 0206 ; inline
+: GL_ALWAYS HEX: 0207 ; inline
+: GL_DEPTH_TEST HEX: 0B71 ; inline
+: GL_DEPTH_BITS HEX: 0D56 ; inline
+: GL_DEPTH_CLEAR_VALUE HEX: 0B73 ; inline
+: GL_DEPTH_FUNC HEX: 0B74 ; inline
+: GL_DEPTH_RANGE HEX: 0B70 ; inline
+: GL_DEPTH_WRITEMASK HEX: 0B72 ; inline
+: GL_DEPTH_COMPONENT HEX: 1902 ; inline
+
+! Lighting
+: GL_LIGHTING HEX: 0B50 ; inline
+: GL_LIGHT0 HEX: 4000 ; inline
+: GL_LIGHT1 HEX: 4001 ; inline
+: GL_LIGHT2 HEX: 4002 ; inline
+: GL_LIGHT3 HEX: 4003 ; inline
+: GL_LIGHT4 HEX: 4004 ; inline
+: GL_LIGHT5 HEX: 4005 ; inline
+: GL_LIGHT6 HEX: 4006 ; inline
+: GL_LIGHT7 HEX: 4007 ; inline
+: GL_SPOT_EXPONENT HEX: 1205 ; inline
+: GL_SPOT_CUTOFF HEX: 1206 ; inline
+: GL_CONSTANT_ATTENUATION HEX: 1207 ; inline
+: GL_LINEAR_ATTENUATION HEX: 1208 ; inline
+: GL_QUADRATIC_ATTENUATION HEX: 1209 ; inline
+: GL_AMBIENT HEX: 1200 ; inline
+: GL_DIFFUSE HEX: 1201 ; inline
+: GL_SPECULAR HEX: 1202 ; inline
+: GL_SHININESS HEX: 1601 ; inline
+: GL_EMISSION HEX: 1600 ; inline
+: GL_POSITION HEX: 1203 ; inline
+: GL_SPOT_DIRECTION HEX: 1204 ; inline
+: GL_AMBIENT_AND_DIFFUSE HEX: 1602 ; inline
+: GL_COLOR_INDEXES HEX: 1603 ; inline
+: GL_LIGHT_MODEL_TWO_SIDE HEX: 0B52 ; inline
+: GL_LIGHT_MODEL_LOCAL_VIEWER HEX: 0B51 ; inline
+: GL_LIGHT_MODEL_AMBIENT HEX: 0B53 ; inline
+: GL_FRONT_AND_BACK HEX: 0408 ; inline
+: GL_SHADE_MODEL HEX: 0B54 ; inline
+: GL_FLAT HEX: 1D00 ; inline
+: GL_SMOOTH HEX: 1D01 ; inline
+: GL_COLOR_MATERIAL HEX: 0B57 ; inline
+: GL_COLOR_MATERIAL_FACE HEX: 0B55 ; inline
+: GL_COLOR_MATERIAL_PARAMETER HEX: 0B56 ; inline
+: GL_NORMALIZE HEX: 0BA1 ; inline
+
+! User clipping planes
+: GL_CLIP_PLANE0 HEX: 3000 ; inline
+: GL_CLIP_PLANE1 HEX: 3001 ; inline
+: GL_CLIP_PLANE2 HEX: 3002 ; inline
+: GL_CLIP_PLANE3 HEX: 3003 ; inline
+: GL_CLIP_PLANE4 HEX: 3004 ; inline
+: GL_CLIP_PLANE5 HEX: 3005 ; inline
+
+! Accumulation buffer
+: GL_ACCUM_RED_BITS HEX: 0D58 ; inline
+: GL_ACCUM_GREEN_BITS HEX: 0D59 ; inline
+: GL_ACCUM_BLUE_BITS HEX: 0D5A ; inline
+: GL_ACCUM_ALPHA_BITS HEX: 0D5B ; inline
+: GL_ACCUM_CLEAR_VALUE HEX: 0B80 ; inline
+: GL_ACCUM HEX: 0100 ; inline
+: GL_ADD HEX: 0104 ; inline
+: GL_LOAD HEX: 0101 ; inline
+: GL_MULT HEX: 0103 ; inline
+: GL_RETURN HEX: 0102 ; inline
+
+! Alpha testing
+: GL_ALPHA_TEST HEX: 0BC0 ; inline
+: GL_ALPHA_TEST_REF HEX: 0BC2 ; inline
+: GL_ALPHA_TEST_FUNC HEX: 0BC1 ; inline
+
+! Blending
+: GL_BLEND HEX: 0BE2 ; inline
+: GL_BLEND_SRC HEX: 0BE1 ; inline
+: GL_BLEND_DST HEX: 0BE0 ; inline
+: GL_ZERO HEX: 0 ; inline
+: GL_ONE HEX: 1 ; inline
+: GL_SRC_COLOR HEX: 0300 ; inline
+: GL_ONE_MINUS_SRC_COLOR HEX: 0301 ; inline
+: GL_SRC_ALPHA HEX: 0302 ; inline
+: GL_ONE_MINUS_SRC_ALPHA HEX: 0303 ; inline
+: GL_DST_ALPHA HEX: 0304 ; inline
+: GL_ONE_MINUS_DST_ALPHA HEX: 0305 ; inline
+: GL_DST_COLOR HEX: 0306 ; inline
+: GL_ONE_MINUS_DST_COLOR HEX: 0307 ; inline
+: GL_SRC_ALPHA_SATURATE HEX: 0308 ; inline
+
+! Render Mode
+: GL_FEEDBACK HEX: 1C01 ; inline
+: GL_RENDER HEX: 1C00 ; inline
+: GL_SELECT HEX: 1C02 ; inline
+
+! Feedback
+: GL_2D HEX: 0600 ; inline
+: GL_3D HEX: 0601 ; inline
+: GL_3D_COLOR HEX: 0602 ; inline
+: GL_3D_COLOR_TEXTURE HEX: 0603 ; inline
+: GL_4D_COLOR_TEXTURE HEX: 0604 ; inline
+: GL_POINT_TOKEN HEX: 0701 ; inline
+: GL_LINE_TOKEN HEX: 0702 ; inline
+: GL_LINE_RESET_TOKEN HEX: 0707 ; inline
+: GL_POLYGON_TOKEN HEX: 0703 ; inline
+: GL_BITMAP_TOKEN HEX: 0704 ; inline
+: GL_DRAW_PIXEL_TOKEN HEX: 0705 ; inline
+: GL_COPY_PIXEL_TOKEN HEX: 0706 ; inline
+: GL_PASS_THROUGH_TOKEN HEX: 0700 ; inline
+: GL_FEEDBACK_BUFFER_POINTER HEX: 0DF0 ; inline
+: GL_FEEDBACK_BUFFER_SIZE HEX: 0DF1 ; inline
+: GL_FEEDBACK_BUFFER_TYPE HEX: 0DF2 ; inline
+
+! Selection
+: GL_SELECTION_BUFFER_POINTER HEX: 0DF3 ; inline
+: GL_SELECTION_BUFFER_SIZE HEX: 0DF4 ; inline
+
+! Fog
+: GL_FOG HEX: 0B60 ; inline
+: GL_FOG_MODE HEX: 0B65 ; inline
+: GL_FOG_DENSITY HEX: 0B62 ; inline
+: GL_FOG_COLOR HEX: 0B66 ; inline
+: GL_FOG_INDEX HEX: 0B61 ; inline
+: GL_FOG_START HEX: 0B63 ; inline
+: GL_FOG_END HEX: 0B64 ; inline
+: GL_LINEAR HEX: 2601 ; inline
+: GL_EXP HEX: 0800 ; inline
+: GL_EXP2 HEX: 0801 ; inline
+
+! Logic Ops
+: GL_LOGIC_OP HEX: 0BF1 ; inline
+: GL_INDEX_LOGIC_OP HEX: 0BF1 ; inline
+: GL_COLOR_LOGIC_OP HEX: 0BF2 ; inline
+: GL_LOGIC_OP_MODE HEX: 0BF0 ; inline
+: GL_CLEAR HEX: 1500 ; inline
+: GL_SET HEX: 150F ; inline
+: GL_COPY HEX: 1503 ; inline
+: GL_COPY_INVERTED HEX: 150C ; inline
+: GL_NOOP HEX: 1505 ; inline
+: GL_INVERT HEX: 150A ; inline
+: GL_AND HEX: 1501 ; inline
+: GL_NAND HEX: 150E ; inline
+: GL_OR HEX: 1507 ; inline
+: GL_NOR HEX: 1508 ; inline
+: GL_XOR HEX: 1506 ; inline
+: GL_EQUIV HEX: 1509 ; inline
+: GL_AND_REVERSE HEX: 1502 ; inline
+: GL_AND_INVERTED HEX: 1504 ; inline
+: GL_OR_REVERSE HEX: 150B ; inline
+: GL_OR_INVERTED HEX: 150D ; inline
+
+! Stencil
+: GL_STENCIL_TEST HEX: 0B90 ; inline
+: GL_STENCIL_WRITEMASK HEX: 0B98 ; inline
+: GL_STENCIL_BITS HEX: 0D57 ; inline
+: GL_STENCIL_FUNC HEX: 0B92 ; inline
+: GL_STENCIL_VALUE_MASK HEX: 0B93 ; inline
+: GL_STENCIL_REF HEX: 0B97 ; inline
+: GL_STENCIL_FAIL HEX: 0B94 ; inline
+: GL_STENCIL_PASS_DEPTH_PASS HEX: 0B96 ; inline
+: GL_STENCIL_PASS_DEPTH_FAIL HEX: 0B95 ; inline
+: GL_STENCIL_CLEAR_VALUE HEX: 0B91 ; inline
+: GL_STENCIL_INDEX HEX: 1901 ; inline
+: GL_KEEP HEX: 1E00 ; inline
+: GL_REPLACE HEX: 1E01 ; inline
+: GL_INCR HEX: 1E02 ; inline
+: GL_DECR HEX: 1E03 ; inline
+
+! Buffers, Pixel Drawing/Reading
+: GL_NONE HEX: 0 ; inline
+: GL_LEFT HEX: 0406 ; inline
+: GL_RIGHT HEX: 0407 ; inline
+! defined elsewhere
+! GL_FRONT HEX: 0404
+! GL_BACK HEX: 0405
+! GL_FRONT_AND_BACK HEX: 0408
+: GL_FRONT_LEFT HEX: 0400 ; inline
+: GL_FRONT_RIGHT HEX: 0401 ; inline
+: GL_BACK_LEFT HEX: 0402 ; inline
+: GL_BACK_RIGHT HEX: 0403 ; inline
+: GL_AUX0 HEX: 0409 ; inline
+: GL_AUX1 HEX: 040A ; inline
+: GL_AUX2 HEX: 040B ; inline
+: GL_AUX3 HEX: 040C ; inline
+: GL_COLOR_INDEX HEX: 1900 ; inline
+: GL_RED HEX: 1903 ; inline
+: GL_GREEN HEX: 1904 ; inline
+: GL_BLUE HEX: 1905 ; inline
+: GL_ALPHA HEX: 1906 ; inline
+: GL_LUMINANCE HEX: 1909 ; inline
+: GL_LUMINANCE_ALPHA HEX: 190A ; inline
+: GL_ALPHA_BITS HEX: 0D55 ; inline
+: GL_RED_BITS HEX: 0D52 ; inline
+: GL_GREEN_BITS HEX: 0D53 ; inline
+: GL_BLUE_BITS HEX: 0D54 ; inline
+: GL_INDEX_BITS HEX: 0D51 ; inline
+: GL_SUBPIXEL_BITS HEX: 0D50 ; inline
+: GL_AUX_BUFFERS HEX: 0C00 ; inline
+: GL_READ_BUFFER HEX: 0C02 ; inline
+: GL_DRAW_BUFFER HEX: 0C01 ; inline
+: GL_DOUBLEBUFFER HEX: 0C32 ; inline
+: GL_STEREO HEX: 0C33 ; inline
+: GL_BITMAP HEX: 1A00 ; inline
+: GL_COLOR HEX: 1800 ; inline
+: GL_DEPTH HEX: 1801 ; inline
+: GL_STENCIL HEX: 1802 ; inline
+: GL_DITHER HEX: 0BD0 ; inline
+: GL_RGB HEX: 1907 ; inline
+: GL_RGBA HEX: 1908 ; inline
+
+! Implementation limits
+: GL_MAX_LIST_NESTING HEX: 0B31 ; inline
+: GL_MAX_ATTRIB_STACK_DEPTH HEX: 0D35 ; inline
+: GL_MAX_MODELVIEW_STACK_DEPTH HEX: 0D36 ; inline
+: GL_MAX_NAME_STACK_DEPTH HEX: 0D37 ; inline
+: GL_MAX_PROJECTION_STACK_DEPTH HEX: 0D38 ; inline
+: GL_MAX_TEXTURE_STACK_DEPTH HEX: 0D39 ; inline
+: GL_MAX_EVAL_ORDER HEX: 0D30 ; inline
+: GL_MAX_LIGHTS HEX: 0D31 ; inline
+: GL_MAX_CLIP_PLANES HEX: 0D32 ; inline
+: GL_MAX_TEXTURE_SIZE HEX: 0D33 ; inline
+: GL_MAX_PIXEL_MAP_TABLE HEX: 0D34 ; inline
+: GL_MAX_VIEWPORT_DIMS HEX: 0D3A ; inline
+: GL_MAX_CLIENT_ATTRIB_STACK_DEPTH HEX: 0D3B ; inline
+
+! Gets
+: GL_ATTRIB_STACK_DEPTH HEX: 0BB0 ; inline
+: GL_CLIENT_ATTRIB_STACK_DEPTH HEX: 0BB1 ; inline
+: GL_COLOR_CLEAR_VALUE HEX: 0C22 ; inline
+: GL_COLOR_WRITEMASK HEX: 0C23 ; inline
+: GL_CURRENT_INDEX HEX: 0B01 ; inline
+: GL_CURRENT_COLOR HEX: 0B00 ; inline
+: GL_CURRENT_NORMAL HEX: 0B02 ; inline
+: GL_CURRENT_RASTER_COLOR HEX: 0B04 ; inline
+: GL_CURRENT_RASTER_DISTANCE HEX: 0B09 ; inline
+: GL_CURRENT_RASTER_INDEX HEX: 0B05 ; inline
+: GL_CURRENT_RASTER_POSITION HEX: 0B07 ; inline
+: GL_CURRENT_RASTER_TEXTURE_COORDS HEX: 0B06 ; inline
+: GL_CURRENT_RASTER_POSITION_VALID HEX: 0B08 ; inline
+: GL_CURRENT_TEXTURE_COORDS HEX: 0B03 ; inline
+: GL_INDEX_CLEAR_VALUE HEX: 0C20 ; inline
+: GL_INDEX_MODE HEX: 0C30 ; inline
+: GL_INDEX_WRITEMASK HEX: 0C21 ; inline
+: GL_MODELVIEW_MATRIX HEX: 0BA6 ; inline
+: GL_MODELVIEW_STACK_DEPTH HEX: 0BA3 ; inline
+: GL_NAME_STACK_DEPTH HEX: 0D70 ; inline
+: GL_PROJECTION_MATRIX HEX: 0BA7 ; inline
+: GL_PROJECTION_STACK_DEPTH HEX: 0BA4 ; inline
+: GL_RENDER_MODE HEX: 0C40 ; inline
+: GL_RGBA_MODE HEX: 0C31 ; inline
+: GL_TEXTURE_MATRIX HEX: 0BA8 ; inline
+: GL_TEXTURE_STACK_DEPTH HEX: 0BA5 ; inline
+: GL_VIEWPORT HEX: 0BA2 ; inline
+
+! Evaluators inline
+: GL_AUTO_NORMAL HEX: 0D80 ; inline
+: GL_MAP1_COLOR_4 HEX: 0D90 ; inline
+: GL_MAP1_INDEX HEX: 0D91 ; inline
+: GL_MAP1_NORMAL HEX: 0D92 ; inline
+: GL_MAP1_TEXTURE_COORD_1 HEX: 0D93 ; inline
+: GL_MAP1_TEXTURE_COORD_2 HEX: 0D94 ; inline
+: GL_MAP1_TEXTURE_COORD_3 HEX: 0D95 ; inline
+: GL_MAP1_TEXTURE_COORD_4 HEX: 0D96 ; inline
+: GL_MAP1_VERTEX_3 HEX: 0D97 ; inline
+: GL_MAP1_VERTEX_4 HEX: 0D98 ; inline
+: GL_MAP2_COLOR_4 HEX: 0DB0 ; inline
+: GL_MAP2_INDEX HEX: 0DB1 ; inline
+: GL_MAP2_NORMAL HEX: 0DB2 ; inline
+: GL_MAP2_TEXTURE_COORD_1 HEX: 0DB3 ; inline
+: GL_MAP2_TEXTURE_COORD_2 HEX: 0DB4 ; inline
+: GL_MAP2_TEXTURE_COORD_3 HEX: 0DB5 ; inline
+: GL_MAP2_TEXTURE_COORD_4 HEX: 0DB6 ; inline
+: GL_MAP2_VERTEX_3 HEX: 0DB7 ; inline
+: GL_MAP2_VERTEX_4 HEX: 0DB8 ; inline
+: GL_MAP1_GRID_DOMAIN HEX: 0DD0 ; inline
+: GL_MAP1_GRID_SEGMENTS HEX: 0DD1 ; inline
+: GL_MAP2_GRID_DOMAIN HEX: 0DD2 ; inline
+: GL_MAP2_GRID_SEGMENTS HEX: 0DD3 ; inline
+: GL_COEFF HEX: 0A00 ; inline
+: GL_DOMAIN HEX: 0A02 ; inline
+: GL_ORDER HEX: 0A01 ; inline
+
+! Hints inline
+: GL_FOG_HINT HEX: 0C54 ; inline
+: GL_LINE_SMOOTH_HINT HEX: 0C52 ; inline
+: GL_PERSPECTIVE_CORRECTION_HINT HEX: 0C50 ; inline
+: GL_POINT_SMOOTH_HINT HEX: 0C51 ; inline
+: GL_POLYGON_SMOOTH_HINT HEX: 0C53 ; inline
+: GL_DONT_CARE HEX: 1100 ; inline
+: GL_FASTEST HEX: 1101 ; inline
+: GL_NICEST HEX: 1102 ; inline
+
+! Scissor box inline
+: GL_SCISSOR_TEST HEX: 0C11 ; inline
+: GL_SCISSOR_BOX HEX: 0C10 ; inline
+
+! Pixel Mode / Transfer inline
+: GL_MAP_COLOR HEX: 0D10 ; inline
+: GL_MAP_STENCIL HEX: 0D11 ; inline
+: GL_INDEX_SHIFT HEX: 0D12 ; inline
+: GL_INDEX_OFFSET HEX: 0D13 ; inline
+: GL_RED_SCALE HEX: 0D14 ; inline
+: GL_RED_BIAS HEX: 0D15 ; inline
+: GL_GREEN_SCALE HEX: 0D18 ; inline
+: GL_GREEN_BIAS HEX: 0D19 ; inline
+: GL_BLUE_SCALE HEX: 0D1A ; inline
+: GL_BLUE_BIAS HEX: 0D1B ; inline
+: GL_ALPHA_SCALE HEX: 0D1C ; inline
+: GL_ALPHA_BIAS HEX: 0D1D ; inline
+: GL_DEPTH_SCALE HEX: 0D1E ; inline
+: GL_DEPTH_BIAS HEX: 0D1F ; inline
+: GL_PIXEL_MAP_S_TO_S_SIZE HEX: 0CB1 ; inline
+: GL_PIXEL_MAP_I_TO_I_SIZE HEX: 0CB0 ; inline
+: GL_PIXEL_MAP_I_TO_R_SIZE HEX: 0CB2 ; inline
+: GL_PIXEL_MAP_I_TO_G_SIZE HEX: 0CB3 ; inline
+: GL_PIXEL_MAP_I_TO_B_SIZE HEX: 0CB4 ; inline
+: GL_PIXEL_MAP_I_TO_A_SIZE HEX: 0CB5 ; inline
+: GL_PIXEL_MAP_R_TO_R_SIZE HEX: 0CB6 ; inline
+: GL_PIXEL_MAP_G_TO_G_SIZE HEX: 0CB7 ; inline
+: GL_PIXEL_MAP_B_TO_B_SIZE HEX: 0CB8 ; inline
+: GL_PIXEL_MAP_A_TO_A_SIZE HEX: 0CB9 ; inline
+: GL_PIXEL_MAP_S_TO_S HEX: 0C71 ; inline
+: GL_PIXEL_MAP_I_TO_I HEX: 0C70 ; inline
+: GL_PIXEL_MAP_I_TO_R HEX: 0C72 ; inline
+: GL_PIXEL_MAP_I_TO_G HEX: 0C73 ; inline
+: GL_PIXEL_MAP_I_TO_B HEX: 0C74 ; inline
+: GL_PIXEL_MAP_I_TO_A HEX: 0C75 ; inline
+: GL_PIXEL_MAP_R_TO_R HEX: 0C76 ; inline
+: GL_PIXEL_MAP_G_TO_G HEX: 0C77 ; inline
+: GL_PIXEL_MAP_B_TO_B HEX: 0C78 ; inline
+: GL_PIXEL_MAP_A_TO_A HEX: 0C79 ; inline
+: GL_PACK_ALIGNMENT HEX: 0D05 ; inline
+: GL_PACK_LSB_FIRST HEX: 0D01 ; inline
+: GL_PACK_ROW_LENGTH HEX: 0D02 ; inline
+: GL_PACK_SKIP_PIXELS HEX: 0D04 ; inline
+: GL_PACK_SKIP_ROWS HEX: 0D03 ; inline
+: GL_PACK_SWAP_BYTES HEX: 0D00 ; inline
+: GL_UNPACK_ALIGNMENT HEX: 0CF5 ; inline
+: GL_UNPACK_LSB_FIRST HEX: 0CF1 ; inline
+: GL_UNPACK_ROW_LENGTH HEX: 0CF2 ; inline
+: GL_UNPACK_SKIP_PIXELS HEX: 0CF4 ; inline
+: GL_UNPACK_SKIP_ROWS HEX: 0CF3 ; inline
+: GL_UNPACK_SWAP_BYTES HEX: 0CF0 ; inline
+: GL_ZOOM_X HEX: 0D16 ; inline
+: GL_ZOOM_Y HEX: 0D17 ; inline
+
+! Texture mapping inline
+: GL_TEXTURE_ENV HEX: 2300 ; inline
+: GL_TEXTURE_ENV_MODE HEX: 2200 ; inline
+: GL_TEXTURE_1D HEX: 0DE0 ; inline
+: GL_TEXTURE_2D HEX: 0DE1 ; inline
+: GL_TEXTURE_WRAP_S HEX: 2802 ; inline
+: GL_TEXTURE_WRAP_T HEX: 2803 ; inline
+: GL_TEXTURE_MAG_FILTER HEX: 2800 ; inline
+: GL_TEXTURE_MIN_FILTER HEX: 2801 ; inline
+: GL_TEXTURE_ENV_COLOR HEX: 2201 ; inline
+: GL_TEXTURE_GEN_S HEX: 0C60 ; inline
+: GL_TEXTURE_GEN_T HEX: 0C61 ; inline
+: GL_TEXTURE_GEN_MODE HEX: 2500 ; inline
+: GL_TEXTURE_BORDER_COLOR HEX: 1004 ; inline
+: GL_TEXTURE_WIDTH HEX: 1000 ; inline
+: GL_TEXTURE_HEIGHT HEX: 1001 ; inline
+: GL_TEXTURE_BORDER HEX: 1005 ; inline
+: GL_TEXTURE_COMPONENTS HEX: 1003 ; inline
+: GL_TEXTURE_RED_SIZE HEX: 805C ; inline
+: GL_TEXTURE_GREEN_SIZE HEX: 805D ; inline
+: GL_TEXTURE_BLUE_SIZE HEX: 805E ; inline
+: GL_TEXTURE_ALPHA_SIZE HEX: 805F ; inline
+: GL_TEXTURE_LUMINANCE_SIZE HEX: 8060 ; inline
+: GL_TEXTURE_INTENSITY_SIZE HEX: 8061 ; inline
+: GL_NEAREST_MIPMAP_NEAREST HEX: 2700 ; inline
+: GL_NEAREST_MIPMAP_LINEAR HEX: 2702 ; inline
+: GL_LINEAR_MIPMAP_NEAREST HEX: 2701 ; inline
+: GL_LINEAR_MIPMAP_LINEAR HEX: 2703 ; inline
+: GL_OBJECT_LINEAR HEX: 2401 ; inline
+: GL_OBJECT_PLANE HEX: 2501 ; inline
+: GL_EYE_LINEAR HEX: 2400 ; inline
+: GL_EYE_PLANE HEX: 2502 ; inline
+: GL_SPHERE_MAP HEX: 2402 ; inline
+: GL_DECAL HEX: 2101 ; inline
+: GL_MODULATE HEX: 2100 ; inline
+: GL_NEAREST HEX: 2600 ; inline
+: GL_REPEAT HEX: 2901 ; inline
+: GL_CLAMP HEX: 2900 ; inline
+: GL_S HEX: 2000 ; inline
+: GL_T HEX: 2001 ; inline
+: GL_R HEX: 2002 ; inline
+: GL_Q HEX: 2003 ; inline
+: GL_TEXTURE_GEN_R HEX: 0C62 ; inline
+: GL_TEXTURE_GEN_Q HEX: 0C63 ; inline
+
+! Utility inline
+: GL_VENDOR HEX: 1F00 ; inline
+: GL_RENDERER HEX: 1F01 ; inline
+: GL_VERSION HEX: 1F02 ; inline
+: GL_EXTENSIONS HEX: 1F03 ; inline
+
+! Errors inline
+: GL_NO_ERROR HEX: 0 ; inline
+: GL_INVALID_VALUE HEX: 0501 ; inline
+: GL_INVALID_ENUM HEX: 0500 ; inline
+: GL_INVALID_OPERATION HEX: 0502 ; inline
+: GL_STACK_OVERFLOW HEX: 0503 ; inline
+: GL_STACK_UNDERFLOW HEX: 0504 ; inline
+: GL_OUT_OF_MEMORY HEX: 0505 ; inline
+
+! glPush/PopAttrib bits
+: GL_CURRENT_BIT HEX: 00000001 ; inline
+: GL_POINT_BIT HEX: 00000002 ; inline
+: GL_LINE_BIT HEX: 00000004 ; inline
+: GL_POLYGON_BIT HEX: 00000008 ; inline
+: GL_POLYGON_STIPPLE_BIT HEX: 00000010 ; inline
+: GL_PIXEL_MODE_BIT HEX: 00000020 ; inline
+: GL_LIGHTING_BIT HEX: 00000040 ; inline
+: GL_FOG_BIT HEX: 00000080 ; inline
+: GL_DEPTH_BUFFER_BIT HEX: 00000100 ; inline
+: GL_ACCUM_BUFFER_BIT HEX: 00000200 ; inline
+: GL_STENCIL_BUFFER_BIT HEX: 00000400 ; inline
+: GL_VIEWPORT_BIT HEX: 00000800 ; inline
+: GL_TRANSFORM_BIT HEX: 00001000 ; inline
+: GL_ENABLE_BIT HEX: 00002000 ; inline
+: GL_COLOR_BUFFER_BIT HEX: 00004000 ; inline
+: GL_HINT_BIT HEX: 00008000 ; inline
+: GL_EVAL_BIT HEX: 00010000 ; inline
+: GL_LIST_BIT HEX: 00020000 ; inline
+: GL_TEXTURE_BIT HEX: 00040000 ; inline
+: GL_SCISSOR_BIT HEX: 00080000 ; inline
+: GL_ALL_ATTRIB_BITS HEX: 000FFFFF ; inline
+
+! OpenGL 1.1
+: GL_PROXY_TEXTURE_1D HEX: 8063 ; inline
+: GL_PROXY_TEXTURE_2D HEX: 8064 ; inline
+: GL_TEXTURE_PRIORITY HEX: 8066 ; inline
+: GL_TEXTURE_RESIDENT HEX: 8067 ; inline
+: GL_TEXTURE_BINDING_1D HEX: 8068 ; inline
+: GL_TEXTURE_BINDING_2D HEX: 8069 ; inline
+: GL_TEXTURE_INTERNAL_FORMAT HEX: 1003 ; inline
+: GL_ALPHA4 HEX: 803B ; inline
+: GL_ALPHA8 HEX: 803C ; inline
+: GL_ALPHA12 HEX: 803D ; inline
+: GL_ALPHA16 HEX: 803E ; inline
+: GL_LUMINANCE4 HEX: 803F ; inline
+: GL_LUMINANCE8 HEX: 8040 ; inline
+: GL_LUMINANCE12 HEX: 8041 ; inline
+: GL_LUMINANCE16 HEX: 8042 ; inline
+: GL_LUMINANCE4_ALPHA4 HEX: 8043 ; inline
+: GL_LUMINANCE6_ALPHA2 HEX: 8044 ; inline
+: GL_LUMINANCE8_ALPHA8 HEX: 8045 ; inline
+: GL_LUMINANCE12_ALPHA4 HEX: 8046 ; inline
+: GL_LUMINANCE12_ALPHA12 HEX: 8047 ; inline
+: GL_LUMINANCE16_ALPHA16 HEX: 8048 ; inline
+: GL_INTENSITY HEX: 8049 ; inline
+: GL_INTENSITY4 HEX: 804A ; inline
+: GL_INTENSITY8 HEX: 804B ; inline
+: GL_INTENSITY12 HEX: 804C ; inline
+: GL_INTENSITY16 HEX: 804D ; inline
+: GL_R3_G3_B2 HEX: 2A10 ; inline
+: GL_RGB4 HEX: 804F ; inline
+: GL_RGB5 HEX: 8050 ; inline
+: GL_RGB8 HEX: 8051 ; inline
+: GL_RGB10 HEX: 8052 ; inline
+: GL_RGB12 HEX: 8053 ; inline
+: GL_RGB16 HEX: 8054 ; inline
+: GL_RGBA2 HEX: 8055 ; inline
+: GL_RGBA4 HEX: 8056 ; inline
+: GL_RGB5_A1 HEX: 8057 ; inline
+: GL_RGBA8 HEX: 8058 ; inline
+: GL_RGB10_A2 HEX: 8059 ; inline
+: GL_RGBA12 HEX: 805A ; inline
+: GL_RGBA16 HEX: 805B ; inline
+: GL_CLIENT_PIXEL_STORE_BIT HEX: 00000001 ; inline
+: GL_CLIENT_VERTEX_ARRAY_BIT HEX: 00000002 ; inline
+: GL_ALL_CLIENT_ATTRIB_BITS HEX: FFFFFFFF ; inline
+: GL_CLIENT_ALL_ATTRIB_BITS HEX: FFFFFFFF ; inline
+
+LIBRARY: gl
+
+! Miscellaneous
+
+FUNCTION: void glClearIndex ( GLfloat c ) ;
+FUNCTION: void glClearColor ( GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha ) ;
+FUNCTION: void glClear ( GLbitfield mask ) ;
+FUNCTION: void glIndexMask ( GLuint mask ) ;
+FUNCTION: void glColorMask ( GLboolean red, GLboolean green, GLboolean blue, GLboolean alpha ) ;
+FUNCTION: void glAlphaFunc ( GLenum func, GLclampf ref ) ;
+FUNCTION: void glBlendFunc ( GLenum sfactor, GLenum dfactor ) ;
+FUNCTION: void glLogicOp ( GLenum opcode ) ;
+FUNCTION: void glCullFace ( GLenum mode ) ;
+FUNCTION: void glFrontFace ( GLenum mode ) ;
+FUNCTION: void glPointSize ( GLfloat size ) ;
+FUNCTION: void glLineWidth ( GLfloat width ) ;
+FUNCTION: void glLineStipple ( GLint factor, GLushort pattern ) ;
+FUNCTION: void glPolygonMode ( GLenum face, GLenum mode ) ;
+FUNCTION: void glPolygonOffset ( GLfloat factor, GLfloat units ) ;
+FUNCTION: void glPolygonStipple ( GLubyte* mask ) ;
+FUNCTION: void glGetPolygonStipple ( GLubyte* mask ) ;
+FUNCTION: void glEdgeFlag ( GLboolean flag ) ;
+FUNCTION: void glEdgeFlagv ( GLboolean* flag ) ;
+FUNCTION: void glScissor ( GLint x, GLint y, GLsizei width, GLsizei height ) ;
+FUNCTION: void glClipPlane ( GLenum plane, GLdouble* equation ) ;
+FUNCTION: void glGetClipPlane ( GLenum plane, GLdouble* equation ) ;
+FUNCTION: void glDrawBuffer ( GLenum mode ) ;
+FUNCTION: void glReadBuffer ( GLenum mode ) ;
+FUNCTION: void glEnable ( GLenum cap ) ;
+FUNCTION: void glDisable ( GLenum cap ) ;
+FUNCTION: GLboolean glIsEnabled ( GLenum cap ) ;
+
+FUNCTION: void glEnableClientState ( GLenum cap ) ;
+FUNCTION: void glDisableClientState ( GLenum cap ) ;
+FUNCTION: void glGetBooleanv ( GLenum pname, GLboolean* params ) ;
+FUNCTION: void glGetDoublev ( GLenum pname, GLdouble* params ) ;
+FUNCTION: void glGetFloatv ( GLenum pname, GLfloat* params ) ;
+FUNCTION: void glGetIntegerv ( GLenum pname, GLint* params ) ;
+
+FUNCTION: void glPushAttrib ( GLbitfield mask ) ;
+FUNCTION: void glPopAttrib ( ) ;
+
+FUNCTION: void glPushClientAttrib ( GLbitfield mask ) ;
+FUNCTION: void glPopClientAttrib ( ) ;
+
+FUNCTION: GLint glRenderMode ( GLenum mode ) ;
+FUNCTION: GLenum glGetError ( ) ;
+FUNCTION: char* glGetString ( GLenum name ) ;
+FUNCTION: void glFinish ( ) ;
+FUNCTION: void glFlush ( ) ;
+FUNCTION: void glHint ( GLenum target, GLenum mode ) ;
+
+FUNCTION: void glClearDepth ( GLclampd depth ) ;
+FUNCTION: void glDepthFunc ( GLenum func ) ;
+FUNCTION: void glDepthMask ( GLboolean flag ) ;
+FUNCTION: void glDepthRange ( GLclampd near_val, GLclampd far_val ) ;
+
+FUNCTION: void glClearAccum ( GLfloat red, GLfloat green, GLfloat blue, GLfloat alpha ) ;
+FUNCTION: void glAccum ( GLenum op, GLfloat value ) ;
+
+FUNCTION: void glMatrixMode ( GLenum mode ) ;
+FUNCTION: void glOrtho ( GLdouble left, GLdouble right, GLdouble bottom, GLdouble top,
+ GLdouble near_val, GLdouble far_val ) ;
+FUNCTION: void glFrustum ( GLdouble left, GLdouble right, GLdouble bottom, GLdouble top,
+ GLdouble near_val, GLdouble far_val ) ;
+FUNCTION: void glViewport ( GLint x, GLint y, GLsizei width, GLsizei height ) ;
+FUNCTION: void glPushMatrix ( ) ;
+FUNCTION: void glPopMatrix ( ) ;
+FUNCTION: void glLoadIdentity ( ) ;
+FUNCTION: void glLoadMatrixd ( GLdouble* m ) ;
+FUNCTION: void glLoadMatrixf ( GLfloat* m ) ;
+FUNCTION: void glMultMatrixd ( GLdouble* m ) ;
+FUNCTION: void glMultMatrixf ( GLfloat* m ) ;
+FUNCTION: void glRotated ( GLdouble angle, GLdouble x, GLdouble y, GLdouble z ) ;
+FUNCTION: void glRotatef ( GLfloat angle, GLfloat x, GLfloat y, GLfloat z ) ;
+FUNCTION: void glScaled ( GLdouble x, GLdouble y, GLdouble z ) ;
+FUNCTION: void glScalef ( GLfloat x, GLfloat y, GLfloat z ) ;
+FUNCTION: void glTranslated ( GLdouble x, GLdouble y, GLdouble z ) ;
+FUNCTION: void glTranslatef ( GLfloat x, GLfloat y, GLfloat z ) ;
+
+
+FUNCTION: GLboolean glIsList ( GLuint list ) ;
+FUNCTION: void glDeleteLists ( GLuint list, GLsizei range ) ;
+FUNCTION: GLuint glGenLists ( GLsizei range ) ;
+FUNCTION: void glNewList ( GLuint list, GLenum mode ) ;
+FUNCTION: void glEndList ( ) ;
+FUNCTION: void glCallList ( GLuint list ) ;
+FUNCTION: void glCallLists ( GLsizei n, GLenum type, GLvoid* lists ) ;
+FUNCTION: void glListBase ( GLuint base ) ;
+
+FUNCTION: void glBegin ( GLenum mode ) ;
+FUNCTION: void glEnd ( ) ;
+
+FUNCTION: void glVertex2d ( GLdouble x, GLdouble y ) ;
+FUNCTION: void glVertex2f ( GLfloat x, GLfloat y ) ;
+FUNCTION: void glVertex2i ( GLint x, GLint y ) ;
+FUNCTION: void glVertex2s ( GLshort x, GLshort y ) ;
+
+FUNCTION: void glVertex3d ( GLdouble x, GLdouble y, GLdouble z ) ;
+FUNCTION: void glVertex3f ( GLfloat x, GLfloat y, GLfloat z ) ;
+FUNCTION: void glVertex3i ( GLint x, GLint y, GLint z ) ;
+FUNCTION: void glVertex3s ( GLshort x, GLshort y, GLshort z ) ;
+
+FUNCTION: void glVertex4d ( GLdouble x, GLdouble y, GLdouble z, GLdouble w ) ;
+FUNCTION: void glVertex4f ( GLfloat x, GLfloat y, GLfloat z, GLfloat w ) ;
+FUNCTION: void glVertex4i ( GLint x, GLint y, GLint z, GLint w ) ;
+FUNCTION: void glVertex4s ( GLshort x, GLshort y, GLshort z, GLshort w ) ;
+
+FUNCTION: void glVertex2dv ( GLdouble* v ) ;
+FUNCTION: void glVertex2fv ( GLfloat* v ) ;
+FUNCTION: void glVertex2iv ( GLint* v ) ;
+FUNCTION: void glVertex2sv ( GLshort* v ) ;
+
+FUNCTION: void glVertex3dv ( GLdouble* v ) ;
+FUNCTION: void glVertex3fv ( GLfloat* v ) ;
+FUNCTION: void glVertex3iv ( GLint* v ) ;
+FUNCTION: void glVertex3sv ( GLshort* v ) ;
+
+FUNCTION: void glVertex4dv ( GLdouble* v ) ;
+FUNCTION: void glVertex4fv ( GLfloat* v ) ;
+FUNCTION: void glVertex4iv ( GLint* v ) ;
+FUNCTION: void glVertex4sv ( GLshort* v ) ;
+
+FUNCTION: void glNormal3b ( GLbyte nx, GLbyte ny, GLbyte nz ) ;
+FUNCTION: void glNormal3d ( GLdouble nx, GLdouble ny, GLdouble nz ) ;
+FUNCTION: void glNormal3f ( GLfloat nx, GLfloat ny, GLfloat nz ) ;
+FUNCTION: void glNormal3i ( GLint nx, GLint ny, GLint nz ) ;
+FUNCTION: void glNormal3s ( GLshort nx, GLshort ny, GLshort nz ) ;
+
+FUNCTION: void glNormal3bv ( GLbyte* v ) ;
+FUNCTION: void glNormal3dv ( GLdouble* v ) ;
+FUNCTION: void glNormal3fv ( GLfloat* v ) ;
+FUNCTION: void glNormal3iv ( GLint* v ) ;
+FUNCTION: void glNormal3sv ( GLshort* v ) ;
+
+FUNCTION: void glIndexd ( GLdouble c ) ;
+FUNCTION: void glIndexf ( GLfloat c ) ;
+FUNCTION: void glIndexi ( GLint c ) ;
+FUNCTION: void glIndexs ( GLshort c ) ;
+FUNCTION: void glIndexub ( GLubyte c ) ;
+
+FUNCTION: void glIndexdv ( GLdouble* c ) ;
+FUNCTION: void glIndexfv ( GLfloat* c ) ;
+FUNCTION: void glIndexiv ( GLint* c ) ;
+FUNCTION: void glIndexsv ( GLshort* c ) ;
+FUNCTION: void glIndexubv ( GLubyte* c ) ;
+
+FUNCTION: void glColor3b ( GLbyte red, GLbyte green, GLbyte blue ) ;
+FUNCTION: void glColor3d ( GLdouble red, GLdouble green, GLdouble blue ) ;
+FUNCTION: void glColor3f ( GLfloat red, GLfloat green, GLfloat blue ) ;
+FUNCTION: void glColor3i ( GLint red, GLint green, GLint blue ) ;
+FUNCTION: void glColor3s ( GLshort red, GLshort green, GLshort blue ) ;
+FUNCTION: void glColor3ub ( GLubyte red, GLubyte green, GLubyte blue ) ;
+FUNCTION: void glColor3ui ( GLuint red, GLuint green, GLuint blue ) ;
+FUNCTION: void glColor3us ( GLushort red, GLushort green, GLushort blue ) ;
+
+FUNCTION: void glColor4b ( GLbyte red, GLbyte green, GLbyte blue, GLbyte alpha ) ;
+FUNCTION: void glColor4d ( GLdouble red, GLdouble green, GLdouble blue, GLdouble alpha ) ;
+FUNCTION: void glColor4f ( GLfloat red, GLfloat green, GLfloat blue, GLfloat alpha ) ;
+FUNCTION: void glColor4i ( GLint red, GLint green, GLint blue, GLint alpha ) ;
+FUNCTION: void glColor4s ( GLshort red, GLshort green, GLshort blue, GLshort alpha ) ;
+FUNCTION: void glColor4ub ( GLubyte red, GLubyte green, GLubyte blue, GLubyte alpha ) ;
+FUNCTION: void glColor4ui ( GLuint red, GLuint green, GLuint blue, GLuint alpha ) ;
+FUNCTION: void glColor4us ( GLushort red, GLushort green, GLushort blue, GLushort alpha ) ;
+
+FUNCTION: void glColor3bv ( GLbyte* v ) ;
+FUNCTION: void glColor3dv ( GLdouble* v ) ;
+FUNCTION: void glColor3fv ( GLfloat* v ) ;
+FUNCTION: void glColor3iv ( GLint* v ) ;
+FUNCTION: void glColor3sv ( GLshort* v ) ;
+FUNCTION: void glColor3ubv ( GLubyte* v ) ;
+FUNCTION: void glColor3uiv ( GLuint* v ) ;
+FUNCTION: void glColor3usv ( GLushort* v ) ;
+
+FUNCTION: void glColor4bv ( GLbyte* v ) ;
+FUNCTION: void glColor4dv ( GLdouble* v ) ;
+FUNCTION: void glColor4fv ( GLfloat* v ) ;
+FUNCTION: void glColor4iv ( GLint* v ) ;
+FUNCTION: void glColor4sv ( GLshort* v ) ;
+FUNCTION: void glColor4ubv ( GLubyte* v ) ;
+FUNCTION: void glColor4uiv ( GLuint* v ) ;
+FUNCTION: void glColor4usv ( GLushort* v ) ;
+
+
+FUNCTION: void glTexCoord1d ( GLdouble s ) ;
+FUNCTION: void glTexCoord1f ( GLfloat s ) ;
+FUNCTION: void glTexCoord1i ( GLint s ) ;
+FUNCTION: void glTexCoord1s ( GLshort s ) ;
+
+FUNCTION: void glTexCoord2d ( GLdouble s, GLdouble t ) ;
+FUNCTION: void glTexCoord2f ( GLfloat s, GLfloat t ) ;
+FUNCTION: void glTexCoord2i ( GLint s, GLint t ) ;
+FUNCTION: void glTexCoord2s ( GLshort s, GLshort t ) ;
+
+FUNCTION: void glTexCoord3d ( GLdouble s, GLdouble t, GLdouble r ) ;
+FUNCTION: void glTexCoord3f ( GLfloat s, GLfloat t, GLfloat r ) ;
+FUNCTION: void glTexCoord3i ( GLint s, GLint t, GLint r ) ;
+FUNCTION: void glTexCoord3s ( GLshort s, GLshort t, GLshort r ) ;
+
+FUNCTION: void glTexCoord4d ( GLdouble s, GLdouble t, GLdouble r, GLdouble q ) ;
+FUNCTION: void glTexCoord4f ( GLfloat s, GLfloat t, GLfloat r, GLfloat q ) ;
+FUNCTION: void glTexCoord4i ( GLint s, GLint t, GLint r, GLint q ) ;
+FUNCTION: void glTexCoord4s ( GLshort s, GLshort t, GLshort r, GLshort q ) ;
+
+FUNCTION: void glTexCoord1dv ( GLdouble* v ) ;
+FUNCTION: void glTexCoord1fv ( GLfloat* v ) ;
+FUNCTION: void glTexCoord1iv ( GLint* v ) ;
+FUNCTION: void glTexCoord1sv ( GLshort* v ) ;
+
+FUNCTION: void glTexCoord2dv ( GLdouble* v ) ;
+FUNCTION: void glTexCoord2fv ( GLfloat* v ) ;
+FUNCTION: void glTexCoord2iv ( GLint* v ) ;
+FUNCTION: void glTexCoord2sv ( GLshort* v ) ;
+
+FUNCTION: void glTexCoord3dv ( GLdouble* v ) ;
+FUNCTION: void glTexCoord3fv ( GLfloat* v ) ;
+FUNCTION: void glTexCoord3iv ( GLint* v ) ;
+FUNCTION: void glTexCoord3sv ( GLshort* v ) ;
+
+FUNCTION: void glTexCoord4dv ( GLdouble* v ) ;
+FUNCTION: void glTexCoord4fv ( GLfloat* v ) ;
+FUNCTION: void glTexCoord4iv ( GLint* v ) ;
+FUNCTION: void glTexCoord4sv ( GLshort* v ) ;
+
+FUNCTION: void glRasterPos2d ( GLdouble x, GLdouble y ) ;
+FUNCTION: void glRasterPos2f ( GLfloat x, GLfloat y ) ;
+FUNCTION: void glRasterPos2i ( GLint x, GLint y ) ;
+FUNCTION: void glRasterPos2s ( GLshort x, GLshort y ) ;
+
+FUNCTION: void glRasterPos3d ( GLdouble x, GLdouble y, GLdouble z ) ;
+FUNCTION: void glRasterPos3f ( GLfloat x, GLfloat y, GLfloat z ) ;
+FUNCTION: void glRasterPos3i ( GLint x, GLint y, GLint z ) ;
+FUNCTION: void glRasterPos3s ( GLshort x, GLshort y, GLshort z ) ;
+
+FUNCTION: void glRasterPos4d ( GLdouble x, GLdouble y, GLdouble z, GLdouble w ) ;
+FUNCTION: void glRasterPos4f ( GLfloat x, GLfloat y, GLfloat z, GLfloat w ) ;
+FUNCTION: void glRasterPos4i ( GLint x, GLint y, GLint z, GLint w ) ;
+FUNCTION: void glRasterPos4s ( GLshort x, GLshort y, GLshort z, GLshort w ) ;
+
+FUNCTION: void glRasterPos2dv ( GLdouble* v ) ;
+FUNCTION: void glRasterPos2fv ( GLfloat* v ) ;
+FUNCTION: void glRasterPos2iv ( GLint* v ) ;
+FUNCTION: void glRasterPos2sv ( GLshort* v ) ;
+
+FUNCTION: void glRasterPos3dv ( GLdouble* v ) ;
+FUNCTION: void glRasterPos3fv ( GLfloat* v ) ;
+FUNCTION: void glRasterPos3iv ( GLint* v ) ;
+FUNCTION: void glRasterPos3sv ( GLshort* v ) ;
+
+FUNCTION: void glRasterPos4dv ( GLdouble* v ) ;
+FUNCTION: void glRasterPos4fv ( GLfloat* v ) ;
+FUNCTION: void glRasterPos4iv ( GLint* v ) ;
+FUNCTION: void glRasterPos4sv ( GLshort* v ) ;
+
+
+FUNCTION: void glRectd ( GLdouble x1, GLdouble y1, GLdouble x2, GLdouble y2 ) ;
+FUNCTION: void glRectf ( GLfloat x1, GLfloat y1, GLfloat x2, GLfloat y2 ) ;
+FUNCTION: void glRecti ( GLint x1, GLint y1, GLint x2, GLint y2 ) ;
+FUNCTION: void glRects ( GLshort x1, GLshort y1, GLshort x2, GLshort y2 ) ;
+
+FUNCTION: void glRectdv ( GLdouble* v1, GLdouble* v2 ) ;
+FUNCTION: void glRectfv ( GLfloat* v1, GLfloat* v2 ) ;
+FUNCTION: void glRectiv ( GLint* v1, GLint* v2 ) ;
+FUNCTION: void glRectsv ( GLshort* v1, GLshort* v2 ) ;
+
+
+! Vertex Arrays (1.1)
+
+FUNCTION: void glVertexPointer ( GLint size, GLenum type, GLsizei stride, GLvoid* ptr ) ;
+FUNCTION: void glNormalPointer ( GLenum type, GLsizei stride, GLvoid* ptr ) ;
+FUNCTION: void glColorPointer ( GLint size, GLenum type, GLsizei stride, GLvoid* ptr ) ;
+FUNCTION: void glIndexPointer ( GLenum type, GLsizei stride, GLvoid* ptr ) ;
+FUNCTION: void glTexCoordPointer ( GLint size, GLenum type, GLsizei stride, GLvoid* ptr ) ;
+FUNCTION: void glEdgeFlagPointer ( GLsizei stride, GLvoid* ptr ) ;
+
+! [09:39] (slava) NULL <void*>
+! [09:39] (slava) then keep that object
+! [09:39] (slava) when you want to get the value stored there, *void*
+! [09:39] (slava) which returns an alien
+FUNCTION: void glGetPointerv ( GLenum pname, GLvoid** params ) ;
+
+FUNCTION: void glArrayElement ( GLint i ) ;
+FUNCTION: void glDrawArrays ( GLenum mode, GLint first, GLsizei count ) ;
+FUNCTION: void glDrawElements ( GLenum mode, GLsizei count, GLenum type, GLvoid* indices ) ;
+FUNCTION: void glInterleavedArrays ( GLenum format, GLsizei stride, GLvoid* pointer ) ;
+
+! Lighting
+
+FUNCTION: void glShadeModel ( GLenum mode ) ;
+
+FUNCTION: void glLightf ( GLenum light, GLenum pname, GLfloat param ) ;
+FUNCTION: void glLighti ( GLenum light, GLenum pname, GLint param ) ;
+FUNCTION: void glLightfv ( GLenum light, GLenum pname, GLfloat* params ) ;
+FUNCTION: void glLightiv ( GLenum light, GLenum pname, GLint* params ) ;
+FUNCTION: void glGetLightfv ( GLenum light, GLenum pname, GLfloat* params ) ;
+FUNCTION: void glGetLightiv ( GLenum light, GLenum pname, GLint* params ) ;
+
+FUNCTION: void glLightModelf ( GLenum pname, GLfloat param ) ;
+FUNCTION: void glLightModeli ( GLenum pname, GLint param ) ;
+FUNCTION: void glLightModelfv ( GLenum pname, GLfloat* params ) ;
+FUNCTION: void glLightModeliv ( GLenum pname, GLint* params ) ;
+
+FUNCTION: void glMaterialf ( GLenum face, GLenum pname, GLfloat param ) ;
+FUNCTION: void glMateriali ( GLenum face, GLenum pname, GLint param ) ;
+FUNCTION: void glMaterialfv ( GLenum face, GLenum pname, GLfloat* params ) ;
+FUNCTION: void glMaterialiv ( GLenum face, GLenum pname, GLint* params ) ;
+
+FUNCTION: void glGetMaterialfv ( GLenum face, GLenum pname, GLfloat* params ) ;
+FUNCTION: void glGetMaterialiv ( GLenum face, GLenum pname, GLint* params ) ;
+
+FUNCTION: void glColorMaterial ( GLenum face, GLenum mode ) ;
+
+
+! Raster functions
+
+FUNCTION: void glPixelZoom ( GLfloat xfactor, GLfloat yfactor ) ;
+
+FUNCTION: void glPixelStoref ( GLenum pname, GLfloat param ) ;
+FUNCTION: void glPixelStorei ( GLenum pname, GLint param ) ;
+
+FUNCTION: void glPixelTransferf ( GLenum pname, GLfloat param ) ;
+FUNCTION: void glPixelTransferi ( GLenum pname, GLint param ) ;
+
+FUNCTION: void glPixelMapfv ( GLenum map, GLsizei mapsize, GLfloat* values ) ;
+FUNCTION: void glPixelMapuiv ( GLenum map, GLsizei mapsize, GLuint* values ) ;
+FUNCTION: void glPixelMapusv ( GLenum map, GLsizei mapsize, GLushort* values ) ;
+
+FUNCTION: void glGetPixelMapfv ( GLenum map, GLfloat* values ) ;
+FUNCTION: void glGetPixelMapuiv ( GLenum map, GLuint* values ) ;
+FUNCTION: void glGetPixelMapusv ( GLenum map, GLushort* values ) ;
+
+FUNCTION: void glBitmap ( GLsizei width, GLsizei height, GLfloat xorig, GLfloat yorig,
+ GLfloat xmove, GLfloat ymove, GLubyte* bitmap ) ;
+
+FUNCTION: void glReadPixels ( GLint x, GLint y, GLsizei width, GLsizei height,
+ GLenum format, GLenum type, GLvoid* pixels ) ;
+
+FUNCTION: void glDrawPixels ( GLsizei width, GLsizei height, GLenum format,
+ GLenum type, GLvoid* pixels ) ;
+FUNCTION: void glCopyPixels ( GLint x, GLint y, GLsizei width, GLsizei height, GLenum type ) ;
+
+! Stenciling
+FUNCTION: void glStencilFunc ( GLenum func, GLint ref, GLuint mask ) ;
+FUNCTION: void glStencilMask ( GLuint mask ) ;
+FUNCTION: void glStencilOp ( GLenum fail, GLenum zfail, GLenum zpass ) ;
+FUNCTION: void glClearStencil ( GLint s ) ;
+
+
+! Texture mapping
+
+FUNCTION: void glTexGend ( GLenum coord, GLenum pname, GLdouble param ) ;
+FUNCTION: void glTexGenf ( GLenum coord, GLenum pname, GLfloat param ) ;
+FUNCTION: void glTexGeni ( GLenum coord, GLenum pname, GLint param ) ;
+
+FUNCTION: void glTexGendv ( GLenum coord, GLenum pname, GLdouble* params ) ;
+FUNCTION: void glTexGenfv ( GLenum coord, GLenum pname, GLfloat* params ) ;
+FUNCTION: void glTexGeniv ( GLenum coord, GLenum pname, GLint* params ) ;
+
+FUNCTION: void glGetTexGendv ( GLenum coord, GLenum pname, GLdouble* params ) ;
+FUNCTION: void glGetTexGenfv ( GLenum coord, GLenum pname, GLfloat* params ) ;
+FUNCTION: void glGetTexGeniv ( GLenum coord, GLenum pname, GLint* params ) ;
+
+FUNCTION: void glTexEnvf ( GLenum target, GLenum pname, GLfloat param ) ;
+FUNCTION: void glTexEnvi ( GLenum target, GLenum pname, GLint param ) ;
+FUNCTION: void glTexEnvfv ( GLenum target, GLenum pname, GLfloat* params ) ;
+FUNCTION: void glTexEnviv ( GLenum target, GLenum pname, GLint* params ) ;
+
+FUNCTION: void glGetTexEnvfv ( GLenum target, GLenum pname, GLfloat* params ) ;
+FUNCTION: void glGetTexEnviv ( GLenum target, GLenum pname, GLint* params ) ;
+
+FUNCTION: void glTexParameterf ( GLenum target, GLenum pname, GLfloat param ) ;
+FUNCTION: void glTexParameteri ( GLenum target, GLenum pname, GLint param ) ;
+
+FUNCTION: void glTexParameterfv ( GLenum target, GLenum pname, GLfloat* params ) ;
+FUNCTION: void glTexParameteriv ( GLenum target, GLenum pname, GLint* params ) ;
+
+FUNCTION: void glGetTexParameterfv ( GLenum target, GLenum pname, GLfloat* params ) ;
+FUNCTION: void glGetTexParameteriv ( GLenum target, GLenum pname, GLint* params ) ;
+
+FUNCTION: void glGetTexLevelParameterfv ( GLenum target, GLint level,
+ GLenum pname, GLfloat* params ) ;
+FUNCTION: void glGetTexLevelParameteriv ( GLenum target, GLint level,
+ GLenum pname, GLint* params ) ;
+
+FUNCTION: void glTexImage1D ( GLenum target, GLint level, GLint internalFormat, GLsizei width,
+ GLint border, GLenum format, GLenum type, GLvoid* pixels ) ;
+
+FUNCTION: void glTexImage2D ( GLenum target, GLint level, GLint internalFormat,
+ GLsizei width, GLsizei height, GLint border,
+ GLenum format, GLenum type, GLvoid* pixels ) ;
+
+FUNCTION: void glGetTexImage ( GLenum target, GLint level, GLenum format,
+ GLenum type, GLvoid* pixels ) ;
+
+
+! 1.1 functions
+
+FUNCTION: void glGenTextures ( GLsizei n, GLuint* textures ) ;
+
+FUNCTION: void glDeleteTextures ( GLsizei n, GLuint* textures ) ;
+
+FUNCTION: void glBindTexture ( GLenum target, GLuint texture ) ;
+
+FUNCTION: void glPrioritizeTextures ( GLsizei n, GLuint* textures, GLclampf* priorities ) ;
+
+FUNCTION: GLboolean glAreTexturesResident ( GLsizei n, GLuint* textures, GLboolean* residences ) ;
+
+FUNCTION: GLboolean glIsTexture ( GLuint texture ) ;
+
+FUNCTION: void glTexSubImage1D ( GLenum target, GLint level, GLint xoffset, GLsizei width,
+ GLenum format, GLenum type, GLvoid* pixels ) ;
+
+FUNCTION: void glTexSubImage2D ( GLenum target, GLint level, GLint xoffset, GLint yoffset,
+ GLsizei width, GLsizei height, GLenum format,
+ GLenum type, GLvoid* pixels ) ;
+
+FUNCTION: void glCopyTexImage1D ( GLenum target, GLint level, GLenum internalformat,
+ GLint x, GLint y, GLsizei width, GLint border ) ;
+
+FUNCTION: void glCopyTexImage2D ( GLenum target, GLint level, GLenum internalformat,
+ GLint x, GLint y,
+ GLsizei width, GLsizei height, GLint border ) ;
+
+FUNCTION: void glCopyTexSubImage1D ( GLenum target, GLint level, GLint xoffset,
+ GLint x, GLint y, GLsizei width ) ;
+
+FUNCTION: void glCopyTexSubImage2D ( GLenum target, GLint level, GLint xoffset, GLint yoffset,
+ GLint x, GLint y, GLsizei width, GLsizei height ) ;
+
+
+! Evaluators
+
+FUNCTION: void glMap1d ( GLenum target, GLdouble u1, GLdouble u2,
+ GLint stride, GLint order, GLdouble* points ) ;
+FUNCTION: void glMap1f ( GLenum target, GLfloat u1, GLfloat u2,
+ GLint stride, GLint order, GLfloat* points ) ;
+
+FUNCTION: void glMap2d ( GLenum target, GLdouble u1, GLdouble u2, GLint ustride, GLint uorder,
+ GLdouble v1, GLdouble v2, GLint vstride, GLint vorder,
+ GLdouble* points ) ;
+FUNCTION: void glMap2f ( GLenum target, GLfloat u1, GLfloat u2, GLint ustride, GLint uorder,
+ GLfloat v1, GLfloat v2, GLint vstride, GLint vorder,
+ GLfloat* points ) ;
+
+FUNCTION: void glGetMapdv ( GLenum target, GLenum query, GLdouble* v ) ;
+FUNCTION: void glGetMapfv ( GLenum target, GLenum query, GLfloat* v ) ;
+FUNCTION: void glGetMapiv ( GLenum target, GLenum query, GLint* v ) ;
+
+FUNCTION: void glEvalCoord1d ( GLdouble u ) ;
+FUNCTION: void glEvalCoord1f ( GLfloat u ) ;
+
+FUNCTION: void glEvalCoord1dv ( GLdouble* u ) ;
+FUNCTION: void glEvalCoord1fv ( GLfloat* u ) ;
+
+FUNCTION: void glEvalCoord2d ( GLdouble u, GLdouble v ) ;
+FUNCTION: void glEvalCoord2f ( GLfloat u, GLfloat v ) ;
+
+FUNCTION: void glEvalCoord2dv ( GLdouble* u ) ;
+FUNCTION: void glEvalCoord2fv ( GLfloat* u ) ;
+
+FUNCTION: void glMapGrid1d ( GLint un, GLdouble u1, GLdouble u2 ) ;
+FUNCTION: void glMapGrid1f ( GLint un, GLfloat u1, GLfloat u2 ) ;
+
+FUNCTION: void glMapGrid2d ( GLint un, GLdouble u1, GLdouble u2,
+ GLint vn, GLdouble v1, GLdouble v2 ) ;
+FUNCTION: void glMapGrid2f ( GLint un, GLfloat u1, GLfloat u2,
+ GLint vn, GLfloat v1, GLfloat v2 ) ;
+
+FUNCTION: void glEvalPoint1 ( GLint i ) ;
+FUNCTION: void glEvalPoint2 ( GLint i, GLint j ) ;
+
+FUNCTION: void glEvalMesh1 ( GLenum mode, GLint i1, GLint i2 ) ;
+FUNCTION: void glEvalMesh2 ( GLenum mode, GLint i1, GLint i2, GLint j1, GLint j2 ) ;
+
+
+! Fog
+
+FUNCTION: void glFogf ( GLenum pname, GLfloat param ) ;
+FUNCTION: void glFogi ( GLenum pname, GLint param ) ;
+FUNCTION: void glFogfv ( GLenum pname, GLfloat* params ) ;
+FUNCTION: void glFogiv ( GLenum pname, GLint* params ) ;
+
+
+! Selection and Feedback
+
+FUNCTION: void glFeedbackBuffer ( GLsizei size, GLenum type, GLfloat* buffer ) ;
+
+FUNCTION: void glPassThrough ( GLfloat token ) ;
+FUNCTION: void glSelectBuffer ( GLsizei size, GLuint* buffer ) ;
+FUNCTION: void glInitNames ( ) ;
+FUNCTION: void glLoadName ( GLuint name ) ;
+FUNCTION: void glPushName ( GLuint name ) ;
+FUNCTION: void glPopName ( ) ;
+
+<< reset-gl-function-number-counter >>
+
+! OpenGL 1.2
+
+: GL_SMOOTH_POINT_SIZE_RANGE HEX: 0B12 ; inline
+: GL_SMOOTH_POINT_SIZE_GRANULARITY HEX: 0B13 ; inline
+: GL_SMOOTH_LINE_WIDTH_RANGE HEX: 0B22 ; inline
+: GL_SMOOTH_LINE_WIDTH_GRANULARITY HEX: 0B23 ; inline
+: GL_UNSIGNED_BYTE_3_3_2 HEX: 8032 ; inline
+: GL_UNSIGNED_SHORT_4_4_4_4 HEX: 8033 ; inline
+: GL_UNSIGNED_SHORT_5_5_5_1 HEX: 8034 ; inline
+: GL_UNSIGNED_INT_8_8_8_8 HEX: 8035 ; inline
+: GL_UNSIGNED_INT_10_10_10_2 HEX: 8036 ; inline
+: GL_RESCALE_NORMAL HEX: 803A ; inline
+: GL_TEXTURE_BINDING_3D HEX: 806A ; inline
+: GL_PACK_SKIP_IMAGES HEX: 806B ; inline
+: GL_PACK_IMAGE_HEIGHT HEX: 806C ; inline
+: GL_UNPACK_SKIP_IMAGES HEX: 806D ; inline
+: GL_UNPACK_IMAGE_HEIGHT HEX: 806E ; inline
+: GL_TEXTURE_3D HEX: 806F ; inline
+: GL_PROXY_TEXTURE_3D HEX: 8070 ; inline
+: GL_TEXTURE_DEPTH HEX: 8071 ; inline
+: GL_TEXTURE_WRAP_R HEX: 8072 ; inline
+: GL_MAX_3D_TEXTURE_SIZE HEX: 8073 ; inline
+: GL_BGR HEX: 80E0 ; inline
+: GL_BGRA HEX: 80E1 ; inline
+: GL_MAX_ELEMENTS_VERTICES HEX: 80E8 ; inline
+: GL_MAX_ELEMENTS_INDICES HEX: 80E9 ; inline
+: GL_CLAMP_TO_EDGE HEX: 812F ; inline
+: GL_TEXTURE_MIN_LOD HEX: 813A ; inline
+: GL_TEXTURE_MAX_LOD HEX: 813B ; inline
+: GL_TEXTURE_BASE_LEVEL HEX: 813C ; inline
+: GL_TEXTURE_MAX_LEVEL HEX: 813D ; inline
+: GL_LIGHT_MODEL_COLOR_CONTROL HEX: 81F8 ; inline
+: GL_SINGLE_COLOR HEX: 81F9 ; inline
+: GL_SEPARATE_SPECULAR_COLOR HEX: 81FA ; inline
+: GL_UNSIGNED_BYTE_2_3_3_REV HEX: 8362 ; inline
+: GL_UNSIGNED_SHORT_5_6_5 HEX: 8363 ; inline
+: GL_UNSIGNED_SHORT_5_6_5_REV HEX: 8364 ; inline
+: GL_UNSIGNED_SHORT_4_4_4_4_REV HEX: 8365 ; inline
+: GL_UNSIGNED_SHORT_1_5_5_5_REV HEX: 8366 ; inline
+: GL_UNSIGNED_INT_8_8_8_8_REV HEX: 8367 ; inline
+: GL_UNSIGNED_INT_2_10_10_10_REV HEX: 8368 ; inline
+: GL_ALIASED_POINT_SIZE_RANGE HEX: 846D ; inline
+: GL_ALIASED_LINE_WIDTH_RANGE HEX: 846E ; inline
+
+GL-FUNCTION: void glCopyTexSubImage3D { glCopyTexSubImage3DEXT } ( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLint x, GLint y, GLsizei width, GLsizei height ) ;
+GL-FUNCTION: void glDrawRangeElements { glDrawRangeElementsEXT } ( GLenum mode, GLuint start, GLuint end, GLsizei count, GLenum type, GLvoid* indices ) ;
+GL-FUNCTION: void glTexImage3D { glTexImage3DEXT } ( GLenum target, GLint level, GLint internalFormat, GLsizei width, GLsizei height, GLsizei depth, GLint border, GLenum format, GLenum type, GLvoid* pixels ) ;
+GL-FUNCTION: void glTexSubImage3D { glTexSubImage3DEXT } ( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLenum type, GLvoid* pixels ) ;
+
+
+! OpenGL 1.3
+
+
+: GL_MULTISAMPLE HEX: 809D ; inline
+: GL_SAMPLE_ALPHA_TO_COVERAGE HEX: 809E ; inline
+: GL_SAMPLE_ALPHA_TO_ONE HEX: 809F ; inline
+: GL_SAMPLE_COVERAGE HEX: 80A0 ; inline
+: GL_SAMPLE_BUFFERS HEX: 80A8 ; inline
+: GL_SAMPLES HEX: 80A9 ; inline
+: GL_SAMPLE_COVERAGE_VALUE HEX: 80AA ; inline
+: GL_SAMPLE_COVERAGE_INVERT HEX: 80AB ; inline
+: GL_CLAMP_TO_BORDER HEX: 812D ; inline
+: GL_TEXTURE0 HEX: 84C0 ; inline
+: GL_TEXTURE1 HEX: 84C1 ; inline
+: GL_TEXTURE2 HEX: 84C2 ; inline
+: GL_TEXTURE3 HEX: 84C3 ; inline
+: GL_TEXTURE4 HEX: 84C4 ; inline
+: GL_TEXTURE5 HEX: 84C5 ; inline
+: GL_TEXTURE6 HEX: 84C6 ; inline
+: GL_TEXTURE7 HEX: 84C7 ; inline
+: GL_TEXTURE8 HEX: 84C8 ; inline
+: GL_TEXTURE9 HEX: 84C9 ; inline
+: GL_TEXTURE10 HEX: 84CA ; inline
+: GL_TEXTURE11 HEX: 84CB ; inline
+: GL_TEXTURE12 HEX: 84CC ; inline
+: GL_TEXTURE13 HEX: 84CD ; inline
+: GL_TEXTURE14 HEX: 84CE ; inline
+: GL_TEXTURE15 HEX: 84CF ; inline
+: GL_TEXTURE16 HEX: 84D0 ; inline
+: GL_TEXTURE17 HEX: 84D1 ; inline
+: GL_TEXTURE18 HEX: 84D2 ; inline
+: GL_TEXTURE19 HEX: 84D3 ; inline
+: GL_TEXTURE20 HEX: 84D4 ; inline
+: GL_TEXTURE21 HEX: 84D5 ; inline
+: GL_TEXTURE22 HEX: 84D6 ; inline
+: GL_TEXTURE23 HEX: 84D7 ; inline
+: GL_TEXTURE24 HEX: 84D8 ; inline
+: GL_TEXTURE25 HEX: 84D9 ; inline
+: GL_TEXTURE26 HEX: 84DA ; inline
+: GL_TEXTURE27 HEX: 84DB ; inline
+: GL_TEXTURE28 HEX: 84DC ; inline
+: GL_TEXTURE29 HEX: 84DD ; inline
+: GL_TEXTURE30 HEX: 84DE ; inline
+: GL_TEXTURE31 HEX: 84DF ; inline
+: GL_ACTIVE_TEXTURE HEX: 84E0 ; inline
+: GL_CLIENT_ACTIVE_TEXTURE HEX: 84E1 ; inline
+: GL_MAX_TEXTURE_UNITS HEX: 84E2 ; inline
+: GL_TRANSPOSE_MODELVIEW_MATRIX HEX: 84E3 ; inline
+: GL_TRANSPOSE_PROJECTION_MATRIX HEX: 84E4 ; inline
+: GL_TRANSPOSE_TEXTURE_MATRIX HEX: 84E5 ; inline
+: GL_TRANSPOSE_COLOR_MATRIX HEX: 84E6 ; inline
+: GL_SUBTRACT HEX: 84E7 ; inline
+: GL_COMPRESSED_ALPHA HEX: 84E9 ; inline
+: GL_COMPRESSED_LUMINANCE HEX: 84EA ; inline
+: GL_COMPRESSED_LUMINANCE_ALPHA HEX: 84EB ; inline
+: GL_COMPRESSED_INTENSITY HEX: 84EC ; inline
+: GL_COMPRESSED_RGB HEX: 84ED ; inline
+: GL_COMPRESSED_RGBA HEX: 84EE ; inline
+: GL_TEXTURE_COMPRESSION_HINT HEX: 84EF ; inline
+: GL_NORMAL_MAP HEX: 8511 ; inline
+: GL_REFLECTION_MAP HEX: 8512 ; inline
+: GL_TEXTURE_CUBE_MAP HEX: 8513 ; inline
+: GL_TEXTURE_BINDING_CUBE_MAP HEX: 8514 ; inline
+: GL_TEXTURE_CUBE_MAP_POSITIVE_X HEX: 8515 ; inline
+: GL_TEXTURE_CUBE_MAP_NEGATIVE_X HEX: 8516 ; inline
+: GL_TEXTURE_CUBE_MAP_POSITIVE_Y HEX: 8517 ; inline
+: GL_TEXTURE_CUBE_MAP_NEGATIVE_Y HEX: 8518 ; inline
+: GL_TEXTURE_CUBE_MAP_POSITIVE_Z HEX: 8519 ; inline
+: GL_TEXTURE_CUBE_MAP_NEGATIVE_Z HEX: 851A ; inline
+: GL_PROXY_TEXTURE_CUBE_MAP HEX: 851B ; inline
+: GL_MAX_CUBE_MAP_TEXTURE_SIZE HEX: 851C ; inline
+: GL_COMBINE HEX: 8570 ; inline
+: GL_COMBINE_RGB HEX: 8571 ; inline
+: GL_COMBINE_ALPHA HEX: 8572 ; inline
+: GL_RGB_SCALE HEX: 8573 ; inline
+: GL_ADD_SIGNED HEX: 8574 ; inline
+: GL_INTERPOLATE HEX: 8575 ; inline
+: GL_CONSTANT HEX: 8576 ; inline
+: GL_PRIMARY_COLOR HEX: 8577 ; inline
+: GL_PREVIOUS HEX: 8578 ; inline
+: GL_SOURCE0_RGB HEX: 8580 ; inline
+: GL_SOURCE1_RGB HEX: 8581 ; inline
+: GL_SOURCE2_RGB HEX: 8582 ; inline
+: GL_SOURCE0_ALPHA HEX: 8588 ; inline
+: GL_SOURCE1_ALPHA HEX: 8589 ; inline
+: GL_SOURCE2_ALPHA HEX: 858A ; inline
+: GL_OPERAND0_RGB HEX: 8590 ; inline
+: GL_OPERAND1_RGB HEX: 8591 ; inline
+: GL_OPERAND2_RGB HEX: 8592 ; inline
+: GL_OPERAND0_ALPHA HEX: 8598 ; inline
+: GL_OPERAND1_ALPHA HEX: 8599 ; inline
+: GL_OPERAND2_ALPHA HEX: 859A ; inline
+: GL_TEXTURE_COMPRESSED_IMAGE_SIZE HEX: 86A0 ; inline
+: GL_TEXTURE_COMPRESSED HEX: 86A1 ; inline
+: GL_NUM_COMPRESSED_TEXTURE_FORMATS HEX: 86A2 ; inline
+: GL_COMPRESSED_TEXTURE_FORMATS HEX: 86A3 ; inline
+: GL_DOT3_RGB HEX: 86AE ; inline
+: GL_DOT3_RGBA HEX: 86AF ; inline
+: GL_MULTISAMPLE_BIT HEX: 20000000 ; inline
+
+GL-FUNCTION: void glActiveTexture { glActiveTextureARB } ( GLenum texture ) ;
+GL-FUNCTION: void glClientActiveTexture { glClientActiveTextureARB } ( GLenum texture ) ;
+GL-FUNCTION: void glCompressedTexImage1D { glCompressedTexImage1DARB } ( GLenum target, GLint level, GLenum internalformat, GLsizei width, GLint border, GLsizei imageSize, GLvoid* data ) ;
+GL-FUNCTION: void glCompressedTexImage2D { glCompressedTexImage2DARB } ( GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLint border, GLsizei imageSize, GLvoid* data ) ;
+GL-FUNCTION: void glCompressedTexImage3D { glCompressedTexImage2DARB } ( GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLsizei depth, GLint border, GLsizei imageSize, GLvoid* data ) ;
+GL-FUNCTION: void glCompressedTexSubImage1D { glCompressedTexSubImage1DARB } ( GLenum target, GLint level, GLint xoffset, GLsizei width, GLenum format, GLsizei imageSize, GLvoid* data ) ;
+GL-FUNCTION: void glCompressedTexSubImage2D { glCompressedTexSubImage2DARB } ( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLsizei width, GLsizei height, GLenum format, GLsizei imageSize, GLvoid* data ) ;
+GL-FUNCTION: void glCompressedTexSubImage3D { glCompressedTexSubImage3DARB } ( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLsizei imageSize, GLvoid* data ) ;
+GL-FUNCTION: void glGetCompressedTexImage { glGetCompressedTexImageARB } ( GLenum target, GLint lod, GLvoid* img ) ;
+GL-FUNCTION: void glLoadTransposeMatrixd { glLoadTransposeMatrixdARB } ( GLdouble m[16] ) ;
+GL-FUNCTION: void glLoadTransposeMatrixf { glLoadTransposeMatrixfARB } ( GLfloat m[16] ) ;
+GL-FUNCTION: void glMultTransposeMatrixd { glMultTransposeMatrixdARB } ( GLdouble m[16] ) ;
+GL-FUNCTION: void glMultTransposeMatrixf { glMultTransposeMatrixfARB } ( GLfloat m[16] ) ;
+GL-FUNCTION: void glMultiTexCoord1d { glMultiTexCoord1dARB } ( GLenum target, GLdouble s ) ;
+GL-FUNCTION: void glMultiTexCoord1dv { glMultiTexCoord1dvARB } ( GLenum target, GLdouble* v ) ;
+GL-FUNCTION: void glMultiTexCoord1f { glMultiTexCoord1fARB } ( GLenum target, GLfloat s ) ;
+GL-FUNCTION: void glMultiTexCoord1fv { glMultiTexCoord1fvARB } ( GLenum target, GLfloat* v ) ;
+GL-FUNCTION: void glMultiTexCoord1i { glMultiTexCoord1iARB } ( GLenum target, GLint s ) ;
+GL-FUNCTION: void glMultiTexCoord1iv { glMultiTexCoord1ivARB } ( GLenum target, GLint* v ) ;
+GL-FUNCTION: void glMultiTexCoord1s { glMultiTexCoord1sARB } ( GLenum target, GLshort s ) ;
+GL-FUNCTION: void glMultiTexCoord1sv { glMultiTexCoord1svARB } ( GLenum target, GLshort* v ) ;
+GL-FUNCTION: void glMultiTexCoord2d { glMultiTexCoord2dARB } ( GLenum target, GLdouble s, GLdouble t ) ;
+GL-FUNCTION: void glMultiTexCoord2dv { glMultiTexCoord2dvARB } ( GLenum target, GLdouble* v ) ;
+GL-FUNCTION: void glMultiTexCoord2f { glMultiTexCoord2fARB } ( GLenum target, GLfloat s, GLfloat t ) ;
+GL-FUNCTION: void glMultiTexCoord2fv { glMultiTexCoord2fvARB } ( GLenum target, GLfloat* v ) ;
+GL-FUNCTION: void glMultiTexCoord2i { glMultiTexCoord2iARB } ( GLenum target, GLint s, GLint t ) ;
+GL-FUNCTION: void glMultiTexCoord2iv { glMultiTexCoord2ivARB } ( GLenum target, GLint* v ) ;
+GL-FUNCTION: void glMultiTexCoord2s { glMultiTexCoord2sARB } ( GLenum target, GLshort s, GLshort t ) ;
+GL-FUNCTION: void glMultiTexCoord2sv { glMultiTexCoord2svARB } ( GLenum target, GLshort* v ) ;
+GL-FUNCTION: void glMultiTexCoord3d { glMultiTexCoord3dARB } ( GLenum target, GLdouble s, GLdouble t, GLdouble r ) ;
+GL-FUNCTION: void glMultiTexCoord3dv { glMultiTexCoord3dvARB } ( GLenum target, GLdouble* v ) ;
+GL-FUNCTION: void glMultiTexCoord3f { glMultiTexCoord3fARB } ( GLenum target, GLfloat s, GLfloat t, GLfloat r ) ;
+GL-FUNCTION: void glMultiTexCoord3fv { glMultiTexCoord3fvARB } ( GLenum target, GLfloat* v ) ;
+GL-FUNCTION: void glMultiTexCoord3i { glMultiTexCoord3iARB } ( GLenum target, GLint s, GLint t, GLint r ) ;
+GL-FUNCTION: void glMultiTexCoord3iv { glMultiTexCoord3ivARB } ( GLenum target, GLint* v ) ;
+GL-FUNCTION: void glMultiTexCoord3s { glMultiTexCoord3sARB } ( GLenum target, GLshort s, GLshort t, GLshort r ) ;
+GL-FUNCTION: void glMultiTexCoord3sv { glMultiTexCoord3svARB } ( GLenum target, GLshort* v ) ;
+GL-FUNCTION: void glMultiTexCoord4d { glMultiTexCoord4dARB } ( GLenum target, GLdouble s, GLdouble t, GLdouble r, GLdouble q ) ;
+GL-FUNCTION: void glMultiTexCoord4dv { glMultiTexCoord4dvARB } ( GLenum target, GLdouble* v ) ;
+GL-FUNCTION: void glMultiTexCoord4f { glMultiTexCoord4fARB } ( GLenum target, GLfloat s, GLfloat t, GLfloat r, GLfloat q ) ;
+GL-FUNCTION: void glMultiTexCoord4fv { glMultiTexCoord4fvARB } ( GLenum target, GLfloat* v ) ;
+GL-FUNCTION: void glMultiTexCoord4i { glMultiTexCoord4iARB } ( GLenum target, GLint s, GLint t, GLint r, GLint q ) ;
+GL-FUNCTION: void glMultiTexCoord4iv { glMultiTexCoord4ivARB } ( GLenum target, GLint* v ) ;
+GL-FUNCTION: void glMultiTexCoord4s { glMultiTexCoord4sARB } ( GLenum target, GLshort s, GLshort t, GLshort r, GLshort q ) ;
+GL-FUNCTION: void glMultiTexCoord4sv { glMultiTexCoord4svARB } ( GLenum target, GLshort* v ) ;
+GL-FUNCTION: void glSampleCoverage { glSampleCoverageARB } ( GLclampf value, GLboolean invert ) ;
+
+
+! OpenGL 1.4
+
+
+: GL_BLEND_DST_RGB HEX: 80C8 ; inline
+: GL_BLEND_SRC_RGB HEX: 80C9 ; inline
+: GL_BLEND_DST_ALPHA HEX: 80CA ; inline
+: GL_BLEND_SRC_ALPHA HEX: 80CB ; inline
+: GL_POINT_SIZE_MIN HEX: 8126 ; inline
+: GL_POINT_SIZE_MAX HEX: 8127 ; inline
+: GL_POINT_FADE_THRESHOLD_SIZE HEX: 8128 ; inline
+: GL_POINT_DISTANCE_ATTENUATION HEX: 8129 ; inline
+: GL_GENERATE_MIPMAP HEX: 8191 ; inline
+: GL_GENERATE_MIPMAP_HINT HEX: 8192 ; inline
+: GL_DEPTH_COMPONENT16 HEX: 81A5 ; inline
+: GL_DEPTH_COMPONENT24 HEX: 81A6 ; inline
+: GL_DEPTH_COMPONENT32 HEX: 81A7 ; inline
+: GL_MIRRORED_REPEAT HEX: 8370 ; inline
+: GL_FOG_COORDINATE_SOURCE HEX: 8450 ; inline
+: GL_FOG_COORDINATE HEX: 8451 ; inline
+: GL_FRAGMENT_DEPTH HEX: 8452 ; inline
+: GL_CURRENT_FOG_COORDINATE HEX: 8453 ; inline
+: GL_FOG_COORDINATE_ARRAY_TYPE HEX: 8454 ; inline
+: GL_FOG_COORDINATE_ARRAY_STRIDE HEX: 8455 ; inline
+: GL_FOG_COORDINATE_ARRAY_POINTER HEX: 8456 ; inline
+: GL_FOG_COORDINATE_ARRAY HEX: 8457 ; inline
+: GL_COLOR_SUM HEX: 8458 ; inline
+: GL_CURRENT_SECONDARY_COLOR HEX: 8459 ; inline
+: GL_SECONDARY_COLOR_ARRAY_SIZE HEX: 845A ; inline
+: GL_SECONDARY_COLOR_ARRAY_TYPE HEX: 845B ; inline
+: GL_SECONDARY_COLOR_ARRAY_STRIDE HEX: 845C ; inline
+: GL_SECONDARY_COLOR_ARRAY_POINTER HEX: 845D ; inline
+: GL_SECONDARY_COLOR_ARRAY HEX: 845E ; inline
+: GL_MAX_TEXTURE_LOD_BIAS HEX: 84FD ; inline
+: GL_TEXTURE_FILTER_CONTROL HEX: 8500 ; inline
+: GL_TEXTURE_LOD_BIAS HEX: 8501 ; inline
+: GL_INCR_WRAP HEX: 8507 ; inline
+: GL_DECR_WRAP HEX: 8508 ; inline
+: GL_TEXTURE_DEPTH_SIZE HEX: 884A ; inline
+: GL_DEPTH_TEXTURE_MODE HEX: 884B ; inline
+: GL_TEXTURE_COMPARE_MODE HEX: 884C ; inline
+: GL_TEXTURE_COMPARE_FUNC HEX: 884D ; inline
+: GL_COMPARE_R_TO_TEXTURE HEX: 884E ; inline
+
+GL-FUNCTION: void glBlendColor { glBlendColorEXT } ( GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha ) ;
+GL-FUNCTION: void glBlendEquation { glBlendEquationEXT } ( GLenum mode ) ;
+GL-FUNCTION: void glBlendFuncSeparate { glBlendFuncSeparateEXT } ( GLenum sfactorRGB, GLenum dfactorRGB, GLenum sfactorAlpha, GLenum dfactorAlpha ) ;
+GL-FUNCTION: void glFogCoordPointer { glFogCoordPointerEXT } ( GLenum type, GLsizei stride, GLvoid* pointer ) ;
+GL-FUNCTION: void glFogCoordd { glFogCoorddEXT } ( GLdouble coord ) ;
+GL-FUNCTION: void glFogCoorddv { glFogCoorddvEXT } ( GLdouble* coord ) ;
+GL-FUNCTION: void glFogCoordf { glFogCoordfEXT } ( GLfloat coord ) ;
+GL-FUNCTION: void glFogCoordfv { glFogCoordfvEXT } ( GLfloat* coord ) ;
+GL-FUNCTION: void glMultiDrawArrays { glMultiDrawArraysEXT } ( GLenum mode, GLint* first, GLsizei* count, GLsizei primcount ) ;
+GL-FUNCTION: void glMultiDrawElements { glMultiDrawElementsEXT } ( GLenum mode, GLsizei* count, GLenum type, GLvoid** indices, GLsizei primcount ) ;
+GL-FUNCTION: void glPointParameterf { glPointParameterfARB } ( GLenum pname, GLfloat param ) ;
+GL-FUNCTION: void glPointParameterfv { glPointParameterfvARB } ( GLenum pname, GLfloat* params ) ;
+GL-FUNCTION: void glSecondaryColor3b { glSecondaryColor3bEXT } ( GLbyte red, GLbyte green, GLbyte blue ) ;
+GL-FUNCTION: void glSecondaryColor3bv { glSecondaryColor3bvEXT } ( GLbyte* v ) ;
+GL-FUNCTION: void glSecondaryColor3d { glSecondaryColor3dEXT } ( GLdouble red, GLdouble green, GLdouble blue ) ;
+GL-FUNCTION: void glSecondaryColor3dv { glSecondaryColor3dvEXT } ( GLdouble* v ) ;
+GL-FUNCTION: void glSecondaryColor3f { glSecondaryColor3fEXT } ( GLfloat red, GLfloat green, GLfloat blue ) ;
+GL-FUNCTION: void glSecondaryColor3fv { glSecondaryColor3fvEXT } ( GLfloat* v ) ;
+GL-FUNCTION: void glSecondaryColor3i { glSecondaryColor3iEXT } ( GLint red, GLint green, GLint blue ) ;
+GL-FUNCTION: void glSecondaryColor3iv { glSecondaryColor3ivEXT } ( GLint* v ) ;
+GL-FUNCTION: void glSecondaryColor3s { glSecondaryColor3sEXT } ( GLshort red, GLshort green, GLshort blue ) ;
+GL-FUNCTION: void glSecondaryColor3sv { glSecondaryColor3svEXT } ( GLshort* v ) ;
+GL-FUNCTION: void glSecondaryColor3ub { glSecondaryColor3ubEXT } ( GLubyte red, GLubyte green, GLubyte blue ) ;
+GL-FUNCTION: void glSecondaryColor3ubv { glSecondaryColor3ubvEXT } ( GLubyte* v ) ;
+GL-FUNCTION: void glSecondaryColor3ui { glSecondaryColor3uiEXT } ( GLuint red, GLuint green, GLuint blue ) ;
+GL-FUNCTION: void glSecondaryColor3uiv { glSecondaryColor3uivEXT } ( GLuint* v ) ;
+GL-FUNCTION: void glSecondaryColor3us { glSecondaryColor3usEXT } ( GLushort red, GLushort green, GLushort blue ) ;
+GL-FUNCTION: void glSecondaryColor3usv { glSecondaryColor3usvEXT } ( GLushort* v ) ;
+GL-FUNCTION: void glSecondaryColorPointer { glSecondaryColorPointerEXT } ( GLint size, GLenum type, GLsizei stride, GLvoid* pointer ) ;
+GL-FUNCTION: void glWindowPos2d { glWindowPos2dARB } ( GLdouble x, GLdouble y ) ;
+GL-FUNCTION: void glWindowPos2dv { glWindowPos2dvARB } ( GLdouble* p ) ;
+GL-FUNCTION: void glWindowPos2f { glWindowPos2fARB } ( GLfloat x, GLfloat y ) ;
+GL-FUNCTION: void glWindowPos2fv { glWindowPos2fvARB } ( GLfloat* p ) ;
+GL-FUNCTION: void glWindowPos2i { glWindowPos2iARB } ( GLint x, GLint y ) ;
+GL-FUNCTION: void glWindowPos2iv { glWindowPos2ivARB } ( GLint* p ) ;
+GL-FUNCTION: void glWindowPos2s { glWindowPos2sARB } ( GLshort x, GLshort y ) ;
+GL-FUNCTION: void glWindowPos2sv { glWindowPos2svARB } ( GLshort* p ) ;
+GL-FUNCTION: void glWindowPos3d { glWindowPos3dARB } ( GLdouble x, GLdouble y, GLdouble z ) ;
+GL-FUNCTION: void glWindowPos3dv { glWindowPos3dvARB } ( GLdouble* p ) ;
+GL-FUNCTION: void glWindowPos3f { glWindowPos3fARB } ( GLfloat x, GLfloat y, GLfloat z ) ;
+GL-FUNCTION: void glWindowPos3fv { glWindowPos3fvARB } ( GLfloat* p ) ;
+GL-FUNCTION: void glWindowPos3i { glWindowPos3iARB } ( GLint x, GLint y, GLint z ) ;
+GL-FUNCTION: void glWindowPos3iv { glWindowPos3ivARB } ( GLint* p ) ;
+GL-FUNCTION: void glWindowPos3s { glWindowPos3sARB } ( GLshort x, GLshort y, GLshort z ) ;
+GL-FUNCTION: void glWindowPos3sv { glWindowPos3svARB } ( GLshort* p ) ;
+
+! OpenGL 1.5
+
+: GL_BUFFER_SIZE HEX: 8764 ; inline
+: GL_BUFFER_USAGE HEX: 8765 ; inline
+: GL_QUERY_COUNTER_BITS HEX: 8864 ; inline
+: GL_CURRENT_QUERY HEX: 8865 ; inline
+: GL_QUERY_RESULT HEX: 8866 ; inline
+: GL_QUERY_RESULT_AVAILABLE HEX: 8867 ; inline
+: GL_ARRAY_BUFFER HEX: 8892 ; inline
+: GL_ELEMENT_ARRAY_BUFFER HEX: 8893 ; inline
+: GL_ARRAY_BUFFER_BINDING HEX: 8894 ; inline
+: GL_ELEMENT_ARRAY_BUFFER_BINDING HEX: 8895 ; inline
+: GL_VERTEX_ARRAY_BUFFER_BINDING HEX: 8896 ; inline
+: GL_NORMAL_ARRAY_BUFFER_BINDING HEX: 8897 ; inline
+: GL_COLOR_ARRAY_BUFFER_BINDING HEX: 8898 ; inline
+: GL_INDEX_ARRAY_BUFFER_BINDING HEX: 8899 ; inline
+: GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING HEX: 889A ; inline
+: GL_EDGE_FLAG_ARRAY_BUFFER_BINDING HEX: 889B ; inline
+: GL_SECONDARY_COLOR_ARRAY_BUFFER_BINDING HEX: 889C ; inline
+: GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING HEX: 889D ; inline
+: GL_WEIGHT_ARRAY_BUFFER_BINDING HEX: 889E ; inline
+: GL_VERTEX_ATTRIB_ARRAY_BUFFER_BINDING HEX: 889F ; inline
+: GL_READ_ONLY HEX: 88B8 ; inline
+: GL_WRITE_ONLY HEX: 88B9 ; inline
+: GL_READ_WRITE HEX: 88BA ; inline
+: GL_BUFFER_ACCESS HEX: 88BB ; inline
+: GL_BUFFER_MAPPED HEX: 88BC ; inline
+: GL_BUFFER_MAP_POINTER HEX: 88BD ; inline
+: GL_STREAM_DRAW HEX: 88E0 ; inline
+: GL_STREAM_READ HEX: 88E1 ; inline
+: GL_STREAM_COPY HEX: 88E2 ; inline
+: GL_STATIC_DRAW HEX: 88E4 ; inline
+: GL_STATIC_READ HEX: 88E5 ; inline
+: GL_STATIC_COPY HEX: 88E6 ; inline
+: GL_DYNAMIC_DRAW HEX: 88E8 ; inline
+: GL_DYNAMIC_READ HEX: 88E9 ; inline
+: GL_DYNAMIC_COPY HEX: 88EA ; inline
+: GL_SAMPLES_PASSED HEX: 8914 ; inline
+: GL_FOG_COORD_SRC GL_FOG_COORDINATE_SOURCE ; inline
+: GL_FOG_COORD GL_FOG_COORDINATE ; inline
+: GL_FOG_COORD_ARRAY GL_FOG_COORDINATE_ARRAY ; inline
+: GL_SRC0_RGB GL_SOURCE0_RGB ; inline
+: GL_FOG_COORD_ARRAY_POINTER GL_FOG_COORDINATE_ARRAY_POINTER ; inline
+: GL_FOG_COORD_ARRAY_TYPE GL_FOG_COORDINATE_ARRAY_TYPE ; inline
+: GL_SRC1_ALPHA GL_SOURCE1_ALPHA ; inline
+: GL_CURRENT_FOG_COORD GL_CURRENT_FOG_COORDINATE ; inline
+: GL_FOG_COORD_ARRAY_STRIDE GL_FOG_COORDINATE_ARRAY_STRIDE ; inline
+: GL_SRC0_ALPHA GL_SOURCE0_ALPHA ; inline
+: GL_SRC1_RGB GL_SOURCE1_RGB ; inline
+: GL_FOG_COORD_ARRAY_BUFFER_BINDING GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING ; inline
+: GL_SRC2_ALPHA GL_SOURCE2_ALPHA ; inline
+: GL_SRC2_RGB GL_SOURCE2_RGB ; inline
+
+TYPEDEF: ptrdiff_t GLsizeiptr
+TYPEDEF: ptrdiff_t GLintptr
+
+GL-FUNCTION: void glBeginQuery { glBeginQueryARB } ( GLenum target, GLuint id ) ;
+GL-FUNCTION: void glBindBuffer { glBindBufferARB } ( GLenum target, GLuint buffer ) ;
+GL-FUNCTION: void glBufferData { glBufferDataARB } ( GLenum target, GLsizeiptr size, GLvoid* data, GLenum usage ) ;
+GL-FUNCTION: void glBufferSubData { glBufferSubDataARB } ( GLenum target, GLintptr offset, GLsizeiptr size, GLvoid* data ) ;
+GL-FUNCTION: void glDeleteBuffers { glDeleteBuffersARB } ( GLsizei n, GLuint* buffers ) ;
+GL-FUNCTION: void glDeleteQueries { glDeleteQueriesARB } ( GLsizei n, GLuint* ids ) ;
+GL-FUNCTION: void glEndQuery { glEndQueryARB } ( GLenum target ) ;
+GL-FUNCTION: void glGenBuffers { glGenBuffersARB } ( GLsizei n, GLuint* buffers ) ;
+GL-FUNCTION: void glGenQueries { glGenQueriesARB } ( GLsizei n, GLuint* ids ) ;
+GL-FUNCTION: void glGetBufferParameteriv { glGetBufferParameterivARB } ( GLenum target, GLenum pname, GLint* params ) ;
+GL-FUNCTION: void glGetBufferPointerv { glGetBufferPointervARB } ( GLenum target, GLenum pname, GLvoid** params ) ;
+GL-FUNCTION: void glGetBufferSubData { glGetBufferSubDataARB } ( GLenum target, GLintptr offset, GLsizeiptr size, GLvoid* data ) ;
+GL-FUNCTION: void glGetQueryObjectiv { glGetQueryObjectivARB } ( GLuint id, GLenum pname, GLint* params ) ;
+GL-FUNCTION: void glGetQueryObjectuiv { glGetQueryObjectuivARB } ( GLuint id, GLenum pname, GLuint* params ) ;
+GL-FUNCTION: void glGetQueryiv { glGetQueryivARB } ( GLenum target, GLenum pname, GLint* params ) ;
+GL-FUNCTION: GLboolean glIsBuffer { glIsBufferARB } ( GLuint buffer ) ;
+GL-FUNCTION: GLboolean glIsQuery { glIsQueryARB } ( GLuint id ) ;
+GL-FUNCTION: GLvoid* glMapBuffer { glMapBufferARB } ( GLenum target, GLenum access ) ;
+GL-FUNCTION: GLboolean glUnmapBuffer { glUnmapBufferARB } ( GLenum target ) ;
+
+
+! OpenGL 2.0
+
+
+: GL_VERTEX_ATTRIB_ARRAY_ENABLED HEX: 8622 ; inline
+: GL_VERTEX_ATTRIB_ARRAY_SIZE HEX: 8623 ; inline
+: GL_VERTEX_ATTRIB_ARRAY_STRIDE HEX: 8624 ; inline
+: GL_VERTEX_ATTRIB_ARRAY_TYPE HEX: 8625 ; inline
+: GL_CURRENT_VERTEX_ATTRIB HEX: 8626 ; inline
+: GL_VERTEX_PROGRAM_POINT_SIZE HEX: 8642 ; inline
+: GL_VERTEX_PROGRAM_TWO_SIDE HEX: 8643 ; inline
+: GL_VERTEX_ATTRIB_ARRAY_POINTER HEX: 8645 ; inline
+: GL_STENCIL_BACK_FUNC HEX: 8800 ; inline
+: GL_STENCIL_BACK_FAIL HEX: 8801 ; inline
+: GL_STENCIL_BACK_PASS_DEPTH_FAIL HEX: 8802 ; inline
+: GL_STENCIL_BACK_PASS_DEPTH_PASS HEX: 8803 ; inline
+: GL_MAX_DRAW_BUFFERS HEX: 8824 ; inline
+: GL_DRAW_BUFFER0 HEX: 8825 ; inline
+: GL_DRAW_BUFFER1 HEX: 8826 ; inline
+: GL_DRAW_BUFFER2 HEX: 8827 ; inline
+: GL_DRAW_BUFFER3 HEX: 8828 ; inline
+: GL_DRAW_BUFFER4 HEX: 8829 ; inline
+: GL_DRAW_BUFFER5 HEX: 882A ; inline
+: GL_DRAW_BUFFER6 HEX: 882B ; inline
+: GL_DRAW_BUFFER7 HEX: 882C ; inline
+: GL_DRAW_BUFFER8 HEX: 882D ; inline
+: GL_DRAW_BUFFER9 HEX: 882E ; inline
+: GL_DRAW_BUFFER10 HEX: 882F ; inline
+: GL_DRAW_BUFFER11 HEX: 8830 ; inline
+: GL_DRAW_BUFFER12 HEX: 8831 ; inline
+: GL_DRAW_BUFFER13 HEX: 8832 ; inline
+: GL_DRAW_BUFFER14 HEX: 8833 ; inline
+: GL_DRAW_BUFFER15 HEX: 8834 ; inline
+: GL_BLEND_EQUATION_ALPHA HEX: 883D ; inline
+: GL_POINT_SPRITE HEX: 8861 ; inline
+: GL_COORD_REPLACE HEX: 8862 ; inline
+: GL_MAX_VERTEX_ATTRIBS HEX: 8869 ; inline
+: GL_VERTEX_ATTRIB_ARRAY_NORMALIZED HEX: 886A ; inline
+: GL_MAX_TEXTURE_COORDS HEX: 8871 ; inline
+: GL_MAX_TEXTURE_IMAGE_UNITS HEX: 8872 ; inline
+: GL_FRAGMENT_SHADER HEX: 8B30 ; inline
+: GL_VERTEX_SHADER HEX: 8B31 ; inline
+: GL_MAX_FRAGMENT_UNIFORM_COMPONENTS HEX: 8B49 ; inline
+: GL_MAX_VERTEX_UNIFORM_COMPONENTS HEX: 8B4A ; inline
+: GL_MAX_VARYING_FLOATS HEX: 8B4B ; inline
+: GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS HEX: 8B4C ; inline
+: GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS HEX: 8B4D ; inline
+: GL_SHADER_TYPE HEX: 8B4F ; inline
+: GL_FLOAT_VEC2 HEX: 8B50 ; inline
+: GL_FLOAT_VEC3 HEX: 8B51 ; inline
+: GL_FLOAT_VEC4 HEX: 8B52 ; inline
+: GL_INT_VEC2 HEX: 8B53 ; inline
+: GL_INT_VEC3 HEX: 8B54 ; inline
+: GL_INT_VEC4 HEX: 8B55 ; inline
+: GL_BOOL HEX: 8B56 ; inline
+: GL_BOOL_VEC2 HEX: 8B57 ; inline
+: GL_BOOL_VEC3 HEX: 8B58 ; inline
+: GL_BOOL_VEC4 HEX: 8B59 ; inline
+: GL_FLOAT_MAT2 HEX: 8B5A ; inline
+: GL_FLOAT_MAT3 HEX: 8B5B ; inline
+: GL_FLOAT_MAT4 HEX: 8B5C ; inline
+: GL_SAMPLER_1D HEX: 8B5D ; inline
+: GL_SAMPLER_2D HEX: 8B5E ; inline
+: GL_SAMPLER_3D HEX: 8B5F ; inline
+: GL_SAMPLER_CUBE HEX: 8B60 ; inline
+: GL_SAMPLER_1D_SHADOW HEX: 8B61 ; inline
+: GL_SAMPLER_2D_SHADOW HEX: 8B62 ; inline
+: GL_DELETE_STATUS HEX: 8B80 ; inline
+: GL_COMPILE_STATUS HEX: 8B81 ; inline
+: GL_LINK_STATUS HEX: 8B82 ; inline
+: GL_VALIDATE_STATUS HEX: 8B83 ; inline
+: GL_INFO_LOG_LENGTH HEX: 8B84 ; inline
+: GL_ATTACHED_SHADERS HEX: 8B85 ; inline
+: GL_ACTIVE_UNIFORMS HEX: 8B86 ; inline
+: GL_ACTIVE_UNIFORM_MAX_LENGTH HEX: 8B87 ; inline
+: GL_SHADER_SOURCE_LENGTH HEX: 8B88 ; inline
+: GL_ACTIVE_ATTRIBUTES HEX: 8B89 ; inline
+: GL_ACTIVE_ATTRIBUTE_MAX_LENGTH HEX: 8B8A ; inline
+: GL_FRAGMENT_SHADER_DERIVATIVE_HINT HEX: 8B8B ; inline
+: GL_SHADING_LANGUAGE_VERSION HEX: 8B8C ; inline
+: GL_CURRENT_PROGRAM HEX: 8B8D ; inline
+: GL_POINT_SPRITE_COORD_ORIGIN HEX: 8CA0 ; inline
+: GL_LOWER_LEFT HEX: 8CA1 ; inline
+: GL_UPPER_LEFT HEX: 8CA2 ; inline
+: GL_STENCIL_BACK_REF HEX: 8CA3 ; inline
+: GL_STENCIL_BACK_VALUE_MASK HEX: 8CA4 ; inline
+: GL_STENCIL_BACK_WRITEMASK HEX: 8CA5 ; inline
+: GL_BLEND_EQUATION HEX: 8009 ; inline
+: GL_BLEND_EQUATION_RGB GL_BLEND_EQUATION ; inline
+
+TYPEDEF: char GLchar
+
+GL-FUNCTION: void glAttachShader { glAttachObjectARB } ( GLuint program, GLuint shader ) ;
+GL-FUNCTION: void glBindAttribLocation { glBindAttribLocationARB } ( GLuint program, GLuint index, GLchar* name ) ;
+GL-FUNCTION: void glBlendEquationSeparate { glBlendEquationSeparateEXT } ( GLenum modeRGB, GLenum modeAlpha ) ;
+GL-FUNCTION: void glCompileShader { glCompileShaderARB } ( GLuint shader ) ;
+GL-FUNCTION: GLuint glCreateProgram { glCreateProgramObjectARB } ( ) ;
+GL-FUNCTION: GLuint glCreateShader { glCreateShaderObjectARB } ( GLenum type ) ;
+GL-FUNCTION: void glDeleteProgram { glDeleteObjectARB } ( GLuint program ) ;
+GL-FUNCTION: void glDeleteShader { glDeleteObjectARB } ( GLuint shader ) ;
+GL-FUNCTION: void glDetachShader { glDetachObjectARB } ( GLuint program, GLuint shader ) ;
+GL-FUNCTION: void glDisableVertexAttribArray { glDisableVertexAttribArrayARB } ( GLuint index ) ;
+GL-FUNCTION: void glDrawBuffers { glDrawBuffersARB glDrawBuffersATI } ( GLsizei n, GLenum* bufs ) ;
+GL-FUNCTION: void glEnableVertexAttribArray { glEnableVertexAttribArrayARB } ( GLuint index ) ;
+GL-FUNCTION: void glGetActiveAttrib { glGetActiveAttribARB } ( GLuint program, GLuint index, GLsizei maxLength, GLsizei* length, GLint* size, GLenum* type, GLchar* name ) ;
+GL-FUNCTION: void glGetActiveUniform { glGetActiveUniformARB } ( GLuint program, GLuint index, GLsizei maxLength, GLsizei* length, GLint* size, GLenum* type, GLchar* name ) ;
+GL-FUNCTION: void glGetAttachedShaders { glGetAttachedObjectsARB } ( GLuint program, GLsizei maxCount, GLsizei* count, GLuint* shaders ) ;
+GL-FUNCTION: GLint glGetAttribLocation { glGetAttribLocationARB } ( GLuint program, GLchar* name ) ;
+GL-FUNCTION: void glGetProgramInfoLog { glGetInfoLogARB } ( GLuint program, GLsizei bufSize, GLsizei* length, GLchar* infoLog ) ;
+GL-FUNCTION: void glGetProgramiv { glGetObjectParameterivARB } ( GLuint program, GLenum pname, GLint* param ) ;
+GL-FUNCTION: void glGetShaderInfoLog { glGetInfoLogARB } ( GLuint shader, GLsizei bufSize, GLsizei* length, GLchar* infoLog ) ;
+GL-FUNCTION: void glGetShaderSource { glGetShaderSourceARB } ( GLint obj, GLsizei maxLength, GLsizei* length, GLchar* source ) ;
+GL-FUNCTION: void glGetShaderiv { glGetObjectParameterivARB } ( GLuint shader, GLenum pname, GLint* param ) ;
+GL-FUNCTION: GLint glGetUniformLocation { glGetUniformLocationARB } ( GLint programObj, GLchar* name ) ;
+GL-FUNCTION: void glGetUniformfv { glGetUniformfvARB } ( GLuint program, GLint location, GLfloat* params ) ;
+GL-FUNCTION: void glGetUniformiv { glGetUniformivARB } ( GLuint program, GLint location, GLint* params ) ;
+GL-FUNCTION: void glGetVertexAttribPointerv { glGetVertexAttribPointervARB } ( GLuint index, GLenum pname, GLvoid** pointer ) ;
+GL-FUNCTION: void glGetVertexAttribdv { glGetVertexAttribdvARB } ( GLuint index, GLenum pname, GLdouble* params ) ;
+GL-FUNCTION: void glGetVertexAttribfv { glGetVertexAttribfvARB } ( GLuint index, GLenum pname, GLfloat* params ) ;
+GL-FUNCTION: void glGetVertexAttribiv { glGetVertexAttribivARB } ( GLuint index, GLenum pname, GLint* params ) ;
+GL-FUNCTION: GLboolean glIsProgram { glIsProgramARB } ( GLuint program ) ;
+GL-FUNCTION: GLboolean glIsShader { glIsShaderARB } ( GLuint shader ) ;
+GL-FUNCTION: void glLinkProgram { glLinkProgramARB } ( GLuint program ) ;
+GL-FUNCTION: void glShaderSource { glShaderSourceARB } ( GLuint shader, GLsizei count, GLchar** strings, GLint* lengths ) ;
+GL-FUNCTION: void glStencilFuncSeparate { glStencilFuncSeparateATI } ( GLenum frontfunc, GLenum backfunc, GLint ref, GLuint mask ) ;
+GL-FUNCTION: void glStencilMaskSeparate { } ( GLenum face, GLuint mask ) ;
+GL-FUNCTION: void glStencilOpSeparate { glStencilOpSeparateATI } ( GLenum face, GLenum sfail, GLenum dpfail, GLenum dppass ) ;
+GL-FUNCTION: void glUniform1f { glUniform1fARB } ( GLint location, GLfloat v0 ) ;
+GL-FUNCTION: void glUniform1fv { glUniform1fvARB } ( GLint location, GLsizei count, GLfloat* value ) ;
+GL-FUNCTION: void glUniform1i { glUniform1iARB } ( GLint location, GLint v0 ) ;
+GL-FUNCTION: void glUniform1iv { glUniform1ivARB } ( GLint location, GLsizei count, GLint* value ) ;
+GL-FUNCTION: void glUniform2f { glUniform2fARB } ( GLint location, GLfloat v0, GLfloat v1 ) ;
+GL-FUNCTION: void glUniform2fv { glUniform2fvARB } ( GLint location, GLsizei count, GLfloat* value ) ;
+GL-FUNCTION: void glUniform2i { glUniform2iARB } ( GLint location, GLint v0, GLint v1 ) ;
+GL-FUNCTION: void glUniform2iv { glUniform2ivARB } ( GLint location, GLsizei count, GLint* value ) ;
+GL-FUNCTION: void glUniform3f { glUniform3fARB } ( GLint location, GLfloat v0, GLfloat v1, GLfloat v2 ) ;
+GL-FUNCTION: void glUniform3fv { glUniform3fvARB } ( GLint location, GLsizei count, GLfloat* value ) ;
+GL-FUNCTION: void glUniform3i { glUniform3iARB } ( GLint location, GLint v0, GLint v1, GLint v2 ) ;
+GL-FUNCTION: void glUniform3iv { glUniform3ivARB } ( GLint location, GLsizei count, GLint* value ) ;
+GL-FUNCTION: void glUniform4f { glUniform4fARB } ( GLint location, GLfloat v0, GLfloat v1, GLfloat v2, GLfloat v3 ) ;
+GL-FUNCTION: void glUniform4fv { glUniform4fvARB } ( GLint location, GLsizei count, GLfloat* value ) ;
+GL-FUNCTION: void glUniform4i { glUniform4iARB } ( GLint location, GLint v0, GLint v1, GLint v2, GLint v3 ) ;
+GL-FUNCTION: void glUniform4iv { glUniform4ivARB } ( GLint location, GLsizei count, GLint* value ) ;
+GL-FUNCTION: void glUniformMatrix2fv { glUniformMatrix2fvARB } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
+GL-FUNCTION: void glUniformMatrix3fv { glUniformMatrix3fvARB } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
+GL-FUNCTION: void glUniformMatrix4fv { glUniformMatrix4fvARB } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
+GL-FUNCTION: void glUseProgram { glUseProgramObjectARB } ( GLuint program ) ;
+GL-FUNCTION: void glValidateProgram { glValidateProgramARB } ( GLuint program ) ;
+GL-FUNCTION: void glVertexAttrib1d { glVertexAttrib1dARB } ( GLuint index, GLdouble x ) ;
+GL-FUNCTION: void glVertexAttrib1dv { glVertexAttrib1dvARB } ( GLuint index, GLdouble* v ) ;
+GL-FUNCTION: void glVertexAttrib1f { glVertexAttrib1fARB } ( GLuint index, GLfloat x ) ;
+GL-FUNCTION: void glVertexAttrib1fv { glVertexAttrib1fvARB } ( GLuint index, GLfloat* v ) ;
+GL-FUNCTION: void glVertexAttrib1s { glVertexAttrib1sARB } ( GLuint index, GLshort x ) ;
+GL-FUNCTION: void glVertexAttrib1sv { glVertexAttrib1svARB } ( GLuint index, GLshort* v ) ;
+GL-FUNCTION: void glVertexAttrib2d { glVertexAttrib2dARB } ( GLuint index, GLdouble x, GLdouble y ) ;
+GL-FUNCTION: void glVertexAttrib2dv { glVertexAttrib2dvARB } ( GLuint index, GLdouble* v ) ;
+GL-FUNCTION: void glVertexAttrib2f { glVertexAttrib2fARB } ( GLuint index, GLfloat x, GLfloat y ) ;
+GL-FUNCTION: void glVertexAttrib2fv { glVertexAttrib2fvARB } ( GLuint index, GLfloat* v ) ;
+GL-FUNCTION: void glVertexAttrib2s { glVertexAttrib2sARB } ( GLuint index, GLshort x, GLshort y ) ;
+GL-FUNCTION: void glVertexAttrib2sv { glVertexAttrib2svARB } ( GLuint index, GLshort* v ) ;
+GL-FUNCTION: void glVertexAttrib3d { glVertexAttrib3dARB } ( GLuint index, GLdouble x, GLdouble y, GLdouble z ) ;
+GL-FUNCTION: void glVertexAttrib3dv { glVertexAttrib3dvARB } ( GLuint index, GLdouble* v ) ;
+GL-FUNCTION: void glVertexAttrib3f { glVertexAttrib3fARB } ( GLuint index, GLfloat x, GLfloat y, GLfloat z ) ;
+GL-FUNCTION: void glVertexAttrib3fv { glVertexAttrib3fvARB } ( GLuint index, GLfloat* v ) ;
+GL-FUNCTION: void glVertexAttrib3s { glVertexAttrib3sARB } ( GLuint index, GLshort x, GLshort y, GLshort z ) ;
+GL-FUNCTION: void glVertexAttrib3sv { glVertexAttrib3svARB } ( GLuint index, GLshort* v ) ;
+GL-FUNCTION: void glVertexAttrib4Nbv { glVertexAttrib4NbvARB } ( GLuint index, GLbyte* v ) ;
+GL-FUNCTION: void glVertexAttrib4Niv { glVertexAttrib4NivARB } ( GLuint index, GLint* v ) ;
+GL-FUNCTION: void glVertexAttrib4Nsv { glVertexAttrib4NsvARB } ( GLuint index, GLshort* v ) ;
+GL-FUNCTION: void glVertexAttrib4Nub { glVertexAttrib4NubARB } ( GLuint index, GLubyte x, GLubyte y, GLubyte z, GLubyte w ) ;
+GL-FUNCTION: void glVertexAttrib4Nubv { glVertexAttrib4NubvARB } ( GLuint index, GLubyte* v ) ;
+GL-FUNCTION: void glVertexAttrib4Nuiv { glVertexAttrib4NuivARB } ( GLuint index, GLuint* v ) ;
+GL-FUNCTION: void glVertexAttrib4Nusv { glVertexAttrib4NusvARB } ( GLuint index, GLushort* v ) ;
+GL-FUNCTION: void glVertexAttrib4bv { glVertexAttrib4bvARB } ( GLuint index, GLbyte* v ) ;
+GL-FUNCTION: void glVertexAttrib4d { glVertexAttrib4dARB } ( GLuint index, GLdouble x, GLdouble y, GLdouble z, GLdouble w ) ;
+GL-FUNCTION: void glVertexAttrib4dv { glVertexAttrib4dvARB } ( GLuint index, GLdouble* v ) ;
+GL-FUNCTION: void glVertexAttrib4f { glVertexAttrib4fARB } ( GLuint index, GLfloat x, GLfloat y, GLfloat z, GLfloat w ) ;
+GL-FUNCTION: void glVertexAttrib4fv { glVertexAttrib4fvARB } ( GLuint index, GLfloat* v ) ;
+GL-FUNCTION: void glVertexAttrib4iv { glVertexAttrib4ivARB } ( GLuint index, GLint* v ) ;
+GL-FUNCTION: void glVertexAttrib4s { glVertexAttrib4sARB } ( GLuint index, GLshort x, GLshort y, GLshort z, GLshort w ) ;
+GL-FUNCTION: void glVertexAttrib4sv { glVertexAttrib4svARB } ( GLuint index, GLshort* v ) ;
+GL-FUNCTION: void glVertexAttrib4ubv { glVertexAttrib4ubvARB } ( GLuint index, GLubyte* v ) ;
+GL-FUNCTION: void glVertexAttrib4uiv { glVertexAttrib4uivARB } ( GLuint index, GLuint* v ) ;
+GL-FUNCTION: void glVertexAttrib4usv { glVertexAttrib4usvARB } ( GLuint index, GLushort* v ) ;
+GL-FUNCTION: void glVertexAttribPointer { glVertexAttribPointerARB } ( GLuint index, GLint size, GLenum type, GLboolean normalized, GLsizei stride, GLvoid* pointer ) ;
+
+
+! OpenGL 2.1
+
+
+: GL_CURRENT_RASTER_SECONDARY_COLOR HEX: 845F ; inline
+: GL_PIXEL_PACK_BUFFER HEX: 88EB ; inline
+: GL_PIXEL_UNPACK_BUFFER HEX: 88EC ; inline
+: GL_PIXEL_PACK_BUFFER_BINDING HEX: 88ED ; inline
+: GL_PIXEL_UNPACK_BUFFER_BINDING HEX: 88EF ; inline
+: GL_SRGB HEX: 8C40 ; inline
+: GL_SRGB8 HEX: 8C41 ; inline
+: GL_SRGB_ALPHA HEX: 8C42 ; inline
+: GL_SRGB8_ALPHA8 HEX: 8C43 ; inline
+: GL_SLUMINANCE_ALPHA HEX: 8C44 ; inline
+: GL_SLUMINANCE8_ALPHA8 HEX: 8C45 ; inline
+: GL_SLUMINANCE HEX: 8C46 ; inline
+: GL_SLUMINANCE8 HEX: 8C47 ; inline
+: GL_COMPRESSED_SRGB HEX: 8C48 ; inline
+: GL_COMPRESSED_SRGB_ALPHA HEX: 8C49 ; inline
+: GL_COMPRESSED_SLUMINANCE HEX: 8C4A ; inline
+: GL_COMPRESSED_SLUMINANCE_ALPHA HEX: 8C4B ; inline
+
+GL-FUNCTION: void glUniformMatrix2x3fv { } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
+GL-FUNCTION: void glUniformMatrix2x4fv { } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
+GL-FUNCTION: void glUniformMatrix3x2fv { } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
+GL-FUNCTION: void glUniformMatrix3x4fv { } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
+GL-FUNCTION: void glUniformMatrix4x2fv { } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
+GL-FUNCTION: void glUniformMatrix4x3fv { } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
+
+
+! GL_EXT_framebuffer_object
+
+
+: GL_INVALID_FRAMEBUFFER_OPERATION_EXT HEX: 0506 ; inline
+: GL_MAX_RENDERBUFFER_SIZE_EXT HEX: 84E8 ; inline
+: GL_FRAMEBUFFER_BINDING_EXT HEX: 8CA6 ; inline
+: GL_RENDERBUFFER_BINDING_EXT HEX: 8CA7 ; inline
+: GL_FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE_EXT HEX: 8CD0 ; inline
+: GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_EXT HEX: 8CD1 ; inline
+: GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL_EXT HEX: 8CD2 ; inline
+: GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE_EXT HEX: 8CD3 ; inline
+: GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_3D_ZOFFSET_EXT HEX: 8CD4 ; inline
+: GL_FRAMEBUFFER_COMPLETE_EXT HEX: 8CD5 ; inline
+: GL_FRAMEBUFFER_INCOMPLETE_ATTACHMENT_EXT HEX: 8CD6 ; inline
+: GL_FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT_EXT HEX: 8CD7 ; inline
+: GL_FRAMEBUFFER_INCOMPLETE_DIMENSIONS_EXT HEX: 8CD9 ; inline
+: GL_FRAMEBUFFER_INCOMPLETE_FORMATS_EXT HEX: 8CDA ; inline
+: GL_FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER_EXT HEX: 8CDB ; inline
+: GL_FRAMEBUFFER_INCOMPLETE_READ_BUFFER_EXT HEX: 8CDC ; inline
+: GL_FRAMEBUFFER_UNSUPPORTED_EXT HEX: 8CDD ; inline
+: GL_MAX_COLOR_ATTACHMENTS_EXT HEX: 8CDF ; inline
+: GL_COLOR_ATTACHMENT0_EXT HEX: 8CE0 ; inline
+: GL_COLOR_ATTACHMENT1_EXT HEX: 8CE1 ; inline
+: GL_COLOR_ATTACHMENT2_EXT HEX: 8CE2 ; inline
+: GL_COLOR_ATTACHMENT3_EXT HEX: 8CE3 ; inline
+: GL_COLOR_ATTACHMENT4_EXT HEX: 8CE4 ; inline
+: GL_COLOR_ATTACHMENT5_EXT HEX: 8CE5 ; inline
+: GL_COLOR_ATTACHMENT6_EXT HEX: 8CE6 ; inline
+: GL_COLOR_ATTACHMENT7_EXT HEX: 8CE7 ; inline
+: GL_COLOR_ATTACHMENT8_EXT HEX: 8CE8 ; inline
+: GL_COLOR_ATTACHMENT9_EXT HEX: 8CE9 ; inline
+: GL_COLOR_ATTACHMENT10_EXT HEX: 8CEA ; inline
+: GL_COLOR_ATTACHMENT11_EXT HEX: 8CEB ; inline
+: GL_COLOR_ATTACHMENT12_EXT HEX: 8CEC ; inline
+: GL_COLOR_ATTACHMENT13_EXT HEX: 8CED ; inline
+: GL_COLOR_ATTACHMENT14_EXT HEX: 8CEE ; inline
+: GL_COLOR_ATTACHMENT15_EXT HEX: 8CEF ; inline
+: GL_DEPTH_ATTACHMENT_EXT HEX: 8D00 ; inline
+: GL_STENCIL_ATTACHMENT_EXT HEX: 8D20 ; inline
+: GL_FRAMEBUFFER_EXT HEX: 8D40 ; inline
+: GL_RENDERBUFFER_EXT HEX: 8D41 ; inline
+: GL_RENDERBUFFER_WIDTH_EXT HEX: 8D42 ; inline
+: GL_RENDERBUFFER_HEIGHT_EXT HEX: 8D43 ; inline
+: GL_RENDERBUFFER_INTERNAL_FORMAT_EXT HEX: 8D44 ; inline
+: GL_STENCIL_INDEX1_EXT HEX: 8D46 ; inline
+: GL_STENCIL_INDEX4_EXT HEX: 8D47 ; inline
+: GL_STENCIL_INDEX8_EXT HEX: 8D48 ; inline
+: GL_STENCIL_INDEX16_EXT HEX: 8D49 ; inline
+: GL_RENDERBUFFER_RED_SIZE_EXT HEX: 8D50 ; inline
+: GL_RENDERBUFFER_GREEN_SIZE_EXT HEX: 8D51 ; inline
+: GL_RENDERBUFFER_BLUE_SIZE_EXT HEX: 8D52 ; inline
+: GL_RENDERBUFFER_ALPHA_SIZE_EXT HEX: 8D53 ; inline
+: GL_RENDERBUFFER_DEPTH_SIZE_EXT HEX: 8D54 ; inline
+: GL_RENDERBUFFER_STENCIL_SIZE_EXT HEX: 8D55 ; inline
+
+GL-FUNCTION: void glBindFramebufferEXT { } ( GLenum target, GLuint framebuffer ) ;
+GL-FUNCTION: void glBindRenderbufferEXT { } ( GLenum target, GLuint renderbuffer ) ;
+GL-FUNCTION: GLenum glCheckFramebufferStatusEXT { } ( GLenum target ) ;
+GL-FUNCTION: void glDeleteFramebuffersEXT { } ( GLsizei n, GLuint* framebuffers ) ;
+GL-FUNCTION: void glDeleteRenderbuffersEXT { } ( GLsizei n, GLuint* renderbuffers ) ;
+GL-FUNCTION: void glFramebufferRenderbufferEXT { } ( GLenum target, GLenum attachment, GLenum renderbuffertarget, GLuint renderbuffer ) ;
+GL-FUNCTION: void glFramebufferTexture1DEXT { } ( GLenum target, GLenum attachment, GLenum textarget, GLuint texture, GLint level ) ;
+GL-FUNCTION: void glFramebufferTexture2DEXT { } ( GLenum target, GLenum attachment, GLenum textarget, GLuint texture, GLint level ) ;
+GL-FUNCTION: void glFramebufferTexture3DEXT { } ( GLenum target, GLenum attachment, GLenum textarget, GLuint texture, GLint level, GLint zoffset ) ;
+GL-FUNCTION: void glGenFramebuffersEXT { } ( GLsizei n, GLuint* framebuffers ) ;
+GL-FUNCTION: void glGenRenderbuffersEXT { } ( GLsizei n, GLuint* renderbuffers ) ;
+GL-FUNCTION: void glGenerateMipmapEXT { } ( GLenum target ) ;
+GL-FUNCTION: void glGetFramebufferAttachmentParameterivEXT { } ( GLenum target, GLenum attachment, GLenum pname, GLint* params ) ;
+GL-FUNCTION: void glGetRenderbufferParameterivEXT { } ( GLenum target, GLenum pname, GLint* params ) ;
+GL-FUNCTION: GLboolean glIsFramebufferEXT { } ( GLuint framebuffer ) ;
+GL-FUNCTION: GLboolean glIsRenderbufferEXT { } ( GLuint renderbuffer ) ;
+GL-FUNCTION: void glRenderbufferStorageEXT { } ( GLenum target, GLenum internalformat, GLsizei width, GLsizei height ) ;
+
+
+! GL_ARB_texture_float
+
+
+: GL_RGBA32F_ARB HEX: 8814 ; inline
+: GL_RGB32F_ARB HEX: 8815 ; inline
+: GL_ALPHA32F_ARB HEX: 8816 ; inline
+: GL_INTENSITY32F_ARB HEX: 8817 ; inline
+: GL_LUMINANCE32F_ARB HEX: 8818 ; inline
+: GL_LUMINANCE_ALPHA32F_ARB HEX: 8819 ; inline
+: GL_RGBA16F_ARB HEX: 881A ; inline
+: GL_RGB16F_ARB HEX: 881B ; inline
+: GL_ALPHA16F_ARB HEX: 881C ; inline
+: GL_INTENSITY16F_ARB HEX: 881D ; inline
+: GL_LUMINANCE16F_ARB HEX: 881E ; inline
+: GL_LUMINANCE_ALPHA16F_ARB HEX: 881F ; inline
+: GL_TEXTURE_RED_TYPE_ARB HEX: 8C10 ; inline
+: GL_TEXTURE_GREEN_TYPE_ARB HEX: 8C11 ; inline
+: GL_TEXTURE_BLUE_TYPE_ARB HEX: 8C12 ; inline
+: GL_TEXTURE_ALPHA_TYPE_ARB HEX: 8C13 ; inline
+: GL_TEXTURE_LUMINANCE_TYPE_ARB HEX: 8C14 ; inline
+: GL_TEXTURE_INTENSITY_TYPE_ARB HEX: 8C15 ; inline
+: GL_TEXTURE_DEPTH_TYPE_ARB HEX: 8C16 ; inline
+: GL_UNSIGNED_NORMALIZED_ARB HEX: 8C17 ; inline
+
--- /dev/null
+USING: kernel alien ;
+IN: opengl.gl.macosx
+
+: gl-function-context ( -- context ) 0 ; inline
+: gl-function-address ( name -- address ) f dlsym ; inline
+: gl-function-calling-convention ( -- str ) "cdecl" ; inline
--- /dev/null
+unportable
--- /dev/null
+OpenGL binding - libGL
--- /dev/null
+unportable
--- /dev/null
+USING: kernel x11.glx ;
+IN: opengl.gl.unix
+
+: gl-function-context ( -- context ) glXGetCurrentContext ; inline
+: gl-function-address ( name -- address ) glXGetProcAddressARB ; inline
+: gl-function-calling-convention ( -- str ) "cdecl" ; inline
--- /dev/null
+unportable
+windows
--- /dev/null
+USING: kernel windows.opengl32 ;
+IN: opengl.gl.windows
+
+: gl-function-context ( -- context ) wglGetCurrentContext ; inline
+: gl-function-address ( name -- address ) wglGetProcAddress ; inline
+: gl-function-calling-convention ( -- str ) "stdcall" ; inline
--- /dev/null
+Slava Pestov
--- /dev/null
+! Copyright (C) 2005 Alex Chapman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien alien.syntax kernel sequences words ;
+IN: opengl.glu
+
+! These are defined as structs in glu.h, but we only ever use pointers to them
+TYPEDEF: void* GLUnurbs*
+TYPEDEF: void* GLUquadric*
+TYPEDEF: void* GLUtesselator*
+TYPEDEF: void* GLubyte*
+TYPEDEF: void* GLUfuncptr
+
+! StringName
+: GLU_VERSION 100800 ;
+: GLU_EXTENSIONS 100801 ;
+
+! ErrorCode
+: GLU_INVALID_ENUM 100900 ;
+: GLU_INVALID_VALUE 100901 ;
+: GLU_OUT_OF_MEMORY 100902 ;
+: GLU_INCOMPATIBLE_GL_VERSION 100903 ;
+: GLU_INVALID_OPERATION 100904 ;
+
+! NurbsDisplay
+: GLU_OUTLINE_POLYGON 100240 ;
+: GLU_OUTLINE_PATCH 100241 ;
+
+! NurbsCallback
+: GLU_NURBS_ERROR 100103 ;
+: GLU_ERROR 100103 ;
+: GLU_NURBS_BEGIN 100164 ;
+: GLU_NURBS_BEGIN_EXT 100164 ;
+: GLU_NURBS_VERTEX 100165 ;
+: GLU_NURBS_VERTEX_EXT 100165 ;
+: GLU_NURBS_NORMAL 100166 ;
+: GLU_NURBS_NORMAL_EXT 100166 ;
+: GLU_NURBS_COLOR 100167 ;
+: GLU_NURBS_COLOR_EXT 100167 ;
+: GLU_NURBS_TEXTURE_COORD 100168 ;
+: GLU_NURBS_TEX_COORD_EXT 100168 ;
+: GLU_NURBS_END 100169 ;
+: GLU_NURBS_END_EXT 100169 ;
+: GLU_NURBS_BEGIN_DATA 100170 ;
+: GLU_NURBS_BEGIN_DATA_EXT 100170 ;
+: GLU_NURBS_VERTEX_DATA 100171 ;
+: GLU_NURBS_VERTEX_DATA_EXT 100171 ;
+: GLU_NURBS_NORMAL_DATA 100172 ;
+: GLU_NURBS_NORMAL_DATA_EXT 100172 ;
+: GLU_NURBS_COLOR_DATA 100173 ;
+: GLU_NURBS_COLOR_DATA_EXT 100173 ;
+: GLU_NURBS_TEXTURE_COORD_DATA 100174 ;
+: GLU_NURBS_TEX_COORD_DATA_EXT 100174 ;
+: GLU_NURBS_END_DATA 100175 ;
+: GLU_NURBS_END_DATA_EXT 100175 ;
+
+! NurbsError
+: GLU_NURBS_ERROR1 100251 ;
+: GLU_NURBS_ERROR2 100252 ;
+: GLU_NURBS_ERROR3 100253 ;
+: GLU_NURBS_ERROR4 100254 ;
+: GLU_NURBS_ERROR5 100255 ;
+: GLU_NURBS_ERROR6 100256 ;
+: GLU_NURBS_ERROR7 100257 ;
+: GLU_NURBS_ERROR8 100258 ;
+: GLU_NURBS_ERROR9 100259 ;
+: GLU_NURBS_ERROR10 100260 ;
+: GLU_NURBS_ERROR11 100261 ;
+: GLU_NURBS_ERROR12 100262 ;
+: GLU_NURBS_ERROR13 100263 ;
+: GLU_NURBS_ERROR14 100264 ;
+: GLU_NURBS_ERROR15 100265 ;
+: GLU_NURBS_ERROR16 100266 ;
+: GLU_NURBS_ERROR17 100267 ;
+: GLU_NURBS_ERROR18 100268 ;
+: GLU_NURBS_ERROR19 100269 ;
+: GLU_NURBS_ERROR20 100270 ;
+: GLU_NURBS_ERROR21 100271 ;
+: GLU_NURBS_ERROR22 100272 ;
+: GLU_NURBS_ERROR23 100273 ;
+: GLU_NURBS_ERROR24 100274 ;
+: GLU_NURBS_ERROR25 100275 ;
+: GLU_NURBS_ERROR26 100276 ;
+: GLU_NURBS_ERROR27 100277 ;
+: GLU_NURBS_ERROR28 100278 ;
+: GLU_NURBS_ERROR29 100279 ;
+: GLU_NURBS_ERROR30 100280 ;
+: GLU_NURBS_ERROR31 100281 ;
+: GLU_NURBS_ERROR32 100282 ;
+: GLU_NURBS_ERROR33 100283 ;
+: GLU_NURBS_ERROR34 100284 ;
+: GLU_NURBS_ERROR35 100285 ;
+: GLU_NURBS_ERROR36 100286 ;
+: GLU_NURBS_ERROR37 100287 ;
+
+! NurbsProperty
+: GLU_AUTO_LOAD_MATRIX 100200 ;
+: GLU_CULLING 100201 ;
+: GLU_SAMPLING_TOLERANCE 100203 ;
+: GLU_DISPLAY_MODE 100204 ;
+: GLU_PARAMETRIC_TOLERANCE 100202 ;
+: GLU_SAMPLING_METHOD 100205 ;
+: GLU_U_STEP 100206 ;
+: GLU_V_STEP 100207 ;
+: GLU_NURBS_MODE 100160 ;
+: GLU_NURBS_MODE_EXT 100160 ;
+: GLU_NURBS_TESSELLATOR 100161 ;
+: GLU_NURBS_TESSELLATOR_EXT 100161 ;
+: GLU_NURBS_RENDERER 100162 ;
+: GLU_NURBS_RENDERER_EXT 100162 ;
+
+! NurbsSampling
+: GLU_OBJECT_PARAMETRIC_ERROR 100208 ;
+: GLU_OBJECT_PARAMETRIC_ERROR_EXT 100208 ;
+: GLU_OBJECT_PATH_LENGTH 100209 ;
+: GLU_OBJECT_PATH_LENGTH_EXT 100209 ;
+: GLU_PATH_LENGTH 100215 ;
+: GLU_PARAMETRIC_ERROR 100216 ;
+: GLU_DOMAIN_DISTANCE 100217 ;
+
+! NurbsTrim
+: GLU_MAP1_TRIM_2 100210 ;
+: GLU_MAP1_TRIM_3 100211 ;
+
+! QuadricDrawStyle
+: GLU_POINT 100010 ;
+: GLU_LINE 100011 ;
+: GLU_FILL 100012 ;
+: GLU_SILHOUETTE 100013 ;
+
+! QuadricNormal
+: GLU_SMOOTH 100000 ;
+: GLU_FLAT 100001 ;
+: GLU_NONE 100002 ;
+
+! QuadricOrientation
+: GLU_OUTSIDE 100020 ;
+: GLU_INSIDE 100021 ;
+
+! TessCallback
+: GLU_TESS_BEGIN 100100 ;
+: GLU_BEGIN 100100 ;
+: GLU_TESS_VERTEX 100101 ;
+: GLU_VERTEX 100101 ;
+: GLU_TESS_END 100102 ;
+: GLU_END 100102 ;
+: GLU_TESS_ERROR 100103 ;
+: GLU_TESS_EDGE_FLAG 100104 ;
+: GLU_EDGE_FLAG 100104 ;
+: GLU_TESS_COMBINE 100105 ;
+: GLU_TESS_BEGIN_DATA 100106 ;
+: GLU_TESS_VERTEX_DATA 100107 ;
+: GLU_TESS_END_DATA 100108 ;
+: GLU_TESS_ERROR_DATA 100109 ;
+: GLU_TESS_EDGE_FLAG_DATA 100110 ;
+: GLU_TESS_COMBINE_DATA 100111 ;
+
+! TessContour
+: GLU_CW 100120 ;
+: GLU_CCW 100121 ;
+: GLU_INTERIOR 100122 ;
+: GLU_EXTERIOR 100123 ;
+: GLU_UNKNOWN 100124 ;
+
+! TessProperty
+: GLU_TESS_WINDING_RULE 100140 ;
+: GLU_TESS_BOUNDARY_ONLY 100141 ;
+: GLU_TESS_TOLERANCE 100142 ;
+
+! TessError
+: GLU_TESS_ERROR1 100151 ;
+: GLU_TESS_ERROR2 100152 ;
+: GLU_TESS_ERROR3 100153 ;
+: GLU_TESS_ERROR4 100154 ;
+: GLU_TESS_ERROR5 100155 ;
+: GLU_TESS_ERROR6 100156 ;
+: GLU_TESS_ERROR7 100157 ;
+: GLU_TESS_ERROR8 100158 ;
+: GLU_TESS_MISSING_BEGIN_POLYGON 100151 ;
+: GLU_TESS_MISSING_BEGIN_CONTOUR 100152 ;
+: GLU_TESS_MISSING_END_POLYGON 100153 ;
+: GLU_TESS_MISSING_END_CONTOUR 100154 ;
+: GLU_TESS_COORD_TOO_LARGE 100155 ;
+: GLU_TESS_NEED_COMBINE_CALLBACK 100156 ;
+
+! TessWinding
+: GLU_TESS_WINDING_ODD 100130 ;
+: GLU_TESS_WINDING_NONZERO 100131 ;
+: GLU_TESS_WINDING_POSITIVE 100132 ;
+: GLU_TESS_WINDING_NEGATIVE 100133 ;
+: GLU_TESS_WINDING_ABS_GEQ_TWO 100134 ;
+
+LIBRARY: glu
+
+FUNCTION: void gluBeginCurve ( GLUnurbs* nurb ) ;
+FUNCTION: void gluBeginPolygon ( GLUtesselator* tess ) ;
+FUNCTION: void gluBeginSurface ( GLUnurbs* nurb ) ;
+FUNCTION: void gluBeginTrim ( GLUnurbs* nurb ) ;
+
+FUNCTION: void gluCylinder ( GLUquadric* quad, GLdouble base, GLdouble top, GLdouble height, GLint slices, GLint stacks ) ;
+FUNCTION: void gluDeleteNurbsRenderer ( GLUnurbs* nurb ) ;
+FUNCTION: void gluDeleteQuadric ( GLUquadric* quad ) ;
+FUNCTION: void gluDeleteTess ( GLUtesselator* tess ) ;
+FUNCTION: void gluDisk ( GLUquadric* quad, GLdouble inner, GLdouble outer, GLint slices, GLint loops ) ;
+FUNCTION: void gluEndCurve ( GLUnurbs* nurb ) ;
+FUNCTION: void gluEndPolygon ( GLUtesselator* tess ) ;
+FUNCTION: void gluEndSurface ( GLUnurbs* nurb ) ;
+FUNCTION: void gluEndTrim ( GLUnurbs* nurb ) ;
+FUNCTION: char* gluErrorString ( GLenum error ) ;
+FUNCTION: void gluGetNurbsProperty ( GLUnurbs* nurb, GLenum property, GLfloat* data ) ;
+FUNCTION: char* gluGetString ( GLenum name ) ;
+FUNCTION: void gluGetTessProperty ( GLUtesselator* tess, GLenum which, GLdouble* data ) ;
+FUNCTION: void gluLoadSamplingMatrices ( GLUnurbs* nurb, GLfloat* model, GLfloat* perspective, GLint* view ) ;
+FUNCTION: void gluLookAt ( GLdouble eyeX, GLdouble eyeY, GLdouble eyeZ, GLdouble centerX, GLdouble centerY, GLdouble centerZ, GLdouble upX, GLdouble upY, GLdouble upZ ) ;
+FUNCTION: GLUnurbs* gluNewNurbsRenderer ( ) ;
+FUNCTION: GLUquadric* gluNewQuadric ( ) ;
+FUNCTION: GLUtesselator* gluNewTess ( ) ;
+FUNCTION: void gluNextContour ( GLUtesselator* tess, GLenum type ) ;
+FUNCTION: void gluNurbsCallback ( GLUnurbs* nurb, GLenum which, GLUfuncptr CallBackFunc ) ;
+! FUNCTION: void gluNurbsCallbackData ( GLUnurbs* nurb, GLvoid* userData ) ;
+! FUNCTION: void gluNurbsCallbackDataEXT ( GLUnurbs* nurb, GLvoid* userData ) ;
+FUNCTION: void gluNurbsCurve ( GLUnurbs* nurb, GLint knotCount, GLfloat *knots, GLint stride, GLfloat *control, GLint order, GLenum type ) ;
+FUNCTION: void gluNurbsProperty ( GLUnurbs* nurb, GLenum property, GLfloat value ) ;
+FUNCTION: void gluNurbsSurface ( GLUnurbs* nurb, GLint sKnotCount, GLfloat* sKnots, GLint tKnotCount, GLfloat* tKnots, GLint sStride, GLint tStride, GLfloat* control, GLint sOrder, GLint tOrder, GLenum type ) ;
+FUNCTION: void gluOrtho2D ( GLdouble left, GLdouble right, GLdouble bottom, GLdouble top ) ;
+FUNCTION: void gluPartialDisk ( GLUquadric* quad, GLdouble inner, GLdouble outer, GLint slices, GLint loops, GLdouble start, GLdouble sweep ) ;
+FUNCTION: void gluPerspective ( GLdouble fovy, GLdouble aspect, GLdouble zNear, GLdouble zFar ) ;
+FUNCTION: void gluPickMatrix ( GLdouble x, GLdouble y, GLdouble delX, GLdouble delY, GLint* viewport ) ;
+FUNCTION: GLint gluProject ( GLdouble objX, GLdouble objY, GLdouble objZ, GLdouble* model, GLdouble* proj, GLint* view, GLdouble* winX, GLdouble* winY, GLdouble* winZ ) ;
+FUNCTION: void gluPwlCurve ( GLUnurbs* nurb, GLint count, GLfloat* data, GLint stride, GLenum type ) ;
+FUNCTION: void gluQuadricCallback ( GLUquadric* quad, GLenum which, GLUfuncptr CallBackFunc ) ;
+FUNCTION: void gluQuadricDrawStyle ( GLUquadric* quad, GLenum draw ) ;
+FUNCTION: void gluQuadricNormals ( GLUquadric* quad, GLenum normal ) ;
+FUNCTION: void gluQuadricOrientation ( GLUquadric* quad, GLenum orientation ) ;
+FUNCTION: void gluQuadricTexture ( GLUquadric* quad, GLboolean texture ) ;
+FUNCTION: GLint gluScaleImage ( GLenum format, GLsizei wIn, GLsizei hIn, GLenum typeIn, void* dataIn, GLsizei wOut, GLsizei hOut, GLenum typeOut, GLvoid* dataOut ) ;
+FUNCTION: void gluSphere ( GLUquadric* quad, GLdouble radius, GLint slices, GLint stacks ) ;
+FUNCTION: void gluTessBeginContour ( GLUtesselator* tess ) ;
+FUNCTION: void gluTessBeginPolygon ( GLUtesselator* tess, GLvoid* data ) ;
+FUNCTION: void gluTessCallback ( GLUtesselator* tess, GLenum which, GLUfuncptr CallBackFunc ) ;
+FUNCTION: void gluTessEndContour ( GLUtesselator* tess ) ;
+FUNCTION: void gluTessEndPolygon ( GLUtesselator* tess ) ;
+FUNCTION: void gluTessNormal ( GLUtesselator* tess, GLdouble valueX, GLdouble valueY, GLdouble valueZ ) ;
+FUNCTION: void gluTessProperty ( GLUtesselator* tess, GLenum which, GLdouble data ) ;
+FUNCTION: void gluTessVertex ( GLUtesselator* tess, GLdouble* location, GLvoid* data ) ;
+FUNCTION: GLint gluUnProject ( GLdouble winX, GLdouble winY, GLdouble winZ, GLdouble* model, GLdouble* proj, GLint* view, GLdouble* objX, GLdouble* objY, GLdouble* objZ ) ;
+
+! Not present on Windows
+! FUNCTION: GLint gluBuild1DMipmapLevels ( GLenum target, GLint internalFormat, GLsizei width, GLenum format, GLenum type, GLint level, GLint base, GLint max, void* data ) ;
+! FUNCTION: GLint gluBuild1DMipmaps ( GLenum target, GLint internalFormat, GLsizei width, GLenum format, GLenum type, void* data ) ;
+! FUNCTION: GLint gluBuild2DMipmapLevels ( GLenum target, GLint internalFormat, GLsizei width, GLsizei height, GLenum format, GLenum type, GLint level, GLint base, GLint max, void* data ) ;
+! FUNCTION: GLint gluBuild2DMipmaps ( GLenum target, GLint internalFormat, GLsizei width, GLsizei height, GLenum format, GLenum type, void* data ) ;
+! FUNCTION: GLint gluBuild3DMipmapLevels ( GLenum target, GLint internalFormat, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLenum type, GLint level, GLint base, GLint max, void* data ) ;
+! FUNCTION: GLint gluBuild3DMipmaps ( GLenum target, GLint internalFormat, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLenum type, void* data ) ;
+! FUNCTION: GLboolean gluCheckExtension ( GLubyte* extName, GLubyte* extString ) ;
+! FUNCTION: GLint gluUnProject4 ( GLdouble winX, GLdouble winY, GLdouble winZ, GLdouble clipW, GLdouble* model, GLdouble* proj, GLint* view, GLdouble nearVal, GLdouble farVal, GLdouble* objX, GLdouble* objY, GLdouble* objZ, GLdouble* objW ) ;
--- /dev/null
+OpenGL binding - libGLU
--- /dev/null
+USING: help.markup help.syntax io kernel math quotations
+opengl.gl assocs vocabs.loader sequences ;
+IN: opengl
+
+HELP: gl-color
+{ $values { "color" "a color specifier" } }
+{ $description "Wrapper for " { $link glColor4d } " taking a color specifier." } ;
+
+HELP: gl-error
+{ $description "If the most recent OpenGL call resulted in an error, print the error to " { $link output-stream } "." } ;
+
+HELP: do-state
+ {
+ $values
+ { "mode" { "One of the " { $link "opengl-geometric-primitives" } } }
+ { "quot" quotation }
+ }
+{ $description "Wraps a quotation in " { $link glBegin } "/" { $link glEnd } " calls." } ;
+
+HELP: do-enabled
+{ $values { "what" integer } { "quot" quotation } }
+{ $description "Wraps a quotation in " { $link glEnable } "/" { $link glDisable } " calls." } ;
+
+HELP: do-matrix
+{ $values { "mode" { $link GL_MODELVIEW } " or " { $link GL_PROJECTION } } { "quot" quotation } }
+{ $description "Saves and restores the matrix specified by " { $snippet "mode" } " before and after calling the quotation." } ;
+
+HELP: gl-vertex
+{ $values { "point" "a pair of integers" } }
+{ $description "Wrapper for " { $link glVertex2d } " taking a point object." } ;
+
+HELP: gl-line
+{ $values { "a" "a pair of integers" } { "b" "a pair of integers" } }
+{ $description "Draws a line between two points." } ;
+
+HELP: gl-fill-rect
+{ $values { "loc" "a pair of integers" } { "ext" "a pair of integers" } }
+{ $description "Draws a filled rectangle with top-left corner " { $snippet "loc" } " and bottom-right corner " { $snippet "ext" } "." } ;
+
+HELP: gl-rect
+{ $values { "loc" "a pair of integers" } { "ext" "a pair of integers" } }
+{ $description "Draws the outline of a rectangle with top-left corner " { $snippet "loc" } " and bottom-right corner " { $snippet "ext" } "." } ;
+
+HELP: rect-vertices
+{ $values { "lower-left" "A pair of numbers indicating the lower-left coordinates of the rectangle." } { "upper-right" "The upper-right coordinates of the rectangle." } }
+{ $description "Emits" { $link glVertex2d } " calls outlining the axis-aligned rectangle from " { $snippet "lower-left" } " to " { $snippet "upper-right" } " on the z=0 plane in counterclockwise order." } ;
+
+HELP: gl-fill-poly
+{ $values { "points" "a sequence of pairs of integers" } }
+{ $description "Draws a filled polygon." } ;
+
+HELP: gl-poly
+{ $values { "points" "a sequence of pairs of integers" } }
+{ $description "Draws the outline of a polygon." } ;
+
+HELP: gl-gradient
+{ $values { "direction" "an orientation specifier" } { "colors" "a sequence of color specifiers" } { "dim" "a pair of integers" } }
+{ $description "Draws a rectangle with top-left corner " { $snippet "{ 0 0 }" } " and dimensions " { $snippet "dim" } ", filled with a smoothly shaded transition between the colors in " { $snippet "colors" } "." } ;
+
+HELP: gen-texture
+{ $values { "id" integer } }
+{ $description "Wrapper for " { $link glGenTextures } " to handle the common case of generating a single texture ID." } ;
+
+HELP: gen-gl-buffer
+{ $values { "id" integer } }
+{ $description "Wrapper for " { $link glGenBuffers } " to handle the common case of generating a single buffer ID." } ;
+
+HELP: delete-texture
+{ $values { "id" integer } }
+{ $description "Wrapper for " { $link glDeleteTextures } " to handle the common case of deleting a single texture ID." } ;
+
+HELP: delete-gl-buffer
+{ $values { "id" integer } }
+{ $description "Wrapper for " { $link glDeleteBuffers } " to handle the common case of deleting a single buffer ID." } ;
+
+{ gen-texture delete-texture } related-words
+{ gen-gl-buffer delete-gl-buffer } related-words
+
+HELP: bind-texture-unit
+{ $values { "id" "The id of a texture object." } { "target" "The texture target (e.g., " { $snippet "GL_TEXTURE_2D" } ")" } { "unit" "The texture unit to bind (e.g., " { $snippet "GL_TEXTURE0" } ")" } }
+{ $description "Binds texture " { $snippet "id" } " to texture target " { $snippet "target" } " of texture unit " { $snippet "unit" } ". Equivalent to " { $snippet "unit glActiveTexture target id glBindTexture" } "." } ;
+
+HELP: set-draw-buffers
+{ $values { "buffers" "A sequence of buffer words (e.g. " { $snippet "GL_BACK" } ", " { $snippet "GL_COLOR_ATTACHMENT0_EXT" } ")"} }
+{ $description "Wrapper for " { $link glDrawBuffers } ". Sets up the buffers named in the sequence for simultaneous drawing." } ;
+
+HELP: do-attribs
+{ $values { "bits" integer } { "quot" quotation } }
+{ $description "Wraps a quotation in " { $link glPushAttrib } "/" { $link glPopAttrib } " calls." } ;
+
+HELP: sprite
+{ $class-description "A sprite is an OpenGL texture together with a display list which renders a textured quad. Sprites are used to draw text in the UI. Sprites have the following slots:"
+ { $list
+ { { $link sprite-dlist } " - an OpenGL display list ID" }
+ { { $link sprite-texture } " - an OpenGL texture ID" }
+ { { $link sprite-loc } " - top-left corner of the sprite" }
+ { { $link sprite-dim } " - dimensions of the sprite" }
+ { { $link sprite-dim2 } " - dimensions of the sprite, rounded up to the nearest powers of two" }
+ }
+} ;
+
+HELP: gray-texture
+{ $values { "sprite" sprite } { "pixmap" "an alien or byte array" } { "id" "an OpenGL texture ID" } }
+{ $description "Creates a new OpenGL texture from a 1 byte per pixel image whose dimensions are equal to " { $link sprite-dim2 } "." } ;
+
+HELP: gen-dlist
+{ $values { "id" integer } }
+{ $description "Wrapper for " { $link glGenLists } " to handle the common case of generating a single display list ID." } ;
+
+HELP: make-dlist
+{ $values { "type" "one of " { $link GL_COMPILE } " or " { $link GL_COMPILE_AND_EXECUTE } } { "quot" quotation } { "id" "an OpenGL texture ID" } }
+{ $description "Compiles the results of calling the quotation into a new OpenGL display list." } ;
+
+HELP: gl-translate
+{ $values { "point" "a pair of integers" } }
+{ $description "Wrapper for " { $link glTranslated } " taking a point object." } ;
+
+HELP: free-sprites
+{ $values { "sprites" "a sequence of " { $link sprite } " instances" } }
+{ $description "Deallocates native resources associated toa sequence of sprites." } ;
+
+HELP: with-translation
+{ $values { "loc" "a pair of integers" } { "quot" quotation } }
+{ $description "Calls the quotation with a translation by " { $snippet "loc" } " pixels applied to the current " { $link GL_MODELVIEW } " matrix, restoring the matrix when the quotation is done." } ;
+
+
+ARTICLE: "gl-utilities" "OpenGL utility words"
+"The " { $vocab-link "opengl" } " vocabulary implements some utility words to give OpenGL a more Factor-like feel."
+$nl
+"The " { $vocab-link "opengl.gl" } " and " { $vocab-link "opengl.glu" } " vocabularies have the actual OpenGL bindings."
+{ $subsection "opengl-low-level" }
+"Wrappers:"
+{ $subsection gl-color }
+{ $subsection gl-vertex }
+{ $subsection gl-translate }
+{ $subsection gen-texture }
+{ $subsection bind-texture-unit }
+"Combinators:"
+{ $subsection do-state }
+{ $subsection do-enabled }
+{ $subsection do-attribs }
+{ $subsection do-matrix }
+{ $subsection with-translation }
+{ $subsection make-dlist }
+"Rendering geometric shapes:"
+{ $subsection gl-line }
+{ $subsection gl-fill-rect }
+{ $subsection gl-rect }
+{ $subsection gl-fill-poly }
+{ $subsection gl-poly }
+{ $subsection gl-gradient }
+;
+
+ABOUT: "gl-utilities"
--- /dev/null
+! Copyright (C) 2005, 2008 Slava Pestov.
+! Portions copyright (C) 2007 Eduardo Cavazos.
+! Portions copyright (C) 2008 Joe Groff.
+! See http://factorcode.org/license.txt for BSD license.
+
+USING: alien alien.c-types continuations kernel libc math macros
+ namespaces math.vectors math.constants math.functions
+ math.parser opengl.gl opengl.glu combinators arrays sequences
+ splitting words byte-arrays assocs colors accessors ;
+
+IN: opengl
+
+: coordinates ( point1 point2 -- x1 y2 x2 y2 )
+ [ first2 ] bi@ ;
+
+: fix-coordinates ( point1 point2 -- x1 y2 x2 y2 )
+ [ first2 [ >fixnum ] bi@ ] bi@ ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: gl-color ( color -- ) first4 glColor4d ; inline
+
+: gl-clear-color ( color -- )
+ first4 glClearColor ;
+
+: gl-clear ( color -- )
+ gl-clear-color GL_COLOR_BUFFER_BIT glClear ;
+
+: color>raw ( object -- r g b a )
+ >rgba { [ red>> ] [ green>> ] [ blue>> ] [ alpha>> ] } cleave ;
+
+: set-color ( object -- ) color>raw glColor4d ;
+: set-clear-color ( object -- ) color>raw glClearColor ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: gl-error ( -- )
+ glGetError dup zero? [
+ "GL error: " over gluErrorString append throw
+ ] unless drop ;
+
+: do-state ( mode quot -- )
+ swap glBegin call glEnd ; inline
+
+: do-enabled ( what quot -- )
+ over glEnable dip glDisable ; inline
+: do-enabled-client-state ( what quot -- )
+ over glEnableClientState dip glDisableClientState ; inline
+
+: words>values ( word/value-seq -- value-seq )
+ [ dup word? [ execute ] [ ] if ] map ;
+
+: (all-enabled) ( seq quot -- )
+ over [ glEnable ] each dip [ glDisable ] each ; inline
+: (all-enabled-client-state) ( seq quot -- )
+ over [ glEnableClientState ] each dip [ glDisableClientState ] each ; inline
+
+MACRO: all-enabled ( seq quot -- )
+ >r words>values r> [ (all-enabled) ] 2curry ;
+MACRO: all-enabled-client-state ( seq quot -- )
+ >r words>values r> [ (all-enabled-client-state) ] 2curry ;
+
+: do-matrix ( mode quot -- )
+ swap [ glMatrixMode glPushMatrix call ] keep
+ glMatrixMode glPopMatrix ; inline
+
+: gl-vertex ( point -- )
+ dup length {
+ { 2 [ first2 glVertex2d ] }
+ { 3 [ first3 glVertex3d ] }
+ { 4 [ first4 glVertex4d ] }
+ } case ;
+
+: gl-normal ( normal -- ) first3 glNormal3d ;
+
+: gl-material ( face pname params -- )
+ >c-float-array glMaterialfv ;
+
+: gl-line ( a b -- )
+ GL_LINES [ gl-vertex gl-vertex ] do-state ;
+
+: gl-fill-rect ( loc ext -- )
+ coordinates glRectd ;
+
+: gl-rect ( loc ext -- )
+ GL_FRONT_AND_BACK GL_LINE glPolygonMode
+ >r { 0.5 0.5 } v+ r> { 0.5 0.5 } v- gl-fill-rect
+ GL_FRONT_AND_BACK GL_FILL glPolygonMode ;
+
+: (gl-poly) ( points state -- )
+ [ [ gl-vertex ] each ] do-state ;
+
+: gl-fill-poly ( points -- )
+ dup length 2 > GL_POLYGON GL_LINES ? (gl-poly) ;
+
+: gl-poly ( points -- )
+ GL_LINE_LOOP (gl-poly) ;
+
+: circle-steps ( steps -- angles )
+ dup length v/n 2 pi * v*n ;
+
+: unit-circle ( angles -- points1 points2 )
+ [ [ sin ] map ] [ [ cos ] map ] bi ;
+
+: adjust-points ( points1 points2 -- points1' points2' )
+ [ [ 1 + 0.5 * ] map ] bi@ ;
+
+: scale-points ( loc dim points1 points2 -- points )
+ zip [ v* ] with map [ v+ ] with map ;
+
+: circle-points ( loc dim steps -- points )
+ circle-steps unit-circle adjust-points scale-points ;
+
+: gl-circle ( loc dim steps -- )
+ circle-points gl-poly ;
+
+: gl-fill-circle ( loc dim steps -- )
+ circle-points gl-fill-poly ;
+
+: prepare-gradient ( direction dim -- v1 v2 )
+ tuck v* [ v- ] keep ;
+
+: gl-gradient ( direction colors dim -- )
+ GL_QUAD_STRIP [
+ swap >r prepare-gradient r>
+ [ length dup 1- v/n ] keep [
+ >r >r 2dup r> r> set-color v*n
+ dup gl-vertex v+ gl-vertex
+ ] 2each 2drop
+ ] do-state ;
+
+: (gen-gl-object) ( quot -- id )
+ >r 1 0 <uint> r> keep *uint ; inline
+: gen-texture ( -- id )
+ [ glGenTextures ] (gen-gl-object) ;
+: gen-gl-buffer ( -- id )
+ [ glGenBuffers ] (gen-gl-object) ;
+
+: (delete-gl-object) ( id quot -- )
+ >r 1 swap <uint> r> call ; inline
+: delete-texture ( id -- )
+ [ glDeleteTextures ] (delete-gl-object) ;
+: delete-gl-buffer ( id -- )
+ [ glDeleteBuffers ] (delete-gl-object) ;
+
+: with-gl-buffer ( binding id quot -- )
+ -rot dupd glBindBuffer
+ [ slip ] [ 0 glBindBuffer ] [ ] cleanup ; inline
+
+: with-array-element-buffers ( array-buffer element-buffer quot -- )
+ -rot GL_ELEMENT_ARRAY_BUFFER swap [
+ swap GL_ARRAY_BUFFER -rot with-gl-buffer
+ ] with-gl-buffer ; inline
+
+: <gl-buffer> ( target data hint -- id )
+ pick gen-gl-buffer [ [
+ >r dup byte-length swap r> glBufferData
+ ] with-gl-buffer ] keep ;
+
+: buffer-offset ( int -- alien )
+ <alien> ; inline
+
+: bind-texture-unit ( id target unit -- )
+ glActiveTexture swap glBindTexture gl-error ;
+
+: (set-draw-buffers) ( buffers -- )
+ dup length swap >c-uint-array glDrawBuffers ;
+
+MACRO: set-draw-buffers ( buffers -- )
+ words>values [ (set-draw-buffers) ] curry ;
+
+: do-attribs ( bits quot -- )
+ swap glPushAttrib call glPopAttrib ; inline
+
+: gl-look-at ( eye focus up -- )
+ [ first3 ] tri@ gluLookAt ;
+
+TUPLE: sprite loc dim dim2 dlist texture ;
+
+: <sprite> ( loc dim dim2 -- sprite )
+ f f sprite boa ;
+
+: sprite-size2 ( sprite -- w h ) sprite-dim2 first2 ;
+
+: sprite-width ( sprite -- w ) sprite-dim first ;
+
+: gray-texture ( sprite pixmap -- id )
+ gen-texture [
+ GL_TEXTURE_BIT [
+ GL_TEXTURE_2D swap glBindTexture
+ >r >r GL_TEXTURE_2D 0 GL_RGBA r>
+ sprite-size2 0 GL_LUMINANCE_ALPHA
+ GL_UNSIGNED_BYTE r> glTexImage2D
+ ] do-attribs
+ ] keep ;
+
+: gen-dlist ( -- id ) 1 glGenLists ;
+
+: make-dlist ( type quot -- id )
+ gen-dlist [ rot glNewList call glEndList ] keep ; inline
+
+: init-texture ( -- )
+ GL_TEXTURE_2D GL_TEXTURE_MAG_FILTER GL_LINEAR glTexParameteri
+ GL_TEXTURE_2D GL_TEXTURE_MIN_FILTER GL_LINEAR glTexParameteri
+ GL_TEXTURE_2D GL_TEXTURE_WRAP_S GL_CLAMP glTexParameterf
+ GL_TEXTURE_2D GL_TEXTURE_WRAP_T GL_CLAMP glTexParameterf ;
+
+: gl-translate ( point -- ) first2 0.0 glTranslated ;
+
+<PRIVATE
+
+: top-left drop 0 0 glTexCoord2i 0.0 0.0 glVertex2d ; inline
+
+: top-right 1 0 glTexCoord2i first 0.0 glVertex2d ; inline
+
+: bottom-left 0 1 glTexCoord2i second 0.0 swap glVertex2d ; inline
+
+: bottom-right 1 1 glTexCoord2i gl-vertex ; inline
+
+PRIVATE>
+
+: four-sides ( dim -- )
+ dup top-left dup top-right dup bottom-right bottom-left ;
+
+: draw-sprite ( sprite -- )
+ dup sprite-loc gl-translate
+ GL_TEXTURE_2D over sprite-texture glBindTexture
+ init-texture
+ GL_QUADS [ sprite-dim2 four-sides ] do-state
+ GL_TEXTURE_2D 0 glBindTexture ;
+
+: rect-vertices ( lower-left upper-right -- )
+ GL_QUADS [
+ over first2 glVertex2d
+ dup first pick second glVertex2d
+ dup first2 glVertex2d
+ swap first swap second glVertex2d
+ ] do-state ;
+
+: make-sprite-dlist ( sprite -- id )
+ GL_MODELVIEW [
+ GL_COMPILE [ draw-sprite ] make-dlist
+ ] do-matrix ;
+
+: init-sprite ( texture sprite -- )
+ [ set-sprite-texture ] keep
+ [ make-sprite-dlist ] keep set-sprite-dlist ;
+
+: delete-dlist ( id -- ) 1 glDeleteLists ;
+
+: free-sprite ( sprite -- )
+ dup sprite-dlist delete-dlist
+ sprite-texture delete-texture ;
+
+: free-sprites ( sprites -- )
+ [ nip [ free-sprite ] when* ] assoc-each ;
+
+: with-translation ( loc quot -- )
+ GL_MODELVIEW [ >r gl-translate r> call ] do-matrix ; inline
+
+: gl-set-clip ( loc dim -- )
+ fix-coordinates glScissor ;
+
+: gl-viewport ( loc dim -- )
+ fix-coordinates glViewport ;
+
+: init-matrices ( -- )
+ GL_PROJECTION glMatrixMode
+ glLoadIdentity
+ GL_MODELVIEW glMatrixMode
+ glLoadIdentity ;
--- /dev/null
+Joe Groff
\ No newline at end of file
--- /dev/null
+USING: help.markup help.syntax io kernel math quotations
+opengl.gl multiline assocs strings ;
+IN: opengl.shaders
+
+HELP: gl-shader
+{ $class-description { $snippet "gl-shader" } " is a predicate class comprising values returned by OpenGL to represent shader objects. The following words are provided for creating and manipulating these objects:"
+ { $list
+ { { $link <gl-shader> } " - Compile GLSL code into a shader object" }
+ { { $link gl-shader-ok? } " - Check whether a shader object compiled successfully" }
+ { { $link check-gl-shader } " - Throw an error unless a shader object compiled successfully" }
+ { { $link gl-shader-info-log } " - Retrieve the info log of messages generated by the GLSL compiler" }
+ { { $link delete-gl-shader } " - Invalidate a shader object" }
+ }
+ "The derived predicate classes " { $link vertex-shader } " and " { $link fragment-shader } " are also defined for the two standard kinds of shader defined by the OpenGL specification." } ;
+
+HELP: vertex-shader
+{ $class-description { $snippet "vertex-shader" } " is the predicate class of " { $link gl-shader } " objects that refer to shaders of type " { $snippet "GL_VERTEX_SHADER" } ". In addition to the " { $snippet "gl-shader" } " words, the following vertex shader-specific functions are defined:"
+ { $list
+ { { $link <vertex-shader> } " - Compile GLSL code into a vertex shader object "}
+ }
+} ;
+
+HELP: fragment-shader
+{ $class-description { $snippet "fragment-shader" } " is the predicate class of " { $link gl-shader } " objects that refer to shaders of type " { $snippet "GL_FRAGMENT_SHADER" } ". In addition to the " { $snippet "gl-shader" } " words, the following fragment shader-specific functions are defined:"
+ { $list
+ { { $link <fragment-shader> } " - Compile GLSL code into a fragment shader object "}
+ }
+} ;
+
+HELP: <gl-shader>
+{ $values { "source" "The GLSL source code to compile" } { "kind" "The kind of shader to compile, such as " { $snippet "GL_VERTEX_SHADER" } " or " { $snippet "GL_FRAGMENT_SHADER" } } { "shader" "a new " { $link gl-shader } } }
+{ $description "Tries to compile the given GLSL source into a shader object. The returned object can be checked for validity by " { $link check-gl-shader } " or " { $link gl-shader-ok? } ". Errors and warnings generated by the GLSL compiler will be collected in the info log, available from " { $link gl-shader-info-log } ".\n\nWhen the shader object is no longer needed, it should be deleted using " { $link delete-gl-shader } " or else be attached to a " { $link gl-program } " object deleted using " { $link delete-gl-program } "." } ;
+
+HELP: <vertex-shader>
+{ $values { "source" "The GLSL source code to compile" } { "vertex-shader" "a new " { $link vertex-shader } } }
+{ $description "Tries to compile the given GLSL source into a vertex shader object. Equivalent to " { $snippet "GL_VERTEX_SHADER <gl-shader>" } "." } ;
+
+HELP: <fragment-shader>
+{ $values { "source" "The GLSL source code to compile" } { "fragment-shader" "a new " { $link fragment-shader } } }
+{ $description "Tries to compile the given GLSL source into a fragment shader object. Equivalent to " { $snippet "GL_FRAGMENT_SHADER <gl-shader>" } "." } ;
+
+HELP: gl-shader-ok?
+{ $values { "shader" "A " { $link gl-shader } " object" } { "?" "a boolean" } }
+{ $description "Returns a boolean value indicating whether the given shader object compiled successfully. Compilation errors and warnings are available in the shader's info log, which can be gotten using " { $link gl-shader-info-log } "." } ;
+
+HELP: check-gl-shader
+{ $values { "shader" "A " { $link gl-shader } " object" } }
+{ $description "Throws an error containing the " { $link gl-shader-info-log } " for the shader object if it failed to compile. Otherwise, the shader object is left on the stack." } ;
+
+HELP: delete-gl-shader
+{ $values { "shader" "A " { $link gl-shader } " object" } }
+{ $description "Deletes the shader object, invalidating it and releasing any resources allocated for it by the OpenGL implementation." } ;
+
+HELP: gl-shader-info-log
+{ $values { "shader" "A " { $link gl-shader } " object" } { "shader" "a new " { $link gl-shader } } { "log" string } }
+{ $description "Retrieves the info log for " { $snippet "shader" } ", including any errors or warnings generated in compiling the shader object." } ;
+
+HELP: gl-program
+{ $class-description { $snippet "gl-program" } " is a predicate class comprising values returned by OpenGL to represent proram objects. The following words are provided for creating and manipulating these objects:"
+ { $list
+ { { $link <gl-program> } ", " { $link <simple-gl-program> } " - Link a set of shaders into a GLSL program" }
+ { { $link gl-program-ok? } " - Check whether a program object linked successfully" }
+ { { $link check-gl-program } " - Throw an error unless a program object linked successfully" }
+ { { $link gl-program-info-log } " - Retrieve the info log of messages generated by the GLSL linker" }
+ { { $link gl-program-shaders } " - Retrieve the set of shader objects composing the GLSL program" }
+ { { $link delete-gl-program } " - Invalidate a program object and all its attached shaders" }
+ { { $link with-gl-program } " - Use a program object" }
+ }
+} ;
+
+HELP: <gl-program>
+{ $values { "shaders" "A sequence of " { $link gl-shader } " objects." } { "program" "a new " { $link gl-program } } }
+{ $description "Creates a new GLSL program object, attaches all the shader objects in the " { $snippet "shaders" } " sequence, and attempts to link them. The returned object can be checked for validity by " { $link check-gl-program } " or " { $link gl-program-ok? } ". Errors and warnings generated by the GLSL linker will be collected in the info log, available from " { $link gl-program-info-log } ".\n\nWhen the program object and its attached shaders are no longer needed, it should be deleted using " { $link delete-gl-program } "." } ;
+
+HELP: <simple-gl-program>
+{ $values { "vertex-shader-source" "A string containing GLSL vertex shader source" } { "fragment-shader-source" "A string containing GLSL fragment shader source" } { "program" "a new " { $link gl-program } } }
+{ $description "Wrapper for " { $link <gl-program> } " for the simple case of compiling a single vertex shader and fragment shader and linking them into a GLSL program. Throws an exception if compiling or linking fails." } ;
+
+{ <gl-program> <simple-gl-program> } related-words
+
+HELP: gl-program-ok?
+{ $values { "program" "A " { $link gl-program } " object" } { "?" "a boolean" } }
+{ $description "Returns a boolean value indicating whether the given program object linked successfully. Link errors and warnings are available in the program's info log, which can be gotten using " { $link gl-program-info-log } "." } ;
+
+HELP: check-gl-program
+{ $values { "program" "A " { $link gl-program } " object" } }
+{ $description "Throws an error containing the " { $link gl-program-info-log } " for the program object if it failed to link. Otherwise, the program object is left on the stack." } ;
+
+HELP: gl-program-info-log
+{ $values { "program" "A " { $link gl-program } " object" } { "log" string } }
+{ $description "Retrieves the info log for " { $snippet "program" } ", including any errors or warnings generated in linking the program object." } ;
+
+HELP: delete-gl-program
+{ $values { "program" "A " { $link gl-program } " object" } }
+{ $description "Deletes the program object, invalidating it and releasing any resources allocated for it by the OpenGL implementation. Any attached " { $link gl-shader } "s are also deleted.\n\nIf the shader objects should be preserved, they should each be detached using " { $link detach-gl-program-shader } ". The program object can then be destroyed alone using " { $link delete-gl-program-only } "." } ;
+
+HELP: with-gl-program
+{ $values { "program" "A " { $link gl-program } " object" } { "quot" "A quotation with stack effect " { $snippet "( program -- )" } } }
+{ $description "Enables " { $snippet "program" } " for all OpenGL calls made in the dynamic extent of " { $snippet "quot" } ". " { $snippet "program" } " is left on the top of the stack when " { $snippet "quot" } " is called. The fixed-function pipeline is restored at the end of " { $snippet "quot" } "." } ;
+
+ABOUT: "gl-utilities"
--- /dev/null
+! Copyright (C) 2008 Joe Groff.
+! See http://factorcode.org/license.txt for BSD license.
+USING: kernel opengl.gl alien.c-types continuations namespaces
+assocs alien alien.strings libc opengl math sequences combinators
+combinators.lib macros arrays io.encodings.ascii fry ;
+IN: opengl.shaders
+
+: with-gl-shader-source-ptr ( string quot -- )
+ swap ascii malloc-string [ <void*> swap call ] keep free ; inline
+
+: <gl-shader> ( source kind -- shader )
+ glCreateShader dup rot
+ [ 1 swap f glShaderSource ] with-gl-shader-source-ptr
+ [ glCompileShader ] keep
+ gl-error ;
+
+: (gl-shader?) ( object -- ? )
+ dup integer? [ glIsShader c-bool> ] [ drop f ] if ;
+
+: gl-shader-get-int ( shader enum -- value )
+ 0 <int> [ glGetShaderiv ] keep *int ;
+
+: gl-shader-ok? ( shader -- ? )
+ GL_COMPILE_STATUS gl-shader-get-int c-bool> ;
+
+: <vertex-shader> ( source -- vertex-shader )
+ GL_VERTEX_SHADER <gl-shader> ; inline
+
+: (vertex-shader?) ( object -- ? )
+ dup (gl-shader?)
+ [ GL_SHADER_TYPE gl-shader-get-int GL_VERTEX_SHADER = ]
+ [ drop f ] if ;
+
+: <fragment-shader> ( source -- fragment-shader )
+ GL_FRAGMENT_SHADER <gl-shader> ; inline
+
+: (fragment-shader?) ( object -- ? )
+ dup (gl-shader?)
+ [ GL_SHADER_TYPE gl-shader-get-int GL_FRAGMENT_SHADER = ]
+ [ drop f ] if ;
+
+: gl-shader-info-log-length ( shader -- log-length )
+ GL_INFO_LOG_LENGTH gl-shader-get-int ; inline
+
+: gl-shader-info-log ( shader -- log )
+ dup gl-shader-info-log-length dup [
+ [ 0 <int> swap glGetShaderInfoLog ] keep
+ ascii alien>string
+ ] with-malloc ;
+
+: check-gl-shader ( shader -- shader )
+ dup gl-shader-ok? [ dup gl-shader-info-log throw ] unless ;
+
+: delete-gl-shader ( shader -- ) glDeleteShader ; inline
+
+PREDICATE: gl-shader < integer (gl-shader?) ;
+PREDICATE: vertex-shader < gl-shader (vertex-shader?) ;
+PREDICATE: fragment-shader < gl-shader (fragment-shader?) ;
+
+! Programs
+
+: <gl-program> ( shaders -- program )
+ glCreateProgram swap
+ [ dupd glAttachShader ] each
+ [ glLinkProgram ] keep
+ gl-error ;
+
+: (gl-program?) ( object -- ? )
+ dup integer? [ glIsProgram c-bool> ] [ drop f ] if ;
+
+: gl-program-get-int ( program enum -- value )
+ 0 <int> [ glGetProgramiv ] keep *int ;
+
+: gl-program-ok? ( program -- ? )
+ GL_LINK_STATUS gl-program-get-int c-bool> ;
+
+: gl-program-info-log-length ( program -- log-length )
+ GL_INFO_LOG_LENGTH gl-program-get-int ; inline
+
+: gl-program-info-log ( program -- log )
+ dup gl-program-info-log-length dup [
+ [ 0 <int> swap glGetProgramInfoLog ] keep
+ ascii alien>string
+ ] with-malloc ;
+
+: check-gl-program ( program -- program )
+ dup gl-program-ok? [ dup gl-program-info-log throw ] unless ;
+
+: gl-program-shaders-length ( program -- shaders-length )
+ GL_ATTACHED_SHADERS gl-program-get-int ; inline
+
+: gl-program-shaders ( program -- shaders )
+ dup gl-program-shaders-length
+ dup "GLuint" <c-array>
+ 0 <int> swap
+ [ glGetAttachedShaders ] { 3 1 } multikeep
+ c-uint-array> ;
+
+: delete-gl-program-only ( program -- )
+ glDeleteProgram ; inline
+
+: detach-gl-program-shader ( program shader -- )
+ glDetachShader ; inline
+
+: delete-gl-program ( program -- )
+ dup gl-program-shaders [
+ 2dup detach-gl-program-shader delete-gl-shader
+ ] each delete-gl-program-only ;
+
+: with-gl-program ( program quot -- )
+ over glUseProgram [ 0 glUseProgram ] [ ] cleanup ; inline
+
+PREDICATE: gl-program < integer (gl-program?) ;
+
+: <simple-gl-program> ( vertex-shader-source fragment-shader-source -- program )
+ >r <vertex-shader> check-gl-shader
+ r> <fragment-shader> check-gl-shader
+ 2array <gl-program> check-gl-program ;
+
--- /dev/null
+OpenGL Shading Language (GLSL) support
\ No newline at end of file
--- /dev/null
+opengl
+glsl
+bindings
\ No newline at end of file
--- /dev/null
+OpenGL binding
+++ /dev/null
-Slava Pestov
+++ /dev/null
-Loading graphical user interface in stage 2 bootstrap
+++ /dev/null
-Slava Pestov
+++ /dev/null
-Loading graphical developer tools in stage 2 bootstrap
+++ /dev/null
-USING: kernel vocabs vocabs.loader sequences system ;
-
-{ "ui" "help" "tools" }
-[ "bootstrap." prepend vocab ] all? [
- "ui.tools" require
-
- "ui.cocoa" vocab [
- "ui.cocoa.tools" require
- ] when
-
- "ui.tools.walker" require
-] when
+++ /dev/null
-USING: alien namespaces system combinators kernel sequences
-vocabs vocabs.loader ;
-
-"bootstrap.compiler" vocab [
- "ui-backend" get [
- {
- { [ os macosx? ] [ "cocoa" ] }
- { [ os windows? ] [ "windows" ] }
- { [ os unix? ] [ "x11" ] }
- } cond
- ] unless* "ui." prepend require
-
- "ui.freetype" require
-] when
+++ /dev/null
-
-IN: math.geometry
-
-GENERIC: width ( object -- width )
-GENERIC: height ( object -- width )
-
-GENERIC# set-width! 1 ( object width -- object )
-GENERIC# set-height! 1 ( object height -- object )
-
-GENERIC# set-x! 1 ( object x -- object )
-GENERIC# set-y! 1 ( object y -- object )
\ No newline at end of file
+++ /dev/null
-USING: help.markup help.syntax ;
-
-IN: math.geometry.rect
-
-HELP: rect
-{ $class-description "A rectangle with the following slots:"
- { $list
- { { $link rect-loc } " - the top-left corner of the rectangle as an x/y pair" }
- { { $link rect-dim } " - the dimensions of the rectangle as a width/height pair" }
- }
- "Rectangles are constructed by calling " { $link <rect> } " and " { $link <extent-rect> } "."
-} ;
-
-HELP: <rect> ( loc dim -- rect )
-{ $values { "loc" "a pair of integers" } { "dim" "a pair of integers" } { "rect" "a new " { $link rect } } }
-{ $description "Creates a new rectangle with the specified top-left location and dimensions." } ;
-
-{ <zero-rect> <rect> <extent-rect> } related-words
-
-HELP: set-rect-dim ( dim rect -- )
-{ $values { "dim" "a pair of integers" } { "rect" rect } }
-{ $description "Modifies the dimensions of a rectangle." }
-{ $side-effects "rect" } ;
-
-HELP: rect-bounds
-{ $values { "rect" rect } { "loc" "a pair of integers" } { "dim" "a pair of integers" } }
-{ $description "Outputs the location and dimensions of a rectangle." } ;
-
-{ rect-bounds rect-extent } related-words
-
-HELP: <extent-rect> ( loc ext -- rect )
-{ $values { "loc" "a pair of integers" } { "ext" "a pair of integers" } { "rect" "a new " { $link rect } } }
-{ $description "Creates a new rectangle with the specified top-left and bottom-right corner locations." } ;
-
-HELP: rect-extent
-{ $values { "rect" rect } { "loc" "a pair of integers" } { "ext" "a pair of integers" } }
-{ $description "Outputs the location of the top-left and bottom-right corners of a rectangle." } ;
-
-HELP: offset-rect
-{ $values { "rect" rect } { "loc" "a pair of integers" } { "newrect" "a new " { $link rect } } }
-{ $description "Creates a new rectangle with the same dimensions, and top-left corner translated by " { $snippet "loc" } "." } ;
-
-HELP: rect-intersect
-{ $values { "rect1" rect } { "rect2" rect } { "newrect" "a new " { $link rect } } }
-{ $description "Computes the intersection of two rectangles." } ;
-
-HELP: intersects?
-{ $values { "rect/point" "a " { $link rect } " or a pair of integers" } { "rect" rect } { "?" "a boolean" } }
-{ $description "Tests if two rectangles (or a point and a rectangle, respectively) have a non-empty intersection." } ;
-
-HELP: <zero-rect>
-{ $values { "rect" "a new " { $link rect } } }
-{ $description "Creates a rectangle located at the origin with zero dimensions." } ;
-
+++ /dev/null
-
-USING: tools.test math.geometry.rect ;
-
-IN: math.geometry.rect.tests
-
-[ T{ rect f { 10 10 } { 20 20 } } ]
-[
- T{ rect f { 10 10 } { 50 50 } }
- T{ rect f { -10 -10 } { 40 40 } }
- rect-intersect
-] unit-test
-
-[ T{ rect f { 200 200 } { 0 0 } } ]
-[
- T{ rect f { 100 100 } { 50 50 } }
- T{ rect f { 200 200 } { 40 40 } }
- rect-intersect
-] unit-test
-
-[ f ] [
- T{ rect f { 100 100 } { 50 50 } }
- T{ rect f { 200 200 } { 40 40 } }
- intersects?
-] unit-test
-
-[ t ] [
- T{ rect f { 100 100 } { 50 50 } }
- T{ rect f { 120 120 } { 40 40 } }
- intersects?
-] unit-test
-
-[ f ] [
- T{ rect f { 1000 100 } { 50 50 } }
- T{ rect f { 120 120 } { 40 40 } }
- intersects?
-] unit-test
-
+++ /dev/null
-
-USING: kernel arrays sequences
- math math.points math.vectors math.geometry
- accessors ;
-
-IN: math.geometry.rect
-
-TUPLE: rect loc dim ;
-
-: init-rect ( rect -- rect ) { 0 0 } clone >>loc { 0 0 } clone >>dim ;
-
-: <rect> ( loc dim -- rect ) rect boa ;
-
-: <zero-rect> ( -- rect ) rect new init-rect ;
-
-M: array rect-loc ;
-
-M: array rect-dim drop { 0 0 } ;
-
-: rect-bounds ( rect -- loc dim ) dup rect-loc swap rect-dim ;
-
-: rect-extent ( rect -- loc ext ) rect-bounds over v+ ;
-
-: 2rect-extent ( rect rect -- loc1 loc2 ext1 ext2 )
- [ rect-extent ] bi@ swapd ;
-
-: <extent-rect> ( loc ext -- rect ) over [v-] <rect> ;
-
-: offset-rect ( rect loc -- newrect )
- over rect-loc v+ swap rect-dim <rect> ;
-
-: (rect-intersect) ( rect rect -- array array )
- 2rect-extent vmin >r vmax r> ;
-
-: rect-intersect ( rect1 rect2 -- newrect )
- (rect-intersect) <extent-rect> ;
-
-: intersects? ( rect/point rect -- ? )
- (rect-intersect) [v-] { 0 0 } = ;
-
-: (rect-union) ( rect rect -- array array )
- 2rect-extent vmax >r vmin r> ;
-
-: rect-union ( rect1 rect2 -- newrect )
- (rect-union) <extent-rect> ;
-
-M: rect width ( rect -- width ) dim>> first ;
-M: rect height ( rect -- height ) dim>> second ;
-
-M: rect set-width! ( rect width -- rect ) over dim>> set-first ;
-M: rect set-height! ( rect height -- rect ) over dim>> set-second ;
-
-M: rect set-x! ( rect x -- rect ) over loc>> set-first ;
-M: rect set-y! ( rect y -- rect ) over loc>> set-second ;
-
-! Accessing corners
-
-: top-left ( rect -- point ) loc>> ;
-: top-right ( rect -- point ) [ loc>> ] [ width 1 - ] bi v+x ;
-: bottom-left ( rect -- point ) [ loc>> ] [ height 1 - ] bi v+y ;
-: bottom-right ( rect -- point ) [ loc>> ] [ dim>> ] bi v+ { 1 1 } v- ;
+++ /dev/null
-Slava Pestov
-Eduardo Cavazos
-Joe Groff
+++ /dev/null
-Adam Wendt
+++ /dev/null
-
-USING: kernel namespaces math.vectors opengl pos ori turtle self ;
-
-IN: opengl.camera
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-: camera-eye ( -- point ) pos> ;
-
-: camera-focus ( -- point ) [ 1 step-turtle pos> ] save-self ;
-
-: camera-up ( -- dirvec )
-[ 90 pitch-up pos> 1 step-turtle pos> swap v- ] save-self ;
-
-: do-look-at ( camera -- )
-[ >self camera-eye camera-focus camera-up gl-look-at ] with-scope ;
+++ /dev/null
-Joe Groff
\ No newline at end of file
+++ /dev/null
-USING: help.markup help.syntax io kernel math quotations
-opengl.gl multiline assocs ;
-IN: opengl.capabilities
-
-HELP: gl-version
-{ $values { "version" "The version string from the OpenGL implementation" } }
-{ $description "Wrapper for " { $snippet "GL_VERSION glGetString" } " that removes the vendor-specific information from the version string." } ;
-
-HELP: gl-vendor-version
-{ $values { "version" "The vendor-specific version information from the OpenGL implementation" } }
-{ $description "Wrapper for " { $snippet "GL_VERSION glGetString" } " that returns only the vendor-specific information from the version string." } ;
-
-HELP: has-gl-version?
-{ $values { "version" "A version string" } { "?" "A boolean value" } }
-{ $description "Compares the version string returned by " { $link gl-version } " to " { $snippet "version" } ". Returns true if the implementation version meets or exceeds " { $snippet "version" } "." } ;
-
-HELP: require-gl-version
-{ $values { "version" "A version string" } }
-{ $description "Throws an exception if " { $link has-gl-version? } " returns false for " { $snippet "version" } "." } ;
-
-HELP: glsl-version
-{ $values { "version" "The GLSL version string from the OpenGL implementation" } }
-{ $description "Wrapper for " { $snippet "GL_SHADING_LANGUAGE_VERSION glGetString" } " that removes the vendor-specific information from the version string." } ;
-
-HELP: glsl-vendor-version
-{ $values { "version" "The vendor-specific GLSL version information from the OpenGL implementation" } }
-{ $description "Wrapper for " { $snippet "GL_SHADING_LANGUAGE_VERSION glGetString" } " that returns only the vendor-specific information from the version string." } ;
-
-HELP: has-glsl-version?
-{ $values { "version" "A version string" } { "?" "A boolean value" } }
-{ $description "Compares the version string returned by " { $link glsl-version } " to " { $snippet "version" } ". Returns true if the implementation version meets or exceeds " { $snippet "version" } "." } ;
-
-HELP: require-glsl-version
-{ $values { "version" "A version string" } }
-{ $description "Throws an exception if " { $link has-glsl-version? } " returns false for " { $snippet "version" } "." } ;
-
-HELP: gl-extensions
-{ $values { "seq" "A sequence of strings naming the implementation-supported OpenGL extensions" } }
-{ $description "Wrapper for " { $snippet "GL_EXTENSIONS glGetString" } " that returns a sequence of extension names supported by the OpenGL implementation." } ;
-
-HELP: has-gl-extensions?
-{ $values { "extensions" "A sequence of extension name strings" } { "?" "A boolean value" } }
-{ $description "Returns true if the set of " { $snippet "extensions" } " is a subset of the implementation-supported extensions returned by " { $link gl-extensions } "." } ;
-
-HELP: has-gl-version-or-extensions?
-{ $values { "version" "A version string" } { "extensions" "A sequence of extension name strings" } { "?" "a boolean" } }
-{ $description "Returns true if either " { $link has-gl-version? } " or " { $link has-gl-extensions? } " returns true for " { $snippet "version" } " or " { $snippet "extensions" } ", respectively. Intended for use when required OpenGL functionality can be verified either by a minimum version or a set of equivalent extensions." } ;
-
-HELP: require-gl-extensions
-{ $values { "extensions" "A sequence of extension name strings" } }
-{ $description "Throws an exception if " { $link has-gl-extensions? } " returns false for " { $snippet "extensions" } "." } ;
-
-HELP: require-gl-version-or-extensions
-{ $values { "version" "A version string" } { "extensions" "A sequence of extension name strings" } }
-{ $description "Throws an exception if neither " { $link has-gl-version? } " nor " { $link has-gl-extensions? } " returns true for " { $snippet "version" } " or " { $snippet "extensions" } ", respectively. Intended for use when required OpenGL functionality can be verified either by a minimum version or a set of equivalent extensions." } ;
-
-{ require-gl-version require-glsl-version require-gl-extensions require-gl-version-or-extensions has-gl-version? has-glsl-version? has-gl-extensions? has-gl-version-or-extensions? gl-version glsl-version gl-extensions } related-words
-
-ABOUT: "gl-utilities"
+++ /dev/null
-! Copyright (C) 2008 Joe Groff.
-! See http://factorcode.org/license.txt for BSD license.
-USING: kernel namespaces sequences splitting opengl.gl
-continuations math.parser math arrays sets math.order ;
-IN: opengl.capabilities
-
-: (require-gl) ( thing require-quot make-error-quot -- )
- >r dupd call
- [ r> 2drop ]
- [ r> " " make throw ]
- if ; inline
-
-: gl-extensions ( -- seq )
- GL_EXTENSIONS glGetString " " split ;
-: has-gl-extensions? ( extensions -- ? )
- gl-extensions swap [ over member? ] all? nip ;
-: (make-gl-extensions-error) ( required-extensions -- )
- gl-extensions diff
- "Required OpenGL extensions not supported:\n" %
- [ " " % % "\n" % ] each ;
-: require-gl-extensions ( extensions -- )
- [ has-gl-extensions? ]
- [ (make-gl-extensions-error) ]
- (require-gl) ;
-
-: version-seq ( version-string -- version-seq )
- "." split [ string>number ] map ;
-
-: version-before? ( version1 version2 -- ? )
- swap version-seq swap version-seq before=? ;
-
-: (gl-version) ( -- version vendor )
- GL_VERSION glGetString " " split1 ;
-: gl-version ( -- version )
- (gl-version) drop ;
-: gl-vendor-version ( -- version )
- (gl-version) nip ;
-: has-gl-version? ( version -- ? )
- gl-version version-before? ;
-: (make-gl-version-error) ( required-version -- )
- "Required OpenGL version " % % " not supported (" % gl-version % " available)" % ;
-: require-gl-version ( version -- )
- [ has-gl-version? ]
- [ (make-gl-version-error) ]
- (require-gl) ;
-
-: (glsl-version) ( -- version vendor )
- GL_SHADING_LANGUAGE_VERSION glGetString " " split1 ;
-: glsl-version ( -- version )
- (glsl-version) drop ;
-: glsl-vendor-version ( -- version )
- (glsl-version) nip ;
-: has-glsl-version? ( version -- ? )
- glsl-version version-before? ;
-: require-glsl-version ( version -- )
- [ has-glsl-version? ]
- [ "Required GLSL version " % % " not supported (" % glsl-version % " available)" % ]
- (require-gl) ;
-
-: has-gl-version-or-extensions? ( version extensions -- ? )
- has-gl-extensions? swap has-gl-version? or ;
-
-: require-gl-version-or-extensions ( version extensions -- )
- 2array [ first2 has-gl-version-or-extensions? ] [
- dup first (make-gl-version-error) "\n" %
- second (make-gl-extensions-error) "\n" %
- ] (require-gl) ;
+++ /dev/null
-Testing for OpenGL versions and extensions
\ No newline at end of file
+++ /dev/null
-opengl
-bindings
+++ /dev/null
-Joe Groff
\ No newline at end of file
+++ /dev/null
-USING: arrays kernel math math.functions
-math.order math.vectors namespaces opengl opengl.gl sequences ui
-ui.gadgets ui.gestures ui.render accessors ;
-IN: opengl.demo-support
-
-: FOV 2.0 sqrt 1+ ; inline
-: MOUSE-MOTION-SCALE 0.5 ; inline
-: KEY-ROTATE-STEP 1.0 ; inline
-
-SYMBOL: last-drag-loc
-
-TUPLE: demo-gadget < gadget yaw pitch distance ;
-
-: new-demo-gadget ( yaw pitch distance class -- gadget )
- new-gadget
- swap >>distance
- swap >>pitch
- swap >>yaw ;
-
-GENERIC: far-plane ( gadget -- z )
-GENERIC: near-plane ( gadget -- z )
-GENERIC: distance-step ( gadget -- dz )
-
-M: demo-gadget far-plane ( gadget -- z )
- drop 4.0 ;
-M: demo-gadget near-plane ( gadget -- z )
- drop 1.0 64.0 / ;
-M: demo-gadget distance-step ( gadget -- dz )
- drop 1.0 64.0 / ;
-
-: fov-ratio ( gadget -- fov ) dim>> dup first2 min v/n ;
-
-: yaw-demo-gadget ( yaw gadget -- )
- [ + ] with change-yaw relayout-1 ;
-
-: pitch-demo-gadget ( pitch gadget -- )
- [ + ] with change-pitch relayout-1 ;
-
-: zoom-demo-gadget ( distance gadget -- )
- [ + ] with change-distance relayout-1 ;
-
-M: demo-gadget pref-dim* ( gadget -- dim )
- drop { 640 480 } ;
-
-: -+ ( x -- -x x )
- [ neg ] keep ;
-
-: demo-gadget-frustum ( gadget -- -x x -y y near far )
- [ near-plane ] [ far-plane ] [ fov-ratio ] tri [
- nip swap FOV / v*n
- first2 [ -+ ] bi@
- ] 3keep drop ;
-
-: demo-gadget-set-matrices ( gadget -- )
- GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT bitor glClear
- [
- GL_PROJECTION glMatrixMode
- glLoadIdentity
- demo-gadget-frustum glFrustum
- ] [
- GL_MODELVIEW glMatrixMode
- glLoadIdentity
- [ >r 0.0 0.0 r> distance>> neg glTranslatef ]
- [ pitch>> 1.0 0.0 0.0 glRotatef ]
- [ yaw>> 0.0 1.0 0.0 glRotatef ]
- tri
- ] bi ;
-
-: reset-last-drag-rel ( -- )
- { 0 0 } last-drag-loc set-global ;
-: last-drag-rel ( -- rel )
- drag-loc [ last-drag-loc get v- ] keep last-drag-loc set-global ;
-
-: drag-yaw-pitch ( -- yaw pitch )
- last-drag-rel MOUSE-MOTION-SCALE v*n first2 ;
-
-demo-gadget H{
- { T{ key-down f f "LEFT" } [ KEY-ROTATE-STEP neg swap yaw-demo-gadget ] }
- { T{ key-down f f "RIGHT" } [ KEY-ROTATE-STEP swap yaw-demo-gadget ] }
- { T{ key-down f f "DOWN" } [ KEY-ROTATE-STEP neg swap pitch-demo-gadget ] }
- { T{ key-down f f "UP" } [ KEY-ROTATE-STEP swap pitch-demo-gadget ] }
- { T{ key-down f f "=" } [ dup distance-step neg swap zoom-demo-gadget ] }
- { T{ key-down f f "-" } [ dup distance-step swap zoom-demo-gadget ] }
-
- { T{ button-down f f 1 } [ drop reset-last-drag-rel ] }
- { T{ drag f 1 } [ drag-yaw-pitch rot [ pitch-demo-gadget ] keep yaw-demo-gadget ] }
- { T{ mouse-scroll } [ scroll-direction get second over distance-step * swap zoom-demo-gadget ] }
-} set-gestures
-
+++ /dev/null
-Common support for OpenGL demos
\ No newline at end of file
+++ /dev/null
-Joe Groff
\ No newline at end of file
+++ /dev/null
-USING: help.markup help.syntax io kernel math quotations
-opengl.gl multiline assocs ;
-IN: opengl.framebuffers
-
-HELP: gen-framebuffer
-{ $values { "id" integer } }
-{ $description "Wrapper for " { $link glGenFramebuffersEXT } " to handle the common case of generating a single framebuffer ID." } ;
-
-HELP: gen-renderbuffer
-{ $values { "id" integer } }
-{ $description "Wrapper for " { $link glGenRenderbuffersEXT } " to handle the common case of generating a single render buffer ID." } ;
-
-HELP: delete-framebuffer
-{ $values { "id" integer } }
-{ $description "Wrapper for " { $link glDeleteFramebuffersEXT } " to handle the common case of deleting a single framebuffer ID." } ;
-
-HELP: delete-renderbuffer
-{ $values { "id" integer } }
-{ $description "Wrapper for " { $link glDeleteRenderbuffersEXT } " to handle the common case of deleting a single render buffer ID." } ;
-
-{ gen-framebuffer delete-framebuffer } related-words
-{ gen-renderbuffer delete-renderbuffer } related-words
-
-HELP: framebuffer-incomplete?
-{ $values { "status/f" "The framebuffer error code, or " { $snippet "f" } " if the framebuffer is render-complete." } }
-{ $description "Checks the framebuffer currently bound by " { $link glBindFramebufferEXT } " or " { $link with-framebuffer } " to see if it is incomplete, i.e., it is not ready to be rendered to." } ;
-
-HELP: check-framebuffer
-{ $description "Checks the framebuffer currently bound by " { $link glBindFramebufferEXT } " or " { $link with-framebuffer } " with " { $link framebuffer-incomplete? } ", and throws a descriptive error if the framebuffer is incomplete." } ;
-
-HELP: with-framebuffer
-{ $values { "id" "The id of a framebuffer object." } { "quot" "a quotation" } }
-{ $description "Binds framebuffer " { $snippet "id" } " in the dynamic extent of " { $snippet "quot" } ", restoring the window framebuffer when finished." } ;
-
-ABOUT: "gl-utilities"
\ No newline at end of file
+++ /dev/null
-! Copyright (C) 2008 Joe Groff.
-! See http://factorcode.org/license.txt for BSD license.
-USING: opengl opengl.gl combinators continuations kernel
-alien.c-types ;
-IN: opengl.framebuffers
-
-: gen-framebuffer ( -- id )
- [ glGenFramebuffersEXT ] (gen-gl-object) ;
-: gen-renderbuffer ( -- id )
- [ glGenRenderbuffersEXT ] (gen-gl-object) ;
-
-: delete-framebuffer ( id -- )
- [ glDeleteFramebuffersEXT ] (delete-gl-object) ;
-: delete-renderbuffer ( id -- )
- [ glDeleteRenderbuffersEXT ] (delete-gl-object) ;
-
-: framebuffer-incomplete? ( -- status/f )
- GL_FRAMEBUFFER_EXT glCheckFramebufferStatusEXT
- dup GL_FRAMEBUFFER_COMPLETE_EXT = f rot ? ;
-
-: framebuffer-error ( status -- * )
- {
- { GL_FRAMEBUFFER_COMPLETE_EXT [ "framebuffer complete" ] }
- { GL_FRAMEBUFFER_UNSUPPORTED_EXT [ "framebuffer configuration unsupported" ] }
- { GL_FRAMEBUFFER_INCOMPLETE_ATTACHMENT_EXT [ "framebuffer incomplete (incomplete attachment)" ] }
- { GL_FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT_EXT [ "framebuffer incomplete (missing attachment)" ] }
- { GL_FRAMEBUFFER_INCOMPLETE_DIMENSIONS_EXT [ "framebuffer incomplete (dimension mismatch)" ] }
- { GL_FRAMEBUFFER_INCOMPLETE_FORMATS_EXT [ "framebuffer incomplete (format mismatch)" ] }
- { GL_FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER_EXT [ "framebuffer incomplete (draw buffer(s) have no attachment)" ] }
- { GL_FRAMEBUFFER_INCOMPLETE_READ_BUFFER_EXT [ "framebuffer incomplete (read buffer has no attachment)" ] }
- [ drop gl-error "unknown framebuffer error" ]
- } case throw ;
-
-: check-framebuffer ( -- )
- framebuffer-incomplete? [ framebuffer-error ] when* ;
-
-: with-framebuffer ( id quot -- )
- GL_FRAMEBUFFER_EXT rot glBindFramebufferEXT
- [ GL_FRAMEBUFFER_EXT 0 glBindFramebufferEXT ] [ ] cleanup ; inline
-
-: framebuffer-attachment ( attachment -- id )
- GL_FRAMEBUFFER_EXT swap GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_EXT
- 0 <uint> [ glGetFramebufferAttachmentParameterivEXT ] keep *uint ;
+++ /dev/null
-Rendering to offscreen textures using the GL_EXT_framebuffer_object extension
\ No newline at end of file
+++ /dev/null
-opengl
-bindings
+++ /dev/null
-IN: opengl.gadgets.tests
-USING: tools.test opengl.gadgets ;
-
-\ render* must-infer
+++ /dev/null
-! Copyright (C) 2008 Matthew Willis.
-! See http://factorcode.org/license.txt for BSD license.
-USING: locals math.functions math namespaces
-opengl.gl accessors kernel opengl ui.gadgets
-fry assocs
-destructors sequences ui.render colors ;
-IN: opengl.gadgets
-
-TUPLE: texture-gadget ;
-
-GENERIC: render* ( gadget -- texture dims )
-GENERIC: cache-key* ( gadget -- key )
-
-M: texture-gadget cache-key* ;
-
-SYMBOL: textures
-SYMBOL: refcounts
-
-: init-cache ( symbol -- )
- dup get [ drop ] [ H{ } clone swap set-global ] if ;
-
-textures init-cache
-refcounts init-cache
-
-: refcount-change ( gadget quot -- )
- >r cache-key* refcounts get
- [ [ 0 ] unless* ] r> compose change-at ;
-
-TUPLE: cache-entry tex dims ;
-C: <entry> cache-entry
-
-: make-entry ( gadget -- entry )
- dup render* <entry>
- [ swap cache-key* textures get set-at ] keep ;
-
-: get-entry ( gadget -- {texture,dims} )
- dup cache-key* textures get at
- [ nip ] [ make-entry ] if* ;
-
-: get-dims ( gadget -- dims )
- get-entry dims>> ;
-
-: get-texture ( gadget -- texture )
- get-entry tex>> ;
-
-: release-texture ( gadget -- )
- cache-key* textures get delete-at*
- [ tex>> delete-texture ] [ drop ] if ;
-
-M: texture-gadget graft* ( gadget -- ) [ 1+ ] refcount-change ;
-
-M: texture-gadget ungraft* ( gadget -- )
- dup [ 1- ] refcount-change
- dup cache-key* refcounts get at
- zero? [ release-texture ] [ drop ] if ;
-
-: 2^-ceil ( x -- y )
- dup 2 < [ 2 * ] [ 1- log2 1+ 2^ ] if ; foldable flushable
-
-: 2^-bounds ( dim -- dim' )
- [ 2^-ceil ] map ; foldable flushable
-
-:: (render-bytes) ( dims bytes format texture -- )
- GL_ENABLE_BIT [
- GL_TEXTURE_2D glEnable
- GL_TEXTURE_2D texture glBindTexture
- GL_TEXTURE_2D
- 0
- GL_RGBA
- dims 2^-bounds first2
- 0
- format
- GL_UNSIGNED_BYTE
- bytes
- glTexImage2D
- init-texture
- GL_TEXTURE_2D 0 glBindTexture
- ] do-attribs ;
-
-: render-bytes ( dims bytes format -- texture )
- gen-texture [ (render-bytes) ] keep ;
-
-: render-bytes* ( dims bytes format -- texture dims )
- pick >r render-bytes r> ;
-
-:: four-corners ( dim -- )
- [let* | w [ dim first ]
- h [ dim second ]
- dim' [ dim dup 2^-bounds [ /f ] 2map ]
- w' [ dim' first ]
- h' [ dim' second ] |
- 0 0 glTexCoord2d 0 0 glVertex2d
- 0 h' glTexCoord2d 0 h glVertex2d
- w' h' glTexCoord2d w h glVertex2d
- w' 0 glTexCoord2d w 0 glVertex2d
- ] ;
-
-M: texture-gadget draw-gadget* ( gadget -- )
- origin get [
- GL_ENABLE_BIT [
- white gl-color
- 1.0 -1.0 glPixelZoom
- GL_TEXTURE_2D glEnable
- GL_TEXTURE_2D over get-texture glBindTexture
- GL_QUADS [
- get-dims four-corners
- ] do-state
- GL_TEXTURE_2D 0 glBindTexture
- ] do-attribs
- ] with-translation ;
-
-M: texture-gadget pref-dim* ( gadget -- dim ) get-dims ;
+++ /dev/null
-Slava Pestov
+++ /dev/null
-USING: alien alien.syntax combinators kernel parser sequences
-system words namespaces hashtables init math arrays assocs
-continuations lexer ;
-IN: opengl.gl.extensions
-
-ERROR: unknown-gl-platform ;
-<< {
- { [ os windows? ] [ "opengl.gl.windows" ] }
- { [ os macosx? ] [ "opengl.gl.macosx" ] }
- { [ os unix? ] [ "opengl.gl.unix" ] }
- [ unknown-gl-platform ]
-} cond use+ >>
-
-SYMBOL: +gl-function-number-counter+
-SYMBOL: +gl-function-pointers+
-
-: reset-gl-function-number-counter ( -- )
- 0 +gl-function-number-counter+ set-global ;
-: reset-gl-function-pointers ( -- )
- 100 <hashtable> +gl-function-pointers+ set-global ;
-
-[ reset-gl-function-pointers ] "opengl.gl" add-init-hook
-reset-gl-function-pointers
-reset-gl-function-number-counter
-
-: gl-function-number ( -- n )
- +gl-function-number-counter+ get-global
- dup 1+ +gl-function-number-counter+ set-global ;
-
-: gl-function-pointer ( names n -- funptr )
- gl-function-context 2array dup +gl-function-pointers+ get-global at
- [ 2nip ] [
- >r [ gl-function-address ] map [ ] find nip
- dup [ "OpenGL function not available" throw ] unless
- dup r>
- +gl-function-pointers+ get-global set-at
- ] if* ;
-
-: GL-FUNCTION:
- gl-function-calling-convention
- scan
- scan dup
- scan drop "}" parse-tokens swap prefix
- gl-function-number
- [ gl-function-pointer ] 2curry swap
- ";" parse-tokens [ "()" subseq? not ] filter
- define-indirect
- ; parsing
+++ /dev/null
-
-USING: help.syntax help.markup ;
-
-IN: opengl.gl
-
-ARTICLE: "opengl-low-level" "OpenGL binding"
- { $subsection "opengl-specifying-vertices" }
- { $subsection "opengl-geometric-primitives" }
- { $subsection "opengl-modeling-transformations" } ;
-
-ARTICLE: "opengl-specifying-vertices" "Specifying Vertices"
-
- { $subsection glVertex2d }
- { $subsection glVertex2f }
- { $subsection glVertex2i }
- { $subsection glVertex2s }
- { $subsection glVertex3d }
- { $subsection glVertex3f }
- { $subsection glVertex3i }
- { $subsection glVertex3s }
- { $subsection glVertex4d }
- { $subsection glVertex4f }
- { $subsection glVertex4i }
- { $subsection glVertex4s }
- { $subsection glVertex2dv }
- { $subsection glVertex2fv }
- { $subsection glVertex2iv }
- { $subsection glVertex2sv }
- { $subsection glVertex3dv }
- { $subsection glVertex3fv }
- { $subsection glVertex3iv }
- { $subsection glVertex3sv }
- { $subsection glVertex4dv }
- { $subsection glVertex4fv }
- { $subsection glVertex4iv }
- { $subsection glVertex4sv } ;
-
-ARTICLE: "opengl-geometric-primitives" "OpenGL Geometric Primitives"
-
- { $table
- { { $link GL_POINTS } "individual points" }
- { { $link GL_LINES } { "pairs of vertices interpreted as "
- "individual line segments" } }
- { { $link GL_LINE_STRIP } "series of connected line segments" }
- { { $link GL_LINE_LOOP } { "same as above, with a segment added "
- "between last and first vertices" } }
- { { $link GL_TRIANGLES }
- "triples of vertices interpreted as triangles" }
- { { $link GL_TRIANGLE_STRIP } "linked strip of triangles" }
- { { $link GL_TRIANGLE_FAN } "linked fan of triangles" }
- { { $link GL_QUADS }
- "quadruples of vertices interpreted as four-sided polygons" }
- { { $link GL_QUAD_STRIP } "linked strip of quadrilaterals" }
- { { $link GL_POLYGON } "boundary of a simple, convex polygon" } }
-
-;
-
-HELP: glBegin
- { $values { "mode"
- { "One of the " { $link "opengl-geometric-primitives" } } } } ;
-
-HELP: glPolygonMode
- { $values { "face" { "One of the following:"
- { $list { $link GL_FRONT }
- { $link GL_BACK }
- { $link GL_FRONT_AND_BACK } } } }
- { "mode" { "One of the following:"
- { $list
- { $link GL_POINT }
- { $link GL_LINE }
- { $link GL_FILL } } } } } ;
-
-ARTICLE: "opengl-modeling-transformations" "Modeling Transformations"
- { $subsection glTranslatef }
- { $subsection glTranslated }
- { $subsection glRotatef }
- { $subsection glRotated }
- { $subsection glScalef }
- { $subsection glScaled } ;
-
-
-{ glTranslatef glTranslated glRotatef glRotated glScalef glScaled }
-related-words
-
-
+++ /dev/null
-! Copyright (C) 2005 Alex Chapman.
-! See http://factorcode.org/license.txt for BSD license.
-
-! This file is based on the gl.h that comes with xorg-x11 6.8.2
-
-USING: alien alien.syntax combinators kernel parser sequences
-system words opengl.gl.extensions ;
-
-IN: opengl.gl
-
-TYPEDEF: uint GLenum
-TYPEDEF: uchar GLboolean
-TYPEDEF: uint GLbitfield
-TYPEDEF: char GLbyte
-TYPEDEF: short GLshort
-TYPEDEF: int GLint
-TYPEDEF: int GLsizei
-TYPEDEF: uchar GLubyte
-TYPEDEF: ushort GLushort
-TYPEDEF: uint GLuint
-TYPEDEF: float GLfloat
-TYPEDEF: float GLclampf
-TYPEDEF: double GLdouble
-TYPEDEF: double GLclampd
-TYPEDEF: void* GLvoid*
-
-! Constants
-
-! Boolean values
-: GL_FALSE HEX: 0 ; inline
-: GL_TRUE HEX: 1 ; inline
-
-! Data types
-: GL_BYTE HEX: 1400 ; inline
-: GL_UNSIGNED_BYTE HEX: 1401 ; inline
-: GL_SHORT HEX: 1402 ; inline
-: GL_UNSIGNED_SHORT HEX: 1403 ; inline
-: GL_INT HEX: 1404 ; inline
-: GL_UNSIGNED_INT HEX: 1405 ; inline
-: GL_FLOAT HEX: 1406 ; inline
-: GL_2_BYTES HEX: 1407 ; inline
-: GL_3_BYTES HEX: 1408 ; inline
-: GL_4_BYTES HEX: 1409 ; inline
-: GL_DOUBLE HEX: 140A ; inline
-
-! Primitives
-: GL_POINTS HEX: 0000 ; inline
-: GL_LINES HEX: 0001 ; inline
-: GL_LINE_LOOP HEX: 0002 ; inline
-: GL_LINE_STRIP HEX: 0003 ; inline
-: GL_TRIANGLES HEX: 0004 ; inline
-: GL_TRIANGLE_STRIP HEX: 0005 ; inline
-: GL_TRIANGLE_FAN HEX: 0006 ; inline
-: GL_QUADS HEX: 0007 ; inline
-: GL_QUAD_STRIP HEX: 0008 ; inline
-: GL_POLYGON HEX: 0009 ; inline
-
-! Vertex arrays
-: GL_VERTEX_ARRAY HEX: 8074 ; inline
-: GL_NORMAL_ARRAY HEX: 8075 ; inline
-: GL_COLOR_ARRAY HEX: 8076 ; inline
-: GL_INDEX_ARRAY HEX: 8077 ; inline
-: GL_TEXTURE_COORD_ARRAY HEX: 8078 ; inline
-: GL_EDGE_FLAG_ARRAY HEX: 8079 ; inline
-: GL_VERTEX_ARRAY_SIZE HEX: 807A ; inline
-: GL_VERTEX_ARRAY_TYPE HEX: 807B ; inline
-: GL_VERTEX_ARRAY_STRIDE HEX: 807C ; inline
-: GL_NORMAL_ARRAY_TYPE HEX: 807E ; inline
-: GL_NORMAL_ARRAY_STRIDE HEX: 807F ; inline
-: GL_COLOR_ARRAY_SIZE HEX: 8081 ; inline
-: GL_COLOR_ARRAY_TYPE HEX: 8082 ; inline
-: GL_COLOR_ARRAY_STRIDE HEX: 8083 ; inline
-: GL_INDEX_ARRAY_TYPE HEX: 8085 ; inline
-: GL_INDEX_ARRAY_STRIDE HEX: 8086 ; inline
-: GL_TEXTURE_COORD_ARRAY_SIZE HEX: 8088 ; inline
-: GL_TEXTURE_COORD_ARRAY_TYPE HEX: 8089 ; inline
-: GL_TEXTURE_COORD_ARRAY_STRIDE HEX: 808A ; inline
-: GL_EDGE_FLAG_ARRAY_STRIDE HEX: 808C ; inline
-: GL_VERTEX_ARRAY_POINTER HEX: 808E ; inline
-: GL_NORMAL_ARRAY_POINTER HEX: 808F ; inline
-: GL_COLOR_ARRAY_POINTER HEX: 8090 ; inline
-: GL_INDEX_ARRAY_POINTER HEX: 8091 ; inline
-: GL_TEXTURE_COORD_ARRAY_POINTER HEX: 8092 ; inline
-: GL_EDGE_FLAG_ARRAY_POINTER HEX: 8093 ; inline
-: GL_V2F HEX: 2A20 ; inline
-: GL_V3F HEX: 2A21 ; inline
-: GL_C4UB_V2F HEX: 2A22 ; inline
-: GL_C4UB_V3F HEX: 2A23 ; inline
-: GL_C3F_V3F HEX: 2A24 ; inline
-: GL_N3F_V3F HEX: 2A25 ; inline
-: GL_C4F_N3F_V3F HEX: 2A26 ; inline
-: GL_T2F_V3F HEX: 2A27 ; inline
-: GL_T4F_V4F HEX: 2A28 ; inline
-: GL_T2F_C4UB_V3F HEX: 2A29 ; inline
-: GL_T2F_C3F_V3F HEX: 2A2A ; inline
-: GL_T2F_N3F_V3F HEX: 2A2B ; inline
-: GL_T2F_C4F_N3F_V3F HEX: 2A2C ; inline
-: GL_T4F_C4F_N3F_V4F HEX: 2A2D ; inline
-
-! Matrix mode
-: GL_MATRIX_MODE HEX: 0BA0 ; inline
-: GL_MODELVIEW HEX: 1700 ; inline
-: GL_PROJECTION HEX: 1701 ; inline
-: GL_TEXTURE HEX: 1702 ; inline
-
-! Points
-: GL_POINT_SMOOTH HEX: 0B10 ; inline
-: GL_POINT_SIZE HEX: 0B11 ; inline
-: GL_POINT_SIZE_GRANULARITY HEX: 0B13 ; inline
-: GL_POINT_SIZE_RANGE HEX: 0B12 ; inline
-
-! Lines
-: GL_LINE_SMOOTH HEX: 0B20 ; inline
-: GL_LINE_STIPPLE HEX: 0B24 ; inline
-: GL_LINE_STIPPLE_PATTERN HEX: 0B25 ; inline
-: GL_LINE_STIPPLE_REPEAT HEX: 0B26 ; inline
-: GL_LINE_WIDTH HEX: 0B21 ; inline
-: GL_LINE_WIDTH_GRANULARITY HEX: 0B23 ; inline
-: GL_LINE_WIDTH_RANGE HEX: 0B22 ; inline
-
-! Polygons
-: GL_POINT HEX: 1B00 ; inline
-: GL_LINE HEX: 1B01 ; inline
-: GL_FILL HEX: 1B02 ; inline
-: GL_CW HEX: 0900 ; inline
-: GL_CCW HEX: 0901 ; inline
-: GL_FRONT HEX: 0404 ; inline
-: GL_BACK HEX: 0405 ; inline
-: GL_POLYGON_MODE HEX: 0B40 ; inline
-: GL_POLYGON_SMOOTH HEX: 0B41 ; inline
-: GL_POLYGON_STIPPLE HEX: 0B42 ; inline
-: GL_EDGE_FLAG HEX: 0B43 ; inline
-: GL_CULL_FACE HEX: 0B44 ; inline
-: GL_CULL_FACE_MODE HEX: 0B45 ; inline
-: GL_FRONT_FACE HEX: 0B46 ; inline
-: GL_POLYGON_OFFSET_FACTOR HEX: 8038 ; inline
-: GL_POLYGON_OFFSET_UNITS HEX: 2A00 ; inline
-: GL_POLYGON_OFFSET_POINT HEX: 2A01 ; inline
-: GL_POLYGON_OFFSET_LINE HEX: 2A02 ; inline
-: GL_POLYGON_OFFSET_FILL HEX: 8037 ; inline
-
-! Display Lists
-: GL_COMPILE HEX: 1300 ; inline
-: GL_COMPILE_AND_EXECUTE HEX: 1301 ; inline
-: GL_LIST_BASE HEX: 0B32 ; inline
-: GL_LIST_INDEX HEX: 0B33 ; inline
-: GL_LIST_MODE HEX: 0B30 ; inline
-
-! Depth buffer
-: GL_NEVER HEX: 0200 ; inline
-: GL_LESS HEX: 0201 ; inline
-: GL_EQUAL HEX: 0202 ; inline
-: GL_LEQUAL HEX: 0203 ; inline
-: GL_GREATER HEX: 0204 ; inline
-: GL_NOTEQUAL HEX: 0205 ; inline
-: GL_GEQUAL HEX: 0206 ; inline
-: GL_ALWAYS HEX: 0207 ; inline
-: GL_DEPTH_TEST HEX: 0B71 ; inline
-: GL_DEPTH_BITS HEX: 0D56 ; inline
-: GL_DEPTH_CLEAR_VALUE HEX: 0B73 ; inline
-: GL_DEPTH_FUNC HEX: 0B74 ; inline
-: GL_DEPTH_RANGE HEX: 0B70 ; inline
-: GL_DEPTH_WRITEMASK HEX: 0B72 ; inline
-: GL_DEPTH_COMPONENT HEX: 1902 ; inline
-
-! Lighting
-: GL_LIGHTING HEX: 0B50 ; inline
-: GL_LIGHT0 HEX: 4000 ; inline
-: GL_LIGHT1 HEX: 4001 ; inline
-: GL_LIGHT2 HEX: 4002 ; inline
-: GL_LIGHT3 HEX: 4003 ; inline
-: GL_LIGHT4 HEX: 4004 ; inline
-: GL_LIGHT5 HEX: 4005 ; inline
-: GL_LIGHT6 HEX: 4006 ; inline
-: GL_LIGHT7 HEX: 4007 ; inline
-: GL_SPOT_EXPONENT HEX: 1205 ; inline
-: GL_SPOT_CUTOFF HEX: 1206 ; inline
-: GL_CONSTANT_ATTENUATION HEX: 1207 ; inline
-: GL_LINEAR_ATTENUATION HEX: 1208 ; inline
-: GL_QUADRATIC_ATTENUATION HEX: 1209 ; inline
-: GL_AMBIENT HEX: 1200 ; inline
-: GL_DIFFUSE HEX: 1201 ; inline
-: GL_SPECULAR HEX: 1202 ; inline
-: GL_SHININESS HEX: 1601 ; inline
-: GL_EMISSION HEX: 1600 ; inline
-: GL_POSITION HEX: 1203 ; inline
-: GL_SPOT_DIRECTION HEX: 1204 ; inline
-: GL_AMBIENT_AND_DIFFUSE HEX: 1602 ; inline
-: GL_COLOR_INDEXES HEX: 1603 ; inline
-: GL_LIGHT_MODEL_TWO_SIDE HEX: 0B52 ; inline
-: GL_LIGHT_MODEL_LOCAL_VIEWER HEX: 0B51 ; inline
-: GL_LIGHT_MODEL_AMBIENT HEX: 0B53 ; inline
-: GL_FRONT_AND_BACK HEX: 0408 ; inline
-: GL_SHADE_MODEL HEX: 0B54 ; inline
-: GL_FLAT HEX: 1D00 ; inline
-: GL_SMOOTH HEX: 1D01 ; inline
-: GL_COLOR_MATERIAL HEX: 0B57 ; inline
-: GL_COLOR_MATERIAL_FACE HEX: 0B55 ; inline
-: GL_COLOR_MATERIAL_PARAMETER HEX: 0B56 ; inline
-: GL_NORMALIZE HEX: 0BA1 ; inline
-
-! User clipping planes
-: GL_CLIP_PLANE0 HEX: 3000 ; inline
-: GL_CLIP_PLANE1 HEX: 3001 ; inline
-: GL_CLIP_PLANE2 HEX: 3002 ; inline
-: GL_CLIP_PLANE3 HEX: 3003 ; inline
-: GL_CLIP_PLANE4 HEX: 3004 ; inline
-: GL_CLIP_PLANE5 HEX: 3005 ; inline
-
-! Accumulation buffer
-: GL_ACCUM_RED_BITS HEX: 0D58 ; inline
-: GL_ACCUM_GREEN_BITS HEX: 0D59 ; inline
-: GL_ACCUM_BLUE_BITS HEX: 0D5A ; inline
-: GL_ACCUM_ALPHA_BITS HEX: 0D5B ; inline
-: GL_ACCUM_CLEAR_VALUE HEX: 0B80 ; inline
-: GL_ACCUM HEX: 0100 ; inline
-: GL_ADD HEX: 0104 ; inline
-: GL_LOAD HEX: 0101 ; inline
-: GL_MULT HEX: 0103 ; inline
-: GL_RETURN HEX: 0102 ; inline
-
-! Alpha testing
-: GL_ALPHA_TEST HEX: 0BC0 ; inline
-: GL_ALPHA_TEST_REF HEX: 0BC2 ; inline
-: GL_ALPHA_TEST_FUNC HEX: 0BC1 ; inline
-
-! Blending
-: GL_BLEND HEX: 0BE2 ; inline
-: GL_BLEND_SRC HEX: 0BE1 ; inline
-: GL_BLEND_DST HEX: 0BE0 ; inline
-: GL_ZERO HEX: 0 ; inline
-: GL_ONE HEX: 1 ; inline
-: GL_SRC_COLOR HEX: 0300 ; inline
-: GL_ONE_MINUS_SRC_COLOR HEX: 0301 ; inline
-: GL_SRC_ALPHA HEX: 0302 ; inline
-: GL_ONE_MINUS_SRC_ALPHA HEX: 0303 ; inline
-: GL_DST_ALPHA HEX: 0304 ; inline
-: GL_ONE_MINUS_DST_ALPHA HEX: 0305 ; inline
-: GL_DST_COLOR HEX: 0306 ; inline
-: GL_ONE_MINUS_DST_COLOR HEX: 0307 ; inline
-: GL_SRC_ALPHA_SATURATE HEX: 0308 ; inline
-
-! Render Mode
-: GL_FEEDBACK HEX: 1C01 ; inline
-: GL_RENDER HEX: 1C00 ; inline
-: GL_SELECT HEX: 1C02 ; inline
-
-! Feedback
-: GL_2D HEX: 0600 ; inline
-: GL_3D HEX: 0601 ; inline
-: GL_3D_COLOR HEX: 0602 ; inline
-: GL_3D_COLOR_TEXTURE HEX: 0603 ; inline
-: GL_4D_COLOR_TEXTURE HEX: 0604 ; inline
-: GL_POINT_TOKEN HEX: 0701 ; inline
-: GL_LINE_TOKEN HEX: 0702 ; inline
-: GL_LINE_RESET_TOKEN HEX: 0707 ; inline
-: GL_POLYGON_TOKEN HEX: 0703 ; inline
-: GL_BITMAP_TOKEN HEX: 0704 ; inline
-: GL_DRAW_PIXEL_TOKEN HEX: 0705 ; inline
-: GL_COPY_PIXEL_TOKEN HEX: 0706 ; inline
-: GL_PASS_THROUGH_TOKEN HEX: 0700 ; inline
-: GL_FEEDBACK_BUFFER_POINTER HEX: 0DF0 ; inline
-: GL_FEEDBACK_BUFFER_SIZE HEX: 0DF1 ; inline
-: GL_FEEDBACK_BUFFER_TYPE HEX: 0DF2 ; inline
-
-! Selection
-: GL_SELECTION_BUFFER_POINTER HEX: 0DF3 ; inline
-: GL_SELECTION_BUFFER_SIZE HEX: 0DF4 ; inline
-
-! Fog
-: GL_FOG HEX: 0B60 ; inline
-: GL_FOG_MODE HEX: 0B65 ; inline
-: GL_FOG_DENSITY HEX: 0B62 ; inline
-: GL_FOG_COLOR HEX: 0B66 ; inline
-: GL_FOG_INDEX HEX: 0B61 ; inline
-: GL_FOG_START HEX: 0B63 ; inline
-: GL_FOG_END HEX: 0B64 ; inline
-: GL_LINEAR HEX: 2601 ; inline
-: GL_EXP HEX: 0800 ; inline
-: GL_EXP2 HEX: 0801 ; inline
-
-! Logic Ops
-: GL_LOGIC_OP HEX: 0BF1 ; inline
-: GL_INDEX_LOGIC_OP HEX: 0BF1 ; inline
-: GL_COLOR_LOGIC_OP HEX: 0BF2 ; inline
-: GL_LOGIC_OP_MODE HEX: 0BF0 ; inline
-: GL_CLEAR HEX: 1500 ; inline
-: GL_SET HEX: 150F ; inline
-: GL_COPY HEX: 1503 ; inline
-: GL_COPY_INVERTED HEX: 150C ; inline
-: GL_NOOP HEX: 1505 ; inline
-: GL_INVERT HEX: 150A ; inline
-: GL_AND HEX: 1501 ; inline
-: GL_NAND HEX: 150E ; inline
-: GL_OR HEX: 1507 ; inline
-: GL_NOR HEX: 1508 ; inline
-: GL_XOR HEX: 1506 ; inline
-: GL_EQUIV HEX: 1509 ; inline
-: GL_AND_REVERSE HEX: 1502 ; inline
-: GL_AND_INVERTED HEX: 1504 ; inline
-: GL_OR_REVERSE HEX: 150B ; inline
-: GL_OR_INVERTED HEX: 150D ; inline
-
-! Stencil
-: GL_STENCIL_TEST HEX: 0B90 ; inline
-: GL_STENCIL_WRITEMASK HEX: 0B98 ; inline
-: GL_STENCIL_BITS HEX: 0D57 ; inline
-: GL_STENCIL_FUNC HEX: 0B92 ; inline
-: GL_STENCIL_VALUE_MASK HEX: 0B93 ; inline
-: GL_STENCIL_REF HEX: 0B97 ; inline
-: GL_STENCIL_FAIL HEX: 0B94 ; inline
-: GL_STENCIL_PASS_DEPTH_PASS HEX: 0B96 ; inline
-: GL_STENCIL_PASS_DEPTH_FAIL HEX: 0B95 ; inline
-: GL_STENCIL_CLEAR_VALUE HEX: 0B91 ; inline
-: GL_STENCIL_INDEX HEX: 1901 ; inline
-: GL_KEEP HEX: 1E00 ; inline
-: GL_REPLACE HEX: 1E01 ; inline
-: GL_INCR HEX: 1E02 ; inline
-: GL_DECR HEX: 1E03 ; inline
-
-! Buffers, Pixel Drawing/Reading
-: GL_NONE HEX: 0 ; inline
-: GL_LEFT HEX: 0406 ; inline
-: GL_RIGHT HEX: 0407 ; inline
-! defined elsewhere
-! GL_FRONT HEX: 0404
-! GL_BACK HEX: 0405
-! GL_FRONT_AND_BACK HEX: 0408
-: GL_FRONT_LEFT HEX: 0400 ; inline
-: GL_FRONT_RIGHT HEX: 0401 ; inline
-: GL_BACK_LEFT HEX: 0402 ; inline
-: GL_BACK_RIGHT HEX: 0403 ; inline
-: GL_AUX0 HEX: 0409 ; inline
-: GL_AUX1 HEX: 040A ; inline
-: GL_AUX2 HEX: 040B ; inline
-: GL_AUX3 HEX: 040C ; inline
-: GL_COLOR_INDEX HEX: 1900 ; inline
-: GL_RED HEX: 1903 ; inline
-: GL_GREEN HEX: 1904 ; inline
-: GL_BLUE HEX: 1905 ; inline
-: GL_ALPHA HEX: 1906 ; inline
-: GL_LUMINANCE HEX: 1909 ; inline
-: GL_LUMINANCE_ALPHA HEX: 190A ; inline
-: GL_ALPHA_BITS HEX: 0D55 ; inline
-: GL_RED_BITS HEX: 0D52 ; inline
-: GL_GREEN_BITS HEX: 0D53 ; inline
-: GL_BLUE_BITS HEX: 0D54 ; inline
-: GL_INDEX_BITS HEX: 0D51 ; inline
-: GL_SUBPIXEL_BITS HEX: 0D50 ; inline
-: GL_AUX_BUFFERS HEX: 0C00 ; inline
-: GL_READ_BUFFER HEX: 0C02 ; inline
-: GL_DRAW_BUFFER HEX: 0C01 ; inline
-: GL_DOUBLEBUFFER HEX: 0C32 ; inline
-: GL_STEREO HEX: 0C33 ; inline
-: GL_BITMAP HEX: 1A00 ; inline
-: GL_COLOR HEX: 1800 ; inline
-: GL_DEPTH HEX: 1801 ; inline
-: GL_STENCIL HEX: 1802 ; inline
-: GL_DITHER HEX: 0BD0 ; inline
-: GL_RGB HEX: 1907 ; inline
-: GL_RGBA HEX: 1908 ; inline
-
-! Implementation limits
-: GL_MAX_LIST_NESTING HEX: 0B31 ; inline
-: GL_MAX_ATTRIB_STACK_DEPTH HEX: 0D35 ; inline
-: GL_MAX_MODELVIEW_STACK_DEPTH HEX: 0D36 ; inline
-: GL_MAX_NAME_STACK_DEPTH HEX: 0D37 ; inline
-: GL_MAX_PROJECTION_STACK_DEPTH HEX: 0D38 ; inline
-: GL_MAX_TEXTURE_STACK_DEPTH HEX: 0D39 ; inline
-: GL_MAX_EVAL_ORDER HEX: 0D30 ; inline
-: GL_MAX_LIGHTS HEX: 0D31 ; inline
-: GL_MAX_CLIP_PLANES HEX: 0D32 ; inline
-: GL_MAX_TEXTURE_SIZE HEX: 0D33 ; inline
-: GL_MAX_PIXEL_MAP_TABLE HEX: 0D34 ; inline
-: GL_MAX_VIEWPORT_DIMS HEX: 0D3A ; inline
-: GL_MAX_CLIENT_ATTRIB_STACK_DEPTH HEX: 0D3B ; inline
-
-! Gets
-: GL_ATTRIB_STACK_DEPTH HEX: 0BB0 ; inline
-: GL_CLIENT_ATTRIB_STACK_DEPTH HEX: 0BB1 ; inline
-: GL_COLOR_CLEAR_VALUE HEX: 0C22 ; inline
-: GL_COLOR_WRITEMASK HEX: 0C23 ; inline
-: GL_CURRENT_INDEX HEX: 0B01 ; inline
-: GL_CURRENT_COLOR HEX: 0B00 ; inline
-: GL_CURRENT_NORMAL HEX: 0B02 ; inline
-: GL_CURRENT_RASTER_COLOR HEX: 0B04 ; inline
-: GL_CURRENT_RASTER_DISTANCE HEX: 0B09 ; inline
-: GL_CURRENT_RASTER_INDEX HEX: 0B05 ; inline
-: GL_CURRENT_RASTER_POSITION HEX: 0B07 ; inline
-: GL_CURRENT_RASTER_TEXTURE_COORDS HEX: 0B06 ; inline
-: GL_CURRENT_RASTER_POSITION_VALID HEX: 0B08 ; inline
-: GL_CURRENT_TEXTURE_COORDS HEX: 0B03 ; inline
-: GL_INDEX_CLEAR_VALUE HEX: 0C20 ; inline
-: GL_INDEX_MODE HEX: 0C30 ; inline
-: GL_INDEX_WRITEMASK HEX: 0C21 ; inline
-: GL_MODELVIEW_MATRIX HEX: 0BA6 ; inline
-: GL_MODELVIEW_STACK_DEPTH HEX: 0BA3 ; inline
-: GL_NAME_STACK_DEPTH HEX: 0D70 ; inline
-: GL_PROJECTION_MATRIX HEX: 0BA7 ; inline
-: GL_PROJECTION_STACK_DEPTH HEX: 0BA4 ; inline
-: GL_RENDER_MODE HEX: 0C40 ; inline
-: GL_RGBA_MODE HEX: 0C31 ; inline
-: GL_TEXTURE_MATRIX HEX: 0BA8 ; inline
-: GL_TEXTURE_STACK_DEPTH HEX: 0BA5 ; inline
-: GL_VIEWPORT HEX: 0BA2 ; inline
-
-! Evaluators inline
-: GL_AUTO_NORMAL HEX: 0D80 ; inline
-: GL_MAP1_COLOR_4 HEX: 0D90 ; inline
-: GL_MAP1_INDEX HEX: 0D91 ; inline
-: GL_MAP1_NORMAL HEX: 0D92 ; inline
-: GL_MAP1_TEXTURE_COORD_1 HEX: 0D93 ; inline
-: GL_MAP1_TEXTURE_COORD_2 HEX: 0D94 ; inline
-: GL_MAP1_TEXTURE_COORD_3 HEX: 0D95 ; inline
-: GL_MAP1_TEXTURE_COORD_4 HEX: 0D96 ; inline
-: GL_MAP1_VERTEX_3 HEX: 0D97 ; inline
-: GL_MAP1_VERTEX_4 HEX: 0D98 ; inline
-: GL_MAP2_COLOR_4 HEX: 0DB0 ; inline
-: GL_MAP2_INDEX HEX: 0DB1 ; inline
-: GL_MAP2_NORMAL HEX: 0DB2 ; inline
-: GL_MAP2_TEXTURE_COORD_1 HEX: 0DB3 ; inline
-: GL_MAP2_TEXTURE_COORD_2 HEX: 0DB4 ; inline
-: GL_MAP2_TEXTURE_COORD_3 HEX: 0DB5 ; inline
-: GL_MAP2_TEXTURE_COORD_4 HEX: 0DB6 ; inline
-: GL_MAP2_VERTEX_3 HEX: 0DB7 ; inline
-: GL_MAP2_VERTEX_4 HEX: 0DB8 ; inline
-: GL_MAP1_GRID_DOMAIN HEX: 0DD0 ; inline
-: GL_MAP1_GRID_SEGMENTS HEX: 0DD1 ; inline
-: GL_MAP2_GRID_DOMAIN HEX: 0DD2 ; inline
-: GL_MAP2_GRID_SEGMENTS HEX: 0DD3 ; inline
-: GL_COEFF HEX: 0A00 ; inline
-: GL_DOMAIN HEX: 0A02 ; inline
-: GL_ORDER HEX: 0A01 ; inline
-
-! Hints inline
-: GL_FOG_HINT HEX: 0C54 ; inline
-: GL_LINE_SMOOTH_HINT HEX: 0C52 ; inline
-: GL_PERSPECTIVE_CORRECTION_HINT HEX: 0C50 ; inline
-: GL_POINT_SMOOTH_HINT HEX: 0C51 ; inline
-: GL_POLYGON_SMOOTH_HINT HEX: 0C53 ; inline
-: GL_DONT_CARE HEX: 1100 ; inline
-: GL_FASTEST HEX: 1101 ; inline
-: GL_NICEST HEX: 1102 ; inline
-
-! Scissor box inline
-: GL_SCISSOR_TEST HEX: 0C11 ; inline
-: GL_SCISSOR_BOX HEX: 0C10 ; inline
-
-! Pixel Mode / Transfer inline
-: GL_MAP_COLOR HEX: 0D10 ; inline
-: GL_MAP_STENCIL HEX: 0D11 ; inline
-: GL_INDEX_SHIFT HEX: 0D12 ; inline
-: GL_INDEX_OFFSET HEX: 0D13 ; inline
-: GL_RED_SCALE HEX: 0D14 ; inline
-: GL_RED_BIAS HEX: 0D15 ; inline
-: GL_GREEN_SCALE HEX: 0D18 ; inline
-: GL_GREEN_BIAS HEX: 0D19 ; inline
-: GL_BLUE_SCALE HEX: 0D1A ; inline
-: GL_BLUE_BIAS HEX: 0D1B ; inline
-: GL_ALPHA_SCALE HEX: 0D1C ; inline
-: GL_ALPHA_BIAS HEX: 0D1D ; inline
-: GL_DEPTH_SCALE HEX: 0D1E ; inline
-: GL_DEPTH_BIAS HEX: 0D1F ; inline
-: GL_PIXEL_MAP_S_TO_S_SIZE HEX: 0CB1 ; inline
-: GL_PIXEL_MAP_I_TO_I_SIZE HEX: 0CB0 ; inline
-: GL_PIXEL_MAP_I_TO_R_SIZE HEX: 0CB2 ; inline
-: GL_PIXEL_MAP_I_TO_G_SIZE HEX: 0CB3 ; inline
-: GL_PIXEL_MAP_I_TO_B_SIZE HEX: 0CB4 ; inline
-: GL_PIXEL_MAP_I_TO_A_SIZE HEX: 0CB5 ; inline
-: GL_PIXEL_MAP_R_TO_R_SIZE HEX: 0CB6 ; inline
-: GL_PIXEL_MAP_G_TO_G_SIZE HEX: 0CB7 ; inline
-: GL_PIXEL_MAP_B_TO_B_SIZE HEX: 0CB8 ; inline
-: GL_PIXEL_MAP_A_TO_A_SIZE HEX: 0CB9 ; inline
-: GL_PIXEL_MAP_S_TO_S HEX: 0C71 ; inline
-: GL_PIXEL_MAP_I_TO_I HEX: 0C70 ; inline
-: GL_PIXEL_MAP_I_TO_R HEX: 0C72 ; inline
-: GL_PIXEL_MAP_I_TO_G HEX: 0C73 ; inline
-: GL_PIXEL_MAP_I_TO_B HEX: 0C74 ; inline
-: GL_PIXEL_MAP_I_TO_A HEX: 0C75 ; inline
-: GL_PIXEL_MAP_R_TO_R HEX: 0C76 ; inline
-: GL_PIXEL_MAP_G_TO_G HEX: 0C77 ; inline
-: GL_PIXEL_MAP_B_TO_B HEX: 0C78 ; inline
-: GL_PIXEL_MAP_A_TO_A HEX: 0C79 ; inline
-: GL_PACK_ALIGNMENT HEX: 0D05 ; inline
-: GL_PACK_LSB_FIRST HEX: 0D01 ; inline
-: GL_PACK_ROW_LENGTH HEX: 0D02 ; inline
-: GL_PACK_SKIP_PIXELS HEX: 0D04 ; inline
-: GL_PACK_SKIP_ROWS HEX: 0D03 ; inline
-: GL_PACK_SWAP_BYTES HEX: 0D00 ; inline
-: GL_UNPACK_ALIGNMENT HEX: 0CF5 ; inline
-: GL_UNPACK_LSB_FIRST HEX: 0CF1 ; inline
-: GL_UNPACK_ROW_LENGTH HEX: 0CF2 ; inline
-: GL_UNPACK_SKIP_PIXELS HEX: 0CF4 ; inline
-: GL_UNPACK_SKIP_ROWS HEX: 0CF3 ; inline
-: GL_UNPACK_SWAP_BYTES HEX: 0CF0 ; inline
-: GL_ZOOM_X HEX: 0D16 ; inline
-: GL_ZOOM_Y HEX: 0D17 ; inline
-
-! Texture mapping inline
-: GL_TEXTURE_ENV HEX: 2300 ; inline
-: GL_TEXTURE_ENV_MODE HEX: 2200 ; inline
-: GL_TEXTURE_1D HEX: 0DE0 ; inline
-: GL_TEXTURE_2D HEX: 0DE1 ; inline
-: GL_TEXTURE_WRAP_S HEX: 2802 ; inline
-: GL_TEXTURE_WRAP_T HEX: 2803 ; inline
-: GL_TEXTURE_MAG_FILTER HEX: 2800 ; inline
-: GL_TEXTURE_MIN_FILTER HEX: 2801 ; inline
-: GL_TEXTURE_ENV_COLOR HEX: 2201 ; inline
-: GL_TEXTURE_GEN_S HEX: 0C60 ; inline
-: GL_TEXTURE_GEN_T HEX: 0C61 ; inline
-: GL_TEXTURE_GEN_MODE HEX: 2500 ; inline
-: GL_TEXTURE_BORDER_COLOR HEX: 1004 ; inline
-: GL_TEXTURE_WIDTH HEX: 1000 ; inline
-: GL_TEXTURE_HEIGHT HEX: 1001 ; inline
-: GL_TEXTURE_BORDER HEX: 1005 ; inline
-: GL_TEXTURE_COMPONENTS HEX: 1003 ; inline
-: GL_TEXTURE_RED_SIZE HEX: 805C ; inline
-: GL_TEXTURE_GREEN_SIZE HEX: 805D ; inline
-: GL_TEXTURE_BLUE_SIZE HEX: 805E ; inline
-: GL_TEXTURE_ALPHA_SIZE HEX: 805F ; inline
-: GL_TEXTURE_LUMINANCE_SIZE HEX: 8060 ; inline
-: GL_TEXTURE_INTENSITY_SIZE HEX: 8061 ; inline
-: GL_NEAREST_MIPMAP_NEAREST HEX: 2700 ; inline
-: GL_NEAREST_MIPMAP_LINEAR HEX: 2702 ; inline
-: GL_LINEAR_MIPMAP_NEAREST HEX: 2701 ; inline
-: GL_LINEAR_MIPMAP_LINEAR HEX: 2703 ; inline
-: GL_OBJECT_LINEAR HEX: 2401 ; inline
-: GL_OBJECT_PLANE HEX: 2501 ; inline
-: GL_EYE_LINEAR HEX: 2400 ; inline
-: GL_EYE_PLANE HEX: 2502 ; inline
-: GL_SPHERE_MAP HEX: 2402 ; inline
-: GL_DECAL HEX: 2101 ; inline
-: GL_MODULATE HEX: 2100 ; inline
-: GL_NEAREST HEX: 2600 ; inline
-: GL_REPEAT HEX: 2901 ; inline
-: GL_CLAMP HEX: 2900 ; inline
-: GL_S HEX: 2000 ; inline
-: GL_T HEX: 2001 ; inline
-: GL_R HEX: 2002 ; inline
-: GL_Q HEX: 2003 ; inline
-: GL_TEXTURE_GEN_R HEX: 0C62 ; inline
-: GL_TEXTURE_GEN_Q HEX: 0C63 ; inline
-
-! Utility inline
-: GL_VENDOR HEX: 1F00 ; inline
-: GL_RENDERER HEX: 1F01 ; inline
-: GL_VERSION HEX: 1F02 ; inline
-: GL_EXTENSIONS HEX: 1F03 ; inline
-
-! Errors inline
-: GL_NO_ERROR HEX: 0 ; inline
-: GL_INVALID_VALUE HEX: 0501 ; inline
-: GL_INVALID_ENUM HEX: 0500 ; inline
-: GL_INVALID_OPERATION HEX: 0502 ; inline
-: GL_STACK_OVERFLOW HEX: 0503 ; inline
-: GL_STACK_UNDERFLOW HEX: 0504 ; inline
-: GL_OUT_OF_MEMORY HEX: 0505 ; inline
-
-! glPush/PopAttrib bits
-: GL_CURRENT_BIT HEX: 00000001 ; inline
-: GL_POINT_BIT HEX: 00000002 ; inline
-: GL_LINE_BIT HEX: 00000004 ; inline
-: GL_POLYGON_BIT HEX: 00000008 ; inline
-: GL_POLYGON_STIPPLE_BIT HEX: 00000010 ; inline
-: GL_PIXEL_MODE_BIT HEX: 00000020 ; inline
-: GL_LIGHTING_BIT HEX: 00000040 ; inline
-: GL_FOG_BIT HEX: 00000080 ; inline
-: GL_DEPTH_BUFFER_BIT HEX: 00000100 ; inline
-: GL_ACCUM_BUFFER_BIT HEX: 00000200 ; inline
-: GL_STENCIL_BUFFER_BIT HEX: 00000400 ; inline
-: GL_VIEWPORT_BIT HEX: 00000800 ; inline
-: GL_TRANSFORM_BIT HEX: 00001000 ; inline
-: GL_ENABLE_BIT HEX: 00002000 ; inline
-: GL_COLOR_BUFFER_BIT HEX: 00004000 ; inline
-: GL_HINT_BIT HEX: 00008000 ; inline
-: GL_EVAL_BIT HEX: 00010000 ; inline
-: GL_LIST_BIT HEX: 00020000 ; inline
-: GL_TEXTURE_BIT HEX: 00040000 ; inline
-: GL_SCISSOR_BIT HEX: 00080000 ; inline
-: GL_ALL_ATTRIB_BITS HEX: 000FFFFF ; inline
-
-! OpenGL 1.1
-: GL_PROXY_TEXTURE_1D HEX: 8063 ; inline
-: GL_PROXY_TEXTURE_2D HEX: 8064 ; inline
-: GL_TEXTURE_PRIORITY HEX: 8066 ; inline
-: GL_TEXTURE_RESIDENT HEX: 8067 ; inline
-: GL_TEXTURE_BINDING_1D HEX: 8068 ; inline
-: GL_TEXTURE_BINDING_2D HEX: 8069 ; inline
-: GL_TEXTURE_INTERNAL_FORMAT HEX: 1003 ; inline
-: GL_ALPHA4 HEX: 803B ; inline
-: GL_ALPHA8 HEX: 803C ; inline
-: GL_ALPHA12 HEX: 803D ; inline
-: GL_ALPHA16 HEX: 803E ; inline
-: GL_LUMINANCE4 HEX: 803F ; inline
-: GL_LUMINANCE8 HEX: 8040 ; inline
-: GL_LUMINANCE12 HEX: 8041 ; inline
-: GL_LUMINANCE16 HEX: 8042 ; inline
-: GL_LUMINANCE4_ALPHA4 HEX: 8043 ; inline
-: GL_LUMINANCE6_ALPHA2 HEX: 8044 ; inline
-: GL_LUMINANCE8_ALPHA8 HEX: 8045 ; inline
-: GL_LUMINANCE12_ALPHA4 HEX: 8046 ; inline
-: GL_LUMINANCE12_ALPHA12 HEX: 8047 ; inline
-: GL_LUMINANCE16_ALPHA16 HEX: 8048 ; inline
-: GL_INTENSITY HEX: 8049 ; inline
-: GL_INTENSITY4 HEX: 804A ; inline
-: GL_INTENSITY8 HEX: 804B ; inline
-: GL_INTENSITY12 HEX: 804C ; inline
-: GL_INTENSITY16 HEX: 804D ; inline
-: GL_R3_G3_B2 HEX: 2A10 ; inline
-: GL_RGB4 HEX: 804F ; inline
-: GL_RGB5 HEX: 8050 ; inline
-: GL_RGB8 HEX: 8051 ; inline
-: GL_RGB10 HEX: 8052 ; inline
-: GL_RGB12 HEX: 8053 ; inline
-: GL_RGB16 HEX: 8054 ; inline
-: GL_RGBA2 HEX: 8055 ; inline
-: GL_RGBA4 HEX: 8056 ; inline
-: GL_RGB5_A1 HEX: 8057 ; inline
-: GL_RGBA8 HEX: 8058 ; inline
-: GL_RGB10_A2 HEX: 8059 ; inline
-: GL_RGBA12 HEX: 805A ; inline
-: GL_RGBA16 HEX: 805B ; inline
-: GL_CLIENT_PIXEL_STORE_BIT HEX: 00000001 ; inline
-: GL_CLIENT_VERTEX_ARRAY_BIT HEX: 00000002 ; inline
-: GL_ALL_CLIENT_ATTRIB_BITS HEX: FFFFFFFF ; inline
-: GL_CLIENT_ALL_ATTRIB_BITS HEX: FFFFFFFF ; inline
-
-LIBRARY: gl
-
-! Miscellaneous
-
-FUNCTION: void glClearIndex ( GLfloat c ) ;
-FUNCTION: void glClearColor ( GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha ) ;
-FUNCTION: void glClear ( GLbitfield mask ) ;
-FUNCTION: void glIndexMask ( GLuint mask ) ;
-FUNCTION: void glColorMask ( GLboolean red, GLboolean green, GLboolean blue, GLboolean alpha ) ;
-FUNCTION: void glAlphaFunc ( GLenum func, GLclampf ref ) ;
-FUNCTION: void glBlendFunc ( GLenum sfactor, GLenum dfactor ) ;
-FUNCTION: void glLogicOp ( GLenum opcode ) ;
-FUNCTION: void glCullFace ( GLenum mode ) ;
-FUNCTION: void glFrontFace ( GLenum mode ) ;
-FUNCTION: void glPointSize ( GLfloat size ) ;
-FUNCTION: void glLineWidth ( GLfloat width ) ;
-FUNCTION: void glLineStipple ( GLint factor, GLushort pattern ) ;
-FUNCTION: void glPolygonMode ( GLenum face, GLenum mode ) ;
-FUNCTION: void glPolygonOffset ( GLfloat factor, GLfloat units ) ;
-FUNCTION: void glPolygonStipple ( GLubyte* mask ) ;
-FUNCTION: void glGetPolygonStipple ( GLubyte* mask ) ;
-FUNCTION: void glEdgeFlag ( GLboolean flag ) ;
-FUNCTION: void glEdgeFlagv ( GLboolean* flag ) ;
-FUNCTION: void glScissor ( GLint x, GLint y, GLsizei width, GLsizei height ) ;
-FUNCTION: void glClipPlane ( GLenum plane, GLdouble* equation ) ;
-FUNCTION: void glGetClipPlane ( GLenum plane, GLdouble* equation ) ;
-FUNCTION: void glDrawBuffer ( GLenum mode ) ;
-FUNCTION: void glReadBuffer ( GLenum mode ) ;
-FUNCTION: void glEnable ( GLenum cap ) ;
-FUNCTION: void glDisable ( GLenum cap ) ;
-FUNCTION: GLboolean glIsEnabled ( GLenum cap ) ;
-
-FUNCTION: void glEnableClientState ( GLenum cap ) ;
-FUNCTION: void glDisableClientState ( GLenum cap ) ;
-FUNCTION: void glGetBooleanv ( GLenum pname, GLboolean* params ) ;
-FUNCTION: void glGetDoublev ( GLenum pname, GLdouble* params ) ;
-FUNCTION: void glGetFloatv ( GLenum pname, GLfloat* params ) ;
-FUNCTION: void glGetIntegerv ( GLenum pname, GLint* params ) ;
-
-FUNCTION: void glPushAttrib ( GLbitfield mask ) ;
-FUNCTION: void glPopAttrib ( ) ;
-
-FUNCTION: void glPushClientAttrib ( GLbitfield mask ) ;
-FUNCTION: void glPopClientAttrib ( ) ;
-
-FUNCTION: GLint glRenderMode ( GLenum mode ) ;
-FUNCTION: GLenum glGetError ( ) ;
-FUNCTION: char* glGetString ( GLenum name ) ;
-FUNCTION: void glFinish ( ) ;
-FUNCTION: void glFlush ( ) ;
-FUNCTION: void glHint ( GLenum target, GLenum mode ) ;
-
-FUNCTION: void glClearDepth ( GLclampd depth ) ;
-FUNCTION: void glDepthFunc ( GLenum func ) ;
-FUNCTION: void glDepthMask ( GLboolean flag ) ;
-FUNCTION: void glDepthRange ( GLclampd near_val, GLclampd far_val ) ;
-
-FUNCTION: void glClearAccum ( GLfloat red, GLfloat green, GLfloat blue, GLfloat alpha ) ;
-FUNCTION: void glAccum ( GLenum op, GLfloat value ) ;
-
-FUNCTION: void glMatrixMode ( GLenum mode ) ;
-FUNCTION: void glOrtho ( GLdouble left, GLdouble right, GLdouble bottom, GLdouble top,
- GLdouble near_val, GLdouble far_val ) ;
-FUNCTION: void glFrustum ( GLdouble left, GLdouble right, GLdouble bottom, GLdouble top,
- GLdouble near_val, GLdouble far_val ) ;
-FUNCTION: void glViewport ( GLint x, GLint y, GLsizei width, GLsizei height ) ;
-FUNCTION: void glPushMatrix ( ) ;
-FUNCTION: void glPopMatrix ( ) ;
-FUNCTION: void glLoadIdentity ( ) ;
-FUNCTION: void glLoadMatrixd ( GLdouble* m ) ;
-FUNCTION: void glLoadMatrixf ( GLfloat* m ) ;
-FUNCTION: void glMultMatrixd ( GLdouble* m ) ;
-FUNCTION: void glMultMatrixf ( GLfloat* m ) ;
-FUNCTION: void glRotated ( GLdouble angle, GLdouble x, GLdouble y, GLdouble z ) ;
-FUNCTION: void glRotatef ( GLfloat angle, GLfloat x, GLfloat y, GLfloat z ) ;
-FUNCTION: void glScaled ( GLdouble x, GLdouble y, GLdouble z ) ;
-FUNCTION: void glScalef ( GLfloat x, GLfloat y, GLfloat z ) ;
-FUNCTION: void glTranslated ( GLdouble x, GLdouble y, GLdouble z ) ;
-FUNCTION: void glTranslatef ( GLfloat x, GLfloat y, GLfloat z ) ;
-
-
-FUNCTION: GLboolean glIsList ( GLuint list ) ;
-FUNCTION: void glDeleteLists ( GLuint list, GLsizei range ) ;
-FUNCTION: GLuint glGenLists ( GLsizei range ) ;
-FUNCTION: void glNewList ( GLuint list, GLenum mode ) ;
-FUNCTION: void glEndList ( ) ;
-FUNCTION: void glCallList ( GLuint list ) ;
-FUNCTION: void glCallLists ( GLsizei n, GLenum type, GLvoid* lists ) ;
-FUNCTION: void glListBase ( GLuint base ) ;
-
-FUNCTION: void glBegin ( GLenum mode ) ;
-FUNCTION: void glEnd ( ) ;
-
-FUNCTION: void glVertex2d ( GLdouble x, GLdouble y ) ;
-FUNCTION: void glVertex2f ( GLfloat x, GLfloat y ) ;
-FUNCTION: void glVertex2i ( GLint x, GLint y ) ;
-FUNCTION: void glVertex2s ( GLshort x, GLshort y ) ;
-
-FUNCTION: void glVertex3d ( GLdouble x, GLdouble y, GLdouble z ) ;
-FUNCTION: void glVertex3f ( GLfloat x, GLfloat y, GLfloat z ) ;
-FUNCTION: void glVertex3i ( GLint x, GLint y, GLint z ) ;
-FUNCTION: void glVertex3s ( GLshort x, GLshort y, GLshort z ) ;
-
-FUNCTION: void glVertex4d ( GLdouble x, GLdouble y, GLdouble z, GLdouble w ) ;
-FUNCTION: void glVertex4f ( GLfloat x, GLfloat y, GLfloat z, GLfloat w ) ;
-FUNCTION: void glVertex4i ( GLint x, GLint y, GLint z, GLint w ) ;
-FUNCTION: void glVertex4s ( GLshort x, GLshort y, GLshort z, GLshort w ) ;
-
-FUNCTION: void glVertex2dv ( GLdouble* v ) ;
-FUNCTION: void glVertex2fv ( GLfloat* v ) ;
-FUNCTION: void glVertex2iv ( GLint* v ) ;
-FUNCTION: void glVertex2sv ( GLshort* v ) ;
-
-FUNCTION: void glVertex3dv ( GLdouble* v ) ;
-FUNCTION: void glVertex3fv ( GLfloat* v ) ;
-FUNCTION: void glVertex3iv ( GLint* v ) ;
-FUNCTION: void glVertex3sv ( GLshort* v ) ;
-
-FUNCTION: void glVertex4dv ( GLdouble* v ) ;
-FUNCTION: void glVertex4fv ( GLfloat* v ) ;
-FUNCTION: void glVertex4iv ( GLint* v ) ;
-FUNCTION: void glVertex4sv ( GLshort* v ) ;
-
-FUNCTION: void glNormal3b ( GLbyte nx, GLbyte ny, GLbyte nz ) ;
-FUNCTION: void glNormal3d ( GLdouble nx, GLdouble ny, GLdouble nz ) ;
-FUNCTION: void glNormal3f ( GLfloat nx, GLfloat ny, GLfloat nz ) ;
-FUNCTION: void glNormal3i ( GLint nx, GLint ny, GLint nz ) ;
-FUNCTION: void glNormal3s ( GLshort nx, GLshort ny, GLshort nz ) ;
-
-FUNCTION: void glNormal3bv ( GLbyte* v ) ;
-FUNCTION: void glNormal3dv ( GLdouble* v ) ;
-FUNCTION: void glNormal3fv ( GLfloat* v ) ;
-FUNCTION: void glNormal3iv ( GLint* v ) ;
-FUNCTION: void glNormal3sv ( GLshort* v ) ;
-
-FUNCTION: void glIndexd ( GLdouble c ) ;
-FUNCTION: void glIndexf ( GLfloat c ) ;
-FUNCTION: void glIndexi ( GLint c ) ;
-FUNCTION: void glIndexs ( GLshort c ) ;
-FUNCTION: void glIndexub ( GLubyte c ) ;
-
-FUNCTION: void glIndexdv ( GLdouble* c ) ;
-FUNCTION: void glIndexfv ( GLfloat* c ) ;
-FUNCTION: void glIndexiv ( GLint* c ) ;
-FUNCTION: void glIndexsv ( GLshort* c ) ;
-FUNCTION: void glIndexubv ( GLubyte* c ) ;
-
-FUNCTION: void glColor3b ( GLbyte red, GLbyte green, GLbyte blue ) ;
-FUNCTION: void glColor3d ( GLdouble red, GLdouble green, GLdouble blue ) ;
-FUNCTION: void glColor3f ( GLfloat red, GLfloat green, GLfloat blue ) ;
-FUNCTION: void glColor3i ( GLint red, GLint green, GLint blue ) ;
-FUNCTION: void glColor3s ( GLshort red, GLshort green, GLshort blue ) ;
-FUNCTION: void glColor3ub ( GLubyte red, GLubyte green, GLubyte blue ) ;
-FUNCTION: void glColor3ui ( GLuint red, GLuint green, GLuint blue ) ;
-FUNCTION: void glColor3us ( GLushort red, GLushort green, GLushort blue ) ;
-
-FUNCTION: void glColor4b ( GLbyte red, GLbyte green, GLbyte blue, GLbyte alpha ) ;
-FUNCTION: void glColor4d ( GLdouble red, GLdouble green, GLdouble blue, GLdouble alpha ) ;
-FUNCTION: void glColor4f ( GLfloat red, GLfloat green, GLfloat blue, GLfloat alpha ) ;
-FUNCTION: void glColor4i ( GLint red, GLint green, GLint blue, GLint alpha ) ;
-FUNCTION: void glColor4s ( GLshort red, GLshort green, GLshort blue, GLshort alpha ) ;
-FUNCTION: void glColor4ub ( GLubyte red, GLubyte green, GLubyte blue, GLubyte alpha ) ;
-FUNCTION: void glColor4ui ( GLuint red, GLuint green, GLuint blue, GLuint alpha ) ;
-FUNCTION: void glColor4us ( GLushort red, GLushort green, GLushort blue, GLushort alpha ) ;
-
-FUNCTION: void glColor3bv ( GLbyte* v ) ;
-FUNCTION: void glColor3dv ( GLdouble* v ) ;
-FUNCTION: void glColor3fv ( GLfloat* v ) ;
-FUNCTION: void glColor3iv ( GLint* v ) ;
-FUNCTION: void glColor3sv ( GLshort* v ) ;
-FUNCTION: void glColor3ubv ( GLubyte* v ) ;
-FUNCTION: void glColor3uiv ( GLuint* v ) ;
-FUNCTION: void glColor3usv ( GLushort* v ) ;
-
-FUNCTION: void glColor4bv ( GLbyte* v ) ;
-FUNCTION: void glColor4dv ( GLdouble* v ) ;
-FUNCTION: void glColor4fv ( GLfloat* v ) ;
-FUNCTION: void glColor4iv ( GLint* v ) ;
-FUNCTION: void glColor4sv ( GLshort* v ) ;
-FUNCTION: void glColor4ubv ( GLubyte* v ) ;
-FUNCTION: void glColor4uiv ( GLuint* v ) ;
-FUNCTION: void glColor4usv ( GLushort* v ) ;
-
-
-FUNCTION: void glTexCoord1d ( GLdouble s ) ;
-FUNCTION: void glTexCoord1f ( GLfloat s ) ;
-FUNCTION: void glTexCoord1i ( GLint s ) ;
-FUNCTION: void glTexCoord1s ( GLshort s ) ;
-
-FUNCTION: void glTexCoord2d ( GLdouble s, GLdouble t ) ;
-FUNCTION: void glTexCoord2f ( GLfloat s, GLfloat t ) ;
-FUNCTION: void glTexCoord2i ( GLint s, GLint t ) ;
-FUNCTION: void glTexCoord2s ( GLshort s, GLshort t ) ;
-
-FUNCTION: void glTexCoord3d ( GLdouble s, GLdouble t, GLdouble r ) ;
-FUNCTION: void glTexCoord3f ( GLfloat s, GLfloat t, GLfloat r ) ;
-FUNCTION: void glTexCoord3i ( GLint s, GLint t, GLint r ) ;
-FUNCTION: void glTexCoord3s ( GLshort s, GLshort t, GLshort r ) ;
-
-FUNCTION: void glTexCoord4d ( GLdouble s, GLdouble t, GLdouble r, GLdouble q ) ;
-FUNCTION: void glTexCoord4f ( GLfloat s, GLfloat t, GLfloat r, GLfloat q ) ;
-FUNCTION: void glTexCoord4i ( GLint s, GLint t, GLint r, GLint q ) ;
-FUNCTION: void glTexCoord4s ( GLshort s, GLshort t, GLshort r, GLshort q ) ;
-
-FUNCTION: void glTexCoord1dv ( GLdouble* v ) ;
-FUNCTION: void glTexCoord1fv ( GLfloat* v ) ;
-FUNCTION: void glTexCoord1iv ( GLint* v ) ;
-FUNCTION: void glTexCoord1sv ( GLshort* v ) ;
-
-FUNCTION: void glTexCoord2dv ( GLdouble* v ) ;
-FUNCTION: void glTexCoord2fv ( GLfloat* v ) ;
-FUNCTION: void glTexCoord2iv ( GLint* v ) ;
-FUNCTION: void glTexCoord2sv ( GLshort* v ) ;
-
-FUNCTION: void glTexCoord3dv ( GLdouble* v ) ;
-FUNCTION: void glTexCoord3fv ( GLfloat* v ) ;
-FUNCTION: void glTexCoord3iv ( GLint* v ) ;
-FUNCTION: void glTexCoord3sv ( GLshort* v ) ;
-
-FUNCTION: void glTexCoord4dv ( GLdouble* v ) ;
-FUNCTION: void glTexCoord4fv ( GLfloat* v ) ;
-FUNCTION: void glTexCoord4iv ( GLint* v ) ;
-FUNCTION: void glTexCoord4sv ( GLshort* v ) ;
-
-FUNCTION: void glRasterPos2d ( GLdouble x, GLdouble y ) ;
-FUNCTION: void glRasterPos2f ( GLfloat x, GLfloat y ) ;
-FUNCTION: void glRasterPos2i ( GLint x, GLint y ) ;
-FUNCTION: void glRasterPos2s ( GLshort x, GLshort y ) ;
-
-FUNCTION: void glRasterPos3d ( GLdouble x, GLdouble y, GLdouble z ) ;
-FUNCTION: void glRasterPos3f ( GLfloat x, GLfloat y, GLfloat z ) ;
-FUNCTION: void glRasterPos3i ( GLint x, GLint y, GLint z ) ;
-FUNCTION: void glRasterPos3s ( GLshort x, GLshort y, GLshort z ) ;
-
-FUNCTION: void glRasterPos4d ( GLdouble x, GLdouble y, GLdouble z, GLdouble w ) ;
-FUNCTION: void glRasterPos4f ( GLfloat x, GLfloat y, GLfloat z, GLfloat w ) ;
-FUNCTION: void glRasterPos4i ( GLint x, GLint y, GLint z, GLint w ) ;
-FUNCTION: void glRasterPos4s ( GLshort x, GLshort y, GLshort z, GLshort w ) ;
-
-FUNCTION: void glRasterPos2dv ( GLdouble* v ) ;
-FUNCTION: void glRasterPos2fv ( GLfloat* v ) ;
-FUNCTION: void glRasterPos2iv ( GLint* v ) ;
-FUNCTION: void glRasterPos2sv ( GLshort* v ) ;
-
-FUNCTION: void glRasterPos3dv ( GLdouble* v ) ;
-FUNCTION: void glRasterPos3fv ( GLfloat* v ) ;
-FUNCTION: void glRasterPos3iv ( GLint* v ) ;
-FUNCTION: void glRasterPos3sv ( GLshort* v ) ;
-
-FUNCTION: void glRasterPos4dv ( GLdouble* v ) ;
-FUNCTION: void glRasterPos4fv ( GLfloat* v ) ;
-FUNCTION: void glRasterPos4iv ( GLint* v ) ;
-FUNCTION: void glRasterPos4sv ( GLshort* v ) ;
-
-
-FUNCTION: void glRectd ( GLdouble x1, GLdouble y1, GLdouble x2, GLdouble y2 ) ;
-FUNCTION: void glRectf ( GLfloat x1, GLfloat y1, GLfloat x2, GLfloat y2 ) ;
-FUNCTION: void glRecti ( GLint x1, GLint y1, GLint x2, GLint y2 ) ;
-FUNCTION: void glRects ( GLshort x1, GLshort y1, GLshort x2, GLshort y2 ) ;
-
-FUNCTION: void glRectdv ( GLdouble* v1, GLdouble* v2 ) ;
-FUNCTION: void glRectfv ( GLfloat* v1, GLfloat* v2 ) ;
-FUNCTION: void glRectiv ( GLint* v1, GLint* v2 ) ;
-FUNCTION: void glRectsv ( GLshort* v1, GLshort* v2 ) ;
-
-
-! Vertex Arrays (1.1)
-
-FUNCTION: void glVertexPointer ( GLint size, GLenum type, GLsizei stride, GLvoid* ptr ) ;
-FUNCTION: void glNormalPointer ( GLenum type, GLsizei stride, GLvoid* ptr ) ;
-FUNCTION: void glColorPointer ( GLint size, GLenum type, GLsizei stride, GLvoid* ptr ) ;
-FUNCTION: void glIndexPointer ( GLenum type, GLsizei stride, GLvoid* ptr ) ;
-FUNCTION: void glTexCoordPointer ( GLint size, GLenum type, GLsizei stride, GLvoid* ptr ) ;
-FUNCTION: void glEdgeFlagPointer ( GLsizei stride, GLvoid* ptr ) ;
-
-! [09:39] (slava) NULL <void*>
-! [09:39] (slava) then keep that object
-! [09:39] (slava) when you want to get the value stored there, *void*
-! [09:39] (slava) which returns an alien
-FUNCTION: void glGetPointerv ( GLenum pname, GLvoid** params ) ;
-
-FUNCTION: void glArrayElement ( GLint i ) ;
-FUNCTION: void glDrawArrays ( GLenum mode, GLint first, GLsizei count ) ;
-FUNCTION: void glDrawElements ( GLenum mode, GLsizei count, GLenum type, GLvoid* indices ) ;
-FUNCTION: void glInterleavedArrays ( GLenum format, GLsizei stride, GLvoid* pointer ) ;
-
-! Lighting
-
-FUNCTION: void glShadeModel ( GLenum mode ) ;
-
-FUNCTION: void glLightf ( GLenum light, GLenum pname, GLfloat param ) ;
-FUNCTION: void glLighti ( GLenum light, GLenum pname, GLint param ) ;
-FUNCTION: void glLightfv ( GLenum light, GLenum pname, GLfloat* params ) ;
-FUNCTION: void glLightiv ( GLenum light, GLenum pname, GLint* params ) ;
-FUNCTION: void glGetLightfv ( GLenum light, GLenum pname, GLfloat* params ) ;
-FUNCTION: void glGetLightiv ( GLenum light, GLenum pname, GLint* params ) ;
-
-FUNCTION: void glLightModelf ( GLenum pname, GLfloat param ) ;
-FUNCTION: void glLightModeli ( GLenum pname, GLint param ) ;
-FUNCTION: void glLightModelfv ( GLenum pname, GLfloat* params ) ;
-FUNCTION: void glLightModeliv ( GLenum pname, GLint* params ) ;
-
-FUNCTION: void glMaterialf ( GLenum face, GLenum pname, GLfloat param ) ;
-FUNCTION: void glMateriali ( GLenum face, GLenum pname, GLint param ) ;
-FUNCTION: void glMaterialfv ( GLenum face, GLenum pname, GLfloat* params ) ;
-FUNCTION: void glMaterialiv ( GLenum face, GLenum pname, GLint* params ) ;
-
-FUNCTION: void glGetMaterialfv ( GLenum face, GLenum pname, GLfloat* params ) ;
-FUNCTION: void glGetMaterialiv ( GLenum face, GLenum pname, GLint* params ) ;
-
-FUNCTION: void glColorMaterial ( GLenum face, GLenum mode ) ;
-
-
-! Raster functions
-
-FUNCTION: void glPixelZoom ( GLfloat xfactor, GLfloat yfactor ) ;
-
-FUNCTION: void glPixelStoref ( GLenum pname, GLfloat param ) ;
-FUNCTION: void glPixelStorei ( GLenum pname, GLint param ) ;
-
-FUNCTION: void glPixelTransferf ( GLenum pname, GLfloat param ) ;
-FUNCTION: void glPixelTransferi ( GLenum pname, GLint param ) ;
-
-FUNCTION: void glPixelMapfv ( GLenum map, GLsizei mapsize, GLfloat* values ) ;
-FUNCTION: void glPixelMapuiv ( GLenum map, GLsizei mapsize, GLuint* values ) ;
-FUNCTION: void glPixelMapusv ( GLenum map, GLsizei mapsize, GLushort* values ) ;
-
-FUNCTION: void glGetPixelMapfv ( GLenum map, GLfloat* values ) ;
-FUNCTION: void glGetPixelMapuiv ( GLenum map, GLuint* values ) ;
-FUNCTION: void glGetPixelMapusv ( GLenum map, GLushort* values ) ;
-
-FUNCTION: void glBitmap ( GLsizei width, GLsizei height, GLfloat xorig, GLfloat yorig,
- GLfloat xmove, GLfloat ymove, GLubyte* bitmap ) ;
-
-FUNCTION: void glReadPixels ( GLint x, GLint y, GLsizei width, GLsizei height,
- GLenum format, GLenum type, GLvoid* pixels ) ;
-
-FUNCTION: void glDrawPixels ( GLsizei width, GLsizei height, GLenum format,
- GLenum type, GLvoid* pixels ) ;
-FUNCTION: void glCopyPixels ( GLint x, GLint y, GLsizei width, GLsizei height, GLenum type ) ;
-
-! Stenciling
-FUNCTION: void glStencilFunc ( GLenum func, GLint ref, GLuint mask ) ;
-FUNCTION: void glStencilMask ( GLuint mask ) ;
-FUNCTION: void glStencilOp ( GLenum fail, GLenum zfail, GLenum zpass ) ;
-FUNCTION: void glClearStencil ( GLint s ) ;
-
-
-! Texture mapping
-
-FUNCTION: void glTexGend ( GLenum coord, GLenum pname, GLdouble param ) ;
-FUNCTION: void glTexGenf ( GLenum coord, GLenum pname, GLfloat param ) ;
-FUNCTION: void glTexGeni ( GLenum coord, GLenum pname, GLint param ) ;
-
-FUNCTION: void glTexGendv ( GLenum coord, GLenum pname, GLdouble* params ) ;
-FUNCTION: void glTexGenfv ( GLenum coord, GLenum pname, GLfloat* params ) ;
-FUNCTION: void glTexGeniv ( GLenum coord, GLenum pname, GLint* params ) ;
-
-FUNCTION: void glGetTexGendv ( GLenum coord, GLenum pname, GLdouble* params ) ;
-FUNCTION: void glGetTexGenfv ( GLenum coord, GLenum pname, GLfloat* params ) ;
-FUNCTION: void glGetTexGeniv ( GLenum coord, GLenum pname, GLint* params ) ;
-
-FUNCTION: void glTexEnvf ( GLenum target, GLenum pname, GLfloat param ) ;
-FUNCTION: void glTexEnvi ( GLenum target, GLenum pname, GLint param ) ;
-FUNCTION: void glTexEnvfv ( GLenum target, GLenum pname, GLfloat* params ) ;
-FUNCTION: void glTexEnviv ( GLenum target, GLenum pname, GLint* params ) ;
-
-FUNCTION: void glGetTexEnvfv ( GLenum target, GLenum pname, GLfloat* params ) ;
-FUNCTION: void glGetTexEnviv ( GLenum target, GLenum pname, GLint* params ) ;
-
-FUNCTION: void glTexParameterf ( GLenum target, GLenum pname, GLfloat param ) ;
-FUNCTION: void glTexParameteri ( GLenum target, GLenum pname, GLint param ) ;
-
-FUNCTION: void glTexParameterfv ( GLenum target, GLenum pname, GLfloat* params ) ;
-FUNCTION: void glTexParameteriv ( GLenum target, GLenum pname, GLint* params ) ;
-
-FUNCTION: void glGetTexParameterfv ( GLenum target, GLenum pname, GLfloat* params ) ;
-FUNCTION: void glGetTexParameteriv ( GLenum target, GLenum pname, GLint* params ) ;
-
-FUNCTION: void glGetTexLevelParameterfv ( GLenum target, GLint level,
- GLenum pname, GLfloat* params ) ;
-FUNCTION: void glGetTexLevelParameteriv ( GLenum target, GLint level,
- GLenum pname, GLint* params ) ;
-
-FUNCTION: void glTexImage1D ( GLenum target, GLint level, GLint internalFormat, GLsizei width,
- GLint border, GLenum format, GLenum type, GLvoid* pixels ) ;
-
-FUNCTION: void glTexImage2D ( GLenum target, GLint level, GLint internalFormat,
- GLsizei width, GLsizei height, GLint border,
- GLenum format, GLenum type, GLvoid* pixels ) ;
-
-FUNCTION: void glGetTexImage ( GLenum target, GLint level, GLenum format,
- GLenum type, GLvoid* pixels ) ;
-
-
-! 1.1 functions
-
-FUNCTION: void glGenTextures ( GLsizei n, GLuint* textures ) ;
-
-FUNCTION: void glDeleteTextures ( GLsizei n, GLuint* textures ) ;
-
-FUNCTION: void glBindTexture ( GLenum target, GLuint texture ) ;
-
-FUNCTION: void glPrioritizeTextures ( GLsizei n, GLuint* textures, GLclampf* priorities ) ;
-
-FUNCTION: GLboolean glAreTexturesResident ( GLsizei n, GLuint* textures, GLboolean* residences ) ;
-
-FUNCTION: GLboolean glIsTexture ( GLuint texture ) ;
-
-FUNCTION: void glTexSubImage1D ( GLenum target, GLint level, GLint xoffset, GLsizei width,
- GLenum format, GLenum type, GLvoid* pixels ) ;
-
-FUNCTION: void glTexSubImage2D ( GLenum target, GLint level, GLint xoffset, GLint yoffset,
- GLsizei width, GLsizei height, GLenum format,
- GLenum type, GLvoid* pixels ) ;
-
-FUNCTION: void glCopyTexImage1D ( GLenum target, GLint level, GLenum internalformat,
- GLint x, GLint y, GLsizei width, GLint border ) ;
-
-FUNCTION: void glCopyTexImage2D ( GLenum target, GLint level, GLenum internalformat,
- GLint x, GLint y,
- GLsizei width, GLsizei height, GLint border ) ;
-
-FUNCTION: void glCopyTexSubImage1D ( GLenum target, GLint level, GLint xoffset,
- GLint x, GLint y, GLsizei width ) ;
-
-FUNCTION: void glCopyTexSubImage2D ( GLenum target, GLint level, GLint xoffset, GLint yoffset,
- GLint x, GLint y, GLsizei width, GLsizei height ) ;
-
-
-! Evaluators
-
-FUNCTION: void glMap1d ( GLenum target, GLdouble u1, GLdouble u2,
- GLint stride, GLint order, GLdouble* points ) ;
-FUNCTION: void glMap1f ( GLenum target, GLfloat u1, GLfloat u2,
- GLint stride, GLint order, GLfloat* points ) ;
-
-FUNCTION: void glMap2d ( GLenum target, GLdouble u1, GLdouble u2, GLint ustride, GLint uorder,
- GLdouble v1, GLdouble v2, GLint vstride, GLint vorder,
- GLdouble* points ) ;
-FUNCTION: void glMap2f ( GLenum target, GLfloat u1, GLfloat u2, GLint ustride, GLint uorder,
- GLfloat v1, GLfloat v2, GLint vstride, GLint vorder,
- GLfloat* points ) ;
-
-FUNCTION: void glGetMapdv ( GLenum target, GLenum query, GLdouble* v ) ;
-FUNCTION: void glGetMapfv ( GLenum target, GLenum query, GLfloat* v ) ;
-FUNCTION: void glGetMapiv ( GLenum target, GLenum query, GLint* v ) ;
-
-FUNCTION: void glEvalCoord1d ( GLdouble u ) ;
-FUNCTION: void glEvalCoord1f ( GLfloat u ) ;
-
-FUNCTION: void glEvalCoord1dv ( GLdouble* u ) ;
-FUNCTION: void glEvalCoord1fv ( GLfloat* u ) ;
-
-FUNCTION: void glEvalCoord2d ( GLdouble u, GLdouble v ) ;
-FUNCTION: void glEvalCoord2f ( GLfloat u, GLfloat v ) ;
-
-FUNCTION: void glEvalCoord2dv ( GLdouble* u ) ;
-FUNCTION: void glEvalCoord2fv ( GLfloat* u ) ;
-
-FUNCTION: void glMapGrid1d ( GLint un, GLdouble u1, GLdouble u2 ) ;
-FUNCTION: void glMapGrid1f ( GLint un, GLfloat u1, GLfloat u2 ) ;
-
-FUNCTION: void glMapGrid2d ( GLint un, GLdouble u1, GLdouble u2,
- GLint vn, GLdouble v1, GLdouble v2 ) ;
-FUNCTION: void glMapGrid2f ( GLint un, GLfloat u1, GLfloat u2,
- GLint vn, GLfloat v1, GLfloat v2 ) ;
-
-FUNCTION: void glEvalPoint1 ( GLint i ) ;
-FUNCTION: void glEvalPoint2 ( GLint i, GLint j ) ;
-
-FUNCTION: void glEvalMesh1 ( GLenum mode, GLint i1, GLint i2 ) ;
-FUNCTION: void glEvalMesh2 ( GLenum mode, GLint i1, GLint i2, GLint j1, GLint j2 ) ;
-
-
-! Fog
-
-FUNCTION: void glFogf ( GLenum pname, GLfloat param ) ;
-FUNCTION: void glFogi ( GLenum pname, GLint param ) ;
-FUNCTION: void glFogfv ( GLenum pname, GLfloat* params ) ;
-FUNCTION: void glFogiv ( GLenum pname, GLint* params ) ;
-
-
-! Selection and Feedback
-
-FUNCTION: void glFeedbackBuffer ( GLsizei size, GLenum type, GLfloat* buffer ) ;
-
-FUNCTION: void glPassThrough ( GLfloat token ) ;
-FUNCTION: void glSelectBuffer ( GLsizei size, GLuint* buffer ) ;
-FUNCTION: void glInitNames ( ) ;
-FUNCTION: void glLoadName ( GLuint name ) ;
-FUNCTION: void glPushName ( GLuint name ) ;
-FUNCTION: void glPopName ( ) ;
-
-<< reset-gl-function-number-counter >>
-
-! OpenGL 1.2
-
-: GL_SMOOTH_POINT_SIZE_RANGE HEX: 0B12 ; inline
-: GL_SMOOTH_POINT_SIZE_GRANULARITY HEX: 0B13 ; inline
-: GL_SMOOTH_LINE_WIDTH_RANGE HEX: 0B22 ; inline
-: GL_SMOOTH_LINE_WIDTH_GRANULARITY HEX: 0B23 ; inline
-: GL_UNSIGNED_BYTE_3_3_2 HEX: 8032 ; inline
-: GL_UNSIGNED_SHORT_4_4_4_4 HEX: 8033 ; inline
-: GL_UNSIGNED_SHORT_5_5_5_1 HEX: 8034 ; inline
-: GL_UNSIGNED_INT_8_8_8_8 HEX: 8035 ; inline
-: GL_UNSIGNED_INT_10_10_10_2 HEX: 8036 ; inline
-: GL_RESCALE_NORMAL HEX: 803A ; inline
-: GL_TEXTURE_BINDING_3D HEX: 806A ; inline
-: GL_PACK_SKIP_IMAGES HEX: 806B ; inline
-: GL_PACK_IMAGE_HEIGHT HEX: 806C ; inline
-: GL_UNPACK_SKIP_IMAGES HEX: 806D ; inline
-: GL_UNPACK_IMAGE_HEIGHT HEX: 806E ; inline
-: GL_TEXTURE_3D HEX: 806F ; inline
-: GL_PROXY_TEXTURE_3D HEX: 8070 ; inline
-: GL_TEXTURE_DEPTH HEX: 8071 ; inline
-: GL_TEXTURE_WRAP_R HEX: 8072 ; inline
-: GL_MAX_3D_TEXTURE_SIZE HEX: 8073 ; inline
-: GL_BGR HEX: 80E0 ; inline
-: GL_BGRA HEX: 80E1 ; inline
-: GL_MAX_ELEMENTS_VERTICES HEX: 80E8 ; inline
-: GL_MAX_ELEMENTS_INDICES HEX: 80E9 ; inline
-: GL_CLAMP_TO_EDGE HEX: 812F ; inline
-: GL_TEXTURE_MIN_LOD HEX: 813A ; inline
-: GL_TEXTURE_MAX_LOD HEX: 813B ; inline
-: GL_TEXTURE_BASE_LEVEL HEX: 813C ; inline
-: GL_TEXTURE_MAX_LEVEL HEX: 813D ; inline
-: GL_LIGHT_MODEL_COLOR_CONTROL HEX: 81F8 ; inline
-: GL_SINGLE_COLOR HEX: 81F9 ; inline
-: GL_SEPARATE_SPECULAR_COLOR HEX: 81FA ; inline
-: GL_UNSIGNED_BYTE_2_3_3_REV HEX: 8362 ; inline
-: GL_UNSIGNED_SHORT_5_6_5 HEX: 8363 ; inline
-: GL_UNSIGNED_SHORT_5_6_5_REV HEX: 8364 ; inline
-: GL_UNSIGNED_SHORT_4_4_4_4_REV HEX: 8365 ; inline
-: GL_UNSIGNED_SHORT_1_5_5_5_REV HEX: 8366 ; inline
-: GL_UNSIGNED_INT_8_8_8_8_REV HEX: 8367 ; inline
-: GL_UNSIGNED_INT_2_10_10_10_REV HEX: 8368 ; inline
-: GL_ALIASED_POINT_SIZE_RANGE HEX: 846D ; inline
-: GL_ALIASED_LINE_WIDTH_RANGE HEX: 846E ; inline
-
-GL-FUNCTION: void glCopyTexSubImage3D { glCopyTexSubImage3DEXT } ( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLint x, GLint y, GLsizei width, GLsizei height ) ;
-GL-FUNCTION: void glDrawRangeElements { glDrawRangeElementsEXT } ( GLenum mode, GLuint start, GLuint end, GLsizei count, GLenum type, GLvoid* indices ) ;
-GL-FUNCTION: void glTexImage3D { glTexImage3DEXT } ( GLenum target, GLint level, GLint internalFormat, GLsizei width, GLsizei height, GLsizei depth, GLint border, GLenum format, GLenum type, GLvoid* pixels ) ;
-GL-FUNCTION: void glTexSubImage3D { glTexSubImage3DEXT } ( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLenum type, GLvoid* pixels ) ;
-
-
-! OpenGL 1.3
-
-
-: GL_MULTISAMPLE HEX: 809D ; inline
-: GL_SAMPLE_ALPHA_TO_COVERAGE HEX: 809E ; inline
-: GL_SAMPLE_ALPHA_TO_ONE HEX: 809F ; inline
-: GL_SAMPLE_COVERAGE HEX: 80A0 ; inline
-: GL_SAMPLE_BUFFERS HEX: 80A8 ; inline
-: GL_SAMPLES HEX: 80A9 ; inline
-: GL_SAMPLE_COVERAGE_VALUE HEX: 80AA ; inline
-: GL_SAMPLE_COVERAGE_INVERT HEX: 80AB ; inline
-: GL_CLAMP_TO_BORDER HEX: 812D ; inline
-: GL_TEXTURE0 HEX: 84C0 ; inline
-: GL_TEXTURE1 HEX: 84C1 ; inline
-: GL_TEXTURE2 HEX: 84C2 ; inline
-: GL_TEXTURE3 HEX: 84C3 ; inline
-: GL_TEXTURE4 HEX: 84C4 ; inline
-: GL_TEXTURE5 HEX: 84C5 ; inline
-: GL_TEXTURE6 HEX: 84C6 ; inline
-: GL_TEXTURE7 HEX: 84C7 ; inline
-: GL_TEXTURE8 HEX: 84C8 ; inline
-: GL_TEXTURE9 HEX: 84C9 ; inline
-: GL_TEXTURE10 HEX: 84CA ; inline
-: GL_TEXTURE11 HEX: 84CB ; inline
-: GL_TEXTURE12 HEX: 84CC ; inline
-: GL_TEXTURE13 HEX: 84CD ; inline
-: GL_TEXTURE14 HEX: 84CE ; inline
-: GL_TEXTURE15 HEX: 84CF ; inline
-: GL_TEXTURE16 HEX: 84D0 ; inline
-: GL_TEXTURE17 HEX: 84D1 ; inline
-: GL_TEXTURE18 HEX: 84D2 ; inline
-: GL_TEXTURE19 HEX: 84D3 ; inline
-: GL_TEXTURE20 HEX: 84D4 ; inline
-: GL_TEXTURE21 HEX: 84D5 ; inline
-: GL_TEXTURE22 HEX: 84D6 ; inline
-: GL_TEXTURE23 HEX: 84D7 ; inline
-: GL_TEXTURE24 HEX: 84D8 ; inline
-: GL_TEXTURE25 HEX: 84D9 ; inline
-: GL_TEXTURE26 HEX: 84DA ; inline
-: GL_TEXTURE27 HEX: 84DB ; inline
-: GL_TEXTURE28 HEX: 84DC ; inline
-: GL_TEXTURE29 HEX: 84DD ; inline
-: GL_TEXTURE30 HEX: 84DE ; inline
-: GL_TEXTURE31 HEX: 84DF ; inline
-: GL_ACTIVE_TEXTURE HEX: 84E0 ; inline
-: GL_CLIENT_ACTIVE_TEXTURE HEX: 84E1 ; inline
-: GL_MAX_TEXTURE_UNITS HEX: 84E2 ; inline
-: GL_TRANSPOSE_MODELVIEW_MATRIX HEX: 84E3 ; inline
-: GL_TRANSPOSE_PROJECTION_MATRIX HEX: 84E4 ; inline
-: GL_TRANSPOSE_TEXTURE_MATRIX HEX: 84E5 ; inline
-: GL_TRANSPOSE_COLOR_MATRIX HEX: 84E6 ; inline
-: GL_SUBTRACT HEX: 84E7 ; inline
-: GL_COMPRESSED_ALPHA HEX: 84E9 ; inline
-: GL_COMPRESSED_LUMINANCE HEX: 84EA ; inline
-: GL_COMPRESSED_LUMINANCE_ALPHA HEX: 84EB ; inline
-: GL_COMPRESSED_INTENSITY HEX: 84EC ; inline
-: GL_COMPRESSED_RGB HEX: 84ED ; inline
-: GL_COMPRESSED_RGBA HEX: 84EE ; inline
-: GL_TEXTURE_COMPRESSION_HINT HEX: 84EF ; inline
-: GL_NORMAL_MAP HEX: 8511 ; inline
-: GL_REFLECTION_MAP HEX: 8512 ; inline
-: GL_TEXTURE_CUBE_MAP HEX: 8513 ; inline
-: GL_TEXTURE_BINDING_CUBE_MAP HEX: 8514 ; inline
-: GL_TEXTURE_CUBE_MAP_POSITIVE_X HEX: 8515 ; inline
-: GL_TEXTURE_CUBE_MAP_NEGATIVE_X HEX: 8516 ; inline
-: GL_TEXTURE_CUBE_MAP_POSITIVE_Y HEX: 8517 ; inline
-: GL_TEXTURE_CUBE_MAP_NEGATIVE_Y HEX: 8518 ; inline
-: GL_TEXTURE_CUBE_MAP_POSITIVE_Z HEX: 8519 ; inline
-: GL_TEXTURE_CUBE_MAP_NEGATIVE_Z HEX: 851A ; inline
-: GL_PROXY_TEXTURE_CUBE_MAP HEX: 851B ; inline
-: GL_MAX_CUBE_MAP_TEXTURE_SIZE HEX: 851C ; inline
-: GL_COMBINE HEX: 8570 ; inline
-: GL_COMBINE_RGB HEX: 8571 ; inline
-: GL_COMBINE_ALPHA HEX: 8572 ; inline
-: GL_RGB_SCALE HEX: 8573 ; inline
-: GL_ADD_SIGNED HEX: 8574 ; inline
-: GL_INTERPOLATE HEX: 8575 ; inline
-: GL_CONSTANT HEX: 8576 ; inline
-: GL_PRIMARY_COLOR HEX: 8577 ; inline
-: GL_PREVIOUS HEX: 8578 ; inline
-: GL_SOURCE0_RGB HEX: 8580 ; inline
-: GL_SOURCE1_RGB HEX: 8581 ; inline
-: GL_SOURCE2_RGB HEX: 8582 ; inline
-: GL_SOURCE0_ALPHA HEX: 8588 ; inline
-: GL_SOURCE1_ALPHA HEX: 8589 ; inline
-: GL_SOURCE2_ALPHA HEX: 858A ; inline
-: GL_OPERAND0_RGB HEX: 8590 ; inline
-: GL_OPERAND1_RGB HEX: 8591 ; inline
-: GL_OPERAND2_RGB HEX: 8592 ; inline
-: GL_OPERAND0_ALPHA HEX: 8598 ; inline
-: GL_OPERAND1_ALPHA HEX: 8599 ; inline
-: GL_OPERAND2_ALPHA HEX: 859A ; inline
-: GL_TEXTURE_COMPRESSED_IMAGE_SIZE HEX: 86A0 ; inline
-: GL_TEXTURE_COMPRESSED HEX: 86A1 ; inline
-: GL_NUM_COMPRESSED_TEXTURE_FORMATS HEX: 86A2 ; inline
-: GL_COMPRESSED_TEXTURE_FORMATS HEX: 86A3 ; inline
-: GL_DOT3_RGB HEX: 86AE ; inline
-: GL_DOT3_RGBA HEX: 86AF ; inline
-: GL_MULTISAMPLE_BIT HEX: 20000000 ; inline
-
-GL-FUNCTION: void glActiveTexture { glActiveTextureARB } ( GLenum texture ) ;
-GL-FUNCTION: void glClientActiveTexture { glClientActiveTextureARB } ( GLenum texture ) ;
-GL-FUNCTION: void glCompressedTexImage1D { glCompressedTexImage1DARB } ( GLenum target, GLint level, GLenum internalformat, GLsizei width, GLint border, GLsizei imageSize, GLvoid* data ) ;
-GL-FUNCTION: void glCompressedTexImage2D { glCompressedTexImage2DARB } ( GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLint border, GLsizei imageSize, GLvoid* data ) ;
-GL-FUNCTION: void glCompressedTexImage3D { glCompressedTexImage2DARB } ( GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLsizei depth, GLint border, GLsizei imageSize, GLvoid* data ) ;
-GL-FUNCTION: void glCompressedTexSubImage1D { glCompressedTexSubImage1DARB } ( GLenum target, GLint level, GLint xoffset, GLsizei width, GLenum format, GLsizei imageSize, GLvoid* data ) ;
-GL-FUNCTION: void glCompressedTexSubImage2D { glCompressedTexSubImage2DARB } ( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLsizei width, GLsizei height, GLenum format, GLsizei imageSize, GLvoid* data ) ;
-GL-FUNCTION: void glCompressedTexSubImage3D { glCompressedTexSubImage3DARB } ( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLsizei imageSize, GLvoid* data ) ;
-GL-FUNCTION: void glGetCompressedTexImage { glGetCompressedTexImageARB } ( GLenum target, GLint lod, GLvoid* img ) ;
-GL-FUNCTION: void glLoadTransposeMatrixd { glLoadTransposeMatrixdARB } ( GLdouble m[16] ) ;
-GL-FUNCTION: void glLoadTransposeMatrixf { glLoadTransposeMatrixfARB } ( GLfloat m[16] ) ;
-GL-FUNCTION: void glMultTransposeMatrixd { glMultTransposeMatrixdARB } ( GLdouble m[16] ) ;
-GL-FUNCTION: void glMultTransposeMatrixf { glMultTransposeMatrixfARB } ( GLfloat m[16] ) ;
-GL-FUNCTION: void glMultiTexCoord1d { glMultiTexCoord1dARB } ( GLenum target, GLdouble s ) ;
-GL-FUNCTION: void glMultiTexCoord1dv { glMultiTexCoord1dvARB } ( GLenum target, GLdouble* v ) ;
-GL-FUNCTION: void glMultiTexCoord1f { glMultiTexCoord1fARB } ( GLenum target, GLfloat s ) ;
-GL-FUNCTION: void glMultiTexCoord1fv { glMultiTexCoord1fvARB } ( GLenum target, GLfloat* v ) ;
-GL-FUNCTION: void glMultiTexCoord1i { glMultiTexCoord1iARB } ( GLenum target, GLint s ) ;
-GL-FUNCTION: void glMultiTexCoord1iv { glMultiTexCoord1ivARB } ( GLenum target, GLint* v ) ;
-GL-FUNCTION: void glMultiTexCoord1s { glMultiTexCoord1sARB } ( GLenum target, GLshort s ) ;
-GL-FUNCTION: void glMultiTexCoord1sv { glMultiTexCoord1svARB } ( GLenum target, GLshort* v ) ;
-GL-FUNCTION: void glMultiTexCoord2d { glMultiTexCoord2dARB } ( GLenum target, GLdouble s, GLdouble t ) ;
-GL-FUNCTION: void glMultiTexCoord2dv { glMultiTexCoord2dvARB } ( GLenum target, GLdouble* v ) ;
-GL-FUNCTION: void glMultiTexCoord2f { glMultiTexCoord2fARB } ( GLenum target, GLfloat s, GLfloat t ) ;
-GL-FUNCTION: void glMultiTexCoord2fv { glMultiTexCoord2fvARB } ( GLenum target, GLfloat* v ) ;
-GL-FUNCTION: void glMultiTexCoord2i { glMultiTexCoord2iARB } ( GLenum target, GLint s, GLint t ) ;
-GL-FUNCTION: void glMultiTexCoord2iv { glMultiTexCoord2ivARB } ( GLenum target, GLint* v ) ;
-GL-FUNCTION: void glMultiTexCoord2s { glMultiTexCoord2sARB } ( GLenum target, GLshort s, GLshort t ) ;
-GL-FUNCTION: void glMultiTexCoord2sv { glMultiTexCoord2svARB } ( GLenum target, GLshort* v ) ;
-GL-FUNCTION: void glMultiTexCoord3d { glMultiTexCoord3dARB } ( GLenum target, GLdouble s, GLdouble t, GLdouble r ) ;
-GL-FUNCTION: void glMultiTexCoord3dv { glMultiTexCoord3dvARB } ( GLenum target, GLdouble* v ) ;
-GL-FUNCTION: void glMultiTexCoord3f { glMultiTexCoord3fARB } ( GLenum target, GLfloat s, GLfloat t, GLfloat r ) ;
-GL-FUNCTION: void glMultiTexCoord3fv { glMultiTexCoord3fvARB } ( GLenum target, GLfloat* v ) ;
-GL-FUNCTION: void glMultiTexCoord3i { glMultiTexCoord3iARB } ( GLenum target, GLint s, GLint t, GLint r ) ;
-GL-FUNCTION: void glMultiTexCoord3iv { glMultiTexCoord3ivARB } ( GLenum target, GLint* v ) ;
-GL-FUNCTION: void glMultiTexCoord3s { glMultiTexCoord3sARB } ( GLenum target, GLshort s, GLshort t, GLshort r ) ;
-GL-FUNCTION: void glMultiTexCoord3sv { glMultiTexCoord3svARB } ( GLenum target, GLshort* v ) ;
-GL-FUNCTION: void glMultiTexCoord4d { glMultiTexCoord4dARB } ( GLenum target, GLdouble s, GLdouble t, GLdouble r, GLdouble q ) ;
-GL-FUNCTION: void glMultiTexCoord4dv { glMultiTexCoord4dvARB } ( GLenum target, GLdouble* v ) ;
-GL-FUNCTION: void glMultiTexCoord4f { glMultiTexCoord4fARB } ( GLenum target, GLfloat s, GLfloat t, GLfloat r, GLfloat q ) ;
-GL-FUNCTION: void glMultiTexCoord4fv { glMultiTexCoord4fvARB } ( GLenum target, GLfloat* v ) ;
-GL-FUNCTION: void glMultiTexCoord4i { glMultiTexCoord4iARB } ( GLenum target, GLint s, GLint t, GLint r, GLint q ) ;
-GL-FUNCTION: void glMultiTexCoord4iv { glMultiTexCoord4ivARB } ( GLenum target, GLint* v ) ;
-GL-FUNCTION: void glMultiTexCoord4s { glMultiTexCoord4sARB } ( GLenum target, GLshort s, GLshort t, GLshort r, GLshort q ) ;
-GL-FUNCTION: void glMultiTexCoord4sv { glMultiTexCoord4svARB } ( GLenum target, GLshort* v ) ;
-GL-FUNCTION: void glSampleCoverage { glSampleCoverageARB } ( GLclampf value, GLboolean invert ) ;
-
-
-! OpenGL 1.4
-
-
-: GL_BLEND_DST_RGB HEX: 80C8 ; inline
-: GL_BLEND_SRC_RGB HEX: 80C9 ; inline
-: GL_BLEND_DST_ALPHA HEX: 80CA ; inline
-: GL_BLEND_SRC_ALPHA HEX: 80CB ; inline
-: GL_POINT_SIZE_MIN HEX: 8126 ; inline
-: GL_POINT_SIZE_MAX HEX: 8127 ; inline
-: GL_POINT_FADE_THRESHOLD_SIZE HEX: 8128 ; inline
-: GL_POINT_DISTANCE_ATTENUATION HEX: 8129 ; inline
-: GL_GENERATE_MIPMAP HEX: 8191 ; inline
-: GL_GENERATE_MIPMAP_HINT HEX: 8192 ; inline
-: GL_DEPTH_COMPONENT16 HEX: 81A5 ; inline
-: GL_DEPTH_COMPONENT24 HEX: 81A6 ; inline
-: GL_DEPTH_COMPONENT32 HEX: 81A7 ; inline
-: GL_MIRRORED_REPEAT HEX: 8370 ; inline
-: GL_FOG_COORDINATE_SOURCE HEX: 8450 ; inline
-: GL_FOG_COORDINATE HEX: 8451 ; inline
-: GL_FRAGMENT_DEPTH HEX: 8452 ; inline
-: GL_CURRENT_FOG_COORDINATE HEX: 8453 ; inline
-: GL_FOG_COORDINATE_ARRAY_TYPE HEX: 8454 ; inline
-: GL_FOG_COORDINATE_ARRAY_STRIDE HEX: 8455 ; inline
-: GL_FOG_COORDINATE_ARRAY_POINTER HEX: 8456 ; inline
-: GL_FOG_COORDINATE_ARRAY HEX: 8457 ; inline
-: GL_COLOR_SUM HEX: 8458 ; inline
-: GL_CURRENT_SECONDARY_COLOR HEX: 8459 ; inline
-: GL_SECONDARY_COLOR_ARRAY_SIZE HEX: 845A ; inline
-: GL_SECONDARY_COLOR_ARRAY_TYPE HEX: 845B ; inline
-: GL_SECONDARY_COLOR_ARRAY_STRIDE HEX: 845C ; inline
-: GL_SECONDARY_COLOR_ARRAY_POINTER HEX: 845D ; inline
-: GL_SECONDARY_COLOR_ARRAY HEX: 845E ; inline
-: GL_MAX_TEXTURE_LOD_BIAS HEX: 84FD ; inline
-: GL_TEXTURE_FILTER_CONTROL HEX: 8500 ; inline
-: GL_TEXTURE_LOD_BIAS HEX: 8501 ; inline
-: GL_INCR_WRAP HEX: 8507 ; inline
-: GL_DECR_WRAP HEX: 8508 ; inline
-: GL_TEXTURE_DEPTH_SIZE HEX: 884A ; inline
-: GL_DEPTH_TEXTURE_MODE HEX: 884B ; inline
-: GL_TEXTURE_COMPARE_MODE HEX: 884C ; inline
-: GL_TEXTURE_COMPARE_FUNC HEX: 884D ; inline
-: GL_COMPARE_R_TO_TEXTURE HEX: 884E ; inline
-
-GL-FUNCTION: void glBlendColor { glBlendColorEXT } ( GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha ) ;
-GL-FUNCTION: void glBlendEquation { glBlendEquationEXT } ( GLenum mode ) ;
-GL-FUNCTION: void glBlendFuncSeparate { glBlendFuncSeparateEXT } ( GLenum sfactorRGB, GLenum dfactorRGB, GLenum sfactorAlpha, GLenum dfactorAlpha ) ;
-GL-FUNCTION: void glFogCoordPointer { glFogCoordPointerEXT } ( GLenum type, GLsizei stride, GLvoid* pointer ) ;
-GL-FUNCTION: void glFogCoordd { glFogCoorddEXT } ( GLdouble coord ) ;
-GL-FUNCTION: void glFogCoorddv { glFogCoorddvEXT } ( GLdouble* coord ) ;
-GL-FUNCTION: void glFogCoordf { glFogCoordfEXT } ( GLfloat coord ) ;
-GL-FUNCTION: void glFogCoordfv { glFogCoordfvEXT } ( GLfloat* coord ) ;
-GL-FUNCTION: void glMultiDrawArrays { glMultiDrawArraysEXT } ( GLenum mode, GLint* first, GLsizei* count, GLsizei primcount ) ;
-GL-FUNCTION: void glMultiDrawElements { glMultiDrawElementsEXT } ( GLenum mode, GLsizei* count, GLenum type, GLvoid** indices, GLsizei primcount ) ;
-GL-FUNCTION: void glPointParameterf { glPointParameterfARB } ( GLenum pname, GLfloat param ) ;
-GL-FUNCTION: void glPointParameterfv { glPointParameterfvARB } ( GLenum pname, GLfloat* params ) ;
-GL-FUNCTION: void glSecondaryColor3b { glSecondaryColor3bEXT } ( GLbyte red, GLbyte green, GLbyte blue ) ;
-GL-FUNCTION: void glSecondaryColor3bv { glSecondaryColor3bvEXT } ( GLbyte* v ) ;
-GL-FUNCTION: void glSecondaryColor3d { glSecondaryColor3dEXT } ( GLdouble red, GLdouble green, GLdouble blue ) ;
-GL-FUNCTION: void glSecondaryColor3dv { glSecondaryColor3dvEXT } ( GLdouble* v ) ;
-GL-FUNCTION: void glSecondaryColor3f { glSecondaryColor3fEXT } ( GLfloat red, GLfloat green, GLfloat blue ) ;
-GL-FUNCTION: void glSecondaryColor3fv { glSecondaryColor3fvEXT } ( GLfloat* v ) ;
-GL-FUNCTION: void glSecondaryColor3i { glSecondaryColor3iEXT } ( GLint red, GLint green, GLint blue ) ;
-GL-FUNCTION: void glSecondaryColor3iv { glSecondaryColor3ivEXT } ( GLint* v ) ;
-GL-FUNCTION: void glSecondaryColor3s { glSecondaryColor3sEXT } ( GLshort red, GLshort green, GLshort blue ) ;
-GL-FUNCTION: void glSecondaryColor3sv { glSecondaryColor3svEXT } ( GLshort* v ) ;
-GL-FUNCTION: void glSecondaryColor3ub { glSecondaryColor3ubEXT } ( GLubyte red, GLubyte green, GLubyte blue ) ;
-GL-FUNCTION: void glSecondaryColor3ubv { glSecondaryColor3ubvEXT } ( GLubyte* v ) ;
-GL-FUNCTION: void glSecondaryColor3ui { glSecondaryColor3uiEXT } ( GLuint red, GLuint green, GLuint blue ) ;
-GL-FUNCTION: void glSecondaryColor3uiv { glSecondaryColor3uivEXT } ( GLuint* v ) ;
-GL-FUNCTION: void glSecondaryColor3us { glSecondaryColor3usEXT } ( GLushort red, GLushort green, GLushort blue ) ;
-GL-FUNCTION: void glSecondaryColor3usv { glSecondaryColor3usvEXT } ( GLushort* v ) ;
-GL-FUNCTION: void glSecondaryColorPointer { glSecondaryColorPointerEXT } ( GLint size, GLenum type, GLsizei stride, GLvoid* pointer ) ;
-GL-FUNCTION: void glWindowPos2d { glWindowPos2dARB } ( GLdouble x, GLdouble y ) ;
-GL-FUNCTION: void glWindowPos2dv { glWindowPos2dvARB } ( GLdouble* p ) ;
-GL-FUNCTION: void glWindowPos2f { glWindowPos2fARB } ( GLfloat x, GLfloat y ) ;
-GL-FUNCTION: void glWindowPos2fv { glWindowPos2fvARB } ( GLfloat* p ) ;
-GL-FUNCTION: void glWindowPos2i { glWindowPos2iARB } ( GLint x, GLint y ) ;
-GL-FUNCTION: void glWindowPos2iv { glWindowPos2ivARB } ( GLint* p ) ;
-GL-FUNCTION: void glWindowPos2s { glWindowPos2sARB } ( GLshort x, GLshort y ) ;
-GL-FUNCTION: void glWindowPos2sv { glWindowPos2svARB } ( GLshort* p ) ;
-GL-FUNCTION: void glWindowPos3d { glWindowPos3dARB } ( GLdouble x, GLdouble y, GLdouble z ) ;
-GL-FUNCTION: void glWindowPos3dv { glWindowPos3dvARB } ( GLdouble* p ) ;
-GL-FUNCTION: void glWindowPos3f { glWindowPos3fARB } ( GLfloat x, GLfloat y, GLfloat z ) ;
-GL-FUNCTION: void glWindowPos3fv { glWindowPos3fvARB } ( GLfloat* p ) ;
-GL-FUNCTION: void glWindowPos3i { glWindowPos3iARB } ( GLint x, GLint y, GLint z ) ;
-GL-FUNCTION: void glWindowPos3iv { glWindowPos3ivARB } ( GLint* p ) ;
-GL-FUNCTION: void glWindowPos3s { glWindowPos3sARB } ( GLshort x, GLshort y, GLshort z ) ;
-GL-FUNCTION: void glWindowPos3sv { glWindowPos3svARB } ( GLshort* p ) ;
-
-! OpenGL 1.5
-
-: GL_BUFFER_SIZE HEX: 8764 ; inline
-: GL_BUFFER_USAGE HEX: 8765 ; inline
-: GL_QUERY_COUNTER_BITS HEX: 8864 ; inline
-: GL_CURRENT_QUERY HEX: 8865 ; inline
-: GL_QUERY_RESULT HEX: 8866 ; inline
-: GL_QUERY_RESULT_AVAILABLE HEX: 8867 ; inline
-: GL_ARRAY_BUFFER HEX: 8892 ; inline
-: GL_ELEMENT_ARRAY_BUFFER HEX: 8893 ; inline
-: GL_ARRAY_BUFFER_BINDING HEX: 8894 ; inline
-: GL_ELEMENT_ARRAY_BUFFER_BINDING HEX: 8895 ; inline
-: GL_VERTEX_ARRAY_BUFFER_BINDING HEX: 8896 ; inline
-: GL_NORMAL_ARRAY_BUFFER_BINDING HEX: 8897 ; inline
-: GL_COLOR_ARRAY_BUFFER_BINDING HEX: 8898 ; inline
-: GL_INDEX_ARRAY_BUFFER_BINDING HEX: 8899 ; inline
-: GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING HEX: 889A ; inline
-: GL_EDGE_FLAG_ARRAY_BUFFER_BINDING HEX: 889B ; inline
-: GL_SECONDARY_COLOR_ARRAY_BUFFER_BINDING HEX: 889C ; inline
-: GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING HEX: 889D ; inline
-: GL_WEIGHT_ARRAY_BUFFER_BINDING HEX: 889E ; inline
-: GL_VERTEX_ATTRIB_ARRAY_BUFFER_BINDING HEX: 889F ; inline
-: GL_READ_ONLY HEX: 88B8 ; inline
-: GL_WRITE_ONLY HEX: 88B9 ; inline
-: GL_READ_WRITE HEX: 88BA ; inline
-: GL_BUFFER_ACCESS HEX: 88BB ; inline
-: GL_BUFFER_MAPPED HEX: 88BC ; inline
-: GL_BUFFER_MAP_POINTER HEX: 88BD ; inline
-: GL_STREAM_DRAW HEX: 88E0 ; inline
-: GL_STREAM_READ HEX: 88E1 ; inline
-: GL_STREAM_COPY HEX: 88E2 ; inline
-: GL_STATIC_DRAW HEX: 88E4 ; inline
-: GL_STATIC_READ HEX: 88E5 ; inline
-: GL_STATIC_COPY HEX: 88E6 ; inline
-: GL_DYNAMIC_DRAW HEX: 88E8 ; inline
-: GL_DYNAMIC_READ HEX: 88E9 ; inline
-: GL_DYNAMIC_COPY HEX: 88EA ; inline
-: GL_SAMPLES_PASSED HEX: 8914 ; inline
-: GL_FOG_COORD_SRC GL_FOG_COORDINATE_SOURCE ; inline
-: GL_FOG_COORD GL_FOG_COORDINATE ; inline
-: GL_FOG_COORD_ARRAY GL_FOG_COORDINATE_ARRAY ; inline
-: GL_SRC0_RGB GL_SOURCE0_RGB ; inline
-: GL_FOG_COORD_ARRAY_POINTER GL_FOG_COORDINATE_ARRAY_POINTER ; inline
-: GL_FOG_COORD_ARRAY_TYPE GL_FOG_COORDINATE_ARRAY_TYPE ; inline
-: GL_SRC1_ALPHA GL_SOURCE1_ALPHA ; inline
-: GL_CURRENT_FOG_COORD GL_CURRENT_FOG_COORDINATE ; inline
-: GL_FOG_COORD_ARRAY_STRIDE GL_FOG_COORDINATE_ARRAY_STRIDE ; inline
-: GL_SRC0_ALPHA GL_SOURCE0_ALPHA ; inline
-: GL_SRC1_RGB GL_SOURCE1_RGB ; inline
-: GL_FOG_COORD_ARRAY_BUFFER_BINDING GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING ; inline
-: GL_SRC2_ALPHA GL_SOURCE2_ALPHA ; inline
-: GL_SRC2_RGB GL_SOURCE2_RGB ; inline
-
-TYPEDEF: ptrdiff_t GLsizeiptr
-TYPEDEF: ptrdiff_t GLintptr
-
-GL-FUNCTION: void glBeginQuery { glBeginQueryARB } ( GLenum target, GLuint id ) ;
-GL-FUNCTION: void glBindBuffer { glBindBufferARB } ( GLenum target, GLuint buffer ) ;
-GL-FUNCTION: void glBufferData { glBufferDataARB } ( GLenum target, GLsizeiptr size, GLvoid* data, GLenum usage ) ;
-GL-FUNCTION: void glBufferSubData { glBufferSubDataARB } ( GLenum target, GLintptr offset, GLsizeiptr size, GLvoid* data ) ;
-GL-FUNCTION: void glDeleteBuffers { glDeleteBuffersARB } ( GLsizei n, GLuint* buffers ) ;
-GL-FUNCTION: void glDeleteQueries { glDeleteQueriesARB } ( GLsizei n, GLuint* ids ) ;
-GL-FUNCTION: void glEndQuery { glEndQueryARB } ( GLenum target ) ;
-GL-FUNCTION: void glGenBuffers { glGenBuffersARB } ( GLsizei n, GLuint* buffers ) ;
-GL-FUNCTION: void glGenQueries { glGenQueriesARB } ( GLsizei n, GLuint* ids ) ;
-GL-FUNCTION: void glGetBufferParameteriv { glGetBufferParameterivARB } ( GLenum target, GLenum pname, GLint* params ) ;
-GL-FUNCTION: void glGetBufferPointerv { glGetBufferPointervARB } ( GLenum target, GLenum pname, GLvoid** params ) ;
-GL-FUNCTION: void glGetBufferSubData { glGetBufferSubDataARB } ( GLenum target, GLintptr offset, GLsizeiptr size, GLvoid* data ) ;
-GL-FUNCTION: void glGetQueryObjectiv { glGetQueryObjectivARB } ( GLuint id, GLenum pname, GLint* params ) ;
-GL-FUNCTION: void glGetQueryObjectuiv { glGetQueryObjectuivARB } ( GLuint id, GLenum pname, GLuint* params ) ;
-GL-FUNCTION: void glGetQueryiv { glGetQueryivARB } ( GLenum target, GLenum pname, GLint* params ) ;
-GL-FUNCTION: GLboolean glIsBuffer { glIsBufferARB } ( GLuint buffer ) ;
-GL-FUNCTION: GLboolean glIsQuery { glIsQueryARB } ( GLuint id ) ;
-GL-FUNCTION: GLvoid* glMapBuffer { glMapBufferARB } ( GLenum target, GLenum access ) ;
-GL-FUNCTION: GLboolean glUnmapBuffer { glUnmapBufferARB } ( GLenum target ) ;
-
-
-! OpenGL 2.0
-
-
-: GL_VERTEX_ATTRIB_ARRAY_ENABLED HEX: 8622 ; inline
-: GL_VERTEX_ATTRIB_ARRAY_SIZE HEX: 8623 ; inline
-: GL_VERTEX_ATTRIB_ARRAY_STRIDE HEX: 8624 ; inline
-: GL_VERTEX_ATTRIB_ARRAY_TYPE HEX: 8625 ; inline
-: GL_CURRENT_VERTEX_ATTRIB HEX: 8626 ; inline
-: GL_VERTEX_PROGRAM_POINT_SIZE HEX: 8642 ; inline
-: GL_VERTEX_PROGRAM_TWO_SIDE HEX: 8643 ; inline
-: GL_VERTEX_ATTRIB_ARRAY_POINTER HEX: 8645 ; inline
-: GL_STENCIL_BACK_FUNC HEX: 8800 ; inline
-: GL_STENCIL_BACK_FAIL HEX: 8801 ; inline
-: GL_STENCIL_BACK_PASS_DEPTH_FAIL HEX: 8802 ; inline
-: GL_STENCIL_BACK_PASS_DEPTH_PASS HEX: 8803 ; inline
-: GL_MAX_DRAW_BUFFERS HEX: 8824 ; inline
-: GL_DRAW_BUFFER0 HEX: 8825 ; inline
-: GL_DRAW_BUFFER1 HEX: 8826 ; inline
-: GL_DRAW_BUFFER2 HEX: 8827 ; inline
-: GL_DRAW_BUFFER3 HEX: 8828 ; inline
-: GL_DRAW_BUFFER4 HEX: 8829 ; inline
-: GL_DRAW_BUFFER5 HEX: 882A ; inline
-: GL_DRAW_BUFFER6 HEX: 882B ; inline
-: GL_DRAW_BUFFER7 HEX: 882C ; inline
-: GL_DRAW_BUFFER8 HEX: 882D ; inline
-: GL_DRAW_BUFFER9 HEX: 882E ; inline
-: GL_DRAW_BUFFER10 HEX: 882F ; inline
-: GL_DRAW_BUFFER11 HEX: 8830 ; inline
-: GL_DRAW_BUFFER12 HEX: 8831 ; inline
-: GL_DRAW_BUFFER13 HEX: 8832 ; inline
-: GL_DRAW_BUFFER14 HEX: 8833 ; inline
-: GL_DRAW_BUFFER15 HEX: 8834 ; inline
-: GL_BLEND_EQUATION_ALPHA HEX: 883D ; inline
-: GL_POINT_SPRITE HEX: 8861 ; inline
-: GL_COORD_REPLACE HEX: 8862 ; inline
-: GL_MAX_VERTEX_ATTRIBS HEX: 8869 ; inline
-: GL_VERTEX_ATTRIB_ARRAY_NORMALIZED HEX: 886A ; inline
-: GL_MAX_TEXTURE_COORDS HEX: 8871 ; inline
-: GL_MAX_TEXTURE_IMAGE_UNITS HEX: 8872 ; inline
-: GL_FRAGMENT_SHADER HEX: 8B30 ; inline
-: GL_VERTEX_SHADER HEX: 8B31 ; inline
-: GL_MAX_FRAGMENT_UNIFORM_COMPONENTS HEX: 8B49 ; inline
-: GL_MAX_VERTEX_UNIFORM_COMPONENTS HEX: 8B4A ; inline
-: GL_MAX_VARYING_FLOATS HEX: 8B4B ; inline
-: GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS HEX: 8B4C ; inline
-: GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS HEX: 8B4D ; inline
-: GL_SHADER_TYPE HEX: 8B4F ; inline
-: GL_FLOAT_VEC2 HEX: 8B50 ; inline
-: GL_FLOAT_VEC3 HEX: 8B51 ; inline
-: GL_FLOAT_VEC4 HEX: 8B52 ; inline
-: GL_INT_VEC2 HEX: 8B53 ; inline
-: GL_INT_VEC3 HEX: 8B54 ; inline
-: GL_INT_VEC4 HEX: 8B55 ; inline
-: GL_BOOL HEX: 8B56 ; inline
-: GL_BOOL_VEC2 HEX: 8B57 ; inline
-: GL_BOOL_VEC3 HEX: 8B58 ; inline
-: GL_BOOL_VEC4 HEX: 8B59 ; inline
-: GL_FLOAT_MAT2 HEX: 8B5A ; inline
-: GL_FLOAT_MAT3 HEX: 8B5B ; inline
-: GL_FLOAT_MAT4 HEX: 8B5C ; inline
-: GL_SAMPLER_1D HEX: 8B5D ; inline
-: GL_SAMPLER_2D HEX: 8B5E ; inline
-: GL_SAMPLER_3D HEX: 8B5F ; inline
-: GL_SAMPLER_CUBE HEX: 8B60 ; inline
-: GL_SAMPLER_1D_SHADOW HEX: 8B61 ; inline
-: GL_SAMPLER_2D_SHADOW HEX: 8B62 ; inline
-: GL_DELETE_STATUS HEX: 8B80 ; inline
-: GL_COMPILE_STATUS HEX: 8B81 ; inline
-: GL_LINK_STATUS HEX: 8B82 ; inline
-: GL_VALIDATE_STATUS HEX: 8B83 ; inline
-: GL_INFO_LOG_LENGTH HEX: 8B84 ; inline
-: GL_ATTACHED_SHADERS HEX: 8B85 ; inline
-: GL_ACTIVE_UNIFORMS HEX: 8B86 ; inline
-: GL_ACTIVE_UNIFORM_MAX_LENGTH HEX: 8B87 ; inline
-: GL_SHADER_SOURCE_LENGTH HEX: 8B88 ; inline
-: GL_ACTIVE_ATTRIBUTES HEX: 8B89 ; inline
-: GL_ACTIVE_ATTRIBUTE_MAX_LENGTH HEX: 8B8A ; inline
-: GL_FRAGMENT_SHADER_DERIVATIVE_HINT HEX: 8B8B ; inline
-: GL_SHADING_LANGUAGE_VERSION HEX: 8B8C ; inline
-: GL_CURRENT_PROGRAM HEX: 8B8D ; inline
-: GL_POINT_SPRITE_COORD_ORIGIN HEX: 8CA0 ; inline
-: GL_LOWER_LEFT HEX: 8CA1 ; inline
-: GL_UPPER_LEFT HEX: 8CA2 ; inline
-: GL_STENCIL_BACK_REF HEX: 8CA3 ; inline
-: GL_STENCIL_BACK_VALUE_MASK HEX: 8CA4 ; inline
-: GL_STENCIL_BACK_WRITEMASK HEX: 8CA5 ; inline
-: GL_BLEND_EQUATION HEX: 8009 ; inline
-: GL_BLEND_EQUATION_RGB GL_BLEND_EQUATION ; inline
-
-TYPEDEF: char GLchar
-
-GL-FUNCTION: void glAttachShader { glAttachObjectARB } ( GLuint program, GLuint shader ) ;
-GL-FUNCTION: void glBindAttribLocation { glBindAttribLocationARB } ( GLuint program, GLuint index, GLchar* name ) ;
-GL-FUNCTION: void glBlendEquationSeparate { glBlendEquationSeparateEXT } ( GLenum modeRGB, GLenum modeAlpha ) ;
-GL-FUNCTION: void glCompileShader { glCompileShaderARB } ( GLuint shader ) ;
-GL-FUNCTION: GLuint glCreateProgram { glCreateProgramObjectARB } ( ) ;
-GL-FUNCTION: GLuint glCreateShader { glCreateShaderObjectARB } ( GLenum type ) ;
-GL-FUNCTION: void glDeleteProgram { glDeleteObjectARB } ( GLuint program ) ;
-GL-FUNCTION: void glDeleteShader { glDeleteObjectARB } ( GLuint shader ) ;
-GL-FUNCTION: void glDetachShader { glDetachObjectARB } ( GLuint program, GLuint shader ) ;
-GL-FUNCTION: void glDisableVertexAttribArray { glDisableVertexAttribArrayARB } ( GLuint index ) ;
-GL-FUNCTION: void glDrawBuffers { glDrawBuffersARB glDrawBuffersATI } ( GLsizei n, GLenum* bufs ) ;
-GL-FUNCTION: void glEnableVertexAttribArray { glEnableVertexAttribArrayARB } ( GLuint index ) ;
-GL-FUNCTION: void glGetActiveAttrib { glGetActiveAttribARB } ( GLuint program, GLuint index, GLsizei maxLength, GLsizei* length, GLint* size, GLenum* type, GLchar* name ) ;
-GL-FUNCTION: void glGetActiveUniform { glGetActiveUniformARB } ( GLuint program, GLuint index, GLsizei maxLength, GLsizei* length, GLint* size, GLenum* type, GLchar* name ) ;
-GL-FUNCTION: void glGetAttachedShaders { glGetAttachedObjectsARB } ( GLuint program, GLsizei maxCount, GLsizei* count, GLuint* shaders ) ;
-GL-FUNCTION: GLint glGetAttribLocation { glGetAttribLocationARB } ( GLuint program, GLchar* name ) ;
-GL-FUNCTION: void glGetProgramInfoLog { glGetInfoLogARB } ( GLuint program, GLsizei bufSize, GLsizei* length, GLchar* infoLog ) ;
-GL-FUNCTION: void glGetProgramiv { glGetObjectParameterivARB } ( GLuint program, GLenum pname, GLint* param ) ;
-GL-FUNCTION: void glGetShaderInfoLog { glGetInfoLogARB } ( GLuint shader, GLsizei bufSize, GLsizei* length, GLchar* infoLog ) ;
-GL-FUNCTION: void glGetShaderSource { glGetShaderSourceARB } ( GLint obj, GLsizei maxLength, GLsizei* length, GLchar* source ) ;
-GL-FUNCTION: void glGetShaderiv { glGetObjectParameterivARB } ( GLuint shader, GLenum pname, GLint* param ) ;
-GL-FUNCTION: GLint glGetUniformLocation { glGetUniformLocationARB } ( GLint programObj, GLchar* name ) ;
-GL-FUNCTION: void glGetUniformfv { glGetUniformfvARB } ( GLuint program, GLint location, GLfloat* params ) ;
-GL-FUNCTION: void glGetUniformiv { glGetUniformivARB } ( GLuint program, GLint location, GLint* params ) ;
-GL-FUNCTION: void glGetVertexAttribPointerv { glGetVertexAttribPointervARB } ( GLuint index, GLenum pname, GLvoid** pointer ) ;
-GL-FUNCTION: void glGetVertexAttribdv { glGetVertexAttribdvARB } ( GLuint index, GLenum pname, GLdouble* params ) ;
-GL-FUNCTION: void glGetVertexAttribfv { glGetVertexAttribfvARB } ( GLuint index, GLenum pname, GLfloat* params ) ;
-GL-FUNCTION: void glGetVertexAttribiv { glGetVertexAttribivARB } ( GLuint index, GLenum pname, GLint* params ) ;
-GL-FUNCTION: GLboolean glIsProgram { glIsProgramARB } ( GLuint program ) ;
-GL-FUNCTION: GLboolean glIsShader { glIsShaderARB } ( GLuint shader ) ;
-GL-FUNCTION: void glLinkProgram { glLinkProgramARB } ( GLuint program ) ;
-GL-FUNCTION: void glShaderSource { glShaderSourceARB } ( GLuint shader, GLsizei count, GLchar** strings, GLint* lengths ) ;
-GL-FUNCTION: void glStencilFuncSeparate { glStencilFuncSeparateATI } ( GLenum frontfunc, GLenum backfunc, GLint ref, GLuint mask ) ;
-GL-FUNCTION: void glStencilMaskSeparate { } ( GLenum face, GLuint mask ) ;
-GL-FUNCTION: void glStencilOpSeparate { glStencilOpSeparateATI } ( GLenum face, GLenum sfail, GLenum dpfail, GLenum dppass ) ;
-GL-FUNCTION: void glUniform1f { glUniform1fARB } ( GLint location, GLfloat v0 ) ;
-GL-FUNCTION: void glUniform1fv { glUniform1fvARB } ( GLint location, GLsizei count, GLfloat* value ) ;
-GL-FUNCTION: void glUniform1i { glUniform1iARB } ( GLint location, GLint v0 ) ;
-GL-FUNCTION: void glUniform1iv { glUniform1ivARB } ( GLint location, GLsizei count, GLint* value ) ;
-GL-FUNCTION: void glUniform2f { glUniform2fARB } ( GLint location, GLfloat v0, GLfloat v1 ) ;
-GL-FUNCTION: void glUniform2fv { glUniform2fvARB } ( GLint location, GLsizei count, GLfloat* value ) ;
-GL-FUNCTION: void glUniform2i { glUniform2iARB } ( GLint location, GLint v0, GLint v1 ) ;
-GL-FUNCTION: void glUniform2iv { glUniform2ivARB } ( GLint location, GLsizei count, GLint* value ) ;
-GL-FUNCTION: void glUniform3f { glUniform3fARB } ( GLint location, GLfloat v0, GLfloat v1, GLfloat v2 ) ;
-GL-FUNCTION: void glUniform3fv { glUniform3fvARB } ( GLint location, GLsizei count, GLfloat* value ) ;
-GL-FUNCTION: void glUniform3i { glUniform3iARB } ( GLint location, GLint v0, GLint v1, GLint v2 ) ;
-GL-FUNCTION: void glUniform3iv { glUniform3ivARB } ( GLint location, GLsizei count, GLint* value ) ;
-GL-FUNCTION: void glUniform4f { glUniform4fARB } ( GLint location, GLfloat v0, GLfloat v1, GLfloat v2, GLfloat v3 ) ;
-GL-FUNCTION: void glUniform4fv { glUniform4fvARB } ( GLint location, GLsizei count, GLfloat* value ) ;
-GL-FUNCTION: void glUniform4i { glUniform4iARB } ( GLint location, GLint v0, GLint v1, GLint v2, GLint v3 ) ;
-GL-FUNCTION: void glUniform4iv { glUniform4ivARB } ( GLint location, GLsizei count, GLint* value ) ;
-GL-FUNCTION: void glUniformMatrix2fv { glUniformMatrix2fvARB } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
-GL-FUNCTION: void glUniformMatrix3fv { glUniformMatrix3fvARB } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
-GL-FUNCTION: void glUniformMatrix4fv { glUniformMatrix4fvARB } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
-GL-FUNCTION: void glUseProgram { glUseProgramObjectARB } ( GLuint program ) ;
-GL-FUNCTION: void glValidateProgram { glValidateProgramARB } ( GLuint program ) ;
-GL-FUNCTION: void glVertexAttrib1d { glVertexAttrib1dARB } ( GLuint index, GLdouble x ) ;
-GL-FUNCTION: void glVertexAttrib1dv { glVertexAttrib1dvARB } ( GLuint index, GLdouble* v ) ;
-GL-FUNCTION: void glVertexAttrib1f { glVertexAttrib1fARB } ( GLuint index, GLfloat x ) ;
-GL-FUNCTION: void glVertexAttrib1fv { glVertexAttrib1fvARB } ( GLuint index, GLfloat* v ) ;
-GL-FUNCTION: void glVertexAttrib1s { glVertexAttrib1sARB } ( GLuint index, GLshort x ) ;
-GL-FUNCTION: void glVertexAttrib1sv { glVertexAttrib1svARB } ( GLuint index, GLshort* v ) ;
-GL-FUNCTION: void glVertexAttrib2d { glVertexAttrib2dARB } ( GLuint index, GLdouble x, GLdouble y ) ;
-GL-FUNCTION: void glVertexAttrib2dv { glVertexAttrib2dvARB } ( GLuint index, GLdouble* v ) ;
-GL-FUNCTION: void glVertexAttrib2f { glVertexAttrib2fARB } ( GLuint index, GLfloat x, GLfloat y ) ;
-GL-FUNCTION: void glVertexAttrib2fv { glVertexAttrib2fvARB } ( GLuint index, GLfloat* v ) ;
-GL-FUNCTION: void glVertexAttrib2s { glVertexAttrib2sARB } ( GLuint index, GLshort x, GLshort y ) ;
-GL-FUNCTION: void glVertexAttrib2sv { glVertexAttrib2svARB } ( GLuint index, GLshort* v ) ;
-GL-FUNCTION: void glVertexAttrib3d { glVertexAttrib3dARB } ( GLuint index, GLdouble x, GLdouble y, GLdouble z ) ;
-GL-FUNCTION: void glVertexAttrib3dv { glVertexAttrib3dvARB } ( GLuint index, GLdouble* v ) ;
-GL-FUNCTION: void glVertexAttrib3f { glVertexAttrib3fARB } ( GLuint index, GLfloat x, GLfloat y, GLfloat z ) ;
-GL-FUNCTION: void glVertexAttrib3fv { glVertexAttrib3fvARB } ( GLuint index, GLfloat* v ) ;
-GL-FUNCTION: void glVertexAttrib3s { glVertexAttrib3sARB } ( GLuint index, GLshort x, GLshort y, GLshort z ) ;
-GL-FUNCTION: void glVertexAttrib3sv { glVertexAttrib3svARB } ( GLuint index, GLshort* v ) ;
-GL-FUNCTION: void glVertexAttrib4Nbv { glVertexAttrib4NbvARB } ( GLuint index, GLbyte* v ) ;
-GL-FUNCTION: void glVertexAttrib4Niv { glVertexAttrib4NivARB } ( GLuint index, GLint* v ) ;
-GL-FUNCTION: void glVertexAttrib4Nsv { glVertexAttrib4NsvARB } ( GLuint index, GLshort* v ) ;
-GL-FUNCTION: void glVertexAttrib4Nub { glVertexAttrib4NubARB } ( GLuint index, GLubyte x, GLubyte y, GLubyte z, GLubyte w ) ;
-GL-FUNCTION: void glVertexAttrib4Nubv { glVertexAttrib4NubvARB } ( GLuint index, GLubyte* v ) ;
-GL-FUNCTION: void glVertexAttrib4Nuiv { glVertexAttrib4NuivARB } ( GLuint index, GLuint* v ) ;
-GL-FUNCTION: void glVertexAttrib4Nusv { glVertexAttrib4NusvARB } ( GLuint index, GLushort* v ) ;
-GL-FUNCTION: void glVertexAttrib4bv { glVertexAttrib4bvARB } ( GLuint index, GLbyte* v ) ;
-GL-FUNCTION: void glVertexAttrib4d { glVertexAttrib4dARB } ( GLuint index, GLdouble x, GLdouble y, GLdouble z, GLdouble w ) ;
-GL-FUNCTION: void glVertexAttrib4dv { glVertexAttrib4dvARB } ( GLuint index, GLdouble* v ) ;
-GL-FUNCTION: void glVertexAttrib4f { glVertexAttrib4fARB } ( GLuint index, GLfloat x, GLfloat y, GLfloat z, GLfloat w ) ;
-GL-FUNCTION: void glVertexAttrib4fv { glVertexAttrib4fvARB } ( GLuint index, GLfloat* v ) ;
-GL-FUNCTION: void glVertexAttrib4iv { glVertexAttrib4ivARB } ( GLuint index, GLint* v ) ;
-GL-FUNCTION: void glVertexAttrib4s { glVertexAttrib4sARB } ( GLuint index, GLshort x, GLshort y, GLshort z, GLshort w ) ;
-GL-FUNCTION: void glVertexAttrib4sv { glVertexAttrib4svARB } ( GLuint index, GLshort* v ) ;
-GL-FUNCTION: void glVertexAttrib4ubv { glVertexAttrib4ubvARB } ( GLuint index, GLubyte* v ) ;
-GL-FUNCTION: void glVertexAttrib4uiv { glVertexAttrib4uivARB } ( GLuint index, GLuint* v ) ;
-GL-FUNCTION: void glVertexAttrib4usv { glVertexAttrib4usvARB } ( GLuint index, GLushort* v ) ;
-GL-FUNCTION: void glVertexAttribPointer { glVertexAttribPointerARB } ( GLuint index, GLint size, GLenum type, GLboolean normalized, GLsizei stride, GLvoid* pointer ) ;
-
-
-! OpenGL 2.1
-
-
-: GL_CURRENT_RASTER_SECONDARY_COLOR HEX: 845F ; inline
-: GL_PIXEL_PACK_BUFFER HEX: 88EB ; inline
-: GL_PIXEL_UNPACK_BUFFER HEX: 88EC ; inline
-: GL_PIXEL_PACK_BUFFER_BINDING HEX: 88ED ; inline
-: GL_PIXEL_UNPACK_BUFFER_BINDING HEX: 88EF ; inline
-: GL_SRGB HEX: 8C40 ; inline
-: GL_SRGB8 HEX: 8C41 ; inline
-: GL_SRGB_ALPHA HEX: 8C42 ; inline
-: GL_SRGB8_ALPHA8 HEX: 8C43 ; inline
-: GL_SLUMINANCE_ALPHA HEX: 8C44 ; inline
-: GL_SLUMINANCE8_ALPHA8 HEX: 8C45 ; inline
-: GL_SLUMINANCE HEX: 8C46 ; inline
-: GL_SLUMINANCE8 HEX: 8C47 ; inline
-: GL_COMPRESSED_SRGB HEX: 8C48 ; inline
-: GL_COMPRESSED_SRGB_ALPHA HEX: 8C49 ; inline
-: GL_COMPRESSED_SLUMINANCE HEX: 8C4A ; inline
-: GL_COMPRESSED_SLUMINANCE_ALPHA HEX: 8C4B ; inline
-
-GL-FUNCTION: void glUniformMatrix2x3fv { } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
-GL-FUNCTION: void glUniformMatrix2x4fv { } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
-GL-FUNCTION: void glUniformMatrix3x2fv { } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
-GL-FUNCTION: void glUniformMatrix3x4fv { } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
-GL-FUNCTION: void glUniformMatrix4x2fv { } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
-GL-FUNCTION: void glUniformMatrix4x3fv { } ( GLint location, GLsizei count, GLboolean transpose, GLfloat* value ) ;
-
-
-! GL_EXT_framebuffer_object
-
-
-: GL_INVALID_FRAMEBUFFER_OPERATION_EXT HEX: 0506 ; inline
-: GL_MAX_RENDERBUFFER_SIZE_EXT HEX: 84E8 ; inline
-: GL_FRAMEBUFFER_BINDING_EXT HEX: 8CA6 ; inline
-: GL_RENDERBUFFER_BINDING_EXT HEX: 8CA7 ; inline
-: GL_FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE_EXT HEX: 8CD0 ; inline
-: GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_EXT HEX: 8CD1 ; inline
-: GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL_EXT HEX: 8CD2 ; inline
-: GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE_EXT HEX: 8CD3 ; inline
-: GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_3D_ZOFFSET_EXT HEX: 8CD4 ; inline
-: GL_FRAMEBUFFER_COMPLETE_EXT HEX: 8CD5 ; inline
-: GL_FRAMEBUFFER_INCOMPLETE_ATTACHMENT_EXT HEX: 8CD6 ; inline
-: GL_FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT_EXT HEX: 8CD7 ; inline
-: GL_FRAMEBUFFER_INCOMPLETE_DIMENSIONS_EXT HEX: 8CD9 ; inline
-: GL_FRAMEBUFFER_INCOMPLETE_FORMATS_EXT HEX: 8CDA ; inline
-: GL_FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER_EXT HEX: 8CDB ; inline
-: GL_FRAMEBUFFER_INCOMPLETE_READ_BUFFER_EXT HEX: 8CDC ; inline
-: GL_FRAMEBUFFER_UNSUPPORTED_EXT HEX: 8CDD ; inline
-: GL_MAX_COLOR_ATTACHMENTS_EXT HEX: 8CDF ; inline
-: GL_COLOR_ATTACHMENT0_EXT HEX: 8CE0 ; inline
-: GL_COLOR_ATTACHMENT1_EXT HEX: 8CE1 ; inline
-: GL_COLOR_ATTACHMENT2_EXT HEX: 8CE2 ; inline
-: GL_COLOR_ATTACHMENT3_EXT HEX: 8CE3 ; inline
-: GL_COLOR_ATTACHMENT4_EXT HEX: 8CE4 ; inline
-: GL_COLOR_ATTACHMENT5_EXT HEX: 8CE5 ; inline
-: GL_COLOR_ATTACHMENT6_EXT HEX: 8CE6 ; inline
-: GL_COLOR_ATTACHMENT7_EXT HEX: 8CE7 ; inline
-: GL_COLOR_ATTACHMENT8_EXT HEX: 8CE8 ; inline
-: GL_COLOR_ATTACHMENT9_EXT HEX: 8CE9 ; inline
-: GL_COLOR_ATTACHMENT10_EXT HEX: 8CEA ; inline
-: GL_COLOR_ATTACHMENT11_EXT HEX: 8CEB ; inline
-: GL_COLOR_ATTACHMENT12_EXT HEX: 8CEC ; inline
-: GL_COLOR_ATTACHMENT13_EXT HEX: 8CED ; inline
-: GL_COLOR_ATTACHMENT14_EXT HEX: 8CEE ; inline
-: GL_COLOR_ATTACHMENT15_EXT HEX: 8CEF ; inline
-: GL_DEPTH_ATTACHMENT_EXT HEX: 8D00 ; inline
-: GL_STENCIL_ATTACHMENT_EXT HEX: 8D20 ; inline
-: GL_FRAMEBUFFER_EXT HEX: 8D40 ; inline
-: GL_RENDERBUFFER_EXT HEX: 8D41 ; inline
-: GL_RENDERBUFFER_WIDTH_EXT HEX: 8D42 ; inline
-: GL_RENDERBUFFER_HEIGHT_EXT HEX: 8D43 ; inline
-: GL_RENDERBUFFER_INTERNAL_FORMAT_EXT HEX: 8D44 ; inline
-: GL_STENCIL_INDEX1_EXT HEX: 8D46 ; inline
-: GL_STENCIL_INDEX4_EXT HEX: 8D47 ; inline
-: GL_STENCIL_INDEX8_EXT HEX: 8D48 ; inline
-: GL_STENCIL_INDEX16_EXT HEX: 8D49 ; inline
-: GL_RENDERBUFFER_RED_SIZE_EXT HEX: 8D50 ; inline
-: GL_RENDERBUFFER_GREEN_SIZE_EXT HEX: 8D51 ; inline
-: GL_RENDERBUFFER_BLUE_SIZE_EXT HEX: 8D52 ; inline
-: GL_RENDERBUFFER_ALPHA_SIZE_EXT HEX: 8D53 ; inline
-: GL_RENDERBUFFER_DEPTH_SIZE_EXT HEX: 8D54 ; inline
-: GL_RENDERBUFFER_STENCIL_SIZE_EXT HEX: 8D55 ; inline
-
-GL-FUNCTION: void glBindFramebufferEXT { } ( GLenum target, GLuint framebuffer ) ;
-GL-FUNCTION: void glBindRenderbufferEXT { } ( GLenum target, GLuint renderbuffer ) ;
-GL-FUNCTION: GLenum glCheckFramebufferStatusEXT { } ( GLenum target ) ;
-GL-FUNCTION: void glDeleteFramebuffersEXT { } ( GLsizei n, GLuint* framebuffers ) ;
-GL-FUNCTION: void glDeleteRenderbuffersEXT { } ( GLsizei n, GLuint* renderbuffers ) ;
-GL-FUNCTION: void glFramebufferRenderbufferEXT { } ( GLenum target, GLenum attachment, GLenum renderbuffertarget, GLuint renderbuffer ) ;
-GL-FUNCTION: void glFramebufferTexture1DEXT { } ( GLenum target, GLenum attachment, GLenum textarget, GLuint texture, GLint level ) ;
-GL-FUNCTION: void glFramebufferTexture2DEXT { } ( GLenum target, GLenum attachment, GLenum textarget, GLuint texture, GLint level ) ;
-GL-FUNCTION: void glFramebufferTexture3DEXT { } ( GLenum target, GLenum attachment, GLenum textarget, GLuint texture, GLint level, GLint zoffset ) ;
-GL-FUNCTION: void glGenFramebuffersEXT { } ( GLsizei n, GLuint* framebuffers ) ;
-GL-FUNCTION: void glGenRenderbuffersEXT { } ( GLsizei n, GLuint* renderbuffers ) ;
-GL-FUNCTION: void glGenerateMipmapEXT { } ( GLenum target ) ;
-GL-FUNCTION: void glGetFramebufferAttachmentParameterivEXT { } ( GLenum target, GLenum attachment, GLenum pname, GLint* params ) ;
-GL-FUNCTION: void glGetRenderbufferParameterivEXT { } ( GLenum target, GLenum pname, GLint* params ) ;
-GL-FUNCTION: GLboolean glIsFramebufferEXT { } ( GLuint framebuffer ) ;
-GL-FUNCTION: GLboolean glIsRenderbufferEXT { } ( GLuint renderbuffer ) ;
-GL-FUNCTION: void glRenderbufferStorageEXT { } ( GLenum target, GLenum internalformat, GLsizei width, GLsizei height ) ;
-
-
-! GL_ARB_texture_float
-
-
-: GL_RGBA32F_ARB HEX: 8814 ; inline
-: GL_RGB32F_ARB HEX: 8815 ; inline
-: GL_ALPHA32F_ARB HEX: 8816 ; inline
-: GL_INTENSITY32F_ARB HEX: 8817 ; inline
-: GL_LUMINANCE32F_ARB HEX: 8818 ; inline
-: GL_LUMINANCE_ALPHA32F_ARB HEX: 8819 ; inline
-: GL_RGBA16F_ARB HEX: 881A ; inline
-: GL_RGB16F_ARB HEX: 881B ; inline
-: GL_ALPHA16F_ARB HEX: 881C ; inline
-: GL_INTENSITY16F_ARB HEX: 881D ; inline
-: GL_LUMINANCE16F_ARB HEX: 881E ; inline
-: GL_LUMINANCE_ALPHA16F_ARB HEX: 881F ; inline
-: GL_TEXTURE_RED_TYPE_ARB HEX: 8C10 ; inline
-: GL_TEXTURE_GREEN_TYPE_ARB HEX: 8C11 ; inline
-: GL_TEXTURE_BLUE_TYPE_ARB HEX: 8C12 ; inline
-: GL_TEXTURE_ALPHA_TYPE_ARB HEX: 8C13 ; inline
-: GL_TEXTURE_LUMINANCE_TYPE_ARB HEX: 8C14 ; inline
-: GL_TEXTURE_INTENSITY_TYPE_ARB HEX: 8C15 ; inline
-: GL_TEXTURE_DEPTH_TYPE_ARB HEX: 8C16 ; inline
-: GL_UNSIGNED_NORMALIZED_ARB HEX: 8C17 ; inline
-
+++ /dev/null
-USING: kernel alien ;
-IN: opengl.gl.macosx
-
-: gl-function-context ( -- context ) 0 ; inline
-: gl-function-address ( name -- address ) f dlsym ; inline
-: gl-function-calling-convention ( -- str ) "cdecl" ; inline
+++ /dev/null
-unportable
+++ /dev/null
-OpenGL binding - libGL
+++ /dev/null
-unportable
+++ /dev/null
-USING: kernel x11.glx ;
-IN: opengl.gl.unix
-
-: gl-function-context ( -- context ) glXGetCurrentContext ; inline
-: gl-function-address ( name -- address ) glXGetProcAddressARB ; inline
-: gl-function-calling-convention ( -- str ) "cdecl" ; inline
+++ /dev/null
-unportable
-windows
+++ /dev/null
-USING: kernel windows.opengl32 ;
-IN: opengl.gl.windows
-
-: gl-function-context ( -- context ) wglGetCurrentContext ; inline
-: gl-function-address ( name -- address ) wglGetProcAddress ; inline
-: gl-function-calling-convention ( -- str ) "stdcall" ; inline
+++ /dev/null
-Slava Pestov
+++ /dev/null
-! Copyright (C) 2005 Alex Chapman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.syntax kernel sequences words ;
-IN: opengl.glu
-
-! These are defined as structs in glu.h, but we only ever use pointers to them
-TYPEDEF: void* GLUnurbs*
-TYPEDEF: void* GLUquadric*
-TYPEDEF: void* GLUtesselator*
-TYPEDEF: void* GLubyte*
-TYPEDEF: void* GLUfuncptr
-
-! StringName
-: GLU_VERSION 100800 ;
-: GLU_EXTENSIONS 100801 ;
-
-! ErrorCode
-: GLU_INVALID_ENUM 100900 ;
-: GLU_INVALID_VALUE 100901 ;
-: GLU_OUT_OF_MEMORY 100902 ;
-: GLU_INCOMPATIBLE_GL_VERSION 100903 ;
-: GLU_INVALID_OPERATION 100904 ;
-
-! NurbsDisplay
-: GLU_OUTLINE_POLYGON 100240 ;
-: GLU_OUTLINE_PATCH 100241 ;
-
-! NurbsCallback
-: GLU_NURBS_ERROR 100103 ;
-: GLU_ERROR 100103 ;
-: GLU_NURBS_BEGIN 100164 ;
-: GLU_NURBS_BEGIN_EXT 100164 ;
-: GLU_NURBS_VERTEX 100165 ;
-: GLU_NURBS_VERTEX_EXT 100165 ;
-: GLU_NURBS_NORMAL 100166 ;
-: GLU_NURBS_NORMAL_EXT 100166 ;
-: GLU_NURBS_COLOR 100167 ;
-: GLU_NURBS_COLOR_EXT 100167 ;
-: GLU_NURBS_TEXTURE_COORD 100168 ;
-: GLU_NURBS_TEX_COORD_EXT 100168 ;
-: GLU_NURBS_END 100169 ;
-: GLU_NURBS_END_EXT 100169 ;
-: GLU_NURBS_BEGIN_DATA 100170 ;
-: GLU_NURBS_BEGIN_DATA_EXT 100170 ;
-: GLU_NURBS_VERTEX_DATA 100171 ;
-: GLU_NURBS_VERTEX_DATA_EXT 100171 ;
-: GLU_NURBS_NORMAL_DATA 100172 ;
-: GLU_NURBS_NORMAL_DATA_EXT 100172 ;
-: GLU_NURBS_COLOR_DATA 100173 ;
-: GLU_NURBS_COLOR_DATA_EXT 100173 ;
-: GLU_NURBS_TEXTURE_COORD_DATA 100174 ;
-: GLU_NURBS_TEX_COORD_DATA_EXT 100174 ;
-: GLU_NURBS_END_DATA 100175 ;
-: GLU_NURBS_END_DATA_EXT 100175 ;
-
-! NurbsError
-: GLU_NURBS_ERROR1 100251 ;
-: GLU_NURBS_ERROR2 100252 ;
-: GLU_NURBS_ERROR3 100253 ;
-: GLU_NURBS_ERROR4 100254 ;
-: GLU_NURBS_ERROR5 100255 ;
-: GLU_NURBS_ERROR6 100256 ;
-: GLU_NURBS_ERROR7 100257 ;
-: GLU_NURBS_ERROR8 100258 ;
-: GLU_NURBS_ERROR9 100259 ;
-: GLU_NURBS_ERROR10 100260 ;
-: GLU_NURBS_ERROR11 100261 ;
-: GLU_NURBS_ERROR12 100262 ;
-: GLU_NURBS_ERROR13 100263 ;
-: GLU_NURBS_ERROR14 100264 ;
-: GLU_NURBS_ERROR15 100265 ;
-: GLU_NURBS_ERROR16 100266 ;
-: GLU_NURBS_ERROR17 100267 ;
-: GLU_NURBS_ERROR18 100268 ;
-: GLU_NURBS_ERROR19 100269 ;
-: GLU_NURBS_ERROR20 100270 ;
-: GLU_NURBS_ERROR21 100271 ;
-: GLU_NURBS_ERROR22 100272 ;
-: GLU_NURBS_ERROR23 100273 ;
-: GLU_NURBS_ERROR24 100274 ;
-: GLU_NURBS_ERROR25 100275 ;
-: GLU_NURBS_ERROR26 100276 ;
-: GLU_NURBS_ERROR27 100277 ;
-: GLU_NURBS_ERROR28 100278 ;
-: GLU_NURBS_ERROR29 100279 ;
-: GLU_NURBS_ERROR30 100280 ;
-: GLU_NURBS_ERROR31 100281 ;
-: GLU_NURBS_ERROR32 100282 ;
-: GLU_NURBS_ERROR33 100283 ;
-: GLU_NURBS_ERROR34 100284 ;
-: GLU_NURBS_ERROR35 100285 ;
-: GLU_NURBS_ERROR36 100286 ;
-: GLU_NURBS_ERROR37 100287 ;
-
-! NurbsProperty
-: GLU_AUTO_LOAD_MATRIX 100200 ;
-: GLU_CULLING 100201 ;
-: GLU_SAMPLING_TOLERANCE 100203 ;
-: GLU_DISPLAY_MODE 100204 ;
-: GLU_PARAMETRIC_TOLERANCE 100202 ;
-: GLU_SAMPLING_METHOD 100205 ;
-: GLU_U_STEP 100206 ;
-: GLU_V_STEP 100207 ;
-: GLU_NURBS_MODE 100160 ;
-: GLU_NURBS_MODE_EXT 100160 ;
-: GLU_NURBS_TESSELLATOR 100161 ;
-: GLU_NURBS_TESSELLATOR_EXT 100161 ;
-: GLU_NURBS_RENDERER 100162 ;
-: GLU_NURBS_RENDERER_EXT 100162 ;
-
-! NurbsSampling
-: GLU_OBJECT_PARAMETRIC_ERROR 100208 ;
-: GLU_OBJECT_PARAMETRIC_ERROR_EXT 100208 ;
-: GLU_OBJECT_PATH_LENGTH 100209 ;
-: GLU_OBJECT_PATH_LENGTH_EXT 100209 ;
-: GLU_PATH_LENGTH 100215 ;
-: GLU_PARAMETRIC_ERROR 100216 ;
-: GLU_DOMAIN_DISTANCE 100217 ;
-
-! NurbsTrim
-: GLU_MAP1_TRIM_2 100210 ;
-: GLU_MAP1_TRIM_3 100211 ;
-
-! QuadricDrawStyle
-: GLU_POINT 100010 ;
-: GLU_LINE 100011 ;
-: GLU_FILL 100012 ;
-: GLU_SILHOUETTE 100013 ;
-
-! QuadricNormal
-: GLU_SMOOTH 100000 ;
-: GLU_FLAT 100001 ;
-: GLU_NONE 100002 ;
-
-! QuadricOrientation
-: GLU_OUTSIDE 100020 ;
-: GLU_INSIDE 100021 ;
-
-! TessCallback
-: GLU_TESS_BEGIN 100100 ;
-: GLU_BEGIN 100100 ;
-: GLU_TESS_VERTEX 100101 ;
-: GLU_VERTEX 100101 ;
-: GLU_TESS_END 100102 ;
-: GLU_END 100102 ;
-: GLU_TESS_ERROR 100103 ;
-: GLU_TESS_EDGE_FLAG 100104 ;
-: GLU_EDGE_FLAG 100104 ;
-: GLU_TESS_COMBINE 100105 ;
-: GLU_TESS_BEGIN_DATA 100106 ;
-: GLU_TESS_VERTEX_DATA 100107 ;
-: GLU_TESS_END_DATA 100108 ;
-: GLU_TESS_ERROR_DATA 100109 ;
-: GLU_TESS_EDGE_FLAG_DATA 100110 ;
-: GLU_TESS_COMBINE_DATA 100111 ;
-
-! TessContour
-: GLU_CW 100120 ;
-: GLU_CCW 100121 ;
-: GLU_INTERIOR 100122 ;
-: GLU_EXTERIOR 100123 ;
-: GLU_UNKNOWN 100124 ;
-
-! TessProperty
-: GLU_TESS_WINDING_RULE 100140 ;
-: GLU_TESS_BOUNDARY_ONLY 100141 ;
-: GLU_TESS_TOLERANCE 100142 ;
-
-! TessError
-: GLU_TESS_ERROR1 100151 ;
-: GLU_TESS_ERROR2 100152 ;
-: GLU_TESS_ERROR3 100153 ;
-: GLU_TESS_ERROR4 100154 ;
-: GLU_TESS_ERROR5 100155 ;
-: GLU_TESS_ERROR6 100156 ;
-: GLU_TESS_ERROR7 100157 ;
-: GLU_TESS_ERROR8 100158 ;
-: GLU_TESS_MISSING_BEGIN_POLYGON 100151 ;
-: GLU_TESS_MISSING_BEGIN_CONTOUR 100152 ;
-: GLU_TESS_MISSING_END_POLYGON 100153 ;
-: GLU_TESS_MISSING_END_CONTOUR 100154 ;
-: GLU_TESS_COORD_TOO_LARGE 100155 ;
-: GLU_TESS_NEED_COMBINE_CALLBACK 100156 ;
-
-! TessWinding
-: GLU_TESS_WINDING_ODD 100130 ;
-: GLU_TESS_WINDING_NONZERO 100131 ;
-: GLU_TESS_WINDING_POSITIVE 100132 ;
-: GLU_TESS_WINDING_NEGATIVE 100133 ;
-: GLU_TESS_WINDING_ABS_GEQ_TWO 100134 ;
-
-LIBRARY: glu
-
-FUNCTION: void gluBeginCurve ( GLUnurbs* nurb ) ;
-FUNCTION: void gluBeginPolygon ( GLUtesselator* tess ) ;
-FUNCTION: void gluBeginSurface ( GLUnurbs* nurb ) ;
-FUNCTION: void gluBeginTrim ( GLUnurbs* nurb ) ;
-
-FUNCTION: void gluCylinder ( GLUquadric* quad, GLdouble base, GLdouble top, GLdouble height, GLint slices, GLint stacks ) ;
-FUNCTION: void gluDeleteNurbsRenderer ( GLUnurbs* nurb ) ;
-FUNCTION: void gluDeleteQuadric ( GLUquadric* quad ) ;
-FUNCTION: void gluDeleteTess ( GLUtesselator* tess ) ;
-FUNCTION: void gluDisk ( GLUquadric* quad, GLdouble inner, GLdouble outer, GLint slices, GLint loops ) ;
-FUNCTION: void gluEndCurve ( GLUnurbs* nurb ) ;
-FUNCTION: void gluEndPolygon ( GLUtesselator* tess ) ;
-FUNCTION: void gluEndSurface ( GLUnurbs* nurb ) ;
-FUNCTION: void gluEndTrim ( GLUnurbs* nurb ) ;
-FUNCTION: char* gluErrorString ( GLenum error ) ;
-FUNCTION: void gluGetNurbsProperty ( GLUnurbs* nurb, GLenum property, GLfloat* data ) ;
-FUNCTION: char* gluGetString ( GLenum name ) ;
-FUNCTION: void gluGetTessProperty ( GLUtesselator* tess, GLenum which, GLdouble* data ) ;
-FUNCTION: void gluLoadSamplingMatrices ( GLUnurbs* nurb, GLfloat* model, GLfloat* perspective, GLint* view ) ;
-FUNCTION: void gluLookAt ( GLdouble eyeX, GLdouble eyeY, GLdouble eyeZ, GLdouble centerX, GLdouble centerY, GLdouble centerZ, GLdouble upX, GLdouble upY, GLdouble upZ ) ;
-FUNCTION: GLUnurbs* gluNewNurbsRenderer ( ) ;
-FUNCTION: GLUquadric* gluNewQuadric ( ) ;
-FUNCTION: GLUtesselator* gluNewTess ( ) ;
-FUNCTION: void gluNextContour ( GLUtesselator* tess, GLenum type ) ;
-FUNCTION: void gluNurbsCallback ( GLUnurbs* nurb, GLenum which, GLUfuncptr CallBackFunc ) ;
-! FUNCTION: void gluNurbsCallbackData ( GLUnurbs* nurb, GLvoid* userData ) ;
-! FUNCTION: void gluNurbsCallbackDataEXT ( GLUnurbs* nurb, GLvoid* userData ) ;
-FUNCTION: void gluNurbsCurve ( GLUnurbs* nurb, GLint knotCount, GLfloat *knots, GLint stride, GLfloat *control, GLint order, GLenum type ) ;
-FUNCTION: void gluNurbsProperty ( GLUnurbs* nurb, GLenum property, GLfloat value ) ;
-FUNCTION: void gluNurbsSurface ( GLUnurbs* nurb, GLint sKnotCount, GLfloat* sKnots, GLint tKnotCount, GLfloat* tKnots, GLint sStride, GLint tStride, GLfloat* control, GLint sOrder, GLint tOrder, GLenum type ) ;
-FUNCTION: void gluOrtho2D ( GLdouble left, GLdouble right, GLdouble bottom, GLdouble top ) ;
-FUNCTION: void gluPartialDisk ( GLUquadric* quad, GLdouble inner, GLdouble outer, GLint slices, GLint loops, GLdouble start, GLdouble sweep ) ;
-FUNCTION: void gluPerspective ( GLdouble fovy, GLdouble aspect, GLdouble zNear, GLdouble zFar ) ;
-FUNCTION: void gluPickMatrix ( GLdouble x, GLdouble y, GLdouble delX, GLdouble delY, GLint* viewport ) ;
-FUNCTION: GLint gluProject ( GLdouble objX, GLdouble objY, GLdouble objZ, GLdouble* model, GLdouble* proj, GLint* view, GLdouble* winX, GLdouble* winY, GLdouble* winZ ) ;
-FUNCTION: void gluPwlCurve ( GLUnurbs* nurb, GLint count, GLfloat* data, GLint stride, GLenum type ) ;
-FUNCTION: void gluQuadricCallback ( GLUquadric* quad, GLenum which, GLUfuncptr CallBackFunc ) ;
-FUNCTION: void gluQuadricDrawStyle ( GLUquadric* quad, GLenum draw ) ;
-FUNCTION: void gluQuadricNormals ( GLUquadric* quad, GLenum normal ) ;
-FUNCTION: void gluQuadricOrientation ( GLUquadric* quad, GLenum orientation ) ;
-FUNCTION: void gluQuadricTexture ( GLUquadric* quad, GLboolean texture ) ;
-FUNCTION: GLint gluScaleImage ( GLenum format, GLsizei wIn, GLsizei hIn, GLenum typeIn, void* dataIn, GLsizei wOut, GLsizei hOut, GLenum typeOut, GLvoid* dataOut ) ;
-FUNCTION: void gluSphere ( GLUquadric* quad, GLdouble radius, GLint slices, GLint stacks ) ;
-FUNCTION: void gluTessBeginContour ( GLUtesselator* tess ) ;
-FUNCTION: void gluTessBeginPolygon ( GLUtesselator* tess, GLvoid* data ) ;
-FUNCTION: void gluTessCallback ( GLUtesselator* tess, GLenum which, GLUfuncptr CallBackFunc ) ;
-FUNCTION: void gluTessEndContour ( GLUtesselator* tess ) ;
-FUNCTION: void gluTessEndPolygon ( GLUtesselator* tess ) ;
-FUNCTION: void gluTessNormal ( GLUtesselator* tess, GLdouble valueX, GLdouble valueY, GLdouble valueZ ) ;
-FUNCTION: void gluTessProperty ( GLUtesselator* tess, GLenum which, GLdouble data ) ;
-FUNCTION: void gluTessVertex ( GLUtesselator* tess, GLdouble* location, GLvoid* data ) ;
-FUNCTION: GLint gluUnProject ( GLdouble winX, GLdouble winY, GLdouble winZ, GLdouble* model, GLdouble* proj, GLint* view, GLdouble* objX, GLdouble* objY, GLdouble* objZ ) ;
-
-! Not present on Windows
-! FUNCTION: GLint gluBuild1DMipmapLevels ( GLenum target, GLint internalFormat, GLsizei width, GLenum format, GLenum type, GLint level, GLint base, GLint max, void* data ) ;
-! FUNCTION: GLint gluBuild1DMipmaps ( GLenum target, GLint internalFormat, GLsizei width, GLenum format, GLenum type, void* data ) ;
-! FUNCTION: GLint gluBuild2DMipmapLevels ( GLenum target, GLint internalFormat, GLsizei width, GLsizei height, GLenum format, GLenum type, GLint level, GLint base, GLint max, void* data ) ;
-! FUNCTION: GLint gluBuild2DMipmaps ( GLenum target, GLint internalFormat, GLsizei width, GLsizei height, GLenum format, GLenum type, void* data ) ;
-! FUNCTION: GLint gluBuild3DMipmapLevels ( GLenum target, GLint internalFormat, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLenum type, GLint level, GLint base, GLint max, void* data ) ;
-! FUNCTION: GLint gluBuild3DMipmaps ( GLenum target, GLint internalFormat, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLenum type, void* data ) ;
-! FUNCTION: GLboolean gluCheckExtension ( GLubyte* extName, GLubyte* extString ) ;
-! FUNCTION: GLint gluUnProject4 ( GLdouble winX, GLdouble winY, GLdouble winZ, GLdouble clipW, GLdouble* model, GLdouble* proj, GLint* view, GLdouble nearVal, GLdouble farVal, GLdouble* objX, GLdouble* objY, GLdouble* objZ, GLdouble* objW ) ;
+++ /dev/null
-OpenGL binding - libGLU
+++ /dev/null
-USING: help.markup help.syntax io kernel math quotations
-opengl.gl assocs vocabs.loader sequences ;
-IN: opengl
-
-HELP: gl-color
-{ $values { "color" "a color specifier" } }
-{ $description "Wrapper for " { $link glColor4d } " taking a color specifier." } ;
-
-HELP: gl-error
-{ $description "If the most recent OpenGL call resulted in an error, print the error to " { $link output-stream } "." } ;
-
-HELP: do-state
- {
- $values
- { "mode" { "One of the " { $link "opengl-geometric-primitives" } } }
- { "quot" quotation }
- }
-{ $description "Wraps a quotation in " { $link glBegin } "/" { $link glEnd } " calls." } ;
-
-HELP: do-enabled
-{ $values { "what" integer } { "quot" quotation } }
-{ $description "Wraps a quotation in " { $link glEnable } "/" { $link glDisable } " calls." } ;
-
-HELP: do-matrix
-{ $values { "mode" { $link GL_MODELVIEW } " or " { $link GL_PROJECTION } } { "quot" quotation } }
-{ $description "Saves and restores the matrix specified by " { $snippet "mode" } " before and after calling the quotation." } ;
-
-HELP: gl-vertex
-{ $values { "point" "a pair of integers" } }
-{ $description "Wrapper for " { $link glVertex2d } " taking a point object." } ;
-
-HELP: gl-line
-{ $values { "a" "a pair of integers" } { "b" "a pair of integers" } }
-{ $description "Draws a line between two points." } ;
-
-HELP: gl-fill-rect
-{ $values { "loc" "a pair of integers" } { "ext" "a pair of integers" } }
-{ $description "Draws a filled rectangle with top-left corner " { $snippet "loc" } " and bottom-right corner " { $snippet "ext" } "." } ;
-
-HELP: gl-rect
-{ $values { "loc" "a pair of integers" } { "ext" "a pair of integers" } }
-{ $description "Draws the outline of a rectangle with top-left corner " { $snippet "loc" } " and bottom-right corner " { $snippet "ext" } "." } ;
-
-HELP: rect-vertices
-{ $values { "lower-left" "A pair of numbers indicating the lower-left coordinates of the rectangle." } { "upper-right" "The upper-right coordinates of the rectangle." } }
-{ $description "Emits" { $link glVertex2d } " calls outlining the axis-aligned rectangle from " { $snippet "lower-left" } " to " { $snippet "upper-right" } " on the z=0 plane in counterclockwise order." } ;
-
-HELP: gl-fill-poly
-{ $values { "points" "a sequence of pairs of integers" } }
-{ $description "Draws a filled polygon." } ;
-
-HELP: gl-poly
-{ $values { "points" "a sequence of pairs of integers" } }
-{ $description "Draws the outline of a polygon." } ;
-
-HELP: gl-gradient
-{ $values { "direction" "an orientation specifier" } { "colors" "a sequence of color specifiers" } { "dim" "a pair of integers" } }
-{ $description "Draws a rectangle with top-left corner " { $snippet "{ 0 0 }" } " and dimensions " { $snippet "dim" } ", filled with a smoothly shaded transition between the colors in " { $snippet "colors" } "." } ;
-
-HELP: gen-texture
-{ $values { "id" integer } }
-{ $description "Wrapper for " { $link glGenTextures } " to handle the common case of generating a single texture ID." } ;
-
-HELP: gen-gl-buffer
-{ $values { "id" integer } }
-{ $description "Wrapper for " { $link glGenBuffers } " to handle the common case of generating a single buffer ID." } ;
-
-HELP: delete-texture
-{ $values { "id" integer } }
-{ $description "Wrapper for " { $link glDeleteTextures } " to handle the common case of deleting a single texture ID." } ;
-
-HELP: delete-gl-buffer
-{ $values { "id" integer } }
-{ $description "Wrapper for " { $link glDeleteBuffers } " to handle the common case of deleting a single buffer ID." } ;
-
-{ gen-texture delete-texture } related-words
-{ gen-gl-buffer delete-gl-buffer } related-words
-
-HELP: bind-texture-unit
-{ $values { "id" "The id of a texture object." } { "target" "The texture target (e.g., " { $snippet "GL_TEXTURE_2D" } ")" } { "unit" "The texture unit to bind (e.g., " { $snippet "GL_TEXTURE0" } ")" } }
-{ $description "Binds texture " { $snippet "id" } " to texture target " { $snippet "target" } " of texture unit " { $snippet "unit" } ". Equivalent to " { $snippet "unit glActiveTexture target id glBindTexture" } "." } ;
-
-HELP: set-draw-buffers
-{ $values { "buffers" "A sequence of buffer words (e.g. " { $snippet "GL_BACK" } ", " { $snippet "GL_COLOR_ATTACHMENT0_EXT" } ")"} }
-{ $description "Wrapper for " { $link glDrawBuffers } ". Sets up the buffers named in the sequence for simultaneous drawing." } ;
-
-HELP: do-attribs
-{ $values { "bits" integer } { "quot" quotation } }
-{ $description "Wraps a quotation in " { $link glPushAttrib } "/" { $link glPopAttrib } " calls." } ;
-
-HELP: sprite
-{ $class-description "A sprite is an OpenGL texture together with a display list which renders a textured quad. Sprites are used to draw text in the UI. Sprites have the following slots:"
- { $list
- { { $link sprite-dlist } " - an OpenGL display list ID" }
- { { $link sprite-texture } " - an OpenGL texture ID" }
- { { $link sprite-loc } " - top-left corner of the sprite" }
- { { $link sprite-dim } " - dimensions of the sprite" }
- { { $link sprite-dim2 } " - dimensions of the sprite, rounded up to the nearest powers of two" }
- }
-} ;
-
-HELP: gray-texture
-{ $values { "sprite" sprite } { "pixmap" "an alien or byte array" } { "id" "an OpenGL texture ID" } }
-{ $description "Creates a new OpenGL texture from a 1 byte per pixel image whose dimensions are equal to " { $link sprite-dim2 } "." } ;
-
-HELP: gen-dlist
-{ $values { "id" integer } }
-{ $description "Wrapper for " { $link glGenLists } " to handle the common case of generating a single display list ID." } ;
-
-HELP: make-dlist
-{ $values { "type" "one of " { $link GL_COMPILE } " or " { $link GL_COMPILE_AND_EXECUTE } } { "quot" quotation } { "id" "an OpenGL texture ID" } }
-{ $description "Compiles the results of calling the quotation into a new OpenGL display list." } ;
-
-HELP: gl-translate
-{ $values { "point" "a pair of integers" } }
-{ $description "Wrapper for " { $link glTranslated } " taking a point object." } ;
-
-HELP: free-sprites
-{ $values { "sprites" "a sequence of " { $link sprite } " instances" } }
-{ $description "Deallocates native resources associated toa sequence of sprites." } ;
-
-HELP: with-translation
-{ $values { "loc" "a pair of integers" } { "quot" quotation } }
-{ $description "Calls the quotation with a translation by " { $snippet "loc" } " pixels applied to the current " { $link GL_MODELVIEW } " matrix, restoring the matrix when the quotation is done." } ;
-
-
-ARTICLE: "gl-utilities" "OpenGL utility words"
-"The " { $vocab-link "opengl" } " vocabulary implements some utility words to give OpenGL a more Factor-like feel."
-$nl
-"The " { $vocab-link "opengl.gl" } " and " { $vocab-link "opengl.glu" } " vocabularies have the actual OpenGL bindings."
-{ $subsection "opengl-low-level" }
-"Wrappers:"
-{ $subsection gl-color }
-{ $subsection gl-vertex }
-{ $subsection gl-translate }
-{ $subsection gen-texture }
-{ $subsection bind-texture-unit }
-"Combinators:"
-{ $subsection do-state }
-{ $subsection do-enabled }
-{ $subsection do-attribs }
-{ $subsection do-matrix }
-{ $subsection with-translation }
-{ $subsection make-dlist }
-"Rendering geometric shapes:"
-{ $subsection gl-line }
-{ $subsection gl-fill-rect }
-{ $subsection gl-rect }
-{ $subsection gl-fill-poly }
-{ $subsection gl-poly }
-{ $subsection gl-gradient }
-;
-
-ABOUT: "gl-utilities"
+++ /dev/null
-! Copyright (C) 2005, 2008 Slava Pestov.
-! Portions copyright (C) 2007 Eduardo Cavazos.
-! Portions copyright (C) 2008 Joe Groff.
-! See http://factorcode.org/license.txt for BSD license.
-
-USING: alien alien.c-types continuations kernel libc math macros
- namespaces math.vectors math.constants math.functions
- math.parser opengl.gl opengl.glu combinators arrays sequences
- splitting words byte-arrays assocs colors accessors ;
-
-IN: opengl
-
-: coordinates ( point1 point2 -- x1 y2 x2 y2 )
- [ first2 ] bi@ ;
-
-: fix-coordinates ( point1 point2 -- x1 y2 x2 y2 )
- [ first2 [ >fixnum ] bi@ ] bi@ ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-: gl-color ( color -- ) first4 glColor4d ; inline
-
-: gl-clear-color ( color -- )
- first4 glClearColor ;
-
-: gl-clear ( color -- )
- gl-clear-color GL_COLOR_BUFFER_BIT glClear ;
-
-: color>raw ( object -- r g b a )
- >rgba { [ red>> ] [ green>> ] [ blue>> ] [ alpha>> ] } cleave ;
-
-: set-color ( object -- ) color>raw glColor4d ;
-: set-clear-color ( object -- ) color>raw glClearColor ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-: gl-error ( -- )
- glGetError dup zero? [
- "GL error: " over gluErrorString append throw
- ] unless drop ;
-
-: do-state ( mode quot -- )
- swap glBegin call glEnd ; inline
-
-: do-enabled ( what quot -- )
- over glEnable dip glDisable ; inline
-: do-enabled-client-state ( what quot -- )
- over glEnableClientState dip glDisableClientState ; inline
-
-: words>values ( word/value-seq -- value-seq )
- [ dup word? [ execute ] [ ] if ] map ;
-
-: (all-enabled) ( seq quot -- )
- over [ glEnable ] each dip [ glDisable ] each ; inline
-: (all-enabled-client-state) ( seq quot -- )
- over [ glEnableClientState ] each dip [ glDisableClientState ] each ; inline
-
-MACRO: all-enabled ( seq quot -- )
- >r words>values r> [ (all-enabled) ] 2curry ;
-MACRO: all-enabled-client-state ( seq quot -- )
- >r words>values r> [ (all-enabled-client-state) ] 2curry ;
-
-: do-matrix ( mode quot -- )
- swap [ glMatrixMode glPushMatrix call ] keep
- glMatrixMode glPopMatrix ; inline
-
-: gl-vertex ( point -- )
- dup length {
- { 2 [ first2 glVertex2d ] }
- { 3 [ first3 glVertex3d ] }
- { 4 [ first4 glVertex4d ] }
- } case ;
-
-: gl-normal ( normal -- ) first3 glNormal3d ;
-
-: gl-material ( face pname params -- )
- >c-float-array glMaterialfv ;
-
-: gl-line ( a b -- )
- GL_LINES [ gl-vertex gl-vertex ] do-state ;
-
-: gl-fill-rect ( loc ext -- )
- coordinates glRectd ;
-
-: gl-rect ( loc ext -- )
- GL_FRONT_AND_BACK GL_LINE glPolygonMode
- >r { 0.5 0.5 } v+ r> { 0.5 0.5 } v- gl-fill-rect
- GL_FRONT_AND_BACK GL_FILL glPolygonMode ;
-
-: (gl-poly) ( points state -- )
- [ [ gl-vertex ] each ] do-state ;
-
-: gl-fill-poly ( points -- )
- dup length 2 > GL_POLYGON GL_LINES ? (gl-poly) ;
-
-: gl-poly ( points -- )
- GL_LINE_LOOP (gl-poly) ;
-
-: circle-steps ( steps -- angles )
- dup length v/n 2 pi * v*n ;
-
-: unit-circle ( angles -- points1 points2 )
- [ [ sin ] map ] [ [ cos ] map ] bi ;
-
-: adjust-points ( points1 points2 -- points1' points2' )
- [ [ 1 + 0.5 * ] map ] bi@ ;
-
-: scale-points ( loc dim points1 points2 -- points )
- zip [ v* ] with map [ v+ ] with map ;
-
-: circle-points ( loc dim steps -- points )
- circle-steps unit-circle adjust-points scale-points ;
-
-: gl-circle ( loc dim steps -- )
- circle-points gl-poly ;
-
-: gl-fill-circle ( loc dim steps -- )
- circle-points gl-fill-poly ;
-
-: prepare-gradient ( direction dim -- v1 v2 )
- tuck v* [ v- ] keep ;
-
-: gl-gradient ( direction colors dim -- )
- GL_QUAD_STRIP [
- swap >r prepare-gradient r>
- [ length dup 1- v/n ] keep [
- >r >r 2dup r> r> set-color v*n
- dup gl-vertex v+ gl-vertex
- ] 2each 2drop
- ] do-state ;
-
-: (gen-gl-object) ( quot -- id )
- >r 1 0 <uint> r> keep *uint ; inline
-: gen-texture ( -- id )
- [ glGenTextures ] (gen-gl-object) ;
-: gen-gl-buffer ( -- id )
- [ glGenBuffers ] (gen-gl-object) ;
-
-: (delete-gl-object) ( id quot -- )
- >r 1 swap <uint> r> call ; inline
-: delete-texture ( id -- )
- [ glDeleteTextures ] (delete-gl-object) ;
-: delete-gl-buffer ( id -- )
- [ glDeleteBuffers ] (delete-gl-object) ;
-
-: with-gl-buffer ( binding id quot -- )
- -rot dupd glBindBuffer
- [ slip ] [ 0 glBindBuffer ] [ ] cleanup ; inline
-
-: with-array-element-buffers ( array-buffer element-buffer quot -- )
- -rot GL_ELEMENT_ARRAY_BUFFER swap [
- swap GL_ARRAY_BUFFER -rot with-gl-buffer
- ] with-gl-buffer ; inline
-
-: <gl-buffer> ( target data hint -- id )
- pick gen-gl-buffer [ [
- >r dup byte-length swap r> glBufferData
- ] with-gl-buffer ] keep ;
-
-: buffer-offset ( int -- alien )
- <alien> ; inline
-
-: bind-texture-unit ( id target unit -- )
- glActiveTexture swap glBindTexture gl-error ;
-
-: (set-draw-buffers) ( buffers -- )
- dup length swap >c-uint-array glDrawBuffers ;
-
-MACRO: set-draw-buffers ( buffers -- )
- words>values [ (set-draw-buffers) ] curry ;
-
-: do-attribs ( bits quot -- )
- swap glPushAttrib call glPopAttrib ; inline
-
-: gl-look-at ( eye focus up -- )
- [ first3 ] tri@ gluLookAt ;
-
-TUPLE: sprite loc dim dim2 dlist texture ;
-
-: <sprite> ( loc dim dim2 -- sprite )
- f f sprite boa ;
-
-: sprite-size2 ( sprite -- w h ) sprite-dim2 first2 ;
-
-: sprite-width ( sprite -- w ) sprite-dim first ;
-
-: gray-texture ( sprite pixmap -- id )
- gen-texture [
- GL_TEXTURE_BIT [
- GL_TEXTURE_2D swap glBindTexture
- >r >r GL_TEXTURE_2D 0 GL_RGBA r>
- sprite-size2 0 GL_LUMINANCE_ALPHA
- GL_UNSIGNED_BYTE r> glTexImage2D
- ] do-attribs
- ] keep ;
-
-: gen-dlist ( -- id ) 1 glGenLists ;
-
-: make-dlist ( type quot -- id )
- gen-dlist [ rot glNewList call glEndList ] keep ; inline
-
-: init-texture ( -- )
- GL_TEXTURE_2D GL_TEXTURE_MAG_FILTER GL_LINEAR glTexParameteri
- GL_TEXTURE_2D GL_TEXTURE_MIN_FILTER GL_LINEAR glTexParameteri
- GL_TEXTURE_2D GL_TEXTURE_WRAP_S GL_CLAMP glTexParameterf
- GL_TEXTURE_2D GL_TEXTURE_WRAP_T GL_CLAMP glTexParameterf ;
-
-: gl-translate ( point -- ) first2 0.0 glTranslated ;
-
-<PRIVATE
-
-: top-left drop 0 0 glTexCoord2i 0.0 0.0 glVertex2d ; inline
-
-: top-right 1 0 glTexCoord2i first 0.0 glVertex2d ; inline
-
-: bottom-left 0 1 glTexCoord2i second 0.0 swap glVertex2d ; inline
-
-: bottom-right 1 1 glTexCoord2i gl-vertex ; inline
-
-PRIVATE>
-
-: four-sides ( dim -- )
- dup top-left dup top-right dup bottom-right bottom-left ;
-
-: draw-sprite ( sprite -- )
- dup sprite-loc gl-translate
- GL_TEXTURE_2D over sprite-texture glBindTexture
- init-texture
- GL_QUADS [ sprite-dim2 four-sides ] do-state
- GL_TEXTURE_2D 0 glBindTexture ;
-
-: rect-vertices ( lower-left upper-right -- )
- GL_QUADS [
- over first2 glVertex2d
- dup first pick second glVertex2d
- dup first2 glVertex2d
- swap first swap second glVertex2d
- ] do-state ;
-
-: make-sprite-dlist ( sprite -- id )
- GL_MODELVIEW [
- GL_COMPILE [ draw-sprite ] make-dlist
- ] do-matrix ;
-
-: init-sprite ( texture sprite -- )
- [ set-sprite-texture ] keep
- [ make-sprite-dlist ] keep set-sprite-dlist ;
-
-: delete-dlist ( id -- ) 1 glDeleteLists ;
-
-: free-sprite ( sprite -- )
- dup sprite-dlist delete-dlist
- sprite-texture delete-texture ;
-
-: free-sprites ( sprites -- )
- [ nip [ free-sprite ] when* ] assoc-each ;
-
-: with-translation ( loc quot -- )
- GL_MODELVIEW [ >r gl-translate r> call ] do-matrix ; inline
-
-: gl-set-clip ( loc dim -- )
- fix-coordinates glScissor ;
-
-: gl-viewport ( loc dim -- )
- fix-coordinates glViewport ;
-
-: init-matrices ( -- )
- GL_PROJECTION glMatrixMode
- glLoadIdentity
- GL_MODELVIEW glMatrixMode
- glLoadIdentity ;
+++ /dev/null
-Joe Groff
\ No newline at end of file
+++ /dev/null
-USING: help.markup help.syntax io kernel math quotations
-opengl.gl multiline assocs strings ;
-IN: opengl.shaders
-
-HELP: gl-shader
-{ $class-description { $snippet "gl-shader" } " is a predicate class comprising values returned by OpenGL to represent shader objects. The following words are provided for creating and manipulating these objects:"
- { $list
- { { $link <gl-shader> } " - Compile GLSL code into a shader object" }
- { { $link gl-shader-ok? } " - Check whether a shader object compiled successfully" }
- { { $link check-gl-shader } " - Throw an error unless a shader object compiled successfully" }
- { { $link gl-shader-info-log } " - Retrieve the info log of messages generated by the GLSL compiler" }
- { { $link delete-gl-shader } " - Invalidate a shader object" }
- }
- "The derived predicate classes " { $link vertex-shader } " and " { $link fragment-shader } " are also defined for the two standard kinds of shader defined by the OpenGL specification." } ;
-
-HELP: vertex-shader
-{ $class-description { $snippet "vertex-shader" } " is the predicate class of " { $link gl-shader } " objects that refer to shaders of type " { $snippet "GL_VERTEX_SHADER" } ". In addition to the " { $snippet "gl-shader" } " words, the following vertex shader-specific functions are defined:"
- { $list
- { { $link <vertex-shader> } " - Compile GLSL code into a vertex shader object "}
- }
-} ;
-
-HELP: fragment-shader
-{ $class-description { $snippet "fragment-shader" } " is the predicate class of " { $link gl-shader } " objects that refer to shaders of type " { $snippet "GL_FRAGMENT_SHADER" } ". In addition to the " { $snippet "gl-shader" } " words, the following fragment shader-specific functions are defined:"
- { $list
- { { $link <fragment-shader> } " - Compile GLSL code into a fragment shader object "}
- }
-} ;
-
-HELP: <gl-shader>
-{ $values { "source" "The GLSL source code to compile" } { "kind" "The kind of shader to compile, such as " { $snippet "GL_VERTEX_SHADER" } " or " { $snippet "GL_FRAGMENT_SHADER" } } { "shader" "a new " { $link gl-shader } } }
-{ $description "Tries to compile the given GLSL source into a shader object. The returned object can be checked for validity by " { $link check-gl-shader } " or " { $link gl-shader-ok? } ". Errors and warnings generated by the GLSL compiler will be collected in the info log, available from " { $link gl-shader-info-log } ".\n\nWhen the shader object is no longer needed, it should be deleted using " { $link delete-gl-shader } " or else be attached to a " { $link gl-program } " object deleted using " { $link delete-gl-program } "." } ;
-
-HELP: <vertex-shader>
-{ $values { "source" "The GLSL source code to compile" } { "vertex-shader" "a new " { $link vertex-shader } } }
-{ $description "Tries to compile the given GLSL source into a vertex shader object. Equivalent to " { $snippet "GL_VERTEX_SHADER <gl-shader>" } "." } ;
-
-HELP: <fragment-shader>
-{ $values { "source" "The GLSL source code to compile" } { "fragment-shader" "a new " { $link fragment-shader } } }
-{ $description "Tries to compile the given GLSL source into a fragment shader object. Equivalent to " { $snippet "GL_FRAGMENT_SHADER <gl-shader>" } "." } ;
-
-HELP: gl-shader-ok?
-{ $values { "shader" "A " { $link gl-shader } " object" } { "?" "a boolean" } }
-{ $description "Returns a boolean value indicating whether the given shader object compiled successfully. Compilation errors and warnings are available in the shader's info log, which can be gotten using " { $link gl-shader-info-log } "." } ;
-
-HELP: check-gl-shader
-{ $values { "shader" "A " { $link gl-shader } " object" } }
-{ $description "Throws an error containing the " { $link gl-shader-info-log } " for the shader object if it failed to compile. Otherwise, the shader object is left on the stack." } ;
-
-HELP: delete-gl-shader
-{ $values { "shader" "A " { $link gl-shader } " object" } }
-{ $description "Deletes the shader object, invalidating it and releasing any resources allocated for it by the OpenGL implementation." } ;
-
-HELP: gl-shader-info-log
-{ $values { "shader" "A " { $link gl-shader } " object" } { "shader" "a new " { $link gl-shader } } { "log" string } }
-{ $description "Retrieves the info log for " { $snippet "shader" } ", including any errors or warnings generated in compiling the shader object." } ;
-
-HELP: gl-program
-{ $class-description { $snippet "gl-program" } " is a predicate class comprising values returned by OpenGL to represent proram objects. The following words are provided for creating and manipulating these objects:"
- { $list
- { { $link <gl-program> } ", " { $link <simple-gl-program> } " - Link a set of shaders into a GLSL program" }
- { { $link gl-program-ok? } " - Check whether a program object linked successfully" }
- { { $link check-gl-program } " - Throw an error unless a program object linked successfully" }
- { { $link gl-program-info-log } " - Retrieve the info log of messages generated by the GLSL linker" }
- { { $link gl-program-shaders } " - Retrieve the set of shader objects composing the GLSL program" }
- { { $link delete-gl-program } " - Invalidate a program object and all its attached shaders" }
- { { $link with-gl-program } " - Use a program object" }
- }
-} ;
-
-HELP: <gl-program>
-{ $values { "shaders" "A sequence of " { $link gl-shader } " objects." } { "program" "a new " { $link gl-program } } }
-{ $description "Creates a new GLSL program object, attaches all the shader objects in the " { $snippet "shaders" } " sequence, and attempts to link them. The returned object can be checked for validity by " { $link check-gl-program } " or " { $link gl-program-ok? } ". Errors and warnings generated by the GLSL linker will be collected in the info log, available from " { $link gl-program-info-log } ".\n\nWhen the program object and its attached shaders are no longer needed, it should be deleted using " { $link delete-gl-program } "." } ;
-
-HELP: <simple-gl-program>
-{ $values { "vertex-shader-source" "A string containing GLSL vertex shader source" } { "fragment-shader-source" "A string containing GLSL fragment shader source" } { "program" "a new " { $link gl-program } } }
-{ $description "Wrapper for " { $link <gl-program> } " for the simple case of compiling a single vertex shader and fragment shader and linking them into a GLSL program. Throws an exception if compiling or linking fails." } ;
-
-{ <gl-program> <simple-gl-program> } related-words
-
-HELP: gl-program-ok?
-{ $values { "program" "A " { $link gl-program } " object" } { "?" "a boolean" } }
-{ $description "Returns a boolean value indicating whether the given program object linked successfully. Link errors and warnings are available in the program's info log, which can be gotten using " { $link gl-program-info-log } "." } ;
-
-HELP: check-gl-program
-{ $values { "program" "A " { $link gl-program } " object" } }
-{ $description "Throws an error containing the " { $link gl-program-info-log } " for the program object if it failed to link. Otherwise, the program object is left on the stack." } ;
-
-HELP: gl-program-info-log
-{ $values { "program" "A " { $link gl-program } " object" } { "log" string } }
-{ $description "Retrieves the info log for " { $snippet "program" } ", including any errors or warnings generated in linking the program object." } ;
-
-HELP: delete-gl-program
-{ $values { "program" "A " { $link gl-program } " object" } }
-{ $description "Deletes the program object, invalidating it and releasing any resources allocated for it by the OpenGL implementation. Any attached " { $link gl-shader } "s are also deleted.\n\nIf the shader objects should be preserved, they should each be detached using " { $link detach-gl-program-shader } ". The program object can then be destroyed alone using " { $link delete-gl-program-only } "." } ;
-
-HELP: with-gl-program
-{ $values { "program" "A " { $link gl-program } " object" } { "quot" "A quotation with stack effect " { $snippet "( program -- )" } } }
-{ $description "Enables " { $snippet "program" } " for all OpenGL calls made in the dynamic extent of " { $snippet "quot" } ". " { $snippet "program" } " is left on the top of the stack when " { $snippet "quot" } " is called. The fixed-function pipeline is restored at the end of " { $snippet "quot" } "." } ;
-
-ABOUT: "gl-utilities"
+++ /dev/null
-! Copyright (C) 2008 Joe Groff.
-! See http://factorcode.org/license.txt for BSD license.
-USING: kernel opengl.gl alien.c-types continuations namespaces
-assocs alien alien.strings libc opengl math sequences combinators
-combinators.lib macros arrays io.encodings.ascii fry ;
-IN: opengl.shaders
-
-: with-gl-shader-source-ptr ( string quot -- )
- swap ascii malloc-string [ <void*> swap call ] keep free ; inline
-
-: <gl-shader> ( source kind -- shader )
- glCreateShader dup rot
- [ 1 swap f glShaderSource ] with-gl-shader-source-ptr
- [ glCompileShader ] keep
- gl-error ;
-
-: (gl-shader?) ( object -- ? )
- dup integer? [ glIsShader c-bool> ] [ drop f ] if ;
-
-: gl-shader-get-int ( shader enum -- value )
- 0 <int> [ glGetShaderiv ] keep *int ;
-
-: gl-shader-ok? ( shader -- ? )
- GL_COMPILE_STATUS gl-shader-get-int c-bool> ;
-
-: <vertex-shader> ( source -- vertex-shader )
- GL_VERTEX_SHADER <gl-shader> ; inline
-
-: (vertex-shader?) ( object -- ? )
- dup (gl-shader?)
- [ GL_SHADER_TYPE gl-shader-get-int GL_VERTEX_SHADER = ]
- [ drop f ] if ;
-
-: <fragment-shader> ( source -- fragment-shader )
- GL_FRAGMENT_SHADER <gl-shader> ; inline
-
-: (fragment-shader?) ( object -- ? )
- dup (gl-shader?)
- [ GL_SHADER_TYPE gl-shader-get-int GL_FRAGMENT_SHADER = ]
- [ drop f ] if ;
-
-: gl-shader-info-log-length ( shader -- log-length )
- GL_INFO_LOG_LENGTH gl-shader-get-int ; inline
-
-: gl-shader-info-log ( shader -- log )
- dup gl-shader-info-log-length dup [
- [ 0 <int> swap glGetShaderInfoLog ] keep
- ascii alien>string
- ] with-malloc ;
-
-: check-gl-shader ( shader -- shader )
- dup gl-shader-ok? [ dup gl-shader-info-log throw ] unless ;
-
-: delete-gl-shader ( shader -- ) glDeleteShader ; inline
-
-PREDICATE: gl-shader < integer (gl-shader?) ;
-PREDICATE: vertex-shader < gl-shader (vertex-shader?) ;
-PREDICATE: fragment-shader < gl-shader (fragment-shader?) ;
-
-! Programs
-
-: <gl-program> ( shaders -- program )
- glCreateProgram swap
- [ dupd glAttachShader ] each
- [ glLinkProgram ] keep
- gl-error ;
-
-: (gl-program?) ( object -- ? )
- dup integer? [ glIsProgram c-bool> ] [ drop f ] if ;
-
-: gl-program-get-int ( program enum -- value )
- 0 <int> [ glGetProgramiv ] keep *int ;
-
-: gl-program-ok? ( program -- ? )
- GL_LINK_STATUS gl-program-get-int c-bool> ;
-
-: gl-program-info-log-length ( program -- log-length )
- GL_INFO_LOG_LENGTH gl-program-get-int ; inline
-
-: gl-program-info-log ( program -- log )
- dup gl-program-info-log-length dup [
- [ 0 <int> swap glGetProgramInfoLog ] keep
- ascii alien>string
- ] with-malloc ;
-
-: check-gl-program ( program -- program )
- dup gl-program-ok? [ dup gl-program-info-log throw ] unless ;
-
-: gl-program-shaders-length ( program -- shaders-length )
- GL_ATTACHED_SHADERS gl-program-get-int ; inline
-
-: gl-program-shaders ( program -- shaders )
- dup gl-program-shaders-length
- dup "GLuint" <c-array>
- 0 <int> swap
- [ glGetAttachedShaders ] { 3 1 } multikeep
- c-uint-array> ;
-
-: delete-gl-program-only ( program -- )
- glDeleteProgram ; inline
-
-: detach-gl-program-shader ( program shader -- )
- glDetachShader ; inline
-
-: delete-gl-program ( program -- )
- dup gl-program-shaders [
- 2dup detach-gl-program-shader delete-gl-shader
- ] each delete-gl-program-only ;
-
-: with-gl-program ( program quot -- )
- over glUseProgram [ 0 glUseProgram ] [ ] cleanup ; inline
-
-PREDICATE: gl-program < integer (gl-program?) ;
-
-: <simple-gl-program> ( vertex-shader-source fragment-shader-source -- program )
- >r <vertex-shader> check-gl-shader
- r> <fragment-shader> check-gl-shader
- 2array <gl-program> check-gl-program ;
-
+++ /dev/null
-OpenGL Shading Language (GLSL) support
\ No newline at end of file
+++ /dev/null
-opengl
-glsl
-bindings
\ No newline at end of file
+++ /dev/null
-OpenGL binding
projects / factor.git / commitdiff