collision-vector ( oint segment -- v )

Vocabulary

jamshred.tunnel

Inputs

oint	an object
segment	an object

Outputs

v

an object

Definition

USING: accessors kernel math.vectors ;

IN: jamshred.tunnel

: collision-vector ( oint segment -- v )
    dupd (distance-to-collision) swap forward>> n*v ;