<multi-texture> ( image-grid loc -- multi-texture )

Vocabulary

opengl.textures.private

Inputs

image-grid	an object
loc	an object

Outputs

multi-texture

an object

Definition

USING: accessors destructors kernel ;

IN: opengl.textures.private

: <multi-texture> ( image-grid loc -- multi-texture )
    [
        [ multi-texture new-disposable ] 2dip
        [ nip >>loc ] [ <texture-grid> >>grid ] 2bi
        dup grid>> make-textured-grid-display-list
        >>display-list
    ] with-destructors ;