opengl no longer depends on *.lib
parent
b2fa4e2f07
commit
b886718609
|
@ -1,6 +1,6 @@
|
||||||
USING: alien alien.syntax combinators kernel parser sequences
|
USING: alien alien.syntax combinators kernel parser sequences
|
||||||
system words namespaces hashtables init math arrays assocs
|
system words namespaces hashtables init math arrays assocs
|
||||||
sequences.lib continuations ;
|
continuations ;
|
||||||
|
|
||||||
ERROR: unknown-gl-platform ;
|
ERROR: unknown-gl-platform ;
|
||||||
<< {
|
<< {
|
||||||
|
@ -30,7 +30,7 @@ reset-gl-function-number-counter
|
||||||
: gl-function-pointer ( names n -- funptr )
|
: gl-function-pointer ( names n -- funptr )
|
||||||
gl-function-context 2array dup +gl-function-pointers+ get-global at
|
gl-function-context 2array dup +gl-function-pointers+ get-global at
|
||||||
[ 2nip ] [
|
[ 2nip ] [
|
||||||
>r [ gl-function-address ] attempt-each
|
>r [ gl-function-address ] map [ ] find nip
|
||||||
dup [ "OpenGL function not available" throw ] unless
|
dup [ "OpenGL function not available" throw ] unless
|
||||||
dup r>
|
dup r>
|
||||||
+gl-function-pointers+ get-global set-at
|
+gl-function-pointers+ get-global set-at
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
USING: help.markup help.syntax io kernel math quotations
|
USING: help.markup help.syntax io kernel math quotations
|
||||||
opengl.gl multiline assocs vocabs.loader sequences ;
|
opengl.gl assocs vocabs.loader sequences ;
|
||||||
IN: opengl
|
IN: opengl
|
||||||
|
|
||||||
HELP: gl-color
|
HELP: gl-color
|
||||||
|
|
Loading…
Reference in New Issue