(move-player) ( d-left player -- d-left' player )


Vocabulary
jamshred.player

Inputs
d-leftan object
playeran object


Outputs
d-left'an object
playeran object


Definition
USING: kernel math ;

IN: jamshred.player

: (move-player) ( d-left player -- d-left' player )
?move-player-freely over 0 > [ drag-player ] when ;