File Coverage

blib/lib/Math/Shape/Rectangle.pm

Criterion	Covered	Total	%
statement	47	47	100.0
branch	6	6	100.0
condition			n/a
subroutine	13	13	100.0
pod	5	5	100.0
total	71	71	100.0

use strict;
use warnings;
package Math::Shape::Rectangle;
$Math::Shape::Rectangle::VERSION = '0.03';
use Math::Shape::Point;
use Math::Trig 1.22 ':pi';
use 5.008;
use Carp;
use List::Util 'max';


# ABSTRACT: a 2d rectangle in cartesian space


sub new {
    croak 'Incorrect number of arguments passed to new()' unless @_ == 6;
    my ($class, $x, $y, $r, $length, $width) = @_;
    my $self =
        bless  { centre => Math::Shape::Point->new($x, $y, $r),
                 length => $length,
                 width  => $width },
               $class;

    $self->_calculate_corners;
    return $self;
}


sub rotate {
    $_[0]->{centre}->rotate($_[1]);
    $_[0]->{tl}->rotate_about_point($_[0]->{centre}, $_[1]);
    $_[0]->{tr}->rotate_about_point($_[0]->{centre}, $_[1]);
    $_[0]->{bl}->rotate_about_point($_[0]->{centre}, $_[1]);
    $_[0]->{br}->rotate_about_point($_[0]->{centre}, $_[1]);
}


sub get_points {
    my $self = shift;
    {
        tl => $self->{tl},
        tr => $self->{tr},
        bl => $self->{bl},
        br => $self->{br},
    };
}


sub detect_collision {
    my ($self, $r2) = @_;
    return 1 if $self->test_radius_intersect($r2);
    0;
}


sub test_radius_intersect {
    my ($self, $r2) = @_;
    my $r1_radius = max($self->{width}, $self->{length}) / 2;
    my $r2_radius = max($r2->{width}, $r2->{length}) / 2;
    my $distance = $self->{centre}->get_distance_to_point($r2->{centre});
    return $distance > $r1_radius + $r2_radius ? 0 : 1;
}


# FIXME - doesn't work when r != 0 or pi

sub _calculate_corners {
    my $self = shift;

    $self->{tl} = Math::Shape::Point->new(
        $self->{centre}{x} - int (sin($self->{centre}{r} - pip2)
                                  * ($self->{length} * 0.5 / sin($self->{centre}{r} - pip2))),
        $self->{centre}{y} + int( cos($self->{centre}{r} - pip2)
                                  * ($self->{width} * 0.5 / cos($self->{centre}{r} - pip2))),
        $self->{centre}{r});

    $self->{tr} = Math::Shape::Point->new(
        $self->{centre}{x} + int (sin($self->{centre}{r} - pip2)
                                  * ($self->{length} * 0.5 / sin($self->{centre}{r} - pip2))),
        $self->{centre}{y} + int( cos($self->{centre}{r} - pip2)
                                  * ($self->{width} * 0.5 / cos($self->{centre}{r} - pip2))),
        $self->{centre}{r});

    $self->{bl} = Math::Shape::Point->new(
        $self->{centre}{x} - int (sin($self->{centre}{r} - pip2)
                                  * ($self->{length} * 0.5 / sin($self->{centre}{r} - pip2))),
        $self->{centre}{y} - int( cos($self->{centre}{r} - pip2)
                                  * ($self->{width} * 0.5 / cos($self->{centre}{r} - pip2))),
        $self->{centre}{r});

    $self->{br} = Math::Shape::Point->new(
        $self->{centre}{x} + int (sin($self->{centre}{r} - pip2)
                                  * ($self->{length} * 0.5 / sin($self->{centre}{r} - pip2))),
        $self->{centre}{y} - int( cos($self->{centre}{r} - pip2)
                                  * ($self->{width} * 0.5 / cos($self->{centre}{r} - pip2))),
        $self->{centre}{r});
    1;
}


1;

__END__