gl3-draw-texture-vertices ( vertices texture-id -- )

Vocabulary

ui.render

Inputs

vertices	an object
texture-id	an object

Outputs

None

Definition

USING: accessors kernel namespaces opengl.gl sequences ;

IN: ui.render

:: gl3-draw-texture-vertices ( vertices texture-id -- )
    bind-texture-state current-projection-dim get-global first2
    set-texture-projection
    current-modelview get-global gl3-state> tex-modelview-loc>>
    swap upload-matrix GL_TEXTURE0 glActiveTexture
    GL_TEXTURE_2D texture-id glBindTexture
    gl3-state> tex-sampler-loc>> 0 glUniform1i
    vertices upload-textured-vertices
    GL_TRIANGLES 0 6 glDrawArrays GL_TEXTURE_2D 0 glBindTexture
    restore-color-state ;