invaders-process ( micros gadget -- )
Vocabulary
space-invaders
Definition
USING:
accessors
kernel
ui.gadgets
;
IN:
space-invaders
:
invaders-process
( micros gadget -- )
dup
quit?>>
[
2drop
]
[
[
sync-frame
]
dip
[
cpu>>
gui-frame
]
keep
[
relayout-1
]
keep
invaders-process
]
if
;