set-texture-projection ( width height -- )

Vocabulary

ui.render

Inputs

width	an object
height	an object

Outputs

None

Definition

USING: accessors arrays kernel ;

IN: ui.render

:: set-texture-projection ( width height -- )
    width height 2array
    :> dim gl3-state> :> state state tex-projection-dim>> dim = 
    [
        state tex-projection-loc>> width height make-2d-ortho
        upload-matrix dim state tex-projection-dim<<
    ] unless ;