steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

opengl.capabilities: fix docs.

db4
John Benediktsson 2014-06-08 18:14:20 -07:00
parent 5986f9cbe3
commit d02b399f70
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/opengl/capabilities/capabilities.factor
View File

@ -29,11 +29,11 @@ IN: opengl.capabilities
: version-before? ( version1 version2 -- ? ) : version-before? ( version1 version2 -- ? )
[ version-seq ] bi@ before=? ; [ version-seq ] bi@ before=? ;
: (gl-version) ( -- string1 string2 ) : (gl-version) ( -- version1 version2 )
GL_VERSION glGetString " " split1 ; GL_VERSION glGetString " " split1 ;
: gl-version ( -- string ) (gl-version) drop ; : gl-version ( -- version ) (gl-version) drop ;
: gl-vendor-version ( -- string ) (gl-version) nip ; : gl-vendor-version ( -- version ) (gl-version) nip ;
: gl-vendor ( -- string ) GL_VENDOR glGetString ; : gl-vendor ( -- vendor ) GL_VENDOR glGetString ;
: has-gl-version? ( version -- ? ) : has-gl-version? ( version -- ? )
gl-version [ version-before? ] [ drop f ] if* ; gl-version [ version-before? ] [ drop f ] if* ;
@ -52,8 +52,8 @@ IN: opengl.capabilities
: (glsl-version) ( -- version vendor ) : (glsl-version) ( -- version vendor )
GL_SHADING_LANGUAGE_VERSION glGetString " " split1 ; GL_SHADING_LANGUAGE_VERSION glGetString " " split1 ;
: glsl-version ( -- string ) (glsl-version) drop ; : glsl-version ( -- version ) (glsl-version) drop ;
: glsl-vendor-version ( -- string ) (glsl-version) nip ; : glsl-vendor-version ( -- version ) (glsl-version) nip ;
: has-glsl-version? ( version -- ? ) glsl-version version-before? ; : has-glsl-version? ( version -- ? ) glsl-version version-before? ;
: require-glsl-version ( version -- ) : require-glsl-version ( version -- )