project-pt-plane ( line-p0 line-vt plane-n plane-d -- q )


Vocabulary
euler.modeling

Inputs
line-p0an object
line-vtan object
plane-nan object
plane-dan object


Outputs
qan object


Definition
USING: math math.vectors ;

IN: euler.modeling

:: project-pt-plane ( line-p0 line-vt plane-n plane-d -- q )
plane-d neg plane-n line-p0 vdot - line-vt plane-n vdot /
line-vt n*v line-p0 v+ ; inline