invaders-process ( micros gadget -- )

Vocabulary

roms.space-invaders

Inputs

micros	an object
gadget	an object

Outputs

None

Definition

USING: accessors combinators kernel openal.alut ui.gadgets ;

IN: roms.space-invaders

: invaders-process ( micros gadget -- )
    dup quit?>>
    [ exit-openal 2drop ] [
        [ sync-frame ] dip {
            [ cpu>> gui-frame ]
            [ relayout-1 ]
            [ invaders-process ]
        } cleave
    ] if ;