make-b-rep-vertices ( b-rep selected -- vertices face-indices edge-indices point-indices )

Vocabulary

gml.viewer

Inputs

b-rep	an object
selected	an object

Outputs

vertices	an object
face-indices	an object
edge-indices	an object
point-indices	an object

Definition

USING: accessors alien.c-types alien.data kernel math ranges ;

IN: gml.viewer

:: make-b-rep-vertices
    ( b-rep selected -- vertices face-indices edge-indices point-indices )
    b-rep selected b-rep-face-vertices
    :> ( face-vertices face-count face-indices ) b-rep
    b-rep-edge-vertices :> ( edge-vertices edge-count ) selected
    selected-vertices :> ( sel-vertices sel-count )
    face-vertices face-count edge-vertices edge-count
    sel-vertices sel-count <b-rep-vertices>
    :> vertices vertices array>> face-indices b-rep selected
    vertices face-vertex-count>> b-rep-edge-index-array vertices
    [ face-vertex-count>> ] [ edge-vertex-count>> + dup ]
    [ point-vertex-count>> + ] tri [a..b) ushort >c-array ;