<single-texture> ( image loc -- texture )

Vocabulary

opengl.textures.private

Inputs

image	an object
loc	an object

Outputs

texture

an object

Definition

USING: accessors destructors kernel opengl.textures sequences ;

IN: opengl.textures.private

: <single-texture> ( image loc -- texture )
    single-texture new-disposable swap >>loc swap
    [ >>image ] [ dim>> >>dim ] bi dup image>> dim>> product 0 = 
    [
        dup texture-coords >>texture-coords
        dup image>> make-texture >>texture
        dup make-texture-display-list >>display-list
    ] unless ;