Do hole perimeters in ccw direction too

This commit is contained in:
Alessandro Ranellucci 2012-02-21 14:29:58 +01:00
parent b6bffacb9d
commit f2e1fe5241
2 changed files with 6 additions and 0 deletions

View File

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

View File

@ -30,6 +30,11 @@ sub clone {
return (ref $self)->new(map $_->clone, @$self); return (ref $self)->new(map $_->clone, @$self);
} }
sub reverse {
my $self = shift;
@$self = reverse @$self;
}
sub lines { sub lines {
my $self = shift; my $self = shift;
return map Slic3r::Line->new($_), polygon_lines($self); return map Slic3r::Line->new($_), polygon_lines($self);