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?<< ;