disconnect-b-rep ( b-rep -- )

Vocabulary

euler.b-rep.examples

Inputs

b-rep

an object

Outputs

None

Definition

USING: accessors assocs euler.b-rep kernel sequences ;

IN: euler.b-rep.examples

:: disconnect-b-rep ( b-rep -- )
    b-rep faces>> >index-hash :> face-indices b-rep edges>>
    >index-hash :> edge-indices b-rep vertices>> >index-hash
    :> vertex-indices b-rep faces>> [
        [ edge-indices at ] change-edge
        [ face-indices at ] change-next-ring
        [ face-indices at ] change-base-face drop
    ] each b-rep vertices>>
    [ [ edge-indices at ] change-edge drop ] each b-rep edges>> 
    [
        [ face-indices at ] change-face
        [ vertex-indices at ] change-vertex
        [ edge-indices at ] change-opposite-edge
        [ edge-indices at ] change-next-edge drop
    ] each ;