3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Adapt SectionCut to the new APIs

Browse source
This commit is contained in:
Alessandro Ranellucci 2014-12-26 18:57:21 +01:00
parent 5dc635b0b1
commit b5b0df2426
1 changed files with 14 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/Slic3r/Test/SectionCut.pm
View file

@ -84,14 +84,14 @@ sub _plot {
foreach my $copy (@{$object->_shifted_copies}) { foreach my $copy (@{$object->_shifted_copies}) {
foreach my $layer (@{$object->layers}, @{$object->support_layers}) { foreach my $layer (@{$object->layers}, @{$object->support_layers}) {
# get all ExtrusionPath objects # get all ExtrusionPath objects
my @paths = my @paths = map $_->clone,
map { $_->isa('Slic3r::ExtrusionLoop') ? $_->split_at_first_point : $_->clone } map { ($_->isa('Slic3r::ExtrusionLoop') || $_->isa('Slic3r::ExtrusionPath::Collection')) ? @$_ : $_ }
map { $_->isa('Slic3r::ExtrusionPath::Collection') ? @$_ : $_ }
grep defined $_, grep defined $_,
$filter->($layer); $filter->($layer);
$_->polyline->translate(@$copy) for @paths; $_->polyline->translate(@$copy) for @paths;
if (0) {
require "Slic3r/SVG.pm"; require "Slic3r/SVG.pm";
Slic3r::SVG::output( Slic3r::SVG::output(
"line.svg", "line.svg",
@ -102,6 +102,7 @@ sub _plot {
red_polylines => [ map $_->polyline, @paths ], red_polylines => [ map $_->polyline, @paths ],
); );
exit; exit;
}
foreach my $path (@paths) { foreach my $path (@paths) {
foreach my $line (@{$path->lines}) { foreach my $line (@{$path->lines}) {