Minor optimization

This commit is contained in:
Alessandro Ranellucci 2013-04-18 17:36:06 +02:00
parent 430c825918
commit 850690cf79

View File

@ -39,22 +39,20 @@ sub infill_direction {
sub rotate_points { sub rotate_points {
my $self = shift; my $self = shift;
my ($expolygon, $rotate_vector) = @_; my ($expolygon, $rotate_vector) = @_;
my @rotate = @{$rotate_vector->[0]};
my @shift = @{$rotate_vector->[1]};
# rotate points # rotate points
$expolygon->rotate(@rotate); $expolygon->rotate(@{$rotate_vector->[0]});
$expolygon->translate(@shift); $expolygon->translate(@{$rotate_vector->[1]});
} }
sub rotate_points_back { sub rotate_points_back {
my $self = shift; my $self = shift;
my ($paths, $rotate_vector) = @_; my ($paths, $rotate_vector) = @_;
my @rotate = @{$rotate_vector->[0]}; my @rotate = (-$rotate_vector->[0][0], $rotate_vector->[0][1]);
my @shift = @{$rotate_vector->[1]}; my $shift = [ map -$_, @{$rotate_vector->[1]} ];
@$paths = map [ Slic3r::Geometry::rotate_points(-$rotate[0], $rotate[1], @$_) ], @$paths = map [ Slic3r::Geometry::rotate_points(@rotate, @$_) ],
map [ Slic3r::Geometry::move_points([map -$_, @shift], @$_) ], @$paths; map [ Slic3r::Geometry::move_points($shift, @$_) ], @$paths;
} }
sub adjust_solid_spacing { sub adjust_solid_spacing {