NAME SDL::Tutorial::Tetris::Model::Pieces - the tetris pieces

SYNOPSIS

use SDL::Tutorial::Tetris::Model::Pieces;

my ($piece, $rotation) = SDL::Tutorial::Tetris::Model::Pieces->random();
my ($init_x, $init_y)  = SDL::Tutorial::Tetris::Model::Pieces->init_xy($piece,$rotation);

for my $y (0..4) {
    for my $x (0..4) {
        print SDL::Tutorial::Tetris::Model::Pieces->block_color($piece,$rotation,$x,$y);
    }
    print "\n";
}

DESCRIPTION

This modules holds the game data, and the means to interact to it.

Basically, we have a set of named pieces (SQUARE, LINE, T_SHAPE; L_SHAPE, N_SHAPE; L_SHAPE_MIRROR, N_SHAPE_MIRROR).

random

Returns a random piece and rotation.

init_xy

Returns the initial (x,y) coordinates for each block and rotation.

block_color

Given a block, rotation, and (x,y) coordinates, it returns the color of the block in that point.