keyboard-input ( papier-world -- movement/f face/f ) - Factor Documentation

USING: accessors combinators game.input game.input.scancodes
kernel math.vectors math.vectors.simd sequences ui ;

IN: papier

: keyboard-input ( papier-world -- movement/f face/f )
read-keyboard keys>> {
{
[ key-left-arrow over nth ]
[
2drop
float-4{ 0.05000000074505806 0.0 0.0 0.0 } vneg
float-4{ 0.0 0.0 1.0 0.0 }
]
}
{
[ key-right-arrow over nth ]
[
2drop
float-4{ 0.05000000074505806 0.0 0.0 0.0 }
float-4{ 1.0 0.0 0.0 0.0 }
]
}
{ [ key-escape over nth ] [ drop close-window f f ] }
[ 2drop f f ]
} cond ;