sideways-heading ( oint segment -- v )

Vocabulary

jamshred.tunnel

Inputs

oint	an object
segment	an object

Outputs

v

an object

Definition

USING: accessors jamshred.oint kernel ;

IN: jamshred.tunnel

: sideways-heading ( oint segment -- v )
    [ forward>> ] bi@ proj-perp ;