bridge-rings-simple ( e1 e2 sharp? -- edge )

Vocabulary

euler.modeling

Inputs

e1	an object
e2	an object
sharp?	an object

Outputs

edge

an object

Definition

USING: accessors euler.b-rep euler.operators kernel ;

IN: euler.modeling

:: bridge-rings-simple ( e1 e2 sharp? -- edge )
    e1 e2 check-bridge-rings e1 e2 kill-f-make-rh
    e1 e2 make-e-kill-r face-cw :> ea! e2 face-ccw :> eb!
    [ ea e1 eq? not ] [
        ea eb make-ef
        opposite-edge>> face-cw ea! eb face-ccw eb!
    ] while eb ;