heading-segment ( segments current-segment heading -- segment )

Vocabulary

jamshred.tunnel

Inputs

segments	an object
current-segment	an object
heading	an object

Outputs

segment

an object

Definition

USING: accessors combinators kernel math.order math.vectors ;

IN: jamshred.tunnel

: heading-segment
    ( segments current-segment heading -- segment )
    over forward>> vdot 0 <=> {
        { +gt+ [ next-segment ] }
        { +lt+ [ previous-segment ] }
        { +eq+ [ nip ] }
    } case ;