<tetris> ( width height -- tetris )


Vocabulary
tetris.game

Inputs
widthan object
heightan object


Outputs
tetrisan object


Definition
USING: accessors kernel tetris.board tetris.piece ;

IN: tetris.game

: <tetris> ( width height -- tetris )
dupd <board> swap <piece-llist> tetris new swap >>pieces
swap >>board ;