subdivide-vertex-cycle ( e1 e2 v -- )

Vocabulary

euler.operators.private

Inputs

e1	an object
e2	an object
v	an object

Outputs

None

Definition

USING: accessors euler.b-rep kernel ;

IN: euler.operators.private

:: subdivide-vertex-cycle ( e1 e2 v -- )
    e1 e2 eq?
    [ v e1 vertex<< e1 vertex-cw e2 v subdivide-vertex-cycle ]
    unless ;