add-pov-gadget ( gadget direction polygon -- gadget direction gadget )

Vocabulary

game.input.demos.joysticks

Inputs

gadget	an object
direction	an object
polygon	an object

Outputs

gadget	an object
direction	an object
gadget	an object

Definition

USING: colors kernel ui.gadgets ui.pens.polygon ;

IN: game.input.demos.joysticks

:: add-pov-gadget
    ( gadget direction polygon -- gadget direction gadget )
    gadget COLOR: white polygon <polygon-gadget>
    [ add-gadget ] keep direction swap ;