check-b-rep ( b-rep -- )

Vocabulary

euler.b-rep

Inputs

b-rep

an object

Outputs

None

Definition

USING: accessors kernel namespaces sequences sets ;

IN: euler.b-rep

: check-b-rep ( b-rep -- )
    [
        [
            [ vertices>> fast-set live-vertices set ]
            [ edges>> fast-set live-edges set ]
            [ faces>> fast-set live-faces set ] tri
        ] [
            [ vertices>> [ check-vertex ] each ]
            [ edges>> [ check-edge ] each ] [
                faces>> [ base-face? ] filter
                [ check-base-face ] each
            ] tri
        ] bi
    ] with-scope ;