connecting-edge ( e0 e1 -- edge/f )

Vocabulary

euler.b-rep

Inputs

e0	an object
e1	an object

Outputs

edge/f

an object

Definition

USING: accessors kernel ;

IN: euler.b-rep

:: connecting-edge ( e0 e1 -- edge/f )
    e1 vertex>> :> target-vertex e0 vertex>> target-vertex eq?
    [ f ] [
        f e0 [| ret edge |
            edge opposite-edge>> vertex>> target-vertex eq?
            [ edge edge f ] [ f edge vertex-cw dup e0 eq? not ]
            if
        ] loop drop
    ] if ;