Handbook
Glossary
invaders-gadget
Vocabulary
roms
.
space-invaders
Definition
USING:
ui.gadgets
;
IN:
roms.space-invaders
TUPLE:
invaders-gadget
<
gadget
cpu quit? windowed?
;
Methods
USING:
accessors
kernel
opengl.gl
roms.space-invaders
ui.render
;
M:
invaders-gadget
draw-gadget*
0 0
glRasterPos2i
1.0 -1.0
glPixelZoom
[
224 256
GL_RGB
GL_UNSIGNED_BYTE
]
dip
cpu>>
bitmap>>
glDrawPixels
;
USING:
accessors
kernel
roms.space-invaders
system
threads
ui.gadgets
;
M:
invaders-gadget
graft*
dup
cpu>>
init-sounds
f
>>quit?
[
nano-count
swap
invaders-process
]
curry
"Space invaders"
spawn
drop
;
USING:
kernel
roms.space-invaders
ui.gadgets
;
M:
invaders-gadget
pref-dim*
drop
{
224 256
}
;
USING:
accessors
kernel
roms.space-invaders
ui.gadgets
;
M:
invaders-gadget
ungraft*
t
swap
quit?<<
;