bounce-off-wall ( oint segment -- )


Vocabulary
jamshred.tunnel

Inputs
ointan object
segmentan object


Outputs
None

Definition
USING: kernel ;

IN: jamshred.tunnel

: bounce-off-wall ( oint segment -- )
swap [ bounce-forward ] [ bounce-left ] [ bounce-up ] 2tri ;