3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-10-30 20:21:12 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

New option to enforce support material on a given number of layers to improve adhesion of objects with poor footprint

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-02-04 15:48:57 +01:00
parent c8100ed099
commit 8efe46e58d
6 changed files with 36 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lib/Slic3r/Print.pm
View file

@ -19,6 +19,7 @@ has 'extruders' => (is => 'rw', default => sub {[]});
has 'regions' => (is => 'rw', default => sub {[]});
has 'support_material_flow' => (is => 'rw');
has 'first_layer_support_material_flow' => (is => 'rw');
has 'has_support_material' => (is => 'lazy');
# ordered collection of extrusion paths to build skirt loops
has 'skirt' => (
@ -62,6 +63,13 @@ sub _trigger_config {
$self->config->set('extrusion_axis', '') if $self->config->gcode_flavor eq 'no-extrusion';
}
sub _build_has_support_material {
my $self = shift;
return $self->config->support_material
|| $self->config->raft_layers > 0
|| $self->config->support_material_enforce_layers > 0;
}
sub add_model {
my $self = shift;
my ($model) = @_;
@ -216,7 +224,7 @@ sub init_extruders {
}
# calculate support material flow
if ($self->config->support_material || $self->config->raft_layers > 0) {
if ($self->has_support_material) {
my $extruder = $self->extruders->[$self->config->support_material_extruder-1];
$self->support_material_flow($extruder->make_flow(
width => $self->config->support_material_extrusion_width || $self->config->extrusion_width,
@ -413,7 +421,7 @@ sub export_gcode {
}
# generate support material
if ($Slic3r::Config->support_material || $Slic3r::Config->raft_layers > 0) {
if ($self->has_support_material) {
$status_cb->(85, "Generating support material");
$_->generate_support_material for @{$self->objects};
}
@ -510,7 +518,7 @@ EOF
}
}
# generate support material
if (($Slic3r::Config->support_material || $self->config->raft_layers > 0) && $layer_id > 0) {
if ($self->has_support_material && $layer_id > 0) {
my (@supported_slices, @unsupported_slices) = ();
foreach my $expolygon (@current_layer_slices) {
my $intersection = intersection_ex(
@ -801,7 +809,7 @@ sub write_gcode {
# extrude support material before other things because it might use a lower Z
# and also because we avoid travelling on other things when printing it
if ($Slic3r::Config->support_material || $self->config->raft_layers > 0) {
if ($self->has_support_material) {
$gcode .= $gcodegen->move_z($layer->support_material_contact_z)
if ($layer->support_contact_fills && @{ $layer->support_contact_fills->paths });
$gcode .= $gcodegen->set_extruder($self->extruders->[$Slic3r::Config->support_material_extruder-1]);