piece-blocks [ draw-block ] each ;
: draw-piece ( piece -- )
- dup tetromino>> colour>> gl-color draw-piece-blocks ;
+ dup tetromino>> color>> gl-color draw-piece-blocks ;
: draw-next-piece ( piece -- )
- dup tetromino>> colour>>
+ dup tetromino>> color>>
>rgba-components drop 0.2 <rgba> gl-color draw-piece-blocks ;
! TODO: move implementation specific stuff into tetris-board