make-f-kill-rh ( edge-ring: b-edge -- )

Vocabulary

euler.operators

Inputs

edge-ring

a b-edge

Outputs

None

Definition

USING: accessors euler.b-rep typed ;

IN: euler.operators

TYPED:: make-f-kill-rh ( edge-ring: b-edge -- )
    edge-ring face>> :> ring ring base-face>> :> base-face ring
    base-face delete-ring ring ring base-face<< ;