mirror of
https://git.mirrors.martin98.com/https://github.com/slic3r/Slic3r.git
synced 2025-08-14 13:55:53 +08:00
Checks to see if config option has been changed before going any further for several config options.
N of 1 testing indicates that it may help with latency.
This commit is contained in:
Joseph Lenox
parent
7457cfdac2
commit
c206ae77a3
@ -4,7 +4,7 @@ use warnings;
|
||||
use utf8;
|
||||
|
||||
use File::Basename qw(basename);
|
||||
use List::Util qw(first);
|
||||
use List::Util qw(first any);
|
||||
use Wx qw(:bookctrl :dialog :keycode :icon :id :misc :panel :sizer :treectrl :window
|
||||
:button wxTheApp);
|
||||
use Wx::Event qw(EVT_BUTTON EVT_CHOICE EVT_KEY_DOWN EVT_TREE_SEL_CHANGED EVT_CHECKBOX);
|
||||
@ -147,12 +147,11 @@ sub on_value_change {
|
||||
# propagate event to the parent
|
||||
sub _on_value_change {
|
||||
my ($self, $opt_key) = @_;
|
||||
|
||||
wxTheApp->CallAfter(sub {
|
||||
$self->current_preset->_dirty_config->apply($self->config);
|
||||
$self->{on_value_change}->($opt_key) if $self->{on_value_change};
|
||||
$self->load_presets;
|
||||
$self->_update;
|
||||
$self->_update($opt_key);
|
||||
});
|
||||
}
|
||||
|
||||
@ -794,122 +793,141 @@ sub reload_config {
|
||||
}
|
||||
|
||||
sub _update {
|
||||
my ($self) = @_;
|
||||
|
||||
my ($self, $key) = @_;
|
||||
my $opt_key = $key;
|
||||
$opt_key = "all_keys" if (length($key // '') == 0);
|
||||
my $config = $self->{config};
|
||||
|
||||
if ($config->spiral_vase && !($config->perimeters == 1 && $config->top_solid_layers == 0 && $config->fill_density == 0 && $config->support_material == 0)) {
|
||||
my $dialog = Wx::MessageDialog->new($self,
|
||||
"The Spiral Vase mode requires:\n"
|
||||
. "- one perimeter\n"
|
||||
. "- no top solid layers\n"
|
||||
. "- 0% fill density\n"
|
||||
. "- no support material\n"
|
||||
. "\nShall I adjust those settings in order to enable Spiral Vase?",
|
||||
'Spiral Vase', wxICON_WARNING | wxYES | wxNO);
|
||||
if ($dialog->ShowModal() == wxID_YES) {
|
||||
my $new_conf = Slic3r::Config->new;
|
||||
$new_conf->set("perimeters", 1);
|
||||
$new_conf->set("top_solid_layers", 0);
|
||||
$new_conf->set("fill_density", 0);
|
||||
$new_conf->set("support_material", 0);
|
||||
$self->_load_config($new_conf);
|
||||
} else {
|
||||
my $new_conf = Slic3r::Config->new;
|
||||
$new_conf->set("spiral_vase", 0);
|
||||
$self->_load_config($new_conf);
|
||||
}
|
||||
}
|
||||
|
||||
if ($config->support_material) {
|
||||
# Ask only once.
|
||||
if (! $self->{support_material_overhangs_queried}) {
|
||||
$self->{support_material_overhangs_queried} = 1;
|
||||
if ($config->overhangs != 1) {
|
||||
my $dialog = Wx::MessageDialog->new($self,
|
||||
"Supports work better, if the following feature is enabled:\n"
|
||||
. "- Detect bridging perimeters\n"
|
||||
. "\nShall I adjust those settings for supports?",
|
||||
'Support Generator', wxICON_WARNING | wxYES | wxNO | wxCANCEL);
|
||||
my $answer = $dialog->ShowModal();
|
||||
if (any { /$opt_key/ } qw(all_keys spiral_vase perimeters top_solid_layers fill_density support_material)) {
|
||||
if ($config->spiral_vase && !($config->perimeters == 1 && $config->top_solid_layers == 0 && $config->fill_density == 0 && $config->support_material == 0)) {
|
||||
my $dialog = Wx::MessageDialog->new($self,
|
||||
"The Spiral Vase mode requires:\n"
|
||||
. "- one perimeter\n"
|
||||
. "- no top solid layers\n"
|
||||
. "- 0% fill density\n"
|
||||
. "- no support material\n"
|
||||
. "\nShall I adjust those settings in order to enable Spiral Vase?",
|
||||
'Spiral Vase', wxICON_WARNING | wxYES | wxNO);
|
||||
if ($dialog->ShowModal() == wxID_YES) {
|
||||
my $new_conf = Slic3r::Config->new;
|
||||
if ($answer == wxID_YES) {
|
||||
# Enable "detect bridging perimeters".
|
||||
$new_conf->set("overhangs", 1);
|
||||
} elsif ($answer == wxID_NO) {
|
||||
# Do nothing, leave supports on and "detect bridging perimeters" off.
|
||||
} elsif ($answer == wxID_CANCEL) {
|
||||
# Disable supports.
|
||||
$new_conf->set("support_material", 0);
|
||||
$self->{support_material_overhangs_queried} = 0;
|
||||
}
|
||||
$new_conf->set("perimeters", 1);
|
||||
$new_conf->set("top_solid_layers", 0);
|
||||
$new_conf->set("fill_density", 0);
|
||||
$new_conf->set("support_material", 0);
|
||||
$self->_load_config($new_conf);
|
||||
} else {
|
||||
my $new_conf = Slic3r::Config->new;
|
||||
$new_conf->set("spiral_vase", 0);
|
||||
$self->_load_config($new_conf);
|
||||
}
|
||||
}
|
||||
} else {
|
||||
$self->{support_material_overhangs_queried} = 0;
|
||||
}
|
||||
|
||||
if (any { /$opt_key/ } qw(all_keys support_material)) {
|
||||
if ($config->support_material) {
|
||||
# Ask only once.
|
||||
if (! $self->{support_material_overhangs_queried}) {
|
||||
$self->{support_material_overhangs_queried} = 1;
|
||||
if ($config->overhangs != 1) {
|
||||
my $dialog = Wx::MessageDialog->new($self,
|
||||
"Supports work better, if the following feature is enabled:\n"
|
||||
. "- Detect bridging perimeters\n"
|
||||
. "\nShall I adjust those settings for supports?",
|
||||
'Support Generator', wxICON_WARNING | wxYES | wxNO | wxCANCEL);
|
||||
my $answer = $dialog->ShowModal();
|
||||
my $new_conf = Slic3r::Config->new;
|
||||
if ($answer == wxID_YES) {
|
||||
# Enable "detect bridging perimeters".
|
||||
$new_conf->set("overhangs", 1);
|
||||
} elsif ($answer == wxID_NO) {
|
||||
# Do nothing, leave supports on and "detect bridging perimeters" off.
|
||||
} elsif ($answer == wxID_CANCEL) {
|
||||
# Disable supports.
|
||||
$new_conf->set("support_material", 0);
|
||||
$self->{support_material_overhangs_queried} = 0;
|
||||
}
|
||||
$self->_load_config($new_conf);
|
||||
}
|
||||
}
|
||||
} else {
|
||||
$self->{support_material_overhangs_queried} = 0;
|
||||
}
|
||||
}
|
||||
|
||||
if ($config->fill_density == 100
|
||||
&& !first { $_ eq $config->fill_pattern } @{$Slic3r::Config::Options->{top_infill_pattern}{values}}) {
|
||||
my $dialog = Wx::MessageDialog->new($self,
|
||||
"The " . $config->fill_pattern . " infill pattern is not supposed to work at 100% density.\n"
|
||||
. "\nShall I switch to rectilinear fill pattern?",
|
||||
'Infill', wxICON_WARNING | wxYES | wxNO);
|
||||
|
||||
my $new_conf = Slic3r::Config->new;
|
||||
if ($dialog->ShowModal() == wxID_YES) {
|
||||
$new_conf->set("fill_pattern", 'rectilinear');
|
||||
} else {
|
||||
$new_conf->set("fill_density", 40);
|
||||
if (any { /$opt_key/ } qw(all_keys fill_density fill_pattern top_infill_pattern)) {
|
||||
if ($config->fill_density == 100
|
||||
&& !first { $_ eq $config->fill_pattern } @{$Slic3r::Config::Options->{top_infill_pattern}{values}}) {
|
||||
my $dialog = Wx::MessageDialog->new($self,
|
||||
"The " . $config->fill_pattern . " infill pattern is not supposed to work at 100% density.\n"
|
||||
. "\nShall I switch to rectilinear fill pattern?",
|
||||
'Infill', wxICON_WARNING | wxYES | wxNO);
|
||||
|
||||
my $new_conf = Slic3r::Config->new;
|
||||
if ($dialog->ShowModal() == wxID_YES) {
|
||||
$new_conf->set("fill_pattern", 'rectilinear');
|
||||
} else {
|
||||
$new_conf->set("fill_density", 40);
|
||||
}
|
||||
$self->_load_config($new_conf);
|
||||
}
|
||||
$self->_load_config($new_conf);
|
||||
}
|
||||
|
||||
|
||||
my $have_perimeters = $config->perimeters > 0;
|
||||
$self->get_field($_)->toggle($have_perimeters)
|
||||
for qw(extra_perimeters thin_walls overhangs seam_position external_perimeters_first
|
||||
external_perimeter_extrusion_width
|
||||
perimeter_speed small_perimeter_speed external_perimeter_speed);
|
||||
if (any { /$opt_key/ } qw(all_keys perimeters)) {
|
||||
$self->get_field($_)->toggle($have_perimeters)
|
||||
for qw(extra_perimeters thin_walls overhangs seam_position external_perimeters_first
|
||||
external_perimeter_extrusion_width
|
||||
perimeter_speed small_perimeter_speed external_perimeter_speed);
|
||||
}
|
||||
|
||||
my $have_adaptive_slicing = $config->adaptive_slicing;
|
||||
$self->get_field($_)->toggle($have_adaptive_slicing)
|
||||
for qw(adaptive_slicing_quality match_horizontal_surfaces);
|
||||
$self->get_field($_)->toggle(!$have_adaptive_slicing)
|
||||
for qw(layer_height);
|
||||
|
||||
if (any { /$opt_key/ } qw(all_keys adaptive_slicing)) {
|
||||
$self->get_field($_)->toggle($have_adaptive_slicing)
|
||||
for qw(adaptive_slicing_quality match_horizontal_surfaces);
|
||||
$self->get_field($_)->toggle(!$have_adaptive_slicing)
|
||||
for qw(layer_height);
|
||||
}
|
||||
|
||||
my $have_infill = $config->fill_density > 0;
|
||||
# infill_extruder uses the same logic as in Print::extruders()
|
||||
$self->get_field($_)->toggle($have_infill)
|
||||
for qw(fill_pattern infill_every_layers infill_only_where_needed solid_infill_every_layers
|
||||
solid_infill_below_area infill_extruder);
|
||||
|
||||
if (any { /$opt_key/ } qw(all_keys fill_density)) {
|
||||
# infill_extruder uses the same logic as in Print::extruders()
|
||||
$self->get_field($_)->toggle($have_infill)
|
||||
for qw(fill_pattern infill_every_layers infill_only_where_needed solid_infill_every_layers
|
||||
solid_infill_below_area infill_extruder);
|
||||
}
|
||||
|
||||
my $have_solid_infill = ($config->top_solid_layers > 0) || ($config->bottom_solid_layers > 0);
|
||||
# solid_infill_extruder uses the same logic as in Print::extruders()
|
||||
$self->get_field($_)->toggle($have_solid_infill)
|
||||
for qw(top_infill_pattern bottom_infill_pattern infill_first solid_infill_extruder
|
||||
solid_infill_extrusion_width solid_infill_speed);
|
||||
|
||||
$self->get_field($_)->toggle($have_infill || $have_solid_infill)
|
||||
for qw(fill_angle infill_extrusion_width infill_speed bridge_speed);
|
||||
|
||||
$self->get_field('fill_gaps')->toggle($have_perimeters && $have_infill);
|
||||
$self->get_field('gap_fill_speed')->toggle($have_perimeters && $have_infill && $config->fill_gaps);
|
||||
|
||||
if (any { /$opt_key/ } qw(all_keys top_solid_layers bottom_solid_layers)) {
|
||||
# solid_infill_extruder uses the same logic as in Print::extruders()
|
||||
$self->get_field($_)->toggle($have_solid_infill)
|
||||
for qw(top_infill_pattern bottom_infill_pattern infill_first solid_infill_extruder
|
||||
solid_infill_extrusion_width solid_infill_speed);
|
||||
}
|
||||
|
||||
if (any { /$opt_key/ } qw(all_keys top_solid_layers bottom_solid_layers fill_density)) {
|
||||
$self->get_field($_)->toggle($have_infill || $have_solid_infill)
|
||||
for qw(fill_angle infill_extrusion_width infill_speed bridge_speed);
|
||||
}
|
||||
|
||||
if (any { /$opt_key/ } qw(all_keys fill_density perimeters)) {
|
||||
$self->get_field('fill_gaps')->toggle($have_perimeters && $have_infill);
|
||||
$self->get_field('gap_fill_speed')->toggle($have_perimeters && $have_infill && $config->fill_gaps);
|
||||
}
|
||||
|
||||
my $have_top_solid_infill = $config->top_solid_layers > 0;
|
||||
$self->get_field($_)->toggle($have_top_solid_infill)
|
||||
for qw(top_infill_extrusion_width top_solid_infill_speed);
|
||||
|
||||
|
||||
my $have_autospeed = any { $config->get("${_}_speed") eq '0' }
|
||||
qw(perimeter external_perimeter small_perimeter
|
||||
infill solid_infill top_solid_infill gap_fill support_material
|
||||
support_material_interface);
|
||||
qw(perimeter external_perimeter small_perimeter
|
||||
infill solid_infill top_solid_infill gap_fill support_material
|
||||
support_material_interface);
|
||||
$self->get_field('max_print_speed')->toggle($have_autospeed);
|
||||
|
||||
|
||||
my $have_default_acceleration = $config->default_acceleration > 0;
|
||||
$self->get_field($_)->toggle($have_default_acceleration)
|
||||
for qw(perimeter_acceleration infill_acceleration bridge_acceleration first_layer_acceleration);
|
||||
|
||||
|
||||
my $have_skirt = $config->skirts > 0 || $config->min_skirt_length > 0;
|
||||
$self->get_field($_)->toggle($have_skirt)
|
||||
for qw(skirt_distance skirt_height);
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user