(polygon>double-face) ( polygon -- edge )

Vocabulary

euler.modeling

Inputs

polygon

an object

Outputs

edge

an object

Definition

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

IN: euler.modeling

: (polygon>double-face) ( polygon -- edge )
    [ first2 make-vefs ] keep
    [ drop opposite-edge>> ]
    [ 2 tail-slice [ make-ev-one ] each ] 2bi make-ef face-ccw ;