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

Refactoring: generate interface and support in different cycles

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-08-11 19:25:51 +02:00
parent 5f07d39509
commit 8d413eda44
1 changed files with 19 additions and 20 deletions

37
lib/Slic3r/Print/Object.pm
View file

@ -961,15 +961,13 @@ sub generate_support_material {
# if we wanted to apply some special logic to the first support layers lying on # if we wanted to apply some special logic to the first support layers lying on
# object's top surfaces this is the place to detect them # object's top surfaces this is the place to detect them
# Let's now determine shells (interface layers) and normal support below them. # let's now generate interface layers below contact areas
# Let's now fill each support layer by generating shells (interface layers) and
# clipping support area to the actual object boundaries.
my %interface = (); # layer_id => [ polygons ] my %interface = (); # layer_id => [ polygons ]
my %support = (); # layer_id => [ polygons ]
my $interface_layers = $Slic3r::Config->support_material_interface_layers; my $interface_layers = $Slic3r::Config->support_material_interface_layers;
for my $layer_id (0 .. $#support_layers) { for my $layer_id (0 .. $#support_layers) {
my $z = $support_layers[$layer_id]; my $z = $support_layers[$layer_id];
my $this = $contact{$z} // next; my $this = $contact{$z} // next;
# count contact layer as interface layer # count contact layer as interface layer
for (my $i = $layer_id-1; $i >= 0 && $i > $layer_id-$interface_layers; $i--) { for (my $i = $layer_id-1; $i >= 0 && $i > $layer_id-$interface_layers; $i--) {
$z = $support_layers[$i]; $z = $support_layers[$i];
@ -980,31 +978,32 @@ sub generate_support_material {
# surfaces before performing the diff, but this needs investigation. # surfaces before performing the diff, but this needs investigation.
$this = $interface{$i} = diff( $this = $interface{$i} = diff(
[ [
@$this, @$this, # clipped projection of the current contact regions
@{ $interface{$i} || [] }, @{ $interface{$i} || [] }, # interface regions already applied to this layer
], ],
[ [
@{ $top{$z} || [] }, @{ $top{$z} || [] }, # top slices on this layer
@{ $contact{$z} || [] }, @{ $contact{$z} || [] }, # contact regions on this layer
], ],
1, 1,
); );
} }
}
# determine what layers does our support belong to # let's now generate support layers under interface layers
for (my $i = $layer_id-$interface_layers; $i >= 0; $i--) { my %support = (); # layer_id => [ polygons ]
$z = $support_layers[$i]; {
# Compute support area on this layer as diff of upper support area for my $i (reverse 0 .. $#support_layers-1) {
# and layer slices. my $z = $support_layers[$i];
$this = $support{$i} = diff( $support{$i} = diff(
[ [
@$this, @{ $support{$i+1} || [] }, # support regions on upper layer
@{ $support{$i} || [] }, @{ $interface{$i+1} || [] }, # interface regions on upper layer
], ],
[ [
@{ $top{$z} || [] }, @{ $top{$z} || [] }, # top slices on this layer
@{ $interface{$i} || [] }, @{ $interface{$i} || [] }, # interface regions on this layer
@{ $contact{$z} || [] }, @{ $contact{$z} || [] }, # contact regions on this layer
], ],
1, 1,
); );