check-axis-movement ( key-negative key-positive -- unit/f )

Vocabulary

raylib.demo

Inputs

key-negative	an object
key-positive	an object

Outputs

unit/f

an object

Definition

USING: arrays combinators kernel raylib ;

IN: raylib.demo

: check-axis-movement
    ( key-negative key-positive -- unit/f )
    [ is-key-down ] bi@ 2array
    { { { t f } [ -1.0 ] } { { f t } [ 1.0 ] } [ drop f ] } case
    ;