save off the tick-slice when draw*-ing a game-world

db4
Joe Groff 2009-05-09 14:31:33 -05:00
parent 84c7f10ab7
commit 4367068ba6
1 changed files with 4 additions and 3 deletions

View File

@ -1,14 +1,15 @@
USING: accessors game-input game-loop kernel ui.gadgets
USING: accessors game-input game-loop kernel math ui.gadgets
ui.gadgets.worlds ui.gestures ;
IN: game-worlds
TUPLE: game-world < world
game-loop ;
game-loop
{ tick-slice float initial: 0.0 } ;
GENERIC: tick-length ( world -- millis )
M: game-world draw*
nip draw-world ;
swap >>tick-slice draw-world ;
M: game-world begin-world
dup [ tick-length ] [ ] bi <game-loop> [ >>game-loop ] keep start-loop