(distance-to-collision) ( oint segment -- distance )

Vocabulary

jamshred.tunnel

Inputs

oint	an object
segment	an object

Outputs

distance

an object

Definition

USING: accessors kernel ;

IN: jamshred.tunnel

: (distance-to-collision) ( oint segment -- distance )
    [ sideways-heading ] [ sideways-relative-location ]
    [ nip radius>> ] 2tri collision-coefficient ;