drag-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 ;

IN: jamshred.player

: drag-player ( d-left player -- d-left' player )
dup
[ [ drag-heading ] keep distance-to-heading-segment-area ]
[ drag-heading move-player-on-heading ] bi ;