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


Vocabulary
gml.viewer

Inputs
b-repan object
selectedan object


Outputs
verticesan object
face-indicesan object
edge-indicesan object
point-indicesan 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 ;