check-bridge-rings ( e1 e2 -- )

Vocabulary

euler.modeling

Inputs

e1	an object
e2	an object

Outputs

None

Definition

USING: accessors combinators euler.operators
game.models.half-edge kernel ;

IN: euler.modeling

: check-bridge-rings ( e1 e2 -- )
    {
        [ [ face>> assert-no-rings ] bi@ ]
        [ [ face>> assert-base-face ] bi@ ]
        [ assert-different-faces ]
        [ [ face-sides ] bi@ assert= ]
    } 2cleave ;