! See http://factorcode.org/license.txt for BSD license.
USING: accessors combinators kernel lists math math.functions
-sequences system tetris.board tetris.piece tetris.tetromino ;
+sequences system tetris.board tetris.piece ;
IN: tetris.game
level 1 - 60 * 1,000,000,000 swap - ;
: add-block ( tetris block -- )
- over [ board>> ] 2dip current-piece tetromino>> colour>> set-block ;
+ over [ board>> ] 2dip current-piece tetromino>> color>> set-block ;
: game-over? ( tetris -- ? )
[ board>> ] [ next-piece ] bi piece-valid? not ;