steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tetris: use alarms instead of old timers library

db4
Alex Chapman 2008-03-04 12:16:46 +11:00
parent 1caf4e881b
commit 4f815ccc03
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
extra/tetris/tetris.factor
View File

@ -1,11 +1,11 @@
! Copyright (C) 2006, 2007 Alex Chapman ! Copyright (C) 2006, 2007 Alex Chapman
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel ui.gadgets ui.gadgets.labels ui.gadgets.worlds USING: alarms arrays calendar kernel ui.gadgets ui.gadgets.labels
ui.gadgets.status-bar ui.gestures ui.render ui tetris.game ui.gadgets.worlds ui.gadgets.status-bar ui.gestures ui.render ui
tetris.gl sequences arrays math math.parser namespaces timers ; tetris.game tetris.gl sequences system math math.parser namespaces ;
IN: tetris IN: tetris
TUPLE: tetris-gadget tetris ; TUPLE: tetris-gadget tetris alarm ;
: <tetris-gadget> ( tetris -- gadget ) : <tetris-gadget> ( tetris -- gadget )
tetris-gadget construct-gadget tetris-gadget construct-gadget
@ -41,14 +41,15 @@ tetris-gadget H{
{ T{ key-down f f "n" } [ new-tetris ] } { T{ key-down f f "n" } [ new-tetris ] }
} set-gestures } set-gestures
M: tetris-gadget tick ( object -- ) : tick ( gadget -- )
dup tetris-gadget-tetris maybe-update relayout-1 ; dup tetris-gadget-tetris maybe-update relayout-1 ;
M: tetris-gadget graft* ( gadget -- ) M: tetris-gadget graft* ( gadget -- )
100 1 add-timer ; dup [ tick ] curry 100 milliseconds from-now 100 milliseconds add-alarm
swap set-tetris-gadget-alarm ;
M: tetris-gadget ungraft* ( gadget -- ) M: tetris-gadget ungraft* ( gadget -- )
remove-timer ; [ tetris-gadget-alarm cancel-alarm f ] keep set-tetris-gadget-alarm ;
: tetris-window ( -- ) : tetris-window ( -- )
[ [