Games::Tetris::Shape - representation of a tetris shape

Games-Tetris documentation Contained in the Games-Tetris distribution.

Index

Code Index:

NAME

Top

Games::Tetris::Shape - representation of a tetris shape

SYNOPSIS

Top

METHODS

Top

new( @rows )

Construct a new shape

covers( $offset_x, $offset_y )

Top

return a list of points that the shape covers, offset by $offset_x, $offset_y.

Each point is an anonymous array containing $x, $y, and what's in the cell

AUTHOR

Top

Richard Clamp <richardc@unixbeard.net>

COPYRIGHT

Top

Copyright (C) 2003 Richard Clamp. All Rights Reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Top

Games::Tetris

Games-Tetris documentation Contained in the Games-Tetris distribution. 
use strict;
package Games::Tetris::Shape;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw( shape width depth center ));


sub new {
    my $class = shift;
    my @rows = @_;

    my $self = $class->SUPER::new;
    $self->shape( [ map { [ map { / / ? undef : $_ } split // ] } @rows ] );
    $self->width( scalar @{ $self->shape->[0] } );
    $self->depth( scalar @{ $self->shape } );
    $self->center([ int($self->width / 2), int($self->depth / 2) ]);
    return $self;
}

sub print {
    my $self = shift;
    print join('', @$_), "\n"
      for @{ $self->shape };
}



sub covers {
    my $self = shift;
    my ($x, $y) = @_;
    my ($cx, $cy) = @{ $self->center };
    my @points;

    for (my $iy = 0; $iy < $self->depth; $iy++) {
        for (my $ix = 0; $ix < $self->width; $ix++) {
            my $point = $self->shape->[ $iy ][ $ix ];
            push @points, [ $x + ($ix - $cx), $y + ($iy - $cy), $point ]
              if $point;
        }
    }
    return @points;
}

1;

__END__