with-gl-program ( program quot -- )

Vocabulary

opengl.shaders

Inputs

program	A gl-program object
quot	A quotation with stack effect ( program -- )

Outputs

None

Word description

Enables program for all OpenGL calls made in the dynamic extent of quot. program is left on the top of the stack when quot is called. The fixed-function pipeline is restored at the end of quot.

Definition

USING: continuations kernel opengl.gl ;

IN: opengl.shaders

: with-gl-program ( program quot -- )
    over glUseProgram [ 0 glUseProgram ] finally ; inline