set-texture-gl-wrap ( target wraps -- )

Vocabulary

gpu.textures.private

Inputs

target	an object
wraps	an object

Outputs

None

Definition

USING: arrays combinators kernel opengl.gl sequences ;

IN: gpu.textures.private

: set-texture-gl-wrap ( target wraps -- )
    dup sequence? [ 1array ] unless 3 over last pad-tail {
        [
            [ GL_TEXTURE_WRAP_S ] dip
            first gl-wrap glTexParameteri
        ]
        [
            [ GL_TEXTURE_WRAP_T ] dip
            second gl-wrap glTexParameteri
        ]
        [
            [ GL_TEXTURE_WRAP_R ] dip
            third gl-wrap glTexParameteri
        ]
    } 2cleave ; inline