move-e ( edge: b-edge offset: point -- )

Vocabulary

euler.operators

Inputs

edge	a b-edge
offset	a point

Outputs

None

Definition

USING: accessors kernel math.vectors typed ;

IN: euler.operators

TYPED: move-e ( edge: b-edge offset: point -- )
    [ dup opposite-edge>> ] dip
    '[ vertex>> [ _ v+ ] change-position drop ] bi@ ;