project-pt-line ( p p0 p1 -- q )


Vocabulary
euler.modeling

Inputs
pan object
p0an object
p1an object


Outputs
qan object


Definition
USING: math math.vectors ;

IN: euler.modeling

:: project-pt-line ( p p0 p1 -- q )
p1 p0 v- :> vt p p0 v- vt vdot vt norm-sq / vt n*v p0 v+ ;
inline