vector-to-center ( seg loc -- v )

Vocabulary

jamshred.tunnel

Inputs

seg	an object
loc	an object

Outputs

v

an object

Definition

USING: accessors jamshred.oint kernel math.vectors ;

IN: jamshred.tunnel

: vector-to-center ( seg loc -- v )
    over location>> swap v- swap forward>> proj-perp ;