bounce-left ( segment oint -- )


Vocabulary
jamshred.tunnel

Inputs
segmentan object
ointan object


Outputs
None

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

IN: jamshred.tunnel

: bounce-left ( segment oint -- )
[ forward>> vneg ] dip
[ left>> swap reflect ] [ forward>> proj-perp normalize ]
[ left<< ] tri ;