kill-ev ( 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-ev ( edge: b-edge -- )
    b-rep get :> b-rep edge vertex>> :> v edge opposite-edge>>
    :> edge' edge' vertex>> :> v' edge
    [ v' >>vertex drop ] each-vertex-edge
    edge face-cw :> edgep edge' face-cw :> edge'p edge
    next-edge>> edgep next-edge<<
    edge' next-edge>> edge'p next-edge<< v b-rep delete-vertex
    edge b-rep delete-edge edge' b-rep delete-edge ;