rotate-piece ( piece inc -- piece )


Vocabulary
tetris.piece

Inputs
piecean object
incan object


Outputs
piecean object


Definition
USING: accessors kernel sequences ;

IN: tetris.piece

: rotate-piece ( piece inc -- piece )
over tetromino>> states>> length [ (rotate-piece) ] 2curry
change-rotation ;