juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-31 09:02:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

Incomplete work for porting simplify() to XS

Browse Source
This commit is contained in:
Alessandro Ranellucci
2013-11-21 20:25:24 +01:00
parent 7475762a27
commit 518798beb3
24 changed files with 121 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/Slic3r/Print.pm
View File

@@ -317,14 +317,8 @@ sub _simplify_slices {
my ($distance) = @_;
foreach my $layer (map @{$_->layers}, @{$self->objects}) {
my @new = map $_->simplify($distance), map $_->clone, @{$layer->slices};
$layer->slices->clear;
$layer->slices->append(@new);
foreach my $layerm (@{$layer->regions}) {
my @new = map $_->simplify($distance), map $_->clone, @{$layerm->slices};
$layerm->slices->clear;
$layerm->slices->append(@new);
}
$layer->slices->simplify($distance);
$_->slices->simplify($distance) for @{$layer->regions};
}
}