copy-texture-edge ( image source-loc loc dim -- )

Vocabulary

opengl.textures.private

Inputs

image	an object
source-loc	an object
loc	an object
dim	an object

Outputs

None

Definition

USING: accessors kernel opengl.gl opengl.textures sequences ;

IN: opengl.textures.private

:: copy-texture-edge ( image source-loc loc dim -- )
    GL_UNPACK_SKIP_PIXELS source-loc first glPixelStorei
    GL_UNPACK_SKIP_ROWS source-loc second glPixelStorei
    GL_TEXTURE_2D 0 loc first2 dim first2 image image-format
    nipd image bitmap>> glTexSubImage2D ;