Vocabulary
game.worlds

Class description
A subclass of world that automatically sets up and manages connections to the game.loop, game.input, and audio.engine libraries. It does this by providing methods on begin-world, end-world, and draw*. Subclasses can provide their own world setup, teardown, and update code by adding methods to the begin-game-world and end-game-world generic words. The standard world generics draw-world* and resize-world can also be given methods to draw the window contents and handle resize events. The draw-world* method will be invoked in a tight loop by the game loop.

The game-world tuple has the following publicly accessible slots:

•	game-loop contains the game-loop instance managed by the game world. If the world is inactive, this slot will contain f.
•	audio-engine contains the audio-engine instance managed by the game world. If the world is inactive, or the use-audio-engine? slot of the game-attributes object used to initialize the world was false, this slot will contain f.

See also
begin-game-world, end-game-world, tick-game-world

Definition

USING: kernel math ui.gadgets.worlds ;

IN: game.worlds

TUPLE: game-world < world
game-loop audio-engine
{ tick-interval-nanos integer initial: 0 }
{ use-game-input? boolean initial: f }
{ use-audio-engine? boolean initial: f }
audio-engine-device
{ audio-engine-voice-count initial: 16 }
{ tick-slice float initial: 0.0 } ;

Methods

USING: accessors combinators game.worlds generic
ui.gadgets.worlds ;

M: game-world apply-world-attributes
{
[ tick-interval-nanos>> >>tick-interval-nanos ]
[ use-game-input?>> >>use-game-input? ]
[ use-audio-engine?>> >>use-audio-engine? ]
[ audio-engine-device>> >>audio-engine-device ]
[
audio-engine-voice-count>>
>>audio-engine-voice-count
]
[
M\ game-world apply-world-attributes
(call-next-method)
]
} cleave ;

USING: accessors game.input game.loop game.worlds
game.worlds.private kernel ui.gadgets.worlds ;

M: game-world begin-world
dup use-game-input?>> [ open-game-input ] when
dup use-audio-engine?>>
[ dup open-game-audio-engine >>audio-engine ] when dup
[ tick-interval-nanos>> ] [ ] bi <game-loop>
[ >>game-loop begin-game-world ] keep start-loop ;

USING: accessors game.loop game.worlds kernel threads
ui.gadgets ;

M: game-world draw* swap >>tick-slice relayout-1 yield ;

USING: accessors destructors game.input game.loop game.worlds
kernel ui.gadgets.worlds ;

M: game-world end-world
dup game-loop>> [ stop-loop ] when*
[ end-game-world ] [ audio-engine>> [ dispose ] when* ]
[ use-game-input?>> [ close-game-input ] when ] tri ;

USING: accessors audio.engine game.loop game.worlds kernel ;

M: game-world tick*
[ tick-game-world ]
[ audio-engine>> [ update-audio ] when* ] bi ;