(bind-texture-unit) ( texture texture-unit -- )

Vocabulary

gpu.render.private

Inputs

texture	an object
texture-unit	an object

Outputs

None

Definition

USING: gpu.textures.private kernel math opengl.gl ;

IN: gpu.render.private

: (bind-texture-unit) ( texture texture-unit -- )
    swap
    [ GL_TEXTURE0 + glActiveTexture ] [ bind-texture drop ] bi*
    ; inline