perpendicular-distance ( oint oint -- distance )


Vocabulary
jamshred.oint

Inputs
ointan object
ointan object


Outputs
distancean object


Definition
USING: accessors kernel math ;

IN: jamshred.oint

: perpendicular-distance ( oint oint -- distance )
[ distance-vector ] keep 2dup left>> scalar-projection
abs -rot up>> scalar-projection abs + ;