collision-coefficient ( v w r -- c )

Vocabulary

jamshred.tunnel

Inputs

v	an object
w	an object
r	an object

Outputs

c

an object

Definition

USING: kernel math math.quadratic math.vectors ;

IN: jamshred.tunnel

:: collision-coefficient ( v w r -- c )
    v norm 0 =
    [ distant ] [
        v dup vdot :> a v w vdot 2 * :> b w dup vdot r sq -
        :> c c b a quadratic max-real
    ] if ;