move-pov ( gadget pov -- )

Vocabulary

game.input.demos.joysticks

Inputs

gadget	an object
pov	an object

Outputs

None

Definition

USING: accessors assocs colors kernel ;

IN: game.input.demos.joysticks

: move-pov ( gadget pov -- )
    swap pov>> [
        interior>> -rot = COLOR: gray COLOR: white ? >>color
        drop
    ] with assoc-each ;