set-start-location ( piece board-width -- piece )

Vocabulary

tetris.piece

Inputs

piece	an object
board-width	an object

Outputs

piece

an object

Definition

USING: accessors arrays kernel math ;

IN: tetris.piece

: set-start-location ( piece board-width -- piece )
    over piece-width [ 2 /i ] bi@ - 0 2array >>location ;