with-gl3-cached-textures ( quot -- )

Vocabulary

ui.render

Inputs

quot

an object

Outputs

None

Definition

USING: accessors continuations kernel namespaces opengl.gl
sequences ;

IN: ui.render

: with-gl3-cached-textures ( quot -- )
    gl3-state> tex-program>> glUseProgram
    current-projection-dim get-global first2
    set-texture-projection
    current-modelview get-global gl3-state> tex-modelview-loc>>
    swap upload-matrix GL_TEXTURE0 glActiveTexture
    gl3-state> tex-sampler-loc>> 0 glUniform1i
    [ call ]
    [ GL_TEXTURE_2D 0 glBindTexture restore-color-state ]
    finally ; inline