(make-ev) ( e1 e2 point -- edge )

Vocabulary

euler.operators.private

Inputs

e1	an object
e2	an object
point	an object

Outputs

edge

an object

Definition

USING: accessors euler.b-rep euler.operators namespaces ;

IN: euler.operators.private

:: (make-ev) ( e1 e2 point -- edge )
    e1 e2 assert-incident point b-rep get new-vertex
    :> v' v' e2 make-edge :> e1' e1 vertex>> :> v v e1 make-edge
    :> e2' e1 e2 v' subdivide-vertex-cycle
    e1 face-cw :> e1p e2 face-cw :> e2p e1 opposite-edge>>
    :> e1m e1m e1p assert-not= e1' e2p next-edge<<
    e2' e1p next-edge<< e1' e2' opposite-edges e1' ;