move-player-on-heading ( d-left player distance heading -- d-left' player )

Vocabulary

jamshred.player

Inputs

d-left	an object
player	an object
distance	an object
heading	an object

Outputs

d-left'	an object
player	an object

Definition

USING: jamshred.oint math math.order math.vectors ;

IN: jamshred.player

:: move-player-on-heading
    ( d-left player distance heading -- d-left' player )
    d-left distance min :> d-to-move d-to-move heading n*v
    :> move-v move-v player location+
    heading player update-nearest-segment2 d-left d-to-move -
    player ;