line-nearest-t ( p0 u q0 v -- tp tq )

Vocabulary

gml.viewer

Inputs

p0	an object
u	an object
q0	an object
v	an object

Outputs

tp	an object
tq	an object

Definition

USING: math math.vectors ;

IN: gml.viewer

:: line-nearest-t ( p0 u q0 v -- tp tq )
    p0 q0 v- :> w0 u u vdot :> a u v vdot :> b v v vdot
    :> c u w0 vdot :> d v w0 vdot :> e a c * b b * -
    :> denom b e * c d * - denom /f a e * b d * - denom /f ;