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

Fix comments in Perimeter.pm

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-01-21 12:00:12 +01:00
parent f1b1454b36
commit 7636b67871
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lib/Slic3r/Perimeter.pm
View file

@ -15,25 +15,26 @@ sub make_perimeter {
die "Can't slice object with no perimeters!\n" die "Can't slice object with no perimeters!\n"
if $Slic3r::perimeters == 0; if $Slic3r::perimeters == 0;
# this array will hold one arrayref per original surface; # this array will hold one arrayref per original surface (island);
# each item of this arrayref is an arrayref representing a depth (from inner # each item of this arrayref is an arrayref representing a depth (from outer
# perimeters to outer); each item of this arrayref is an ExPolygon: # perimeters to inner); each item of this arrayref is an ExPolygon:
# @perimeters = ( # @perimeters = (
# [ # first object (identified by a single surface before offsetting) # [ # first island
# [ Slic3r::ExPolygon, Slic3r::ExPolygon... ], #depth 0: outer loop # [ Slic3r::ExPolygon, Slic3r::ExPolygon... ], #depth 0: outer loop
# [ Slic3r::ExPolygon, Slic3r::ExPolygon... ], #depth 1: inner loop # [ Slic3r::ExPolygon, Slic3r::ExPolygon... ], #depth 1: inner loop
# ], # ],
# [ # second object # [ # second island
# ... # ...
# ] # ]
# ) # )
my @perimeters = (); # one item per depth; each item my @perimeters = (); # one item per depth; each item
# organize perimeter surfaces using a shortest path search # organize islands using a shortest path search
my @surfaces = @{shortest_path([ my @surfaces = @{shortest_path([
map [ $_->contour->[0], $_ ], @{$layer->slices}, map [ $_->contour->[0], $_ ], @{$layer->slices},
])}; ])};
# for each island:
foreach my $surface (@surfaces) { foreach my $surface (@surfaces) {
my @last_offsets = ($surface->expolygon); my @last_offsets = ($surface->expolygon);
my $distance = 0; my $distance = 0;