can-rotate? ( tetris -- ? )


Vocabulary
tetris.game

Inputs
tetrisan object


Outputs
?an object


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

IN: tetris.game

: can-rotate? ( tetris -- ? )
[ board>> ] [ current-piece clone 1 rotate-piece ] bi
piece-valid? ;