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

Vocabulary

papier

Inputs

papier-world

an object

Outputs

movement/f	an object
face/f	an object

Definition

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 ;