single-texture

Vocabulary

opengl.textures.private

Definition

USING: destructors ;

IN: opengl.textures.private

TUPLE: single-texture < disposable
    image dim loc texture-coords texture display-list ;

Methods

USING: accessors destructors kernel opengl opengl.textures
opengl.textures.private ;

M: single-texture dispose*
    [ texture>> [ delete-texture ] when* ]
    [ display-list>> [ delete-dlist ] when* ] bi ;


USING: accessors kernel opengl.textures opengl.textures.private
;

M: single-texture draw-scaled-texture
    2dup dim>> =
    [ nip draw-texture ]
    [ dup texture>> [ draw-textured-rect ] [ 2drop ] if ] if ;


USING: accessors images.viewer.private opengl.textures.private ;

M: single-texture texture-size dim>> ;