draw-texture ( texture dim -- )

Vocabulary

gpu.util

Inputs

texture	an object
dim	an object

Outputs

None

Definition

USING: destructors gpu.render gpu.shaders gpu.state kernel
math.rectangles ;

IN: gpu.util

: draw-texture ( texture dim -- )
    { 0 0 } swap <rect> <viewport-state> set-gpu-state {
        { "primitive-mode" [ drop triangle-strip-mode ] }
        { "uniforms" [ window-uniforms boa ] }
        {
            "vertex-array"
            [
                drop
                window-program <program-instance>
                <window-vertex-array> &dispose
            ]
        }
        { "indexes" [ drop T{ index-range { count 4 } } ] }
    } <render-set> render ;