make-edge ( vertex next-edge -- edge )

Vocabulary

euler.operators.private

Inputs

vertex	an object
next-edge	an object

Outputs

edge

an object

Definition

USING: accessors euler.b-rep namespaces ;

IN: euler.operators.private

:: make-edge ( vertex next-edge -- edge )
    b-rep get new-edge :> edge vertex edge vertex<<
    next-edge edge next-edge<< next-edge face>> edge face<< edge
    ;