(distance) ( heading player -- current next location heading )

Vocabulary

jamshred.player

Inputs

heading	an object
player	an object

Outputs

current	an object
next	an object
location	an object
heading	an object

Definition

USING: accessors jamshred.tunnel kernel ;

IN: jamshred.player

:: (distance)
    ( heading player -- current next location heading )
    player nearest-segment>> player
    [ tunnel>> ] [ nearest-segment>> ] bi
    heading heading-segment player location>> heading ;