lock-piece ( tetris -- )

Vocabulary

tetris.game

Inputs

tetris

an object

Outputs

None

Definition

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

IN: tetris.game

: lock-piece ( tetris -- )
    [ dup current-piece piece-blocks [ add-block ] with each ]
    [ new-current-piece dup board>> check-rows score-rows ] bi ;