connect-b-rep ( b-rep -- )

Vocabulary

euler.b-rep.examples

Inputs

b-rep

an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: euler.b-rep.examples

:: connect-b-rep ( b-rep -- )
    b-rep faces>> [
        [ b-rep edges>> nth-when ] change-edge
        [ b-rep faces>> nth-when ] change-next-ring
        [ b-rep faces>> nth-when ] change-base-face drop
    ] each b-rep vertices>>
    [ [ b-rep edges>> nth-when ] change-edge drop ] each
    b-rep edges>> [
        [ b-rep faces>> nth-when ] change-face
        [ b-rep vertices>> nth-when ] change-vertex
        [ b-rep edges>> nth-when ] change-opposite-edge
        [ b-rep edges>> nth-when ] change-next-edge drop
    ] each ;