sideways-relative-location ( oint segment -- loc )


Vocabulary
jamshred.tunnel

Inputs
ointan object
segmentan object


Outputs
locan object


Definition
USING: accessors jamshred.oint kernel math.vectors ;

IN: jamshred.tunnel

: sideways-relative-location ( oint segment -- loc )
[ [ location>> ] bi@ v- ] keep forward>> proj-perp ;