(draw-textured-rect) ( dim texture -- )

Vocabulary

opengl.textures.private

Inputs

dim	an object
texture	an object

Outputs

None

Definition

USING: accessors kernel opengl opengl.gl ;

IN: opengl.textures.private

: (draw-textured-rect) ( dim texture -- )
    [ loc>> ] [ [ GL_TEXTURE_2D ] dip texture>> glBindTexture ]
    [ init-texture texture-coords>> gl-texture-coord-pointer ]
    tri swap gl-fill-rect ;