assert-isolated-component ( edge -- )

Vocabulary

euler.operators

Inputs

edge

an object

Outputs

None

Definition

USING: accessors kernel ;

IN: euler.operators

: assert-isolated-component ( edge -- )
    [ [ opposite-edge>> ] [ next-edge>> ] bi assert= ]
    [ dup opposite-edge>> assert-same-face ] bi ;