update-nearest-segment2 ( heading player -- )

Vocabulary

jamshred.player

Inputs

heading	an object
player	an object

Outputs

None

Definition

USING: accessors jamshred.tunnel kernel math ;

IN: jamshred.player

: update-nearest-segment2 ( heading player -- )
    2dup distance-to-heading-segment-area 0 <= [
        [ tunnel>> ] [ nearest-segment>> rot heading-segment ]
        [ nearest-segment<< ] tri
    ] [ 2drop ] if ;