connect-opposite-edges ( b-rep -- )

Vocabulary

euler.b-rep

Inputs

b-rep

an object

Outputs

None

Definition

USING: accessors arrays assocs kernel sequences ;

IN: euler.b-rep

: connect-opposite-edges ( b-rep -- )
    edges>> [
        [ [ next-edge>> vertex>> ] [ vertex>> 2array ] [ ] tri ]
        H{ } map>assoc
    ] [
        swap [ [ next-edge>> vertex>> 2array ] ] dip
        [ at ] curry compose [ [ [ vertex>> ] ] ] dip
        [ [ opposite-edge<< ] tri ] curry compose each
    ] bi ;