kill-ef ( edge: b-edge -- )

Vocabulary

euler.operators

Inputs

edge

a b-edge

Outputs

None

Definition

USING: accessors euler.b-rep game.models.half-edge kernel
namespaces typed ;

IN: euler.operators

TYPED:: kill-ef ( edge: b-edge -- )
    b-rep get :> b-rep edge :> e1 edge opposite-edge>> :> e2 e1
    e2 assert-different-faces
    e1 face-cw :> e1p e2 face-cw :> e2p e1 face>> :> f1 e2
    face>> :> f2 e1 [ f2 >>face drop ] each-face-edge
    f1 b-rep delete-face e1 e2 incident?
    [ e2 next-edge>> e2p next-edge<< ] [
        e2 next-edge>> e1p next-edge<<
        e1 next-edge>> e2p next-edge<<
    ] if e1 b-rep delete-edge e2 b-rep delete-edge ;