subdivide-edge-cycle ( face e1 e2 -- )

Vocabulary

euler.operators.private

Inputs

face	an object
e1	an object
e2	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: euler.operators.private

: subdivide-edge-cycle ( face e1 e2 -- )
    2dup eq?
    [ 3drop ] [
        [ drop face<< ]
        [ [ next-edge>> ] dip subdivide-edge-cycle ] 3bi
    ] if ;