bounce-forward ( segment oint -- )

Vocabulary

jamshred.tunnel

Inputs

segment	an object
oint	an object

Outputs

None

Definition

USING: accessors jamshred.oint kernel ;

IN: jamshred.tunnel

: bounce-forward ( segment oint -- )
    [ wall-normal ] [ forward>> swap reflect ] [ forward<< ] tri
    ;