juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-19 19:33:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix regression introduced with f2e1fe5241

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/Slic3r/Polyline.pm
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 {