package Slic3r::GUI::SkeinPanel; use strict; use warnings; use utf8; use File::Basename qw(basename dirname); use List::Util qw(min); use Slic3r::Geometry qw(X Y); use Wx qw(:dialog :filedialog :font :icon :id :misc :notebook :panel :sizer); use Wx::Event qw(EVT_BUTTON); use base 'Wx::Panel'; our $last_input_file; our $last_output_file; our $last_config; use constant FILE_WILDCARDS => { known => 'Known files (*.stl, *.obj, *.amf, *.xml)|*.stl;*.STL;*.obj;*.OBJ;*.amf;*.AMF;*.xml;*.XML', stl => 'STL files (*.stl)|*.stl;*.STL', obj => 'OBJ files (*.obj)|*.obj;*.OBJ', amf => 'AMF files (*.amf)|*.amf;*.AMF;*.xml;*.XML', ini => 'INI files *.ini|*.ini;*.INI', gcode => 'G-code files (*.gcode, *.gco, *.g, *.ngc)|*.gcode;*.GCODE;*.gco;*.GCO;*.g;*.G;*.ngc;*.NGC', svg => 'SVG files *.svg|*.svg;*.SVG', }; use constant MODEL_WILDCARD => join '|', @{&FILE_WILDCARDS}{qw(known stl obj amf)}; sub new { my $class = shift; my ($parent, %params) = @_; my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, wxDefaultSize, wxTAB_TRAVERSAL); $self->{mode} = $params{mode}; $self->{mode} = 'expert' if $self->{mode} !~ /^(?:simple|expert)$/; $self->{tabpanel} = Wx::Notebook->new($self, -1, wxDefaultPosition, wxDefaultSize, wxNB_TOP | wxTAB_TRAVERSAL); $self->{tabpanel}->AddPage($self->{plater} = Slic3r::GUI::Plater->new($self->{tabpanel}), "Plater") unless $params{no_plater}; $self->{options_tabs} = {}; my $simple_config; if ($self->{mode} eq 'simple') { $simple_config = Slic3r::Config->load("$Slic3r::GUI::datadir/simple.ini") if -e "$Slic3r::GUI::datadir/simple.ini"; } my $class_prefix = $self->{mode} eq 'simple' ? "Slic3r::GUI::SimpleTab::" : "Slic3r::GUI::Tab::"; my $init = 0; for my $tab_name (qw(print filament printer)) { my $tab; $tab = $self->{options_tabs}{$tab_name} = ($class_prefix . ucfirst $tab_name)->new( $self->{tabpanel}, on_value_change => sub { $self->{plater}->on_config_change(@_) if $self->{plater}; # propagate config change events to the plater if ($init) { # don't save while loading for the first time if ($self->{mode} eq 'simple') { # save config $self->config->save("$Slic3r::GUI::datadir/simple.ini"); # save a copy into each preset section # so that user gets the config when switching to expert mode $tab->config->save(sprintf "$Slic3r::GUI::datadir/%s/%s.ini", $tab->name, 'Simple Mode'); $Slic3r::GUI::Settings->{presets}{$tab->name} = 'Simple Mode.ini'; Slic3r::GUI->save_settings; } $self->config->save($Slic3r::GUI::autosave) if $Slic3r::GUI::autosave; } }, on_presets_changed => sub { $self->{plater}->update_presets($tab_name, @_) if $self->{plater}; }, ); $self->{tabpanel}->AddPage($tab, $tab->title); $tab->load_config($simple_config) if $simple_config; } $init = 1; my $sizer = Wx::BoxSizer->new(wxVERTICAL); $sizer->Add($self->{tabpanel}, 1, wxEXPAND); $sizer->SetSizeHints($self); $self->SetSizer($sizer); $self->Layout; return $self; } sub quick_slice { my $self = shift; my %params = @_; my $process_dialog; eval { # validate configuration my $config = $self->config; $config->validate; # confirm slicing of more than one copies my $copies = $config->duplicate_grid->[X] * $config->duplicate_grid->[Y]; $copies = $config->duplicate if $config->duplicate > 1; if ($copies > 1) { my $confirmation = Wx::MessageDialog->new($self, "Are you sure you want to slice $copies copies?", 'Multiple Copies', wxICON_QUESTION | wxOK | wxCANCEL); return unless $confirmation->ShowModal == wxID_OK; } # select input file my $dir = $Slic3r::GUI::Settings->{recent}{skein_directory} || $Slic3r::GUI::Settings->{recent}{config_directory} || ''; my $input_file; if (!$params{reslice}) { my $dialog = Wx::FileDialog->new($self, 'Choose a file to slice (STL/OBJ/AMF):', $dir, "", MODEL_WILDCARD, wxFD_OPEN | wxFD_FILE_MUST_EXIST); if ($dialog->ShowModal != wxID_OK) { $dialog->Destroy; return; } $input_file = $dialog->GetPaths; $dialog->Destroy; $last_input_file = $input_file unless $params{export_svg}; } else { if (!defined $last_input_file) { Wx::MessageDialog->new($self, "No previously sliced file.", 'Error', wxICON_ERROR | wxOK)->ShowModal(); return; } if (! -e $last_input_file) { Wx::MessageDialog->new($self, "Previously sliced file ($last_input_file) not found.", 'File Not Found', wxICON_ERROR | wxOK)->ShowModal(); return; } $input_file = $last_input_file; } my $input_file_basename = basename($input_file); $Slic3r::GUI::Settings->{recent}{skein_directory} = dirname($input_file); Slic3r::GUI->save_settings; my $print = $self->init_print; my $model = Slic3r::Model->read_from_file($input_file); if ($model->has_objects_with_no_instances) { # apply a default position to all objects not having one foreach my $object (@{$model->objects}) { $object->add_instance(offset => [0,0]) if !defined $object->instances; } $model->arrange_objects($config); } $model->center_instances_around_point($config->print_center); $print->add_model_object($_) for @{ $model->objects }; $print->validate; # select output file my $output_file = $main::opt{output}; if ($params{reslice}) { $output_file = $last_output_file if defined $last_output_file; } elsif ($params{save_as}) { $output_file = $print->expanded_output_filepath($output_file); $output_file =~ s/\.gcode$/.svg/i if $params{export_svg}; my $dlg = Wx::FileDialog->new($self, 'Save ' . ($params{export_svg} ? 'SVG' : 'G-code') . ' file as:', Slic3r::GUI->output_path(dirname($output_file)), basename($output_file), $params{export_svg} ? FILE_WILDCARDS->{svg} : FILE_WILDCARDS->{gcode}, wxFD_SAVE); if ($dlg->ShowModal != wxID_OK) { $dlg->Destroy; return; } $output_file = $dlg->GetPath; $last_output_file = $output_file unless $params{export_svg}; $Slic3r::GUI::Settings->{_}{last_output_path} = dirname($output_file); Slic3r::GUI->save_settings; $dlg->Destroy; } # show processbar dialog $process_dialog = Wx::ProgressDialog->new('Slicing…', "Processing $input_file_basename…", 100, $self, 0); $process_dialog->Pulse; { my @warnings = (); local $SIG{__WARN__} = sub { push @warnings, $_[0] }; my %export_params = ( output_file => $output_file, ); $print->status_cb(sub { my ($percent, $message) = @_; if (&Wx::wxVERSION_STRING =~ / 2\.(8\.|9\.[2-9])/) { $process_dialog->Update($percent, "$message…"); } }); if ($params{export_svg}) { $print->export_svg(%export_params); } else { $print->process; $print->export_gcode(%export_params); } $print->status_cb(undef); Slic3r::GUI::warning_catcher($self)->($_) for @warnings; } $process_dialog->Destroy; undef $process_dialog; my $message = "$input_file_basename was successfully sliced."; &Wx::wxTheApp->notify($message); Wx::MessageDialog->new($self, $message, 'Slicing Done!', wxOK | wxICON_INFORMATION)->ShowModal; }; Slic3r::GUI::catch_error($self, sub { $process_dialog->Destroy if $process_dialog }); } sub repair_stl { my $self = shift; my $input_file; { my $dir = $Slic3r::GUI::Settings->{recent}{skein_directory} || $Slic3r::GUI::Settings->{recent}{config_directory} || ''; my $dialog = Wx::FileDialog->new($self, 'Select the STL file to repair:', $dir, "", FILE_WILDCARDS->{stl}, wxFD_OPEN | wxFD_FILE_MUST_EXIST); if ($dialog->ShowModal != wxID_OK) { $dialog->Destroy; return; } $input_file = $dialog->GetPaths; $dialog->Destroy; } my $output_file = $input_file; { $output_file =~ s/\.stl$/_fixed.obj/i; my $dlg = Wx::FileDialog->new($self, "Save OBJ file (less prone to coordinate errors than STL) as:", dirname($output_file), basename($output_file), &Slic3r::GUI::SkeinPanel::FILE_WILDCARDS->{obj}, wxFD_SAVE | wxFD_OVERWRITE_PROMPT); if ($dlg->ShowModal != wxID_OK) { $dlg->Destroy; return undef; } $output_file = $dlg->GetPath; $dlg->Destroy; } my $tmesh = Slic3r::TriangleMesh->new; $tmesh->ReadSTLFile(Slic3r::encode_path($input_file)); $tmesh->repair; $tmesh->WriteOBJFile(Slic3r::encode_path($output_file)); Slic3r::GUI::show_info($self, "Your file was repaired.", "Repair"); } sub extra_variables { my $self = shift; my %extra_variables = (); if ($self->{mode} eq 'expert') { $extra_variables{"${_}_preset"} = $self->{options_tabs}{$_}->current_preset->{name} for qw(print filament printer); } return { %extra_variables }; } sub init_print { my $self = shift; return Slic3r::Print->new( config => $self->config, extra_variables => $self->extra_variables, ); } sub export_config { my $self = shift; my $config = $self->config; eval { # validate configuration $config->validate; }; Slic3r::GUI::catch_error($self) and return; my $dir = $last_config ? dirname($last_config) : $Slic3r::GUI::Settings->{recent}{config_directory} || $Slic3r::GUI::Settings->{recent}{skein_directory} || ''; my $filename = $last_config ? basename($last_config) : "config.ini"; my $dlg = Wx::FileDialog->new($self, 'Save configuration as:', $dir, $filename, FILE_WILDCARDS->{ini}, wxFD_SAVE | wxFD_OVERWRITE_PROMPT); if ($dlg->ShowModal == wxID_OK) { my $file = $dlg->GetPath; $Slic3r::GUI::Settings->{recent}{config_directory} = dirname($file); Slic3r::GUI->save_settings; $last_config = $file; $config->save($file); } $dlg->Destroy; } sub load_config_file { my $self = shift; my ($file) = @_; if (!$file) { return unless $self->check_unsaved_changes; my $dir = $last_config ? dirname($last_config) : $Slic3r::GUI::Settings->{recent}{config_directory} || $Slic3r::GUI::Settings->{recent}{skein_directory} || ''; my $dlg = Wx::FileDialog->new($self, 'Select configuration to load:', $dir, "config.ini", FILE_WILDCARDS->{ini}, wxFD_OPEN | wxFD_FILE_MUST_EXIST); return unless $dlg->ShowModal == wxID_OK; ($file) = $dlg->GetPaths; $dlg->Destroy; } $Slic3r::GUI::Settings->{recent}{config_directory} = dirname($file); Slic3r::GUI->save_settings; $last_config = $file; for my $tab (values %{$self->{options_tabs}}) { $tab->load_config_file($file); } } sub load_config { my $self = shift; my ($config) = @_; foreach my $tab (values %{$self->{options_tabs}}) { $tab->set_value($_, $config->$_) for keys %$config; } } sub config_wizard { my $self = shift; return unless $self->check_unsaved_changes; if (my $config = Slic3r::GUI::ConfigWizard->new($self)->run) { if ($self->{mode} eq 'expert') { for my $tab (values %{$self->{options_tabs}}) { $tab->select_default_preset; } } $self->load_config($config); if ($self->{mode} eq 'expert') { for my $tab (values %{$self->{options_tabs}}) { $tab->save_preset('My Settings'); } } } } sub combine_stls { my $self = shift; # get input files my @input_files = (); my $dir = $Slic3r::GUI::Settings->{recent}{skein_directory} || ''; { my $dlg_message = 'Choose one or more files to combine (STL/OBJ)'; while (1) { my $dialog = Wx::FileDialog->new($self, "$dlg_message:", $dir, "", MODEL_WILDCARD, wxFD_OPEN | wxFD_MULTIPLE | wxFD_FILE_MUST_EXIST); if ($dialog->ShowModal != wxID_OK) { $dialog->Destroy; last; } push @input_files, $dialog->GetPaths; $dialog->Destroy; $dlg_message .= " or hit Cancel if you have finished"; $dir = dirname($input_files[0]); } return if !@input_files; } # get output file my $output_file = $input_files[0]; { $output_file =~ s/\.(?:stl|obj)$/.amf.xml/i; my $dlg = Wx::FileDialog->new($self, 'Save multi-material AMF file as:', dirname($output_file), basename($output_file), FILE_WILDCARDS->{amf}, wxFD_SAVE); if ($dlg->ShowModal != wxID_OK) { $dlg->Destroy; return; } $output_file = $dlg->GetPath; } my @models = map Slic3r::Model->read_from_file($_), @input_files; my $new_model = Slic3r::Model->new; my $new_object = $new_model->add_object; for my $m (0 .. $#models) { my $model = $models[$m]; $new_model->set_material($m, { Name => basename($input_files[$m]) }); $new_object->add_volume( material_id => $m, mesh => $model->objects->[0]->volumes->[0]->mesh, ); } Slic3r::Format::AMF->write_file($output_file, $new_model); } =head2 config This method collects all config values from the tabs and merges them into a single config object. =cut sub config { my $self = shift; # retrieve filament presets and build a single config object for them my $filament_config; if (!$self->{plater} || $self->{plater}->filament_presets == 1 || $self->{mode} eq 'simple') { $filament_config = $self->{options_tabs}{filament}->config; } else { # TODO: handle dirty presets. # perhaps plater shouldn't expose dirty presets at all in multi-extruder environments. foreach my $preset_idx ($self->{plater}->filament_presets) { my $preset = $self->{options_tabs}{filament}->get_preset($preset_idx); my $config = $self->{options_tabs}{filament}->get_preset_config($preset); if (!$filament_config) { $filament_config = $config; next; } foreach my $opt_key (keys %$config) { next unless ref $filament_config->get($opt_key) eq 'ARRAY'; push @{ $filament_config->get($opt_key) }, $config->get($opt_key)->[0]; } } } my $config = Slic3r::Config->merge( Slic3r::Config->new_from_defaults, $self->{options_tabs}{print}->config, $self->{options_tabs}{printer}->config, $filament_config, ); if ($self->{mode} eq 'simple') { # set some sensible defaults $config->set('first_layer_height', $config->nozzle_diameter->[0]); $config->set('avoid_crossing_perimeters', 1); $config->set('infill_every_layers', 10); } else { my $extruders_count = $self->{options_tabs}{printer}{extruders_count}; $config->set("${_}_extruder", min($config->get("${_}_extruder"), $extruders_count)) for qw(perimeter infill support_material support_material_interface); } return $config; } sub set_value { my $self = shift; my ($opt_key, $value) = @_; my $changed = 0; foreach my $tab (values %{$self->{options_tabs}}) { $changed = 1 if $tab->set_value($opt_key, $value); } return $changed; } sub check_unsaved_changes { my $self = shift; my @dirty = map $_->title, grep $_->is_dirty, values %{$self->{options_tabs}}; if (@dirty) { my $titles = join ', ', @dirty; my $confirm = Wx::MessageDialog->new($self, "You have unsaved changes ($titles). Discard changes and continue anyway?", 'Unsaved Presets', wxICON_QUESTION | wxYES_NO | wxNO_DEFAULT); return ($confirm->ShowModal == wxID_YES); } return 1; } sub select_tab { my ($self, $tab) = @_; $self->{tabpanel}->ChangeSelection($tab); } 1;