run-rom ( title cpu rom-info -- )

Vocabulary

roms.space-invaders

Inputs

title	an object
cpu	an object
rom-info	an object

Outputs

None

Definition

USING: accessors cpu.8080.emulator ui ui.gadgets.worlds
ui.pixel-formats ;

IN: roms.space-invaders

:: run-rom ( title cpu rom-info -- )
    rom-info cpu load-rom* cpu <invaders-gadget> t >>windowed?
    <world-attributes> title >>title
    { legacy-context windowed double-buffered }
    >>pixel-format-attributes open-window ;