draw-scaled-texture ( dim texture -- )

Vocabulary

opengl.textures

Inputs

dim	an object
texture	an object

Outputs

None

Definition

IN: opengl.textures

GENERIC: draw-scaled-texture ( dim texture -- )

Methods

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

M: multi-texture draw-scaled-texture
    grid>> [
        normalize-by-first-texture-max-dim
        [ normalize-scaling-dims ] keep
    ] [
        spin per-texture-scalings-in-grid
        [ shift-loc-offsets ] keep
    ] [ [ [ draw-scaled-texture ] 2each ] 2each ] tri ;


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 ;