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


Vocabulary
euler.operators

Inputs
edgea b-edge
offseta 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 [ v+ ] curry
[ [ vertex>> ] ] dip [ change-position drop ] curry compose
bi@ ;