bounce-up ( segment oint -- )

Vocabulary

jamshred.tunnel

Inputs

segment	an object
oint	an object

Outputs

None

Definition

USING: accessors kernel math.vectors ;

IN: jamshred.tunnel

: bounce-up ( segment oint -- )
    nip [ forward>> ] [ left>> cross ] [ up<< ] tri ;