Fix regression introduced with f2e1fe5241

This commit is contained in:
Alessandro Ranellucci 2012-02-21 20:16:03 +01:00
parent 9ac92facdd
commit c3fc6ee66b
4 changed files with 10 additions and 13 deletions

View file

@ -61,24 +61,24 @@ sub simplify {
bless $_, 'Slic3r::Point' for @$self;
}
sub reverse_points {
sub reverse {
my $self = shift;
@$self = reverse @$self;
@$self = CORE::reverse @$self;
}
sub is_counter_clockwise {
my $self = shift;
return Math::Clipper::is_counter_clockwise($self->p);
return Math::Clipper::is_counter_clockwise($self);
}
sub make_counter_clockwise {
my $self = shift;
$self->reverse_points if !$self->is_counter_clockwise;
$self->reverse if !$self->is_counter_clockwise;
}
sub make_clockwise {
my $self = shift;
$self->reverse_points if $self->is_counter_clockwise;
$self->reverse if $self->is_counter_clockwise;
}
sub nearest_point_to {