make-vefs ( pos1: point pos2: point -- edge: b-edge )

Vocabulary

euler.operators

Inputs

pos1	a point
pos2	a point

Outputs

edge

a b-edge

Definition

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

IN: euler.operators

TYPED:: make-vefs
    ( pos1: point pos2: point -- edge: b-edge )
    b-rep get :> b-rep pos1 b-rep new-vertex
    :> v1 v1 make-loop-face :> e1 pos2 b-rep new-vertex
    :> v2 v2 e1 make-edge :> e2 e2 e1 next-edge<<
    e1 e2 opposite-edges e2 ;