change-player-position ( -- )

Vocabulary

raylib.demo

Inputs

None

Outputs

None

Definition

USING: accessors kernel math namespaces raylib ;

IN: raylib.demo

: change-player-position ( -- )
    player get KEY_LEFT KEY_RIGHT check-axis-movement
    [ [ 2.0 * + ] curry change-x ] when*
    KEY_UP KEY_DOWN check-axis-movement
    [ [ 2.0 * + ] curry change-y ] when* drop ;