3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-10-30 20:21:12 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

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

5
lib/Slic3r/Extruder.pm
View file

@ -77,7 +77,10 @@ sub extrude {
sub extrude_loop {
my $self = shift;
my ($loop, $description) = @_;
# extrude all loops ccw
$loop->polygon->make_counter_clockwise;
# find the point of the loop that is closest to the current extruder position
my $start_at = $loop->nearest_point_to($self->last_pos);

1
lib/Slic3r/Perimeter.pm
View file

@ -115,7 +115,6 @@ sub make_perimeter {
}
foreach my $hole (@holes) {
$hole->reverse;
push @{ $layer->perimeters }, Slic3r::ExtrusionLoop->new(polygon => $hole, role => 'perimeter');
}

7
lib/Slic3r/Polygon.pm
View file

@ -30,11 +30,6 @@ sub clone {
return (ref $self)->new(map $_->clone, @$self);
}
sub reverse {
my $self = shift;
@$self = CORE::reverse @$self;
}
sub lines {
my $self = shift;
return map Slic3r::Line->new($_), polygon_lines($self);
@ -135,7 +130,7 @@ sub is_printable {
# for a distance equal to half of the extrusion width;
# if no offset is possible, then polyline is not printable
my $p = $self->clone;
@$p = CORE::reverse @$p if !Math::Clipper::is_counter_clockwise($p);
$p->make_counter_clockwise;
my $offsets = Math::Clipper::offset([$p], -(scale $Slic3r::flow_spacing / 2), $Slic3r::resolution * 100000, JT_MITER, 2);
return @$offsets ? 1 : 0;
}

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 {