with-texturing ( quot -- )

Vocabulary

opengl.textures.private

Inputs

quot

an object

Outputs

None

Definition

USING: colors kernel opengl opengl.gl ;

IN: opengl.textures.private

: with-texturing ( quot -- )
    GL_TEXTURE_2D [
        GL_TEXTURE_BIT [
            GL_TEXTURE_COORD_ARRAY
            [ COLOR: white gl-color call ]
            do-enabled-client-state
        ] do-attribs
    ] do-enabled ; inline