draw-model ( world -- )

Vocabulary

model-viewer

Inputs

world

an object

Outputs

None

Definition

USING: accessors gpu.render gpu.state kernel sequences ;

IN: model-viewer

: draw-model ( world -- )
    clear-screen face-ccw cull-back <triangle-cull-state>
    set-gpu-state cmp-less <depth-state> set-gpu-state
    [ model-state>> vertex-arrays>> ]
    [ model-state>> index-vectors>> ] [ <model-uniforms> ] tri [
        {
            { "primitive-mode" [ 3drop triangles-mode ] }
            { "uniforms" [ 2nip ] }
            { "vertex-array" [ 2drop ] }
            { "indexes" [ drop nip ] }
        } 3<render-set> render
    ] 3each ;