b-rep-edge-index-array ( b-rep selected offset -- edge-indices )


Vocabulary
gml.viewer

Inputs
b-repan object
selectedan object
offsetan object


Outputs
edge-indicesan object


Definition
USING: accessors euler.b-rep kernel math sequences
specialized-arrays.instances.alien.c-types.ushort
specialized-vectors.instances.alien.c-types.ushort ;

IN: gml.viewer

:: b-rep-edge-index-array
( b-rep selected offset -- edge-indices )
b-rep vertices>> >index-hash :> vertex-indices b-rep edges>>
length <ushort-vector> :> edge-indices b-rep edges>> [| e |
e opposite-edge>> :> o e vertex-indices selected
edge-vertex-index [ offset + ] dip
:> ( from e-selected? ) o vertex-indices selected
edge-vertex-index [ offset + ] dip
:> ( to o-selected? ) from to <
[ from edge-indices push to edge-indices push ] when
] each edge-indices ushort-array{ } like ;