move duplicate stuff around a bit

This commit is contained in:
Michael Moon 2012-04-12 03:30:15 +10:00
parent 134595fc99
commit 757f8a2404

View File

@ -262,11 +262,12 @@ sub BUILD {
my $cx = $c->[1]->{index}->[0] - $lx;
my $cy = $c->[1]->{index}->[1] - $ty;
push @{$self->copies}, [scale($cx * $partx - (unscale($self->x_length) / 2)), scale($cy * $party - (unscale($self->y_length) / 2))];
push @{$self->copies}, [scale($cx * $partx), scale($cy * $party)];
}
# save size of area used
$self->total_x_length(scale(($rx - $lx) * $partx));
$self->total_y_length(scale(($by - $ty) * $party));
$self->total_x_length(scale(($rx - $lx + 1) * $partx));
$self->total_y_length(scale(($by - $ty + 1) * $party));
} else {
$self->total_x_length($self->x_length);
$self->total_y_length($self->y_length);