refresh-b-rep-view ( world: gml-viewer-world -- )

Vocabulary

gml.viewer

Inputs

world

a gml-viewer-world

Outputs

None

Definition

USING: accessors combinators destructors gpu.buffers gpu.shaders
kernel typed ui.gadgets ;

IN: gml.viewer

TYPED: refresh-b-rep-view ( world: gml-viewer-world -- )
    dup control-value >>b-rep dup vertex-array>>
    [ vertex-array-buffer dispose ] when* dup
    [ b-rep>> ] [ selected>> value>> ] bi make-b-rep-vertices {
        [
            static-upload draw-usage vertex-buffer
            byte-array>buffer over program>> <vertex-array>
            >>vertex-array
        ]
        [ >>face-indices ]
        [ >>edge-indices ]
        [ >>point-indices ]
    } spread drop ;