Some minor fixes related to polyline refactoring

This commit is contained in:
Alessandro Ranellucci 2012-01-27 14:29:06 +01:00
parent d63fd77da4
commit 4ade11b26e
3 changed files with 5 additions and 5 deletions

View file

@ -63,7 +63,7 @@ sub simplify {
sub reverse_points {
my $self = shift;
@{$self->points} = reverse @{$self->points};
@$self = reverse @$self;
}
sub is_counter_clockwise {
@ -152,13 +152,13 @@ sub clip_with_expolygon {
sub bounding_box {
my $self = shift;
return Slic3r::Geometry::bounding_box($self->points);
return Slic3r::Geometry::bounding_box($self);
}
sub translate {
my $self = shift;
my ($x, $y) = @_;
@{$self->points} = move_points([$x, $y], @{$self->points});
@$self = move_points([$x, $y], @$self);
}
1;