init-gl3-state ( -- state )

Vocabulary

ui.render

Inputs

None

Outputs

state

an object

Definition

USING: accessors combinators kernel ;

IN: ui.render

: init-gl3-state ( -- state )
    gl3-state new create-gl3-program >>program
    create-gl3-vao >>vao create-gl3-vbo >>vbo
    V{ } clone >>modelview-stack
    dup program>> get-uniform-locations {
        [ >>projection-loc ]
        [ >>modelview-loc ]
        [ >>color-loc ]
        [ >>use-uniform-color-loc ]
    } spread create-gl3-texture-program >>tex-program
    create-gl3-vao >>tex-vao create-gl3-vbo >>tex-vbo
    dup tex-program>> get-texture-uniform-locations {
        [ >>tex-projection-loc ]
        [ >>tex-modelview-loc ]
        [ >>tex-sampler-loc ]
    } spread ;