distance-to-next-segment ( current next location heading -- distance )

Vocabulary

jamshred.tunnel

Inputs

current	an object
next	an object
location	an object
heading	an object

Outputs

distance

an object

Definition

USING: accessors math math.vectors ;

IN: jamshred.tunnel

:: distance-to-next-segment
    ( current next location heading -- distance )
    current forward>> :> cf cf next location>> vdot
    cf location vdot - cf heading vdot / ;