distance-to-next-segment-area ( 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 jamshred.oint math math.vectors ;

IN: jamshred.tunnel

:: distance-to-next-segment-area
    ( current next location heading -- distance )
    current forward>> :> cf next current half-way-between-oints
    :> h cf h vdot cf location vdot - cf heading vdot / ;