fill-model-state ( model-state -- )

Vocabulary

model-viewer

Inputs

model-state

an object

Outputs

None

Definition

USING: accessors combinators gpu.buffers gpu.render gpu.shaders
kernel sequences ;

IN: model-viewer

: fill-model-state ( model-state -- )
    dup models>> <model-buffers> {
        [
            [
                [
                    vertex-buffer>> obj-program
                    <program-instance>
                ] [ vertex-format>> ] bi <vertex-array*>
            ] map >>vertex-arrays drop
        ]
        [
            [
                [ index-buffer>> ] [ index-count>> ] bi
                [ [ 0 <buffer-ptr> ] curry ] dip
                [ uint-indexes <index-elements> ] curry compose
                call
            ] map >>index-vectors drop
        ]
        [ [ texture>> ] map >>textures drop ]
        [ [ bump>> ] map >>bumps drop ]
        [ [ ka>> ] map >>kas drop ]
    } 2cleave ;