Slic3r takes 3D models (STL, OBJ, AMF) and converts them into G-code instructions for
3D printers. It's compatible with any modern printer based on the RepRap toolchain,
including all those based on the Marlin, Sprinter and Repetier firmware. It also works
with Mach3, LinuxCNC and Machinekit controllers.
See the [project homepage](http://slic3r.org/) at slic3r.org and the
[manual](http://manual.slic3r.org/) for more information.
### What language is it written in?
The core geometric algorithms and data structures are written in C++,
and Perl is used for high-level flow abstraction, GUI and testing.
If you're wondering why Perl, see https://xkcd.com/224/
The C++ API is public and its use in other projects is encouraged.
The goal is to make Slic3r fully modular so that any part of its logic
can be used separately.
### What are Slic3r's main features?
Key features are:
* **multi-platform** (Linux/Mac/Win) and packaged as standalone-app with no dependencies required
* complete **command-line interface** to use it with no GUI
* multi-material **(multiple extruders)** object printing
* multiple G-code flavors supported (RepRap, Makerbot, Mach3, Machinekit etc.)
* ability to plate **multiple objects having distinct print settings**
* **multithread** processing
* **STL auto-repair** (tolerance for broken models)
* wide automated unit testing
Other major features are:
* combine infill every 'n' perimeters layer to speed up printing
* **3D preview** (including multi-material files)
* **multiple layer heights** in a single print
* **spiral vase** mode for bumpless vases
* fine-grained configuration of speed, acceleration, extrusion width
* several infill patterns including honeycomb, spirals, Hilbert curves
* support material, raft, brim, skirt
* **standby temperature** and automatic wiping for multi-extruder printing
* customizable **G-code macros** and output filename with variable placeholders
* support for **post-processing scripts**
* **cooling logic** controlling fan speed and dynamic print speed
### How to install?
You can download a precompiled package from [slic3r.org](http://slic3r.org/);
it will run without the need for any dependency.
If you want to compile the source yourself follow the instructions on one of these wiki pages:
* [Linux](https://github.com/alexrj/Slic3r/wiki/Running-Slic3r-from-git-on-GNU-Linux)
* [Windows](https://github.com/prusa3d/Slic3r/wiki/How-to-compile-Slic3r-Prusa-Edition-on-MS-Windows)
* [Mac OSX](https://github.com/alexrj/Slic3r/wiki/Running-Slic3r-from-git-on-OS-X)
### Can I help?
Sure! You can do the following to find things that are available to help with:
* [Pull Request Milestone](https://github.com/alexrj/Slic3r/milestone/31)
* Please comment in the related github issue that you are working on it so that other people know.
* Items in the [TODO](https://github.com/alexrj/Slic3r/wiki/TODO) wiki page.
* Please comment in the related github issue that you are working on it so that other people know.
* Drop me a line at aar@cpan.org.
* You can also find me (rarely) in #reprap and in #slic3r on [FreeNode](https://webchat.freenode.net) with the nickname _Sound_. Another contributor, _LoH_, is also in both channels.
* Add an [issue](https://github.com/alexrj/Slic3r/issues) to the github tracker if it isn't already present.
Before sending patches and pull requests contact me (preferably through opening a github issue or commenting on an existing, related, issue) to discuss your proposed
changes: this way we'll ensure nobody wastes their time and no conflicts arise
in development.
### What's Slic3r license?
Slic3r is licensed under the _GNU Affero General Public License, version 3_.
The author is Alessandro Ranellucci.
The [Silk icon set](http://www.famfamfam.com/lab/icons/silk/) used in Slic3r is
licensed under the _Creative Commons Attribution 3.0 License_.
The author of the Silk icon set is Mark James.
### How can I invoke slic3r.pl using the command line?
Usage: slic3r.pl [ OPTIONS ] [ file.stl ] [ file2.stl ] ...
--help Output this usage screen and exit
--version Output the version of Slic3r and exit
--save ' : "\n"; # Heading $tags{h2start} = ($format eq 'html') ? '' : ''; $tags{h2end} = ($format eq 'html') ? '' : ''; # Bold font $tags{bstart} = ($format eq 'html') ? '' : ''; $tags{bend} = ($format eq 'html') ? '' : ''; # Verbatim $tags{vstart} = ($format eq 'html') ? '
' : '';
$tags{vend} = ($format eq 'html') ? '' : '';
return %tags;
}
sub slic3r_info
{
my (%params) = @_;
my %tag = Slic3r::tags($params{format});
my $out = '';
$out .= "$tag{bstart}$Slic3r::FORK_NAME$tag{bend}$tag{eol}";
$out .= "$tag{bstart}Version: $tag{bend}$Slic3r::VERSION$tag{eol}";
$out .= "$tag{bstart}Build: $tag{bend}$Slic3r::BUILD$tag{eol}";
return $out;
}
sub copyright_info
{
my (%params) = @_;
my %tag = Slic3r::tags($params{format});
my $out =
'Copyright © 2016 Vojtech Bubnik, Prusa Research. ' . 'Copyright © 2011-2016 Alessandro Ranellucci.
' . 'Slic3r is licensed under the ' . 'GNU Affero General Public License, version 3.' . '
' . 'Contributions by Henrik Brix Andersen, Nicolas Dandrimont, Mark Hindess, Petr Ledvina, Y. Sapir, Mike Sheldrake and numerous others. ' . 'Manual by Gary Hodgson. Inspired by the RepRap community.
' . 'Slic3r logo designed by Corey Daniels, Silk Icon Set designed by Mark James. '; return $out; } sub system_info { my (%params) = @_; my %tag = Slic3r::tags($params{format}); my $out = ''; $out .= "$tag{bstart}Operating System: $tag{bend}$Config{osname}$tag{eol}"; $out .= "$tag{bstart}System Architecture: $tag{bend}$Config{archname}$tag{eol}"; if ($^O eq 'MSWin32') { $out .= "$tag{bstart}Windows Version: $tag{bend}" . `ver` . $tag{eol}; } else { # Hopefully some kind of unix / linux. $out .= "$tag{bstart}System Version: $tag{bend}" . `uname -a` . $tag{eol}; } $out .= $tag{vstart} . Config::myconfig . $tag{vend}; $out .= " $tag{bstart}\@INC:$tag{bend}$tag{eol}$tag{vstart}"; foreach my $i (@INC) { $out .= " $i\n"; } $out .= "$tag{vend}"; return $out; } # this package declaration prevents an ugly fatal warning to be emitted when # spawning a new thread package GLUquadricObjPtr; 1; Slic3r-version_1.39.1/lib/Slic3r/ 0000775 0000000 0000000 00000000000 13243544447 0016430 5 ustar 00root root 0000000 0000000 Slic3r-version_1.39.1/lib/Slic3r/Config.pm 0000664 0000000 0000000 00000004676 13243544447 0020210 0 ustar 00root root 0000000 0000000 # Extends C++ class Slic3r::DynamicPrintConfig # This perl class does not keep any perl class variables, # all the storage is handled by the underlying C++ code. package Slic3r::Config; use strict; use warnings; use utf8; use List::Util qw(first max); # C++ Slic3r::PrintConfigDef exported as a Perl hash of hashes. # The C++ counterpart is a constant singleton. our $Options = print_config_def(); # Generate accessors. { no strict 'refs'; for my $opt_key (keys %$Options) { *{$opt_key} = sub { #print "Slic3r::Config::accessor $opt_key\n"; $_[0]->get($opt_key) }; } } # From command line parameters, used by slic3r.pl sub new_from_cli { my $class = shift; my %args = @_; # Delete hash keys with undefined value. delete $args{$_} for grep !defined $args{$_}, keys %args; # Replace the start_gcode, end_gcode ... hash values # with the content of the files they reference. for (qw(start end layer toolchange)) { my $opt_key = "${_}_gcode"; if ($args{$opt_key}) { if (-e $args{$opt_key}) { Slic3r::open(\my $fh, "<", $args{$opt_key}) or die "Failed to open $args{$opt_key}\n"; binmode $fh, ':utf8'; $args{$opt_key} = do { local $/; <$fh> }; close $fh; } } } my $self = $class->new; foreach my $opt_key (keys %args) { my $opt_def = $Options->{$opt_key}; # we use set_deserialize() for bool options since GetOpt::Long doesn't handle # arrays of boolean values if ($opt_key =~ /^(?:bed_shape|duplicate_grid|extruder_offset)$/ || $opt_def->{type} eq 'bool') { $self->set_deserialize($opt_key, $args{$opt_key}); } elsif (my $shortcut = $opt_def->{shortcut}) { $self->set($_, $args{$opt_key}) for @$shortcut; } else { $self->set($opt_key, $args{$opt_key}); } } return $self; } package Slic3r::Config::Static; use parent 'Slic3r::Config'; sub Slic3r::Config::GCode::new { Slic3r::Config::Static::new_GCodeConfig } sub Slic3r::Config::Print::new { Slic3r::Config::Static::new_PrintConfig } sub Slic3r::Config::PrintObject::new { Slic3r::Config::Static::new_PrintObjectConfig } sub Slic3r::Config::PrintRegion::new { Slic3r::Config::Static::new_PrintRegionConfig } sub Slic3r::Config::Full::new { Slic3r::Config::Static::new_FullPrintConfig } 1; Slic3r-version_1.39.1/lib/Slic3r/ExPolygon.pm 0000664 0000000 0000000 00000002047 13243544447 0020715 0 ustar 00root root 0000000 0000000 package Slic3r::ExPolygon; use strict; use warnings; # an ExPolygon is a polygon with holes use List::Util qw(first); use Slic3r::Geometry::Clipper qw(union_ex diff_pl); sub wkt { my $self = shift; return sprintf "POLYGON(%s)", join ',', map "($_)", map { join ',', map "$_->[0] $_->[1]", @$_ } @$self; } sub dump_perl { my $self = shift; return sprintf "[%s]", join ',', map "[$_]", map { join ',', map "[$_->[0],$_->[1]]", @$_ } @$self; } sub offset { my $self = shift; return Slic3r::Geometry::Clipper::offset(\@$self, @_); } sub offset_ex { my $self = shift; return Slic3r::Geometry::Clipper::offset_ex(\@$self, @_); } sub noncollapsing_offset_ex { my $self = shift; my ($distance, @params) = @_; return $self->offset_ex($distance + 1, @params); } sub bounding_box { my $self = shift; return $self->contour->bounding_box; } package Slic3r::ExPolygon::Collection; sub size { my $self = shift; return [ Slic3r::Geometry::size_2D([ map @$_, map @$_, @$self ]) ]; } 1; Slic3r-version_1.39.1/lib/Slic3r/ExtrusionLoop.pm 0000664 0000000 0000000 00000000350 13243544447 0021616 0 ustar 00root root 0000000 0000000 package Slic3r::ExtrusionLoop; use strict; use warnings; use parent qw(Exporter); our @EXPORT_OK = qw(EXTRL_ROLE_DEFAULT EXTRL_ROLE_CONTOUR_INTERNAL_PERIMETER EXTRL_ROLE_SKIRT); our %EXPORT_TAGS = (roles => \@EXPORT_OK); 1; Slic3r-version_1.39.1/lib/Slic3r/ExtrusionPath.pm 0000664 0000000 0000000 00000000656 13243544447 0021612 0 ustar 00root root 0000000 0000000 package Slic3r::ExtrusionPath; use strict; use warnings; use parent qw(Exporter); our @EXPORT_OK = qw(EXTR_ROLE_PERIMETER EXTR_ROLE_EXTERNAL_PERIMETER EXTR_ROLE_OVERHANG_PERIMETER EXTR_ROLE_FILL EXTR_ROLE_SOLIDFILL EXTR_ROLE_TOPSOLIDFILL EXTR_ROLE_GAPFILL EXTR_ROLE_BRIDGE EXTR_ROLE_SKIRT EXTR_ROLE_SUPPORTMATERIAL EXTR_ROLE_SUPPORTMATERIAL_INTERFACE EXTR_ROLE_NONE); our %EXPORT_TAGS = (roles => \@EXPORT_OK); 1; Slic3r-version_1.39.1/lib/Slic3r/Flow.pm 0000664 0000000 0000000 00000000521 13243544447 0017673 0 ustar 00root root 0000000 0000000 package Slic3r::Flow; use strict; use warnings; use parent qw(Exporter); our @EXPORT_OK = qw(FLOW_ROLE_EXTERNAL_PERIMETER FLOW_ROLE_PERIMETER FLOW_ROLE_INFILL FLOW_ROLE_SOLID_INFILL FLOW_ROLE_TOP_SOLID_INFILL FLOW_ROLE_SUPPORT_MATERIAL FLOW_ROLE_SUPPORT_MATERIAL_INTERFACE); our %EXPORT_TAGS = (roles => \@EXPORT_OK); 1; Slic3r-version_1.39.1/lib/Slic3r/GCode/ 0000775 0000000 0000000 00000000000 13243544447 0017411 5 ustar 00root root 0000000 0000000 Slic3r-version_1.39.1/lib/Slic3r/GCode/Reader.pm 0000664 0000000 0000000 00000005443 13243544447 0021157 0 ustar 00root root 0000000 0000000 # Helper module to parse and interpret a G-code file, # invoking a callback for each move extracted from the G-code. # Currently used by the automatic tests only. package Slic3r::GCode::Reader; use Moo; has 'config' => (is => 'ro', default => sub { Slic3r::Config::GCode->new }); has 'X' => (is => 'rw', default => sub {0}); has 'Y' => (is => 'rw', default => sub {0}); has 'Z' => (is => 'rw', default => sub {0}); has 'E' => (is => 'rw', default => sub {0}); has 'F' => (is => 'rw', default => sub {0}); has '_extrusion_axis' => (is => 'rw', default => sub {"E"}); our $Verbose = 0; my @AXES = qw(X Y Z E); sub apply_print_config { my ($self, $print_config) = @_; $self->config->apply_static($print_config); $self->_extrusion_axis($self->config->get_extrusion_axis); } sub clone { my $self = shift; return (ref $self)->new( map { $_ => $self->$_ } (@AXES, 'F', '_extrusion_axis', 'config'), ); } sub parse { my $self = shift; my ($gcode, $cb) = @_; foreach my $raw_line (split /\R+/, $gcode) { print "$raw_line\n" if $Verbose || $ENV{SLIC3R_TESTS_GCODE}; my $line = $raw_line; $line =~ s/\s*;(.*)//; # strip comment my %info = (comment => $1, raw => $raw_line); # parse command my ($command, @args) = split /\s+/, $line; $command //= ''; my %args = map { /([A-Z])(.*)/; ($1 => $2) } @args; # convert extrusion axis if (exists $args{ $self->_extrusion_axis }) { $args{E} = $args{ $self->_extrusion_axis }; } # check motion if ($command =~ /^G[01]$/) { foreach my $axis (@AXES) { if (exists $args{$axis}) { $self->$axis(0) if $axis eq 'E' && $self->config->use_relative_e_distances; $info{"dist_$axis"} = $args{$axis} - $self->$axis; $info{"new_$axis"} = $args{$axis}; } else { $info{"dist_$axis"} = 0; $info{"new_$axis"} = $self->$axis; } } $info{dist_XY} = sqrt(($info{dist_X}**2) + ($info{dist_Y}**2)); if (exists $args{E}) { if ($info{dist_E} > 0) { $info{extruding} = 1; } elsif ($info{dist_E} < 0) { $info{retracting} = 1 } } else { $info{travel} = 1; } } # run callback $cb->($self, $command, \%args, \%info); # update coordinates if ($command =~ /^(?:G[01]|G92)$/) { for my $axis (@AXES, 'F') { $self->$axis($args{$axis}) if exists $args{$axis}; } } # TODO: update temperatures } } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI.pm 0000664 0000000 0000000 00000025020 13243544447 0017411 0 ustar 00root root 0000000 0000000 package Slic3r::GUI; use strict; use warnings; use utf8; use File::Basename qw(basename); use FindBin; use List::Util qw(first); use Slic3r::GUI::2DBed; use Slic3r::GUI::AboutDialog; use Slic3r::GUI::BedShapeDialog; use Slic3r::GUI::BonjourBrowser; use Slic3r::GUI::ConfigWizard; use Slic3r::GUI::Controller; use Slic3r::GUI::Controller::ManualControlDialog; use Slic3r::GUI::Controller::PrinterPanel; use Slic3r::GUI::MainFrame; use Slic3r::GUI::Notifier; use Slic3r::GUI::Plater; use Slic3r::GUI::Plater::2D; use Slic3r::GUI::Plater::2DToolpaths; use Slic3r::GUI::Plater::3D; use Slic3r::GUI::Plater::3DPreview; use Slic3r::GUI::Plater::ObjectPartsPanel; use Slic3r::GUI::Plater::ObjectCutDialog; use Slic3r::GUI::Plater::ObjectSettingsDialog; use Slic3r::GUI::Plater::LambdaObjectDialog; use Slic3r::GUI::Plater::OverrideSettingsPanel; use Slic3r::GUI::Preferences; use Slic3r::GUI::ProgressStatusBar; use Slic3r::GUI::OptionsGroup; use Slic3r::GUI::OptionsGroup::Field; use Slic3r::GUI::SystemInfo; use Slic3r::GUI::Tab; our $have_OpenGL = eval "use Slic3r::GUI::3DScene; 1"; our $have_LWP = eval "use LWP::UserAgent; 1"; use Wx 0.9901 qw(:bitmap :dialog :icon :id :misc :systemsettings :toplevelwindow :filedialog :font); use Wx::Event qw(EVT_IDLE EVT_COMMAND EVT_MENU); use base 'Wx::App'; use constant FILE_WILDCARDS => { known => 'Known files (*.stl, *.obj, *.amf, *.xml, *.prusa)|*.stl;*.STL;*.obj;*.OBJ;*.amf;*.AMF;*.xml;*.XML;*.prusa;*.PRUSA', stl => 'STL files (*.stl)|*.stl;*.STL', obj => 'OBJ files (*.obj)|*.obj;*.OBJ', amf => 'AMF files (*.amf)|*.amf;*.AMF;*.xml;*.XML', prusa => 'Prusa Control files (*.prusa)|*.prusa;*.PRUSA', 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 prusa)}; # Datadir provided on the command line. our $datadir; # If set, the "Controller" tab for the control of the printer over serial line and the serial port settings are hidden. our $no_plater; our @cb; our $small_font = Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT); $small_font->SetPointSize(11) if &Wx::wxMAC; our $small_bold_font = Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT); $small_bold_font->SetPointSize(11) if &Wx::wxMAC; $small_bold_font->SetWeight(wxFONTWEIGHT_BOLD); our $medium_font = Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT); $medium_font->SetPointSize(12); our $grey = Wx::Colour->new(200,200,200); sub OnInit { my ($self) = @_; $self->SetAppName('Slic3rPE'); $self->SetAppDisplayName('Slic3r Prusa Edition'); Slic3r::debugf "wxWidgets version %s, Wx version %s\n", &Wx::wxVERSION_STRING, $Wx::VERSION; # Set the Slic3r data directory at the Slic3r XS module. # Unix: ~/.Slic3r # Windows: "C:\Users\username\AppData\Roaming\Slic3r" or "C:\Documents and Settings\username\Application Data\Slic3r" # Mac: "~/Library/Application Support/Slic3r" Slic3r::set_data_dir($datadir || Wx::StandardPaths::Get->GetUserDataDir); Slic3r::GUI::set_wxapp($self); $self->{notifier} = Slic3r::GUI::Notifier->new; $self->{app_config} = Slic3r::GUI::AppConfig->new; $self->{preset_bundle} = Slic3r::GUI::PresetBundle->new; # just checking for existence of Slic3r::data_dir is not enough: it may be an empty directory # supplied as argument to --datadir; in that case we should still run the wizard eval { $self->{preset_bundle}->setup_directories() }; if ($@) { warn $@ . "\n"; fatal_error(undef, $@); } my $run_wizard = ! $self->{app_config}->exists; # load settings $self->{app_config}->load if ! $run_wizard; $self->{app_config}->set('version', $Slic3r::VERSION); $self->{app_config}->save; # Suppress the '- default -' presets. $self->{preset_bundle}->set_default_suppressed($self->{app_config}->get('no_defaults') ? 1 : 0); eval { $self->{preset_bundle}->load_presets }; if ($@) { warn $@ . "\n"; show_error(undef, $@); } eval { $self->{preset_bundle}->load_selections($self->{app_config}) }; $run_wizard = 1 if $self->{preset_bundle}->has_defauls_only; # application frame Wx::Image::FindHandlerType(wxBITMAP_TYPE_PNG) || Wx::Image::AddHandler(Wx::PNGHandler->new); $self->{mainframe} = my $frame = Slic3r::GUI::MainFrame->new( # If set, the "Controller" tab for the control of the printer over serial line and the serial port settings are hidden. no_controller => $self->{app_config}->get('no_controller'), no_plater => $no_plater, ); $self->SetTopWindow($frame); EVT_IDLE($frame, sub { while (my $cb = shift @cb) { $cb->(); } $self->{app_config}->save if $self->{app_config}->dirty; }); if ($run_wizard) { # On OSX the UI was not initialized correctly if the wizard was called # before the UI was up and running. $self->CallAfter(sub { # Run the config wizard, don't offer the "reset user profile" checkbox. $self->{mainframe}->config_wizard(1); }); } return 1; } sub about { my ($self) = @_; my $about = Slic3r::GUI::AboutDialog->new(undef); $about->ShowModal; $about->Destroy; } sub system_info { my ($self) = @_; my $slic3r_info = Slic3r::slic3r_info(format => 'html'); my $copyright_info = Slic3r::copyright_info(format => 'html'); my $system_info = Slic3r::system_info(format => 'html'); my $opengl_info; my $opengl_info_txt = ''; if (defined($self->{mainframe}) && defined($self->{mainframe}->{plater}) && defined($self->{mainframe}->{plater}->{canvas3D})) { $opengl_info = $self->{mainframe}->{plater}->{canvas3D}->opengl_info(format => 'html'); $opengl_info_txt = $self->{mainframe}->{plater}->{canvas3D}->opengl_info; } my $about = Slic3r::GUI::SystemInfo->new( parent => undef, slic3r_info => $slic3r_info, # copyright_info => $copyright_info, system_info => $system_info, opengl_info => $opengl_info, text_info => Slic3r::slic3r_info . Slic3r::system_info . $opengl_info_txt, ); $about->ShowModal; $about->Destroy; } # static method accepting a wxWindow object as first parameter sub catch_error { my ($self, $cb, $message_dialog) = @_; if (my $err = $@) { $cb->() if $cb; $message_dialog ? $message_dialog->($err, 'Error', wxOK | wxICON_ERROR) : Slic3r::GUI::show_error($self, $err); return 1; } return 0; } # static method accepting a wxWindow object as first parameter sub show_error { my ($parent, $message) = @_; Wx::MessageDialog->new($parent, $message, 'Error', wxOK | wxICON_ERROR)->ShowModal; } # static method accepting a wxWindow object as first parameter sub show_info { my ($parent, $message, $title) = @_; Wx::MessageDialog->new($parent, $message, $title || 'Notice', wxOK | wxICON_INFORMATION)->ShowModal; } # static method accepting a wxWindow object as first parameter sub fatal_error { show_error(@_); exit 1; } # static method accepting a wxWindow object as first parameter sub warning_catcher { my ($self, $message_dialog) = @_; return sub { my $message = shift; return if $message =~ /GLUquadricObjPtr|Attempt to free unreferenced scalar/; my @params = ($message, 'Warning', wxOK | wxICON_WARNING); $message_dialog ? $message_dialog->(@params) : Wx::MessageDialog->new($self, @params)->ShowModal; }; } sub notify { my ($self, $message) = @_; my $frame = $self->GetTopWindow; # try harder to attract user attention on OS X $frame->RequestUserAttention(&Wx::wxMAC ? wxUSER_ATTENTION_ERROR : wxUSER_ATTENTION_INFO) unless ($frame->IsActive); $self->{notifier}->notify($message); } # Called after the Preferences dialog is closed and the program settings are saved. # Update the UI based on the current preferences. sub update_ui_from_settings { my ($self) = @_; $self->{mainframe}->update_ui_from_settings; } sub open_model { my ($self, $window) = @_; my $dialog = Wx::FileDialog->new($window // $self->GetTopWindow, 'Choose one or more files (STL/OBJ/AMF/PRUSA):', $self->{app_config}->get_last_dir, "", MODEL_WILDCARD, wxFD_OPEN | wxFD_MULTIPLE | wxFD_FILE_MUST_EXIST); if ($dialog->ShowModal != wxID_OK) { $dialog->Destroy; return; } my @input_files = $dialog->GetPaths; $dialog->Destroy; return @input_files; } sub CallAfter { my ($self, $cb) = @_; push @cb, $cb; } sub append_menu_item { my ($self, $menu, $string, $description, $cb, $id, $icon, $kind) = @_; $id //= &Wx::NewId(); my $item = Wx::MenuItem->new($menu, $id, $string, $description // '', $kind // 0); $self->set_menu_item_icon($item, $icon); $menu->Append($item); EVT_MENU($self, $id, $cb); return $item; } sub append_submenu { my ($self, $menu, $string, $description, $submenu, $id, $icon) = @_; $id //= &Wx::NewId(); my $item = Wx::MenuItem->new($menu, $id, $string, $description // ''); $self->set_menu_item_icon($item, $icon); $item->SetSubMenu($submenu); $menu->Append($item); return $item; } sub set_menu_item_icon { my ($self, $menuItem, $icon) = @_; # SetBitmap was not available on OS X before Wx 0.9927 if ($icon && $menuItem->can('SetBitmap')) { $menuItem->SetBitmap(Wx::Bitmap->new(Slic3r::var($icon), wxBITMAP_TYPE_PNG)); } } sub save_window_pos { my ($self, $window, $name) = @_; $self->{app_config}->set("${name}_pos", join ',', $window->GetScreenPositionXY); $self->{app_config}->set("${name}_size", join ',', $window->GetSizeWH); $self->{app_config}->set("${name}_maximized", $window->IsMaximized); $self->{app_config}->save; } sub restore_window_pos { my ($self, $window, $name) = @_; if ($self->{app_config}->has("${name}_pos")) { my $size = [ split ',', $self->{app_config}->get("${name}_size"), 2 ]; $window->SetSize($size); my $display = Wx::Display->new->GetClientArea(); my $pos = [ split ',', $self->{app_config}->get("${name}_pos"), 2 ]; if (($pos->[0] + $size->[0]/2) < $display->GetRight && ($pos->[1] + $size->[1]/2) < $display->GetBottom) { $window->Move($pos); } $window->Maximize(1) if $self->{app_config}->get("${name}_maximized"); } } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/ 0000775 0000000 0000000 00000000000 13243544447 0017054 5 ustar 00root root 0000000 0000000 Slic3r-version_1.39.1/lib/Slic3r/GUI/2DBed.pm 0000664 0000000 0000000 00000016647 13243544447 0020310 0 ustar 00root root 0000000 0000000 # Bed shape dialog package Slic3r::GUI::2DBed; use strict; use warnings; use List::Util qw(min max); use Slic3r::Geometry qw(X Y unscale deg2rad); use Slic3r::Geometry::Clipper qw(intersection_pl); use Wx qw(:misc :pen :brush :font :systemsettings wxTAB_TRAVERSAL wxSOLID); use Wx::Event qw(EVT_PAINT EVT_ERASE_BACKGROUND EVT_MOUSE_EVENTS EVT_SIZE); use base qw(Wx::Panel Class::Accessor); __PACKAGE__->mk_accessors(qw(bed_shape interactive pos _scale_factor _shift on_move _painted)); sub new { my ($class, $parent, $bed_shape) = @_; my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, [250,-1], wxTAB_TRAVERSAL); $self->{user_drawn_background} = $^O ne 'darwin'; $self->bed_shape($bed_shape // []); EVT_PAINT($self, \&_repaint); EVT_ERASE_BACKGROUND($self, sub {}) if $self->{user_drawn_background}; EVT_MOUSE_EVENTS($self, \&_mouse_event); EVT_SIZE($self, sub { $self->Refresh; }); return $self; } sub _repaint { my ($self, $event) = @_; my $dc = Wx::AutoBufferedPaintDC->new($self); my ($cw, $ch) = $self->GetSizeWH; return if $cw == 0; # when canvas is not rendered yet, size is 0,0 if ($self->{user_drawn_background}) { # On all systems the AutoBufferedPaintDC() achieves double buffering. # On MacOS the background is erased, on Windows the background is not erased # and on Linux/GTK the background is erased to gray color. # Fill DC with the background on Windows & Linux/GTK. my $color = Wx::SystemSettings::GetSystemColour(wxSYS_COLOUR_3DLIGHT); $dc->SetPen(Wx::Pen->new($color, 1, wxSOLID)); $dc->SetBrush(Wx::Brush->new($color, wxSOLID)); my $rect = $self->GetUpdateRegion()->GetBox(); $dc->DrawRectangle($rect->GetLeft(), $rect->GetTop(), $rect->GetWidth(), $rect->GetHeight()); } # turn $cw and $ch from sizes to max coordinates $cw--; $ch--; my $cbb = Slic3r::Geometry::BoundingBoxf->new_from_points([ Slic3r::Pointf->new(0, 0), Slic3r::Pointf->new($cw, $ch), ]); # leave space for origin point $cbb->set_x_min($cbb->x_min + 4); $cbb->set_x_max($cbb->x_max - 4); $cbb->set_y_max($cbb->y_max - 4); # leave space for origin label $cbb->set_y_max($cbb->y_max - 13); # read new size ($cw, $ch) = @{$cbb->size}; my $ccenter = $cbb->center; # get bounding box of bed shape in G-code coordinates my $bed_shape = $self->bed_shape; my $bed_polygon = Slic3r::Polygon->new_scale(@$bed_shape); my $bb = Slic3r::Geometry::BoundingBoxf->new_from_points($bed_shape); $bb->merge_point(Slic3r::Pointf->new(0,0)); # origin needs to be in the visible area my ($bw, $bh) = @{$bb->size}; my $bcenter = $bb->center; # calculate the scaling factor for fitting bed shape in canvas area my $sfactor = min($cw/$bw, $ch/$bh); my $shift = Slic3r::Pointf->new( $ccenter->x - $bcenter->x * $sfactor, $ccenter->y - $bcenter->y * $sfactor, #- ); $self->_scale_factor($sfactor); $self->_shift(Slic3r::Pointf->new( $shift->x + $cbb->x_min, $shift->y - ($cbb->y_max-$self->GetSize->GetHeight), #++ )); # draw bed fill { $dc->SetPen(Wx::Pen->new(Wx::Colour->new(0,0,0), 1, wxSOLID)); $dc->SetBrush(Wx::Brush->new(Wx::Colour->new(255,255,255), wxSOLID)); $dc->DrawPolygon([ map $self->to_pixels($_), @$bed_shape ], 0, 0); } # draw grid { my $step = 10; # 1cm grid my @polylines = (); for (my $x = $bb->x_min - ($bb->x_min % $step) + $step; $x < $bb->x_max; $x += $step) { push @polylines, Slic3r::Polyline->new_scale([$x, $bb->y_min], [$x, $bb->y_max]); } for (my $y = $bb->y_min - ($bb->y_min % $step) + $step; $y < $bb->y_max; $y += $step) { push @polylines, Slic3r::Polyline->new_scale([$bb->x_min, $y], [$bb->x_max, $y]); } @polylines = @{intersection_pl(\@polylines, [$bed_polygon])}; $dc->SetPen(Wx::Pen->new(Wx::Colour->new(230,230,230), 1, wxSOLID)); $dc->DrawLine(map @{$self->to_pixels([map unscale($_), @$_])}, @$_[0,-1]) for @polylines; } # draw bed contour { $dc->SetPen(Wx::Pen->new(Wx::Colour->new(0,0,0), 1, wxSOLID)); $dc->SetBrush(Wx::Brush->new(Wx::Colour->new(255,255,255), wxTRANSPARENT)); $dc->DrawPolygon([ map $self->to_pixels($_), @$bed_shape ], 0, 0); } my $origin_px = $self->to_pixels(Slic3r::Pointf->new(0,0)); # draw axes { my $axes_len = 50; my $arrow_len = 6; my $arrow_angle = deg2rad(45); $dc->SetPen(Wx::Pen->new(Wx::Colour->new(255,0,0), 2, wxSOLID)); # red my $x_end = Slic3r::Pointf->new($origin_px->[X] + $axes_len, $origin_px->[Y]); $dc->DrawLine(@$origin_px, @$x_end); foreach my $angle (-$arrow_angle, +$arrow_angle) { my $end = $x_end->clone; $end->translate(-$arrow_len, 0); $end->rotate($angle, $x_end); $dc->DrawLine(@$x_end, @$end); } $dc->SetPen(Wx::Pen->new(Wx::Colour->new(0,255,0), 2, wxSOLID)); # green my $y_end = Slic3r::Pointf->new($origin_px->[X], $origin_px->[Y] - $axes_len); $dc->DrawLine(@$origin_px, @$y_end); foreach my $angle (-$arrow_angle, +$arrow_angle) { my $end = $y_end->clone; $end->translate(0, +$arrow_len); $end->rotate($angle, $y_end); $dc->DrawLine(@$y_end, @$end); } } # draw origin { $dc->SetPen(Wx::Pen->new(Wx::Colour->new(0,0,0), 1, wxSOLID)); $dc->SetBrush(Wx::Brush->new(Wx::Colour->new(0,0,0), wxSOLID)); $dc->DrawCircle(@$origin_px, 3); $dc->SetTextForeground(Wx::Colour->new(0,0,0)); $dc->SetFont(Wx::Font->new(10, wxDEFAULT, wxNORMAL, wxNORMAL)); $dc->DrawText("(0,0)", $origin_px->[X] + 1, $origin_px->[Y] + 2); } # draw current position if (defined $self->pos) { my $pos_px = $self->to_pixels($self->pos); $dc->SetPen(Wx::Pen->new(Wx::Colour->new(200,0,0), 2, wxSOLID)); $dc->SetBrush(Wx::Brush->new(Wx::Colour->new(200,0,0), wxTRANSPARENT)); $dc->DrawCircle(@$pos_px, 5); $dc->DrawLine($pos_px->[X]-15, $pos_px->[Y], $pos_px->[X]+15, $pos_px->[Y]); $dc->DrawLine($pos_px->[X], $pos_px->[Y]-15, $pos_px->[X], $pos_px->[Y]+15); } $self->_painted(1); } sub _mouse_event { my ($self, $event) = @_; return if !$self->interactive; return if !$self->_painted; my $pos = $event->GetPosition; my $point = $self->to_units([ $pos->x, $pos->y ]); #]] if ($event->LeftDown || $event->Dragging) { $self->on_move->($point) if $self->on_move; $self->Refresh; } } # convert G-code coordinates into pixels sub to_pixels { my ($self, $point) = @_; my $p = Slic3r::Pointf->new(@$point); $p->scale($self->_scale_factor); $p->translate(@{$self->_shift}); return [$p->x, $self->GetSize->GetHeight - $p->y]; #]] } # convert pixels into G-code coordinates sub to_units { my ($self, $point) = @_; my $p = Slic3r::Pointf->new( $point->[X], $self->GetSize->GetHeight - $point->[Y], ); $p->translate(@{$self->_shift->negative}); $p->scale(1/$self->_scale_factor); return $p; } sub set_pos { my ($self, $pos) = @_; $self->pos($pos); $self->Refresh; } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/3DScene.pm 0000664 0000000 0000000 00000231420 13243544447 0020640 0 ustar 00root root 0000000 0000000 # Implements pure perl packages # # Slic3r::GUI::3DScene::Base; # Slic3r::GUI::3DScene; # # Slic3r::GUI::Plater::3D derives from Slic3r::GUI::3DScene, # Slic3r::GUI::Plater::3DPreview, Slic3r::GUI::Plater::3DToolpaths, # Slic3r::GUI::Plater::ObjectCutDialog and Slic3r::GUI::Plater::ObjectPartsPanel # own $self->{canvas} of the Slic3r::GUI::3DScene type. # # Therefore the 3DScene supports renderng of STLs, extrusions and cutting planes, # and camera manipulation. package Slic3r::GUI::3DScene::Base; use strict; use warnings; use Wx qw(wxTheApp :timer :bitmap :icon :dialog); use Wx::Event qw(EVT_PAINT EVT_SIZE EVT_ERASE_BACKGROUND EVT_IDLE EVT_MOUSEWHEEL EVT_MOUSE_EVENTS EVT_CHAR EVT_TIMER); # must load OpenGL *before* Wx::GLCanvas use OpenGL qw(:glconstants :glfunctions :glufunctions :gluconstants); use base qw(Wx::GLCanvas Class::Accessor); use Math::Trig qw(asin tan); use List::Util qw(reduce min max first); use Slic3r::Geometry qw(X Y normalize scale unscale scaled_epsilon); use Slic3r::Geometry::Clipper qw(offset_ex intersection_pl JT_ROUND); use Wx::GLCanvas qw(:all); use Slic3r::Geometry qw(PI); # _dirty: boolean flag indicating, that the screen has to be redrawn on EVT_IDLE. # volumes: reference to vector of Slic3r::GUI::3DScene::Volume. # _camera_type: 'perspective' or 'ortho' __PACKAGE__->mk_accessors( qw(_quat _dirty init enable_picking enable_moving use_plain_shader on_viewport_changed on_hover on_select on_double_click on_right_click on_move on_model_update volumes _sphi _stheta cutting_plane_z cut_lines_vertices bed_shape bed_triangles bed_grid_lines bed_polygon background origin _mouse_pos _hover_volume_idx _drag_volume_idx _drag_start_pos _drag_volume_center_offset _drag_start_xy _dragged _layer_height_edited _camera_type _camera_target _camera_distance _zoom ) ); use constant TRACKBALLSIZE => 0.8; use constant TURNTABLE_MODE => 1; use constant GROUND_Z => -0.02; # For mesh selection: Not selected - bright yellow. use constant DEFAULT_COLOR => [1,1,0]; # For mesh selection: Selected - bright green. use constant SELECTED_COLOR => [0,1,0,1]; # For mesh selection: Mouse hovers over the object, but object not selected yet - dark green. use constant HOVER_COLOR => [0.4,0.9,0,1]; # phi / theta angles to orient the camera. use constant VIEW_DEFAULT => [45.0,45.0]; use constant VIEW_LEFT => [90.0,90.0]; use constant VIEW_RIGHT => [-90.0,90.0]; use constant VIEW_TOP => [0.0,0.0]; use constant VIEW_BOTTOM => [0.0,180.0]; use constant VIEW_FRONT => [0.0,90.0]; use constant VIEW_REAR => [180.0,90.0]; use constant MANIPULATION_IDLE => 0; use constant MANIPULATION_DRAGGING => 1; use constant MANIPULATION_LAYER_HEIGHT => 2; use constant GIMBALL_LOCK_THETA_MAX => 170; use constant VARIABLE_LAYER_THICKNESS_BAR_WIDTH => 70; use constant VARIABLE_LAYER_THICKNESS_RESET_BUTTON_HEIGHT => 22; # make OpenGL::Array thread-safe { no warnings 'redefine'; *OpenGL::Array::CLONE_SKIP = sub { 1 }; } sub new { my ($class, $parent) = @_; # We can only enable multi sample anti aliasing wih wxWidgets 3.0.3 and with a hacked Wx::GLCanvas, # which exports some new WX_GL_XXX constants, namely WX_GL_SAMPLE_BUFFERS and WX_GL_SAMPLES. my $can_multisample = ! wxTheApp->{app_config}->get('use_legacy_opengl') && Wx::wxVERSION >= 3.000003 && defined Wx::GLCanvas->can('WX_GL_SAMPLE_BUFFERS') && defined Wx::GLCanvas->can('WX_GL_SAMPLES'); my $attrib = [WX_GL_RGBA, WX_GL_DOUBLEBUFFER, WX_GL_DEPTH_SIZE, 24]; if ($can_multisample) { # Request a window with multi sampled anti aliasing. This is a new feature in Wx 3.0.3 (backported from 3.1.0). # Use eval to avoid compilation, if the subs WX_GL_SAMPLE_BUFFERS and WX_GL_SAMPLES are missing. eval 'push(@$attrib, (WX_GL_SAMPLE_BUFFERS, 1, WX_GL_SAMPLES, 4));'; } # wxWidgets expect the attrib list to be ended by zero. push(@$attrib, 0); # we request a depth buffer explicitely because it looks like it's not created by # default on Linux, causing transparency issues my $self = $class->SUPER::new($parent, -1, Wx::wxDefaultPosition, Wx::wxDefaultSize, 0, "", $attrib); if (Wx::wxVERSION >= 3.000003) { # Wx 3.0.3 contains an ugly hack to support some advanced OpenGL attributes through the attribute list. # The attribute list is transferred between the wxGLCanvas and wxGLContext constructors using a single static array s_wglContextAttribs. # Immediatelly force creation of the OpenGL context to consume the static variable s_wglContextAttribs. $self->GetContext(); } $self->{can_multisample} = $can_multisample; $self->background(1); $self->_quat((0, 0, 0, 1)); $self->_stheta(45); $self->_sphi(45); $self->_zoom(1); $self->use_plain_shader(0); # Collection of GLVolume objects $self->volumes(Slic3r::GUI::_3DScene::GLVolume::Collection->new); # 3D point in model space $self->_camera_type('ortho'); # $self->_camera_type('perspective'); $self->_camera_target(Slic3r::Pointf3->new(0,0,0)); $self->_camera_distance(0.); $self->layer_editing_enabled(0); $self->{layer_height_edit_band_width} = 2.; $self->{layer_height_edit_strength} = 0.005; $self->{layer_height_edit_last_object_id} = -1; $self->{layer_height_edit_last_z} = 0.; $self->{layer_height_edit_last_action} = 0; $self->reset_objects; EVT_PAINT($self, sub { my $dc = Wx::PaintDC->new($self); $self->Render($dc); }); EVT_SIZE($self, sub { $self->_dirty(1) }); EVT_IDLE($self, sub { return unless $self->_dirty; return if !$self->IsShownOnScreen; $self->Resize( $self->GetSizeWH ); $self->Refresh; }); EVT_MOUSEWHEEL($self, \&mouse_wheel_event); EVT_MOUSE_EVENTS($self, \&mouse_event); # EVT_KEY_DOWN($self, sub { EVT_CHAR($self, sub { my ($s, $event) = @_; if ($event->HasModifiers) { $event->Skip; } else { my $key = $event->GetKeyCode; if ($key == ord('0')) { $self->select_view('iso'); } elsif ($key == ord('1')) { $self->select_view('top'); } elsif ($key == ord('2')) { $self->select_view('bottom'); } elsif ($key == ord('3')) { $self->select_view('front'); } elsif ($key == ord('4')) { $self->select_view('rear'); } elsif ($key == ord('5')) { $self->select_view('left'); } elsif ($key == ord('6')) { $self->select_view('right'); } else { $event->Skip; } } }); $self->{layer_height_edit_timer_id} = &Wx::NewId(); $self->{layer_height_edit_timer} = Wx::Timer->new($self, $self->{layer_height_edit_timer_id}); EVT_TIMER($self, $self->{layer_height_edit_timer_id}, sub { my ($self, $event) = @_; return if $self->_layer_height_edited != 1; return if $self->{layer_height_edit_last_object_id} == -1; $self->_variable_layer_thickness_action(undef); }); return $self; } sub Destroy { my ($self) = @_; $self->{layer_height_edit_timer}->Stop; $self->DestroyGL; return $self->SUPER::Destroy; } sub layer_editing_enabled { my ($self, $value) = @_; if (@_ == 2) { $self->{layer_editing_enabled} = $value; if ($value) { if (! $self->{layer_editing_initialized}) { # Enabling the layer editing for the first time. This triggers compilation of the necessary OpenGL shaders. # If compilation fails, a message box is shown with the error codes. $self->SetCurrent($self->GetContext); my $shader = new Slic3r::GUI::_3DScene::GLShader; my $error_message; if (! $shader->load($self->_fragment_shader_variable_layer_height, $self->_vertex_shader_variable_layer_height)) { # Compilation or linking of the shaders failed. $error_message = "Cannot compile an OpenGL Shader, therefore the Variable Layer Editing will be disabled.\n\n" . $shader->last_error; $shader = undef; } else { $self->{layer_height_edit_shader} = $shader; ($self->{layer_preview_z_texture_id}) = glGenTextures_p(1); glBindTexture(GL_TEXTURE_2D, $self->{layer_preview_z_texture_id}); glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP); glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP); glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR); glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_NEAREST); glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAX_LEVEL, 1); glBindTexture(GL_TEXTURE_2D, 0); } if (defined($error_message)) { # Don't enable the layer editing tool. $self->{layer_editing_enabled} = 0; # 2 means failed $self->{layer_editing_initialized} = 2; # Show the error message. Wx::MessageBox($error_message, "Slic3r Error", wxOK | wxICON_EXCLAMATION, $self); } else { $self->{layer_editing_initialized} = 1; } } elsif ($self->{layer_editing_initialized} == 2) { # Initilization failed before. Don't try to initialize and disable layer editing. $self->{layer_editing_enabled} = 0; } } } return $self->{layer_editing_enabled}; } sub layer_editing_allowed { my ($self) = @_; # Allow layer editing if either the shaders were not initialized yet and we don't know # whether it will be possible to initialize them, # or if the initialization was done already and it failed. return ! (defined($self->{layer_editing_initialized}) && $self->{layer_editing_initialized} == 2); } sub _first_selected_object_id_for_variable_layer_height_editing { my ($self) = @_; for my $i (0..$#{$self->volumes}) { if ($self->volumes->[$i]->selected) { my $object_id = int($self->volumes->[$i]->select_group_id / 1000000); # Objects with object_id >= 1000 have a specific meaning, for example the wipe tower proxy. return ($object_id >= $self->{print}->object_count) ? -1 : $object_id if $object_id < 10000; } } return -1; } # Returns an array with (left, top, right, bottom) of the variable layer thickness bar on the screen. sub _variable_layer_thickness_bar_rect_screen { my ($self) = @_; my ($cw, $ch) = $self->GetSizeWH; return ($cw - VARIABLE_LAYER_THICKNESS_BAR_WIDTH, 0, $cw, $ch - VARIABLE_LAYER_THICKNESS_RESET_BUTTON_HEIGHT); } sub _variable_layer_thickness_bar_rect_viewport { my ($self) = @_; my ($cw, $ch) = $self->GetSizeWH; return ((0.5*$cw-VARIABLE_LAYER_THICKNESS_BAR_WIDTH)/$self->_zoom, (-0.5*$ch+VARIABLE_LAYER_THICKNESS_RESET_BUTTON_HEIGHT)/$self->_zoom, $cw/(2*$self->_zoom), $ch/(2*$self->_zoom)); } # Returns an array with (left, top, right, bottom) of the variable layer thickness bar on the screen. sub _variable_layer_thickness_reset_rect_screen { my ($self) = @_; my ($cw, $ch) = $self->GetSizeWH; return ($cw - VARIABLE_LAYER_THICKNESS_BAR_WIDTH, $ch - VARIABLE_LAYER_THICKNESS_RESET_BUTTON_HEIGHT, $cw, $ch); } sub _variable_layer_thickness_reset_rect_viewport { my ($self) = @_; my ($cw, $ch) = $self->GetSizeWH; return ((0.5*$cw-VARIABLE_LAYER_THICKNESS_BAR_WIDTH)/$self->_zoom, -$ch/(2*$self->_zoom), $cw/(2*$self->_zoom), (-0.5*$ch+VARIABLE_LAYER_THICKNESS_RESET_BUTTON_HEIGHT)/$self->_zoom); } sub _variable_layer_thickness_bar_rect_mouse_inside { my ($self, $mouse_evt) = @_; my ($bar_left, $bar_top, $bar_right, $bar_bottom) = $self->_variable_layer_thickness_bar_rect_screen; return $mouse_evt->GetX >= $bar_left && $mouse_evt->GetX <= $bar_right && $mouse_evt->GetY >= $bar_top && $mouse_evt->GetY <= $bar_bottom; } sub _variable_layer_thickness_reset_rect_mouse_inside { my ($self, $mouse_evt) = @_; my ($bar_left, $bar_top, $bar_right, $bar_bottom) = $self->_variable_layer_thickness_reset_rect_screen; return $mouse_evt->GetX >= $bar_left && $mouse_evt->GetX <= $bar_right && $mouse_evt->GetY >= $bar_top && $mouse_evt->GetY <= $bar_bottom; } sub _variable_layer_thickness_bar_mouse_cursor_z_relative { my ($self) = @_; my $mouse_pos = $self->ScreenToClientPoint(Wx::GetMousePosition()); my ($bar_left, $bar_top, $bar_right, $bar_bottom) = $self->_variable_layer_thickness_bar_rect_screen; return ($mouse_pos->x >= $bar_left && $mouse_pos->x <= $bar_right && $mouse_pos->y >= $bar_top && $mouse_pos->y <= $bar_bottom) ? # Inside the bar. ($bar_bottom - $mouse_pos->y - 1.) / ($bar_bottom - $bar_top - 1) : # Outside the bar. -1000.; } sub _variable_layer_thickness_action { my ($self, $mouse_event, $do_modification) = @_; # A volume is selected. Test, whether hovering over a layer thickness bar. return if $self->{layer_height_edit_last_object_id} == -1; if (defined($mouse_event)) { my ($bar_left, $bar_top, $bar_right, $bar_bottom) = $self->_variable_layer_thickness_bar_rect_screen; $self->{layer_height_edit_last_z} = unscale($self->{print}->get_object($self->{layer_height_edit_last_object_id})->size->z) * ($bar_bottom - $mouse_event->GetY - 1.) / ($bar_bottom - $bar_top); $self->{layer_height_edit_last_action} = $mouse_event->ShiftDown ? ($mouse_event->RightIsDown ? 3 : 2) : ($mouse_event->RightIsDown ? 0 : 1); } # Mark the volume as modified, so Print will pick its layer height profile? Where to mark it? # Start a timer to refresh the print? schedule_background_process() ? # The PrintObject::adjust_layer_height_profile() call adjusts the profile of its associated ModelObject, it does not modify the profile of the PrintObject itself. $self->{print}->get_object($self->{layer_height_edit_last_object_id})->adjust_layer_height_profile( $self->{layer_height_edit_last_z}, $self->{layer_height_edit_strength}, $self->{layer_height_edit_band_width}, $self->{layer_height_edit_last_action}); $self->volumes->[$self->{layer_height_edit_last_object_id}]->generate_layer_height_texture( $self->{print}->get_object($self->{layer_height_edit_last_object_id}), 1); $self->Refresh; # Automatic action on mouse down with the same coordinate. $self->{layer_height_edit_timer}->Start(100, wxTIMER_CONTINUOUS); } sub mouse_event { my ($self, $e) = @_; my $pos = Slic3r::Pointf->new($e->GetPositionXY); my $object_idx_selected = $self->{layer_height_edit_last_object_id} = ($self->layer_editing_enabled && $self->{print}) ? $self->_first_selected_object_id_for_variable_layer_height_editing : -1; if ($e->Entering && &Wx::wxMSW) { # wxMSW needs focus in order to catch mouse wheel events $self->SetFocus; $self->_drag_start_xy(undef); } elsif ($e->LeftDClick) { if ($object_idx_selected != -1 && $self->_variable_layer_thickness_bar_rect_mouse_inside($e)) { } elsif ($self->on_double_click) { $self->on_double_click->(); } } elsif ($e->LeftDown || $e->RightDown) { # If user pressed left or right button we first check whether this happened # on a volume or not. my $volume_idx = $self->_hover_volume_idx // -1; $self->_layer_height_edited(0); if ($object_idx_selected != -1 && $self->_variable_layer_thickness_bar_rect_mouse_inside($e)) { # A volume is selected and the mouse is hovering over a layer thickness bar. # Start editing the layer height. $self->_layer_height_edited(1); $self->_variable_layer_thickness_action($e); } elsif ($object_idx_selected != -1 && $self->_variable_layer_thickness_reset_rect_mouse_inside($e)) { $self->{print}->get_object($object_idx_selected)->reset_layer_height_profile; # Index 2 means no editing, just wait for mouse up event. $self->_layer_height_edited(2); $self->Refresh; $self->Update; } else { # Select volume in this 3D canvas. # Don't deselect a volume if layer editing is enabled. We want the object to stay selected # during the scene manipulation. if ($self->enable_picking && ($volume_idx != -1 || ! $self->layer_editing_enabled)) { $self->deselect_volumes; $self->select_volume($volume_idx); if ($volume_idx != -1) { my $group_id = $self->volumes->[$volume_idx]->select_group_id; my @volumes; if ($group_id != -1) { $self->select_volume($_) for grep $self->volumes->[$_]->select_group_id == $group_id, 0..$#{$self->volumes}; } } $self->Refresh; $self->Update; } # propagate event through callback $self->on_select->($volume_idx) if $self->on_select; if ($volume_idx != -1) { if ($e->LeftDown && $self->enable_moving) { # The mouse_to_3d gets the Z coordinate from the Z buffer at the screen coordinate $pos->x,y, # an converts the screen space coordinate to unscaled object space. my $pos3d = $self->mouse_to_3d(@$pos); # Only accept the initial position, if it is inside the volume bounding box. my $volume_bbox = $self->volumes->[$volume_idx]->transformed_bounding_box; $volume_bbox->offset(1.); if ($volume_bbox->contains_point($pos3d)) { # The dragging operation is initiated. $self->_drag_volume_idx($volume_idx); $self->_drag_start_pos($pos3d); # Remember the shift to to the object center. The object center will later be used # to limit the object placement close to the bed. $self->_drag_volume_center_offset($pos3d->vector_to($volume_bbox->center)); } } elsif ($e->RightDown) { # if right clicking on volume, propagate event through callback $self->on_right_click->($e->GetPosition) if $self->on_right_click; } } } } elsif ($e->Dragging && $e->LeftIsDown && ! $self->_layer_height_edited && defined($self->_drag_volume_idx)) { # Get new position at the same Z of the initial click point. my $cur_pos = Slic3r::Linef3->new( $self->mouse_to_3d($e->GetX, $e->GetY, 0), $self->mouse_to_3d($e->GetX, $e->GetY, 1)) ->intersect_plane($self->_drag_start_pos->z); # Clip the new position, so the object center remains close to the bed. { $cur_pos->translate(@{$self->_drag_volume_center_offset}); my $cur_pos2 = Slic3r::Point->new(scale($cur_pos->x), scale($cur_pos->y)); if (! $self->bed_polygon->contains_point($cur_pos2)) { my $ip = $self->bed_polygon->point_projection($cur_pos2); $cur_pos->set_x(unscale($ip->x)); $cur_pos->set_y(unscale($ip->y)); } $cur_pos->translate(@{$self->_drag_volume_center_offset->negative}); } # Calculate the translation vector. my $vector = $self->_drag_start_pos->vector_to($cur_pos); # Get the volume being dragged. my $volume = $self->volumes->[$self->_drag_volume_idx]; # Get all volumes belonging to the same group, if any. my @volumes = ($volume->drag_group_id == -1) ? ($volume) : grep $_->drag_group_id == $volume->drag_group_id, @{$self->volumes}; # Apply new temporary volume origin and ignore Z. $_->translate($vector->x, $vector->y, 0) for @volumes; $self->_drag_start_pos($cur_pos); $self->_dragged(1); $self->Refresh; $self->Update; } elsif ($e->Dragging) { if ($self->_layer_height_edited && $object_idx_selected != -1) { $self->_variable_layer_thickness_action($e) if ($self->_layer_height_edited == 1); } elsif ($e->LeftIsDown) { # if dragging over blank area with left button, rotate if (defined $self->_drag_start_pos) { my $orig = $self->_drag_start_pos; if (TURNTABLE_MODE) { # Turntable mode is enabled by default. $self->_sphi($self->_sphi + ($pos->x - $orig->x) * TRACKBALLSIZE); $self->_stheta($self->_stheta - ($pos->y - $orig->y) * TRACKBALLSIZE); #- $self->_stheta(GIMBALL_LOCK_THETA_MAX) if $self->_stheta > GIMBALL_LOCK_THETA_MAX; $self->_stheta(0) if $self->_stheta < 0; } else { my $size = $self->GetClientSize; my @quat = trackball( $orig->x / ($size->width / 2) - 1, 1 - $orig->y / ($size->height / 2), #/ $pos->x / ($size->width / 2) - 1, 1 - $pos->y / ($size->height / 2), #/ ); $self->_quat(mulquats($self->_quat, \@quat)); } $self->on_viewport_changed->() if $self->on_viewport_changed; $self->Refresh; $self->Update; } $self->_drag_start_pos($pos); } elsif ($e->MiddleIsDown || $e->RightIsDown) { # If dragging over blank area with right button, pan. if (defined $self->_drag_start_xy) { # get point in model space at Z = 0 my $cur_pos = $self->mouse_to_3d($e->GetX, $e->GetY, 0); my $orig = $self->mouse_to_3d($self->_drag_start_xy->x, $self->_drag_start_xy->y, 0); $self->_camera_target->translate(@{$orig->vector_to($cur_pos)->negative}); $self->on_viewport_changed->() if $self->on_viewport_changed; $self->Refresh; $self->Update; } $self->_drag_start_xy($pos); } } elsif ($e->LeftUp || $e->MiddleUp || $e->RightUp) { if ($self->_layer_height_edited) { $self->_layer_height_edited(undef); $self->{layer_height_edit_timer}->Stop; $self->on_model_update->() if ($object_idx_selected != -1 && $self->on_model_update); } elsif ($self->on_move && defined($self->_drag_volume_idx) && $self->_dragged) { # get all volumes belonging to the same group, if any my @volume_idxs; my $group_id = $self->volumes->[$self->_drag_volume_idx]->drag_group_id; if ($group_id == -1) { @volume_idxs = ($self->_drag_volume_idx); } else { @volume_idxs = grep $self->volumes->[$_]->drag_group_id == $group_id, 0..$#{$self->volumes}; } $self->on_move->(@volume_idxs); } $self->_drag_volume_idx(undef); $self->_drag_start_pos(undef); $self->_drag_start_xy(undef); $self->_dragged(undef); } elsif ($e->Moving) { $self->_mouse_pos($pos); # Only refresh if picking is enabled, in that case the objects may get highlighted if the mouse cursor # hovers over. if ($self->enable_picking) { $self->Update; $self->Refresh; } } else { $e->Skip(); } } sub mouse_wheel_event { my ($self, $e) = @_; if ($e->MiddleIsDown) { # Ignore the wheel events if the middle button is pressed. return; } if ($self->layer_editing_enabled && $self->{print}) { my $object_idx_selected = $self->_first_selected_object_id_for_variable_layer_height_editing; if ($object_idx_selected != -1) { # A volume is selected. Test, whether hovering over a layer thickness bar. if ($self->_variable_layer_thickness_bar_rect_mouse_inside($e)) { # Adjust the width of the selection. $self->{layer_height_edit_band_width} = max(min($self->{layer_height_edit_band_width} * (1 + 0.1 * $e->GetWheelRotation() / $e->GetWheelDelta()), 10.), 1.5); $self->Refresh; return; } } } # Calculate the zoom delta and apply it to the current zoom factor my $zoom = $e->GetWheelRotation() / $e->GetWheelDelta(); $zoom = max(min($zoom, 4), -4); $zoom /= 10; $zoom = $self->_zoom / (1-$zoom); # Don't allow to zoom too far outside the scene. my $zoom_min = $self->get_zoom_to_bounding_box_factor($self->max_bounding_box); $zoom_min *= 0.4 if defined $zoom_min; $zoom = $zoom_min if defined $zoom_min && $zoom < $zoom_min; $self->_zoom($zoom); # In order to zoom around the mouse point we need to translate #Â the camera target my $size = Slic3r::Pointf->new($self->GetSizeWH); my $pos = Slic3r::Pointf->new($e->GetX, $size->y - $e->GetY); #- $self->_camera_target->translate( # ($pos - $size/2) represents the vector from the viewport center # to the mouse point. By multiplying it by $zoom we get the new, # transformed, length of such vector. # Since we want that point to stay fixed, we move our camera target # in the opposite direction by the delta of the length of such vector # ($zoom - 1). We then scale everything by 1/$self->_zoom since # $self->_camera_target is expressed in terms of model units. -($pos->x - $size->x/2) * ($zoom) / $self->_zoom, -($pos->y - $size->y/2) * ($zoom) / $self->_zoom, 0, ) if 0; $self->on_viewport_changed->() if $self->on_viewport_changed; $self->Resize($self->GetSizeWH) if $self->IsShownOnScreen; $self->Refresh; } # Reset selection. sub reset_objects { my ($self) = @_; if ($self->GetContext) { $self->SetCurrent($self->GetContext); $self->volumes->release_geometry; } $self->volumes->erase; $self->_dirty(1); } # Setup camera to view all objects. sub set_viewport_from_scene { my ($self, $scene) = @_; $self->_sphi($scene->_sphi); $self->_stheta($scene->_stheta); $self->_camera_target($scene->_camera_target); $self->_zoom($scene->_zoom); $self->_quat($scene->_quat); $self->_dirty(1); } # Set the camera to a default orientation, # zoom to volumes. sub select_view { my ($self, $direction) = @_; my $dirvec; if (ref($direction)) { $dirvec = $direction; } else { if ($direction eq 'iso') { $dirvec = VIEW_DEFAULT; } elsif ($direction eq 'left') { $dirvec = VIEW_LEFT; } elsif ($direction eq 'right') { $dirvec = VIEW_RIGHT; } elsif ($direction eq 'top') { $dirvec = VIEW_TOP; } elsif ($direction eq 'bottom') { $dirvec = VIEW_BOTTOM; } elsif ($direction eq 'front') { $dirvec = VIEW_FRONT; } elsif ($direction eq 'rear') { $dirvec = VIEW_REAR; } } my $bb = $self->volumes_bounding_box; if (! $bb->empty) { $self->_sphi($dirvec->[0]); $self->_stheta($dirvec->[1]); # Avoid gimball lock. $self->_stheta(GIMBALL_LOCK_THETA_MAX) if $self->_stheta > GIMBALL_LOCK_THETA_MAX; $self->_stheta(0) if $self->_stheta < 0; # View everything. $self->zoom_to_bounding_box($bb); $self->on_viewport_changed->() if $self->on_viewport_changed; $self->Refresh; } } sub get_zoom_to_bounding_box_factor { my ($self, $bb) = @_; return undef if ($bb->empty); my $max_size = max(@{$bb->size}) * 2; return ($max_size == 0) ? undef : min($self->GetSizeWH) / $max_size; } sub zoom_to_bounding_box { my ($self, $bb) = @_; # Calculate the zoom factor needed to adjust viewport to bounding box. my $zoom = $self->get_zoom_to_bounding_box_factor($bb); if (defined $zoom) { $self->_zoom($zoom); # center view around bounding box center $self->_camera_target($bb->center); $self->on_viewport_changed->() if $self->on_viewport_changed; } } sub zoom_to_bed { my ($self) = @_; if ($self->bed_shape) { $self->zoom_to_bounding_box($self->bed_bounding_box); } } sub zoom_to_volume { my ($self, $volume_idx) = @_; my $volume = $self->volumes->[$volume_idx]; my $bb = $volume->transformed_bounding_box; $self->zoom_to_bounding_box($bb); } sub zoom_to_volumes { my ($self) = @_; $self->zoom_to_bounding_box($self->volumes_bounding_box); } sub volumes_bounding_box { my ($self) = @_; my $bb = Slic3r::Geometry::BoundingBoxf3->new; $bb->merge($_->transformed_bounding_box) for @{$self->volumes}; return $bb; } sub bed_bounding_box { my ($self) = @_; my $bb = Slic3r::Geometry::BoundingBoxf3->new; if ($self->bed_shape) { $bb->merge_point(Slic3r::Pointf3->new(@$_, 0)) for @{$self->bed_shape}; } return $bb; } sub max_bounding_box { my ($self) = @_; my $bb = $self->bed_bounding_box; $bb->merge($self->volumes_bounding_box); return $bb; } # Used by ObjectCutDialog and ObjectPartsPanel to generate a rectangular ground plane # to support the scene objects. sub set_auto_bed_shape { my ($self, $bed_shape) = @_; # draw a default square bed around object center my $max_size = max(@{ $self->volumes_bounding_box->size }); my $center = $self->volumes_bounding_box->center; $self->set_bed_shape([ [ $center->x - $max_size, $center->y - $max_size ], #-- [ $center->x + $max_size, $center->y - $max_size ], #-- [ $center->x + $max_size, $center->y + $max_size ], #++ [ $center->x - $max_size, $center->y + $max_size ], #++ ]); # Set the origin for painting of the coordinate system axes. $self->origin(Slic3r::Pointf->new(@$center[X,Y])); } # Set the bed shape to a single closed 2D polygon (array of two element arrays), # triangulate the bed and store the triangles into $self->bed_triangles, # fills the $self->bed_grid_lines and sets $self->origin. # Sets $self->bed_polygon to limit the object placement. sub set_bed_shape { my ($self, $bed_shape) = @_; $self->bed_shape($bed_shape); # triangulate bed my $expolygon = Slic3r::ExPolygon->new([ map [map scale($_), @$_], @$bed_shape ]); my $bed_bb = $expolygon->bounding_box; { my @points = (); foreach my $triangle (@{ $expolygon->triangulate }) { push @points, map {+ unscale($_->x), unscale($_->y), GROUND_Z } @$triangle; } $self->bed_triangles(OpenGL::Array->new_list(GL_FLOAT, @points)); } { my @polylines = (); for (my $x = $bed_bb->x_min; $x <= $bed_bb->x_max; $x += scale 10) { push @polylines, Slic3r::Polyline->new([$x,$bed_bb->y_min], [$x,$bed_bb->y_max]); } for (my $y = $bed_bb->y_min; $y <= $bed_bb->y_max; $y += scale 10) { push @polylines, Slic3r::Polyline->new([$bed_bb->x_min,$y], [$bed_bb->x_max,$y]); } # clip with a slightly grown expolygon because our lines lay on the contours and # may get erroneously clipped my @lines = map Slic3r::Line->new(@$_[0,-1]), @{intersection_pl(\@polylines, [ @{$expolygon->offset(+scaled_epsilon)} ])}; # append bed contours push @lines, map @{$_->lines}, @$expolygon; my @points = (); foreach my $line (@lines) { push @points, map {+ unscale($_->x), unscale($_->y), GROUND_Z } @$line; #)) } $self->bed_grid_lines(OpenGL::Array->new_list(GL_FLOAT, @points)); } # Set the origin for painting of the coordinate system axes. $self->origin(Slic3r::Pointf->new(0,0)); $self->bed_polygon(offset_ex([$expolygon->contour], $bed_bb->radius * 1.7, JT_ROUND, scale(0.5))->[0]->contour->clone); } sub deselect_volumes { my ($self) = @_; $_->set_selected(0) for @{$self->volumes}; } sub select_volume { my ($self, $volume_idx) = @_; $self->volumes->[$volume_idx]->set_selected(1) if $volume_idx != -1; } sub SetCuttingPlane { my ($self, $z, $expolygons) = @_; $self->cutting_plane_z($z); # grow slices in order to display them better $expolygons = offset_ex([ map @$_, @$expolygons ], scale 0.1); my @verts = (); foreach my $line (map @{$_->lines}, map @$_, @$expolygons) { push @verts, ( unscale($line->a->x), unscale($line->a->y), $z, #)) unscale($line->b->x), unscale($line->b->y), $z, #)) ); } $self->cut_lines_vertices(OpenGL::Array->new_list(GL_FLOAT, @verts)); } # Given an axis and angle, compute quaternion. sub axis_to_quat { my ($ax, $phi) = @_; my $lena = sqrt(reduce { $a + $b } (map { $_ * $_ } @$ax)); my @q = map { $_ * (1 / $lena) } @$ax; @q = map { $_ * sin($phi / 2.0) } @q; $q[$#q + 1] = cos($phi / 2.0); return @q; } # Project a point on the virtual trackball. # If it is inside the sphere, map it to the sphere, if it outside map it # to a hyperbola. sub project_to_sphere { my ($r, $x, $y) = @_; my $d = sqrt($x * $x + $y * $y); if ($d < $r * 0.70710678118654752440) { # Inside sphere return sqrt($r * $r - $d * $d); } else { # On hyperbola my $t = $r / 1.41421356237309504880; return $t * $t / $d; } } sub cross { my ($v1, $v2) = @_; return (@$v1[1] * @$v2[2] - @$v1[2] * @$v2[1], @$v1[2] * @$v2[0] - @$v1[0] * @$v2[2], @$v1[0] * @$v2[1] - @$v1[1] * @$v2[0]); } # Simulate a track-ball. Project the points onto the virtual trackball, # then figure out the axis of rotation, which is the cross product of # P1 P2 and O P1 (O is the center of the ball, 0,0,0) Note: This is a # deformed trackball-- is a trackball in the center, but is deformed # into a hyperbolic sheet of rotation away from the center. # It is assumed that the arguments to this routine are in the range # (-1.0 ... 1.0). sub trackball { my ($p1x, $p1y, $p2x, $p2y) = @_; if ($p1x == $p2x && $p1y == $p2y) { # zero rotation return (0.0, 0.0, 0.0, 1.0); } # First, figure out z-coordinates for projection of P1 and P2 to # deformed sphere my @p1 = ($p1x, $p1y, project_to_sphere(TRACKBALLSIZE, $p1x, $p1y)); my @p2 = ($p2x, $p2y, project_to_sphere(TRACKBALLSIZE, $p2x, $p2y)); # axis of rotation (cross product of P1 and P2) my @a = cross(\@p2, \@p1); # Figure out how much to rotate around that axis. my @d = map { $_ * $_ } (map { $p1[$_] - $p2[$_] } 0 .. $#p1); my $t = sqrt(reduce { $a + $b } @d) / (2.0 * TRACKBALLSIZE); # Avoid problems with out-of-control values... $t = 1.0 if ($t > 1.0); $t = -1.0 if ($t < -1.0); my $phi = 2.0 * asin($t); return axis_to_quat(\@a, $phi); } # Build a rotation matrix, given a quaternion rotation. sub quat_to_rotmatrix { my ($q) = @_; my @m = (); $m[0] = 1.0 - 2.0 * (@$q[1] * @$q[1] + @$q[2] * @$q[2]); $m[1] = 2.0 * (@$q[0] * @$q[1] - @$q[2] * @$q[3]); $m[2] = 2.0 * (@$q[2] * @$q[0] + @$q[1] * @$q[3]); $m[3] = 0.0; $m[4] = 2.0 * (@$q[0] * @$q[1] + @$q[2] * @$q[3]); $m[5] = 1.0 - 2.0 * (@$q[2] * @$q[2] + @$q[0] * @$q[0]); $m[6] = 2.0 * (@$q[1] * @$q[2] - @$q[0] * @$q[3]); $m[7] = 0.0; $m[8] = 2.0 * (@$q[2] * @$q[0] - @$q[1] * @$q[3]); $m[9] = 2.0 * (@$q[1] * @$q[2] + @$q[0] * @$q[3]); $m[10] = 1.0 - 2.0 * (@$q[1] * @$q[1] + @$q[0] * @$q[0]); $m[11] = 0.0; $m[12] = 0.0; $m[13] = 0.0; $m[14] = 0.0; $m[15] = 1.0; return @m; } sub mulquats { my ($q1, $rq) = @_; return (@$q1[3] * @$rq[0] + @$q1[0] * @$rq[3] + @$q1[1] * @$rq[2] - @$q1[2] * @$rq[1], @$q1[3] * @$rq[1] + @$q1[1] * @$rq[3] + @$q1[2] * @$rq[0] - @$q1[0] * @$rq[2], @$q1[3] * @$rq[2] + @$q1[2] * @$rq[3] + @$q1[0] * @$rq[1] - @$q1[1] * @$rq[0], @$q1[3] * @$rq[3] - @$q1[0] * @$rq[0] - @$q1[1] * @$rq[1] - @$q1[2] * @$rq[2]) } # Convert the screen space coordinate to an object space coordinate. # If the Z screen space coordinate is not provided, a depth buffer value is substituted. sub mouse_to_3d { my ($self, $x, $y, $z) = @_; my @viewport = glGetIntegerv_p(GL_VIEWPORT); # 4 items my @mview = glGetDoublev_p(GL_MODELVIEW_MATRIX); # 16 items my @proj = glGetDoublev_p(GL_PROJECTION_MATRIX); # 16 items $y = $viewport[3] - $y; $z //= glReadPixels_p($x, $y, 1, 1, GL_DEPTH_COMPONENT, GL_FLOAT); my @projected = gluUnProject_p($x, $y, $z, @mview, @proj, @viewport); return Slic3r::Pointf3->new(@projected); } sub GetContext { my ($self) = @_; return $self->{context} ||= Wx::GLContext->new($self); } sub SetCurrent { my ($self, $context) = @_; return $self->SUPER::SetCurrent($context); } sub UseVBOs { my ($self) = @_; if (! defined ($self->{use_VBOs})) { my $use_legacy = wxTheApp->{app_config}->get('use_legacy_opengl'); if ($use_legacy eq '1') { # Disable OpenGL 2.0 rendering. $self->{use_VBOs} = 0; # Don't enable the layer editing tool. $self->{layer_editing_enabled} = 0; # 2 means failed $self->{layer_editing_initialized} = 2; return 0; } # This is a special path for wxWidgets on GTK, where an OpenGL context is initialized # first when an OpenGL widget is shown for the first time. How ugly. return 0 if (! $self->init && $^O eq 'linux'); # Don't use VBOs if anything fails. $self->{use_VBOs} = 0; if ($self->GetContext) { $self->SetCurrent($self->GetContext); Slic3r::GUI::_3DScene::_glew_init; my @gl_version = split(/\./, glGetString(GL_VERSION)); $self->{use_VBOs} = int($gl_version[0]) >= 2; # print "UseVBOs $self OpenGL major: $gl_version[0], minor: $gl_version[1]. Use VBOs: ", $self->{use_VBOs}, "\n"; } } return $self->{use_VBOs}; } sub Resize { my ($self, $x, $y) = @_; return unless $self->GetContext; $self->_dirty(0); $self->SetCurrent($self->GetContext); glViewport(0, 0, $x, $y); $x /= $self->_zoom; $y /= $self->_zoom; glMatrixMode(GL_PROJECTION); glLoadIdentity(); if ($self->_camera_type eq 'ortho') { #FIXME setting the size of the box 10x larger than necessary # is only a workaround for an incorrectly set camera. # This workaround harms Z-buffer accuracy! # my $depth = 1.05 * $self->max_bounding_box->radius(); my $depth = 10.0 * $self->max_bounding_box->radius(); glOrtho( -$x/2, $x/2, -$y/2, $y/2, -$depth, $depth, ); } else { die "Invalid camera type: ", $self->_camera_type, "\n" if ($self->_camera_type ne 'perspective'); my $bbox_r = $self->max_bounding_box->radius(); my $fov = PI * 45. / 180.; my $fov_tan = tan(0.5 * $fov); my $cam_distance = 0.5 * $bbox_r / $fov_tan; $self->_camera_distance($cam_distance); my $nr = $cam_distance - $bbox_r * 1.1; my $fr = $cam_distance + $bbox_r * 1.1; $nr = 1 if ($nr < 1); $fr = $nr + 1 if ($fr < $nr + 1); my $h2 = $fov_tan * $nr; my $w2 = $h2 * $x / $y; glFrustum(-$w2, $w2, -$h2, $h2, $nr, $fr); } glMatrixMode(GL_MODELVIEW); } sub InitGL { my $self = shift; return if $self->init; return unless $self->GetContext; $self->init(1); # This is a special path for wxWidgets on GTK, where an OpenGL context is initialized # first when an OpenGL widget is shown for the first time. How ugly. # In that case the volumes are wainting to be moved to Vertex Buffer Objects # after the OpenGL context is being initialized. $self->volumes->finalize_geometry(1) if ($^O eq 'linux' && $self->UseVBOs); glClearColor(0, 0, 0, 1); glColor3f(1, 0, 0); glEnable(GL_DEPTH_TEST); glClearDepth(1.0); glDepthFunc(GL_LEQUAL); glEnable(GL_CULL_FACE); glEnable(GL_BLEND); glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); # Set antialiasing/multisampling glDisable(GL_LINE_SMOOTH); glDisable(GL_POLYGON_SMOOTH); # See "GL_MULTISAMPLE and GL_ARRAY_BUFFER_ARB messages on failed launch" # https://github.com/alexrj/Slic3r/issues/4085 eval { # Disable the multi sampling by default, so the picking by color will work correctly. glDisable(GL_MULTISAMPLE); }; # Disable multi sampling if the eval failed. $self->{can_multisample} = 0 if $@; # ambient lighting glLightModelfv_p(GL_LIGHT_MODEL_AMBIENT, 0.3, 0.3, 0.3, 1); glEnable(GL_LIGHTING); glEnable(GL_LIGHT0); glEnable(GL_LIGHT1); # light from camera glLightfv_p(GL_LIGHT1, GL_POSITION, 1, 0, 1, 0); glLightfv_p(GL_LIGHT1, GL_SPECULAR, 0.3, 0.3, 0.3, 1); glLightfv_p(GL_LIGHT1, GL_DIFFUSE, 0.2, 0.2, 0.2, 1); # Enables Smooth Color Shading; try GL_FLAT for (lack of) fun. glShadeModel(GL_SMOOTH); # glMaterialfv_p(GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE, 0.5, 0.3, 0.3, 1); # glMaterialfv_p(GL_FRONT_AND_BACK, GL_SPECULAR, 1, 1, 1, 1); # glMaterialf(GL_FRONT_AND_BACK, GL_SHININESS, 50); # glMaterialfv_p(GL_FRONT_AND_BACK, GL_EMISSION, 0.1, 0, 0, 0.9); # A handy trick -- have surface material mirror the color. glColorMaterial(GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE); glEnable(GL_COLOR_MATERIAL); glEnable(GL_MULTISAMPLE) if ($self->{can_multisample}); if ($self->UseVBOs) { my $shader = new Slic3r::GUI::_3DScene::GLShader; if (! $shader->load($self->_fragment_shader_Gouraud, $self->_vertex_shader_Gouraud)) { # if (! $shader->load($self->_fragment_shader_Phong, $self->_vertex_shader_Phong)) { print "Compilaton of path shader failed: \n" . $shader->last_error . "\n"; $shader = undef; } else { $self->{plain_shader} = $shader; } } } sub DestroyGL { my $self = shift; if ($self->GetContext) { $self->SetCurrent($self->GetContext); if ($self->{plain_shader}) { $self->{plain_shader}->release; delete $self->{plain_shader}; } if ($self->{layer_height_edit_shader}) { $self->{layer_height_edit_shader}->release; delete $self->{layer_height_edit_shader}; } $self->volumes->release_geometry; } } sub Render { my ($self, $dc) = @_; # prevent calling SetCurrent() when window is not shown yet return unless $self->IsShownOnScreen; return unless my $context = $self->GetContext; $self->SetCurrent($context); $self->InitGL; glClearColor(1, 1, 1, 1); glClearDepth(1); glDepthFunc(GL_LESS); glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT); glMatrixMode(GL_MODELVIEW); glLoadIdentity(); { # Shift the perspective camera. my $camera_pos = Slic3r::Pointf3->new(0,0,-$self->_camera_distance); glTranslatef(@$camera_pos); } if (TURNTABLE_MODE) { # Turntable mode is enabled by default. glRotatef(-$self->_stheta, 1, 0, 0); #Â pitch glRotatef($self->_sphi, 0, 0, 1); # yaw } else { my @rotmat = quat_to_rotmatrix($self->quat); glMultMatrixd_p(@rotmat[0..15]); } glTranslatef(@{ $self->_camera_target->negative }); # light from above glLightfv_p(GL_LIGHT0, GL_POSITION, -0.5, -0.5, 1, 0); glLightfv_p(GL_LIGHT0, GL_SPECULAR, 0.2, 0.2, 0.2, 1); glLightfv_p(GL_LIGHT0, GL_DIFFUSE, 0.5, 0.5, 0.5, 1); # Head light glLightfv_p(GL_LIGHT1, GL_POSITION, 1, 0, 1, 0); if ($self->enable_picking) { if (my $pos = $self->_mouse_pos) { # Render the object for picking. # FIXME This cannot possibly work in a multi-sampled context as the color gets mangled by the anti-aliasing. # Better to use software ray-casting on a bounding-box hierarchy. glPushAttrib(GL_ENABLE_BIT); glDisable(GL_MULTISAMPLE) if ($self->{can_multisample}); glDisable(GL_LIGHTING); glDisable(GL_BLEND); $self->draw_volumes(1); glPopAttrib(); glFlush(); my $col = [ glReadPixels_p($pos->x, $self->GetSize->GetHeight - $pos->y, 1, 1, GL_RGBA, GL_UNSIGNED_BYTE) ]; my $volume_idx = $col->[0] + $col->[1]*256 + $col->[2]*256*256; $self->_hover_volume_idx(undef); $_->set_hover(0) for @{$self->volumes}; if ($volume_idx <= $#{$self->volumes}) { $self->_hover_volume_idx($volume_idx); $self->volumes->[$volume_idx]->set_hover(1); my $group_id = $self->volumes->[$volume_idx]->select_group_id; if ($group_id != -1) { $_->set_hover(1) for grep { $_->select_group_id == $group_id } @{$self->volumes}; } $self->on_hover->($volume_idx) if $self->on_hover; } glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT); } } # draw fixed background if ($self->background) { glDisable(GL_LIGHTING); glPushMatrix(); glLoadIdentity(); glMatrixMode(GL_PROJECTION); glPushMatrix(); glLoadIdentity(); # Draws a bluish bottom to top gradient over the complete screen. glDisable(GL_DEPTH_TEST); glBegin(GL_QUADS); glColor3f(0.0,0.0,0.0); glVertex3f(-1.0,-1.0, 1.0); glVertex3f( 1.0,-1.0, 1.0); glColor3f(10/255,98/255,144/255); glVertex3f( 1.0, 1.0, 1.0); glVertex3f(-1.0, 1.0, 1.0); glEnd(); glPopMatrix(); glEnable(GL_DEPTH_TEST); glMatrixMode(GL_MODELVIEW); glPopMatrix(); glEnable(GL_LIGHTING); } # draw ground and axes glDisable(GL_LIGHTING); # draw ground my $ground_z = GROUND_Z; if ($self->bed_triangles) { glDisable(GL_DEPTH_TEST); glEnable(GL_BLEND); glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); glEnableClientState(GL_VERTEX_ARRAY); glColor4f(0.8, 0.6, 0.5, 0.4); glNormal3d(0,0,1); glVertexPointer_c(3, GL_FLOAT, 0, $self->bed_triangles->ptr()); glDrawArrays(GL_TRIANGLES, 0, $self->bed_triangles->elements / 3); glDisableClientState(GL_VERTEX_ARRAY); # we need depth test for grid, otherwise it would disappear when looking #Â the object from below glEnable(GL_DEPTH_TEST); # draw grid glLineWidth(3); glColor4f(0.2, 0.2, 0.2, 0.4); glEnableClientState(GL_VERTEX_ARRAY); glVertexPointer_c(3, GL_FLOAT, 0, $self->bed_grid_lines->ptr()); glDrawArrays(GL_LINES, 0, $self->bed_grid_lines->elements / 3); glDisableClientState(GL_VERTEX_ARRAY); glDisable(GL_BLEND); } my $volumes_bb = $self->volumes_bounding_box; { # draw axes # disable depth testing so that axes are not covered by ground glDisable(GL_DEPTH_TEST); my $origin = $self->origin; my $axis_len = max( 0.3 * max(@{ $self->bed_bounding_box->size }), 2 * max(@{ $volumes_bb->size }), ); glLineWidth(2); glBegin(GL_LINES); # draw line for x axis glColor3f(1, 0, 0); glVertex3f(@$origin, $ground_z); glVertex3f($origin->x + $axis_len, $origin->y, $ground_z); #,, # draw line for y axis glColor3f(0, 1, 0); glVertex3f(@$origin, $ground_z); glVertex3f($origin->x, $origin->y + $axis_len, $ground_z); #++ glEnd(); # draw line for Z axis # (re-enable depth test so that axis is correctly shown when objects are behind it) glEnable(GL_DEPTH_TEST); glBegin(GL_LINES); glColor3f(0, 0, 1); glVertex3f(@$origin, $ground_z); glVertex3f(@$origin, $ground_z+$axis_len); glEnd(); } glEnable(GL_LIGHTING); # draw objects if (! $self->use_plain_shader) { $self->draw_volumes; } elsif ($self->UseVBOs) { $self->{plain_shader}->enable if $self->{plain_shader}; $self->volumes->render_VBOs; $self->{plain_shader}->disable; } else { $self->volumes->render_legacy; } # draw cutting plane if (defined $self->cutting_plane_z) { my $plane_z = $self->cutting_plane_z; my $bb = $volumes_bb; glDisable(GL_CULL_FACE); glDisable(GL_LIGHTING); glEnable(GL_BLEND); glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); glBegin(GL_QUADS); glColor4f(0.8, 0.8, 0.8, 0.5); glVertex3f($bb->x_min-20, $bb->y_min-20, $plane_z); glVertex3f($bb->x_max+20, $bb->y_min-20, $plane_z); glVertex3f($bb->x_max+20, $bb->y_max+20, $plane_z); glVertex3f($bb->x_min-20, $bb->y_max+20, $plane_z); glEnd(); glEnable(GL_CULL_FACE); glDisable(GL_BLEND); } $self->draw_active_object_annotations; $self->SwapBuffers(); } sub draw_volumes { # $fakecolor is a boolean indicating, that the objects shall be rendered in a color coding the object index for picking. my ($self, $fakecolor) = @_; glEnable(GL_BLEND); glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); glEnableClientState(GL_VERTEX_ARRAY); glEnableClientState(GL_NORMAL_ARRAY); my $z_cursor_relative = $self->_variable_layer_thickness_bar_mouse_cursor_z_relative; foreach my $volume_idx (0..$#{$self->volumes}) { my $volume = $self->volumes->[$volume_idx]; my $shader_active = 0; my $object_id = int($volume->select_group_id / 1000000); if ($self->layer_editing_enabled && ! $fakecolor && $volume->selected && $self->{layer_height_edit_shader} && $volume->has_layer_height_texture && $object_id < $self->{print}->object_count) { # Update the height texture if the ModelObject::layer_height_texture is invalid. $volume->generate_layer_height_texture($self->{print}->get_object($object_id), 0); $self->{layer_height_edit_shader}->enable; $self->{layer_height_edit_shader}->set_uniform('z_to_texture_row', $volume->layer_height_texture_z_to_row_id); $self->{layer_height_edit_shader}->set_uniform('z_texture_row_to_normalized', 1. / $volume->layer_height_texture_height); $self->{layer_height_edit_shader}->set_uniform('z_cursor', $volume->bounding_box->z_max * $z_cursor_relative); $self->{layer_height_edit_shader}->set_uniform('z_cursor_band_width', $self->{layer_height_edit_band_width}); glBindTexture(GL_TEXTURE_2D, $self->{layer_preview_z_texture_id}); # glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_LEVEL, 0); # glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAX_LEVEL, 1); glTexImage2D_c(GL_TEXTURE_2D, 0, GL_RGBA8, $volume->layer_height_texture_width, $volume->layer_height_texture_height, 0, GL_RGBA, GL_UNSIGNED_BYTE, 0); glTexImage2D_c(GL_TEXTURE_2D, 1, GL_RGBA8, $volume->layer_height_texture_width / 2, $volume->layer_height_texture_height / 2, 0, GL_RGBA, GL_UNSIGNED_BYTE, 0); # glPixelStorei(GL_UNPACK_ALIGNMENT, 1); # glPixelStorei(GL_UNPACK_ROW_LENGTH, $self->{layer_preview_z_texture_width}); glTexSubImage2D_c(GL_TEXTURE_2D, 0, 0, 0, $volume->layer_height_texture_width, $volume->layer_height_texture_height, GL_RGBA, GL_UNSIGNED_BYTE, $volume->layer_height_texture_data_ptr_level0); glTexSubImage2D_c(GL_TEXTURE_2D, 1, 0, 0, $volume->layer_height_texture_width / 2, $volume->layer_height_texture_height / 2, GL_RGBA, GL_UNSIGNED_BYTE, $volume->layer_height_texture_data_ptr_level1); $shader_active = 1; } elsif ($fakecolor) { # Object picking mode. Render the object with a color encoding the object index. my $r = ($volume_idx & 0x000000FF) >> 0; my $g = ($volume_idx & 0x0000FF00) >> 8; my $b = ($volume_idx & 0x00FF0000) >> 16; glColor4f($r/255.0, $g/255.0, $b/255.0, 1); } elsif ($volume->selected) { glColor4f(@{ &SELECTED_COLOR }); } elsif ($volume->hover) { glColor4f(@{ &HOVER_COLOR }); } else { glColor4f(@{ $volume->color }); } $volume->render; if ($shader_active) { glBindTexture(GL_TEXTURE_2D, 0); $self->{layer_height_edit_shader}->disable; } } glDisableClientState(GL_NORMAL_ARRAY); glDisable(GL_BLEND); if (defined $self->cutting_plane_z) { glLineWidth(2); glColor3f(0, 0, 0); glVertexPointer_c(3, GL_FLOAT, 0, $self->cut_lines_vertices->ptr()); glDrawArrays(GL_LINES, 0, $self->cut_lines_vertices->elements / 3); glVertexPointer_c(3, GL_FLOAT, 0, 0); } glDisableClientState(GL_VERTEX_ARRAY); } sub _load_image_set_texture { my ($self, $file_name) = @_; # Load a PNG with an alpha channel. my $img = Wx::Image->new; $img->LoadFile(Slic3r::var($file_name), wxBITMAP_TYPE_PNG); # Get RGB & alpha raw data from wxImage, interleave them into a Perl array. my @rgb = unpack 'C*', $img->GetData(); my @alpha = $img->HasAlpha ? unpack 'C*', $img->GetAlpha() : (255) x (int(@rgb) / 3); my $n_pixels = int(@alpha); my @data = (0)x($n_pixels * 4); for (my $i = 0; $i < $n_pixels; $i += 1) { $data[$i*4 ] = $rgb[$i*3]; $data[$i*4+1] = $rgb[$i*3+1]; $data[$i*4+2] = $rgb[$i*3+2]; $data[$i*4+3] = $alpha[$i]; } # Initialize a raw bitmap data. my $params = { loaded => 1, valid => $n_pixels > 0, width => $img->GetWidth, height => $img->GetHeight, data => OpenGL::Array->new_list(GL_UNSIGNED_BYTE, @data), texture_id => glGenTextures_p(1) }; # Create and initialize a texture with the raw data. glBindTexture(GL_TEXTURE_2D, $params->{texture_id}); glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR); glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAX_LEVEL, 1); glTexImage2D_c(GL_TEXTURE_2D, 0, GL_RGBA8, $params->{width}, $params->{height}, 0, GL_RGBA, GL_UNSIGNED_BYTE, $params->{data}->ptr); glBindTexture(GL_TEXTURE_2D, 0); return $params; } sub _variable_layer_thickness_load_overlay_image { my ($self) = @_; $self->{layer_preview_annotation} = $self->_load_image_set_texture('variable_layer_height_tooltip.png') if (! $self->{layer_preview_annotation}->{loaded}); return $self->{layer_preview_annotation}->{valid}; } sub _variable_layer_thickness_load_reset_image { my ($self) = @_; $self->{layer_preview_reset_image} = $self->_load_image_set_texture('variable_layer_height_reset.png') if (! $self->{layer_preview_reset_image}->{loaded}); return $self->{layer_preview_reset_image}->{valid}; } # Paint the tooltip. sub _render_image { my ($self, $image, $l, $r, $b, $t) = @_; glColor4f(1.,1.,1.,1.); glDisable(GL_LIGHTING); glEnable(GL_BLEND); glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); glEnable(GL_TEXTURE_2D); glBindTexture(GL_TEXTURE_2D, $image->{texture_id}); glBegin(GL_QUADS); glTexCoord2d(0.,1.); glVertex3f($l, $b, 0); glTexCoord2d(1.,1.); glVertex3f($r, $b, 0); glTexCoord2d(1.,0.); glVertex3f($r, $t, 0); glTexCoord2d(0.,0.); glVertex3f($l, $t, 0); glEnd(); glBindTexture(GL_TEXTURE_2D, 0); glDisable(GL_TEXTURE_2D); glDisable(GL_BLEND); glEnable(GL_LIGHTING); } sub draw_active_object_annotations { # $fakecolor is a boolean indicating, that the objects shall be rendered in a color coding the object index for picking. my ($self) = @_; return if (! $self->{layer_height_edit_shader} || ! $self->layer_editing_enabled); # Find the selected volume, over which the layer editing is active. my $volume; foreach my $volume_idx (0..$#{$self->volumes}) { my $v = $self->volumes->[$volume_idx]; if ($v->selected && $v->has_layer_height_texture) { $volume = $v; last; } } return if (! $volume); # If the active object was not allocated at the Print, go away. This should only be a momentary case between an object addition / deletion # and an update by Platter::async_apply_config. my $object_idx = int($volume->select_group_id / 1000000); return if $object_idx >= $self->{print}->object_count; # The viewport and camera are set to complete view and glOrtho(-$x/2, $x/2, -$y/2, $y/2, -$depth, $depth), # where x, y is the window size divided by $self->_zoom. my ($bar_left, $bar_bottom, $bar_right, $bar_top) = $self->_variable_layer_thickness_bar_rect_viewport; my ($reset_left, $reset_bottom, $reset_right, $reset_top) = $self->_variable_layer_thickness_reset_rect_viewport; my $z_cursor_relative = $self->_variable_layer_thickness_bar_mouse_cursor_z_relative; $self->{layer_height_edit_shader}->enable; $self->{layer_height_edit_shader}->set_uniform('z_to_texture_row', $volume->layer_height_texture_z_to_row_id); $self->{layer_height_edit_shader}->set_uniform('z_texture_row_to_normalized', 1. / $volume->layer_height_texture_height); $self->{layer_height_edit_shader}->set_uniform('z_cursor', $volume->bounding_box->z_max * $z_cursor_relative); $self->{layer_height_edit_shader}->set_uniform('z_cursor_band_width', $self->{layer_height_edit_band_width}); glBindTexture(GL_TEXTURE_2D, $self->{layer_preview_z_texture_id}); glTexImage2D_c(GL_TEXTURE_2D, 0, GL_RGBA8, $volume->layer_height_texture_width, $volume->layer_height_texture_height, 0, GL_RGBA, GL_UNSIGNED_BYTE, 0); glTexImage2D_c(GL_TEXTURE_2D, 1, GL_RGBA8, $volume->layer_height_texture_width / 2, $volume->layer_height_texture_height / 2, 0, GL_RGBA, GL_UNSIGNED_BYTE, 0); glTexSubImage2D_c(GL_TEXTURE_2D, 0, 0, 0, $volume->layer_height_texture_width, $volume->layer_height_texture_height, GL_RGBA, GL_UNSIGNED_BYTE, $volume->layer_height_texture_data_ptr_level0); glTexSubImage2D_c(GL_TEXTURE_2D, 1, 0, 0, $volume->layer_height_texture_width / 2, $volume->layer_height_texture_height / 2, GL_RGBA, GL_UNSIGNED_BYTE, $volume->layer_height_texture_data_ptr_level1); # Render the color bar. glDisable(GL_DEPTH_TEST); # The viewport and camera are set to complete view and glOrtho(-$x/2, $x/2, -$y/2, $y/2, -$depth, $depth), # where x, y is the window size divided by $self->_zoom. glPushMatrix(); glLoadIdentity(); # Paint the overlay. glBegin(GL_QUADS); glVertex3f($bar_left, $bar_bottom, 0); glVertex3f($bar_right, $bar_bottom, 0); glVertex3f($bar_right, $bar_top, $volume->bounding_box->z_max); glVertex3f($bar_left, $bar_top, $volume->bounding_box->z_max); glEnd(); glBindTexture(GL_TEXTURE_2D, 0); $self->{layer_height_edit_shader}->disable; # Paint the tooltip. if ($self->_variable_layer_thickness_load_overlay_image) { my $gap = 10/$self->_zoom; my ($l, $r, $b, $t) = ($bar_left - $self->{layer_preview_annotation}->{width}/$self->_zoom - $gap, $bar_left - $gap, $reset_bottom + $self->{layer_preview_annotation}->{height}/$self->_zoom + $gap, $reset_bottom + $gap); $self->_render_image($self->{layer_preview_annotation}, $l, $r, $t, $b); } # Paint the reset button. if ($self->_variable_layer_thickness_load_reset_image) { $self->_render_image($self->{layer_preview_reset_image}, $reset_left, $reset_right, $reset_bottom, $reset_top); } # Paint the graph. #FIXME show some kind of legend. my $print_object = $self->{print}->get_object($object_idx); my $max_z = unscale($print_object->size->z); my $profile = $print_object->model_object->layer_height_profile; my $layer_height = $print_object->config->get('layer_height'); my $layer_height_max = 10000000000.; { # Get a maximum layer height value. #FIXME This is a duplicate code of Slicing.cpp. my $nozzle_diameters = $print_object->print->config->get('nozzle_diameter'); my $layer_heights_min = $print_object->print->config->get('min_layer_height'); my $layer_heights_max = $print_object->print->config->get('max_layer_height'); for (my $i = 0; $i < scalar(@{$nozzle_diameters}); $i += 1) { my $lh_min = ($layer_heights_min->[$i] == 0.) ? 0.07 : max(0.01, $layer_heights_min->[$i]); my $lh_max = ($layer_heights_max->[$i] == 0.) ? (0.75 * $nozzle_diameters->[$i]) : $layer_heights_max->[$i]; $layer_height_max = min($layer_height_max, max($lh_min, $lh_max)); } } # Make the vertical bar a bit wider so the layer height curve does not touch the edge of the bar region. $layer_height_max *= 1.12; # Baseline glColor3f(0., 0., 0.); glBegin(GL_LINE_STRIP); glVertex2f($bar_left + $layer_height * ($bar_right - $bar_left) / $layer_height_max, $bar_bottom); glVertex2f($bar_left + $layer_height * ($bar_right - $bar_left) / $layer_height_max, $bar_top); glEnd(); # Curve glColor3f(0., 0., 1.); glBegin(GL_LINE_STRIP); for (my $i = 0; $i < int(@{$profile}); $i += 2) { my $z = $profile->[$i]; my $h = $profile->[$i+1]; glVertex3f($bar_left + $h * ($bar_right - $bar_left) / $layer_height_max, $bar_bottom + $z * ($bar_top - $bar_bottom) / $max_z, $z); } glEnd(); # Revert the matrices. glPopMatrix(); glEnable(GL_DEPTH_TEST); } sub opengl_info { my ($self, %params) = @_; my %tag = Slic3r::tags($params{format}); my $gl_version = glGetString(GL_VERSION); my $gl_vendor = glGetString(GL_VENDOR); my $gl_renderer = glGetString(GL_RENDERER); my $glsl_version = glGetString(GL_SHADING_LANGUAGE_VERSION); my $out = ''; $out .= "$tag{h2start}OpenGL installation$tag{h2end}$tag{eol}"; $out .= " $tag{bstart}Using POGL$tag{bend} v$OpenGL::BUILD_VERSION$tag{eol}"; $out .= " $tag{bstart}GL version: $tag{bend}${gl_version}$tag{eol}"; $out .= " $tag{bstart}vendor: $tag{bend}${gl_vendor}$tag{eol}"; $out .= " $tag{bstart}renderer: $tag{bend}${gl_renderer}$tag{eol}"; $out .= " $tag{bstart}GLSL version: $tag{bend}${glsl_version}$tag{eol}"; # Check for other OpenGL extensions $out .= "$tag{h2start}Installed extensions (* implemented in the module):$tag{h2end}$tag{eol}"; my $extensions = glGetString(GL_EXTENSIONS); my @extensions = split(' ',$extensions); foreach my $ext (sort @extensions) { my $stat = glpCheckExtension($ext); $out .= sprintf("%s ${ext}$tag{eol}", $stat?' ':'*'); $out .= sprintf(" ${stat}$tag{eol}") if ($stat && $stat !~ m|^$ext |); } return $out; } sub _report_opengl_state { my ($self, $comment) = @_; my $err = glGetError(); return 0 if ($err == 0); # gluErrorString() hangs. Don't use it. # my $errorstr = gluErrorString(); my $errorstr = ''; if ($err == 0x0500) { $errorstr = 'GL_INVALID_ENUM'; } elsif ($err == GL_INVALID_VALUE) { $errorstr = 'GL_INVALID_VALUE'; } elsif ($err == GL_INVALID_OPERATION) { $errorstr = 'GL_INVALID_OPERATION'; } elsif ($err == GL_STACK_OVERFLOW) { $errorstr = 'GL_STACK_OVERFLOW'; } elsif ($err == GL_OUT_OF_MEMORY) { $errorstr = 'GL_OUT_OF_MEMORY'; } else { $errorstr = 'unknown'; } if (defined($comment)) { printf("OpenGL error at %s, nr %d (0x%x): %s\n", $comment, $err, $err, $errorstr); } else { printf("OpenGL error nr %d (0x%x): %s\n", $err, $err, $errorstr); } } sub _vertex_shader_Gouraud { return <<'VERTEX'; #version 110 #define INTENSITY_CORRECTION 0.7 #define LIGHT_TOP_DIR -0.6/1.31, 0.6/1.31, 1./1.31 #define LIGHT_TOP_DIFFUSE (0.8 * INTENSITY_CORRECTION) #define LIGHT_TOP_SPECULAR (0.5 * INTENSITY_CORRECTION) #define LIGHT_TOP_SHININESS 50. #define LIGHT_FRONT_DIR 1./1.43, 0.2/1.43, 1./1.43 #define LIGHT_FRONT_DIFFUSE (0.3 * INTENSITY_CORRECTION) #define LIGHT_FRONT_SPECULAR (0.0 * INTENSITY_CORRECTION) #define LIGHT_FRONT_SHININESS 50. #define INTENSITY_AMBIENT 0.3 varying float intensity_specular; varying float intensity_tainted; void main() { vec3 eye, normal, lightDir, viewVector, halfVector; float NdotL, NdotHV; eye = vec3(0., 0., 1.); // First transform the normal into eye space and normalize the result. normal = normalize(gl_NormalMatrix * gl_Normal); // Now normalize the light's direction. Note that according to the OpenGL specification, the light is stored in eye space. // Also since we're talking about a directional light, the position field is actually direction. lightDir = vec3(LIGHT_TOP_DIR); halfVector = normalize(lightDir + eye); // Compute the cos of the angle between the normal and lights direction. The light is directional so the direction is constant for every vertex. // Since these two are normalized the cosine is the dot product. We also need to clamp the result to the [0,1] range. NdotL = max(dot(normal, lightDir), 0.0); intensity_tainted = INTENSITY_AMBIENT + NdotL * LIGHT_TOP_DIFFUSE; intensity_specular = 0.; if (NdotL > 0.0) intensity_specular = LIGHT_TOP_SPECULAR * pow(max(dot(normal, halfVector), 0.0), LIGHT_TOP_SHININESS); // Perform the same lighting calculation for the 2nd light source. lightDir = vec3(LIGHT_FRONT_DIR); // halfVector = normalize(lightDir + eye); NdotL = max(dot(normal, lightDir), 0.0); intensity_tainted += NdotL * LIGHT_FRONT_DIFFUSE; // compute the specular term if NdotL is larger than zero // if (NdotL > 0.0) // intensity_specular += LIGHT_FRONT_SPECULAR * pow(max(dot(normal, halfVector), 0.0), LIGHT_FRONT_SHININESS); gl_Position = ftransform(); } VERTEX } sub _fragment_shader_Gouraud { return <<'FRAGMENT'; #version 110 varying float intensity_specular; varying float intensity_tainted; uniform vec4 uniform_color; void main() { gl_FragColor = vec4(intensity_specular, intensity_specular, intensity_specular, 0.) + uniform_color * intensity_tainted; gl_FragColor.a = uniform_color.a; } FRAGMENT } sub _vertex_shader_Phong { return <<'VERTEX'; #version 110 varying vec3 normal; varying vec3 eye; void main(void) { eye = normalize(vec3(gl_ModelViewMatrix * gl_Vertex)); normal = normalize(gl_NormalMatrix * gl_Normal); gl_Position = gl_ModelViewProjectionMatrix * gl_Vertex; } VERTEX } sub _fragment_shader_Phong { return <<'FRAGMENT'; #version 110 #define INTENSITY_CORRECTION 0.7 #define LIGHT_TOP_DIR -0.6/1.31, 0.6/1.31, 1./1.31 #define LIGHT_TOP_DIFFUSE (0.8 * INTENSITY_CORRECTION) #define LIGHT_TOP_SPECULAR (0.5 * INTENSITY_CORRECTION) //#define LIGHT_TOP_SHININESS 50. #define LIGHT_TOP_SHININESS 10. #define LIGHT_FRONT_DIR 1./1.43, 0.2/1.43, 1./1.43 #define LIGHT_FRONT_DIFFUSE (0.3 * INTENSITY_CORRECTION) #define LIGHT_FRONT_SPECULAR (0.0 * INTENSITY_CORRECTION) #define LIGHT_FRONT_SHININESS 50. #define INTENSITY_AMBIENT 0.0 varying vec3 normal; varying vec3 eye; uniform vec4 uniform_color; void main() { float intensity_specular = 0.; float intensity_tainted = 0.; float intensity = max(dot(normal,vec3(LIGHT_TOP_DIR)), 0.0); // if the vertex is lit compute the specular color if (intensity > 0.0) { intensity_tainted = LIGHT_TOP_DIFFUSE * intensity; // compute the half vector vec3 h = normalize(vec3(LIGHT_TOP_DIR) + eye); // compute the specular term into spec intensity_specular = LIGHT_TOP_SPECULAR * pow(max(dot(h, normal), 0.0), LIGHT_TOP_SHININESS); } intensity = max(dot(normal,vec3(LIGHT_FRONT_DIR)), 0.0); // if the vertex is lit compute the specular color if (intensity > 0.0) { intensity_tainted += LIGHT_FRONT_DIFFUSE * intensity; // compute the half vector // vec3 h = normalize(vec3(LIGHT_FRONT_DIR) + eye); // compute the specular term into spec // intensity_specular += LIGHT_FRONT_SPECULAR * pow(max(dot(h,normal), 0.0), LIGHT_FRONT_SHININESS); } gl_FragColor = max( vec4(intensity_specular, intensity_specular, intensity_specular, 0.) + uniform_color * intensity_tainted, INTENSITY_AMBIENT * uniform_color); gl_FragColor.a = uniform_color.a; } FRAGMENT } sub _vertex_shader_variable_layer_height { return <<'VERTEX'; #version 110 #define LIGHT_TOP_DIR 0., 1., 0. #define LIGHT_TOP_DIFFUSE 0.2 #define LIGHT_TOP_SPECULAR 0.3 #define LIGHT_TOP_SHININESS 50. #define LIGHT_FRONT_DIR 0., 0., 1. #define LIGHT_FRONT_DIFFUSE 0.5 #define LIGHT_FRONT_SPECULAR 0.3 #define LIGHT_FRONT_SHININESS 50. #define INTENSITY_AMBIENT 0.1 uniform float z_to_texture_row; varying float intensity_specular; varying float intensity_tainted; varying float object_z; void main() { vec3 eye, normal, lightDir, viewVector, halfVector; float NdotL, NdotHV; // eye = gl_ModelViewMatrixInverse[3].xyz; eye = vec3(0., 0., 1.); // First transform the normal into eye space and normalize the result. normal = normalize(gl_NormalMatrix * gl_Normal); // Now normalize the light's direction. Note that according to the OpenGL specification, the light is stored in eye space. // Also since we're talking about a directional light, the position field is actually direction. lightDir = vec3(LIGHT_TOP_DIR); halfVector = normalize(lightDir + eye); // Compute the cos of the angle between the normal and lights direction. The light is directional so the direction is constant for every vertex. // Since these two are normalized the cosine is the dot product. We also need to clamp the result to the [0,1] range. NdotL = max(dot(normal, lightDir), 0.0); intensity_tainted = INTENSITY_AMBIENT + NdotL * LIGHT_TOP_DIFFUSE; intensity_specular = 0.; // if (NdotL > 0.0) // intensity_specular = LIGHT_TOP_SPECULAR * pow(max(dot(normal, halfVector), 0.0), LIGHT_TOP_SHININESS); // Perform the same lighting calculation for the 2nd light source. lightDir = vec3(LIGHT_FRONT_DIR); halfVector = normalize(lightDir + eye); NdotL = max(dot(normal, lightDir), 0.0); intensity_tainted += NdotL * LIGHT_FRONT_DIFFUSE; // compute the specular term if NdotL is larger than zero if (NdotL > 0.0) intensity_specular += LIGHT_FRONT_SPECULAR * pow(max(dot(normal, halfVector), 0.0), LIGHT_FRONT_SHININESS); // Scaled to widths of the Z texture. object_z = gl_Vertex.z / gl_Vertex.w; gl_Position = ftransform(); } VERTEX } sub _fragment_shader_variable_layer_height { return <<'FRAGMENT'; #version 110 #define M_PI 3.1415926535897932384626433832795 // 2D texture (1D texture split by the rows) of color along the object Z axis. uniform sampler2D z_texture; // Scaling from the Z texture rows coordinate to the normalized texture row coordinate. uniform float z_to_texture_row; uniform float z_texture_row_to_normalized; varying float intensity_specular; varying float intensity_tainted; varying float object_z; uniform float z_cursor; uniform float z_cursor_band_width; void main() { float object_z_row = z_to_texture_row * object_z; // Index of the row in the texture. float z_texture_row = floor(object_z_row); // Normalized coordinate from 0. to 1. float z_texture_col = object_z_row - z_texture_row; float z_blend = 0.25 * cos(min(M_PI, abs(M_PI * (object_z - z_cursor) * 1.8 / z_cursor_band_width))) + 0.25; // Calculate level of detail from the object Z coordinate. // This makes the slowly sloping surfaces to be show with high detail (with stripes), // and the vertical surfaces to be shown with low detail (no stripes) float z_in_cells = object_z_row * 190.; // Gradient of Z projected on the screen. float dx_vtc = dFdx(z_in_cells); float dy_vtc = dFdy(z_in_cells); float lod = clamp(0.5 * log2(max(dx_vtc*dx_vtc, dy_vtc*dy_vtc)), 0., 1.); // Sample the Z texture. Texture coordinates are normalized to <0, 1>. vec4 color = (1. - lod) * texture2D(z_texture, vec2(z_texture_col, z_texture_row_to_normalized * (z_texture_row + 0.5 )), -10000.) + lod * texture2D(z_texture, vec2(z_texture_col, z_texture_row_to_normalized * (z_texture_row * 2. + 1.)), 10000.); // Mix the final color. gl_FragColor = vec4(intensity_specular, intensity_specular, intensity_specular, 1.) + (1. - z_blend) * intensity_tainted * color + z_blend * vec4(1., 1., 0., 0.); // and reset the transparency. gl_FragColor.a = 1.; } FRAGMENT } # The 3D canvas to display objects and tool paths. package Slic3r::GUI::3DScene; use base qw(Slic3r::GUI::3DScene::Base); use OpenGL qw(:glconstants :gluconstants :glufunctions); use List::Util qw(first min max); use Slic3r::Geometry qw(scale unscale epsilon); use Slic3r::Print::State ':steps'; __PACKAGE__->mk_accessors(qw( color_by select_by drag_by )); sub new { my $class = shift; my $self = $class->SUPER::new(@_); $self->color_by('volume'); # object | volume $self->select_by('object'); # object | volume | instance $self->drag_by('instance'); # object | instance return $self; } sub load_object { my ($self, $model, $print, $obj_idx, $instance_idxs) = @_; $self->SetCurrent($self->GetContext) if $self->UseVBOs; my $model_object; if ($model->isa('Slic3r::Model::Object')) { $model_object = $model; $model = $model_object->model; $obj_idx = 0; } else { $model_object = $model->get_object($obj_idx); } $instance_idxs ||= [0..$#{$model_object->instances}]; my $volume_indices = $self->volumes->load_object( $model_object, $obj_idx, $instance_idxs, $self->color_by, $self->select_by, $self->drag_by, $self->UseVBOs); return @{$volume_indices}; } # Create 3D thick extrusion lines for a skirt and brim. # Adds a new Slic3r::GUI::3DScene::Volume to $self->volumes. sub load_print_toolpaths { my ($self, $print, $colors) = @_; $self->SetCurrent($self->GetContext) if $self->UseVBOs; Slic3r::GUI::_3DScene::_load_print_toolpaths($print, $self->volumes, $colors, $self->UseVBOs) if ($print->step_done(STEP_SKIRT) && $print->step_done(STEP_BRIM)); } # Create 3D thick extrusion lines for object forming extrusions. # Adds a new Slic3r::GUI::3DScene::Volume to $self->volumes, # one for perimeters, one for infill and one for supports. sub load_print_object_toolpaths { my ($self, $object, $colors) = @_; $self->SetCurrent($self->GetContext) if $self->UseVBOs; Slic3r::GUI::_3DScene::_load_print_object_toolpaths($object, $self->volumes, $colors, $self->UseVBOs); } # Create 3D thick extrusion lines for wipe tower extrusions. sub load_wipe_tower_toolpaths { my ($self, $print, $colors) = @_; $self->SetCurrent($self->GetContext) if $self->UseVBOs; Slic3r::GUI::_3DScene::_load_wipe_tower_toolpaths($print, $self->volumes, $colors, $self->UseVBOs) if ($print->step_done(STEP_WIPE_TOWER)); } sub set_toolpaths_range { my ($self, $min_z, $max_z) = @_; $self->volumes->set_range($min_z, $max_z); } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/AboutDialog.pm 0000664 0000000 0000000 00000010431 13243544447 0021603 0 ustar 00root root 0000000 0000000 package Slic3r::GUI::AboutDialog; use strict; use warnings; use utf8; use Wx qw(:font :html :misc :dialog :sizer :systemsettings :frame :id); use Wx::Event qw(EVT_HTML_LINK_CLICKED EVT_LEFT_DOWN EVT_BUTTON); use Wx::Print; use Wx::Html; use base 'Wx::Dialog'; sub new { my $class = shift; my ($parent) = @_; my $self = $class->SUPER::new($parent, -1, 'About Slic3r', wxDefaultPosition, [600, 340], wxCAPTION); $self->SetBackgroundColour(Wx::wxWHITE); my $hsizer = Wx::BoxSizer->new(wxHORIZONTAL); $self->SetSizer($hsizer); # logo my $logo = Slic3r::GUI::AboutDialog::Logo->new($self, -1, wxDefaultPosition, wxDefaultSize); $logo->SetBackgroundColour(Wx::wxWHITE); $hsizer->Add($logo, 0, wxEXPAND | wxLEFT | wxRIGHT, 30); my $vsizer = Wx::BoxSizer->new(wxVERTICAL); $hsizer->Add($vsizer, 1, wxEXPAND, 0); # title my $title = Wx::StaticText->new($self, -1, $Slic3r::FORK_NAME, wxDefaultPosition, wxDefaultSize); my $title_font = Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT); $title_font->SetWeight(wxFONTWEIGHT_BOLD); $title_font->SetFamily(wxFONTFAMILY_ROMAN); $title_font->SetPointSize(24); $title->SetFont($title_font); $vsizer->Add($title, 0, wxALIGN_LEFT | wxTOP, 30); # version my $version = Wx::StaticText->new($self, -1, "Version $Slic3r::VERSION", wxDefaultPosition, wxDefaultSize); my $version_font = Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT); $version_font->SetPointSize(&Wx::wxMSW ? 9 : 11); $version->SetFont($version_font); $vsizer->Add($version, 0, wxALIGN_LEFT | wxBOTTOM, 10); # text my $text = '' . '' . '' . 'Copyright © 2016 Vojtech Bubnik, Prusa Research.
' . 'Copyright © 2011-2016 Alessandro Ranellucci.
' . 'Slic3r is licensed under the ' . 'GNU Affero General Public License, version 3.' . '
' . 'Contributions by Henrik Brix Andersen, Nicolas Dandrimont, Mark Hindess, Petr Ledvina, Y. Sapir, Mike Sheldrake and numerous others. ' . 'Manual by Gary Hodgson. Inspired by the RepRap community.
' . 'Slic3r logo designed by Corey Daniels, Silk Icon Set designed by Mark James. ' . '' . '' . ''; my $html = Wx::HtmlWindow->new($self, -1, wxDefaultPosition, wxDefaultSize, wxHW_SCROLLBAR_NEVER); my $font = Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT); my $size = &Wx::wxMSW ? 8 : 10; $html->SetFonts($font->GetFaceName, $font->GetFaceName, [$size, $size, $size, $size, $size, $size, $size]); $html->SetBorders(2); $html->SetPage($text); $vsizer->Add($html, 1, wxEXPAND | wxALIGN_LEFT | wxRIGHT | wxBOTTOM, 20); EVT_HTML_LINK_CLICKED($self, $html, \&link_clicked); my $buttons = $self->CreateStdDialogButtonSizer(wxOK); $self->SetEscapeId(wxID_CLOSE); EVT_BUTTON($self, wxID_CLOSE, sub { $self->EndModal(wxID_CLOSE); $self->Close; }); $vsizer->Add($buttons, 0, wxEXPAND | wxRIGHT | wxBOTTOM, 3); EVT_LEFT_DOWN($self, sub { $self->Close }); EVT_LEFT_DOWN($logo, sub { $self->Close }); return $self; } sub link_clicked { my ($self, $event) = @_; Wx::LaunchDefaultBrowser($event->GetLinkInfo->GetHref); $event->Skip(0); } package Slic3r::GUI::AboutDialog::Logo; use Wx qw(:bitmap :dc); use Wx::Event qw(EVT_PAINT); use base 'Wx::Panel'; sub new { my $class = shift; my $self = $class->SUPER::new(@_); $self->{logo} = Wx::Bitmap->new(Slic3r::var("Slic3r_192px.png"), wxBITMAP_TYPE_PNG); $self->SetMinSize(Wx::Size->new($self->{logo}->GetWidth, $self->{logo}->GetHeight)); EVT_PAINT($self, \&repaint); return $self; } sub repaint { my ($self, $event) = @_; my $dc = Wx::PaintDC->new($self); $dc->SetBackgroundMode(wxTRANSPARENT); my $size = $self->GetSize; my $logo_w = $self->{logo}->GetWidth; my $logo_h = $self->{logo}->GetHeight; $dc->DrawBitmap($self->{logo}, ($size->GetWidth - $logo_w) / 2, ($size->GetHeight - $logo_h) / 2, 1); $event->Skip; } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/BedShapeDialog.pm 0000664 0000000 0000000 00000025277 13243544447 0022222 0 ustar 00root root 0000000 0000000 # The bed shape dialog. # The dialog opens from Print Settins tab -> Bed Shape: Set... package Slic3r::GUI::BedShapeDialog; use strict; use warnings; use utf8; use List::Util qw(min max); use Slic3r::Geometry qw(X Y unscale); use Wx qw(:dialog :id :misc :sizer :choicebook wxTAB_TRAVERSAL); use Wx::Event qw(EVT_CLOSE); use base 'Wx::Dialog'; sub new { my $class = shift; my ($parent, $default) = @_; my $self = $class->SUPER::new($parent, -1, "Bed Shape", wxDefaultPosition, [350,700], wxDEFAULT_DIALOG_STYLE | wxRESIZE_BORDER); $self->{panel} = my $panel = Slic3r::GUI::BedShapePanel->new($self, $default); my $main_sizer = Wx::BoxSizer->new(wxVERTICAL); $main_sizer->Add($panel, 1, wxEXPAND); $main_sizer->Add($self->CreateButtonSizer(wxOK | wxCANCEL), 0, wxEXPAND); $self->SetSizer($main_sizer); $self->SetMinSize($self->GetSize); $main_sizer->SetSizeHints($self); # needed to actually free memory EVT_CLOSE($self, sub { $self->EndModal(wxID_OK); $self->Destroy; }); return $self; } sub GetValue { my ($self) = @_; return $self->{panel}->GetValue; } package Slic3r::GUI::BedShapePanel; use List::Util qw(min max sum first); use Scalar::Util qw(looks_like_number); use Slic3r::Geometry qw(PI X Y unscale scaled_epsilon); use Wx qw(:font :id :misc :sizer :choicebook :filedialog :pen :brush wxTAB_TRAVERSAL); use Wx::Event qw(EVT_CLOSE EVT_CHOICEBOOK_PAGE_CHANGED EVT_BUTTON); use base 'Wx::Panel'; use constant SHAPE_RECTANGULAR => 0; use constant SHAPE_CIRCULAR => 1; use constant SHAPE_CUSTOM => 2; sub new { my $class = shift; my ($parent, $default) = @_; my $self = $class->SUPER::new($parent, -1); $self->on_change(undef); my $box = Wx::StaticBox->new($self, -1, "Shape"); my $sbsizer = Wx::StaticBoxSizer->new($box, wxVERTICAL); # shape options $self->{shape_options_book} = Wx::Choicebook->new($self, -1, wxDefaultPosition, [300,-1], wxCHB_TOP); $sbsizer->Add($self->{shape_options_book}); $self->{optgroups} = []; { my $optgroup = $self->_init_shape_options_page('Rectangular'); $optgroup->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'rect_size', type => 'point', label => 'Size', tooltip => 'Size in X and Y of the rectangular plate.', default => [200,200], )); $optgroup->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'rect_origin', type => 'point', label => 'Origin', tooltip => 'Distance of the 0,0 G-code coordinate from the front left corner of the rectangle.', default => [0,0], )); } { my $optgroup = $self->_init_shape_options_page('Circular'); $optgroup->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'diameter', type => 'f', label => 'Diameter', tooltip => 'Diameter of the print bed. It is assumed that origin (0,0) is located in the center.', sidetext => 'mm', default => 200, )); } { my $optgroup = $self->_init_shape_options_page('Custom'); $optgroup->append_line(Slic3r::GUI::OptionsGroup::Line->new( full_width => 1, widget => sub { my ($parent) = @_; my $btn = Wx::Button->new($parent, -1, "Load shape from STL...", wxDefaultPosition, wxDefaultSize); EVT_BUTTON($self, $btn, sub { $self->_load_stl }); return $btn; } )); } EVT_CHOICEBOOK_PAGE_CHANGED($self, -1, sub { $self->_update_shape; }); # right pane with preview canvas my $canvas = $self->{canvas} = Slic3r::GUI::2DBed->new($self); # main sizer my $top_sizer = Wx::BoxSizer->new(wxHORIZONTAL); $top_sizer->Add($sbsizer, 0, wxEXPAND | wxTOP | wxBOTTOM, 10); $top_sizer->Add($canvas, 1, wxEXPAND | wxALL, 10) if $canvas; $self->SetSizerAndFit($top_sizer); $self->_set_shape($default); $self->_update_preview; return $self; } sub on_change { my ($self, $cb) = @_; $self->{on_change} = $cb // sub {}; } # Called from the constructor. # Set the initial bed shape from a list of points. # Deduce the bed shape type (rect, circle, custom) # This routine shall be smart enough if the user messes up # with the list of points in the ini file directly. sub _set_shape { my ($self, $points) = @_; # is this a rectangle? if (@$points == 4) { my $polygon = Slic3r::Polygon->new_scale(@$points); my $lines = $polygon->lines; if ($lines->[0]->parallel_to_line($lines->[2]) && $lines->[1]->parallel_to_line($lines->[3])) { # okay, it's a rectangle # find origin # the || 0 hack prevents "-0" which might confuse the user my $x_min = min(map $_->[X], @$points) || 0; my $x_max = max(map $_->[X], @$points) || 0; my $y_min = min(map $_->[Y], @$points) || 0; my $y_max = max(map $_->[Y], @$points) || 0; my $origin = [-$x_min, -$y_min]; $self->{shape_options_book}->SetSelection(SHAPE_RECTANGULAR); my $optgroup = $self->{optgroups}[SHAPE_RECTANGULAR]; $optgroup->set_value('rect_size', [ $x_max-$x_min, $y_max-$y_min ]); $optgroup->set_value('rect_origin', $origin); $self->_update_shape; return; } } # is this a circle? { # Analyze the array of points. Do they reside on a circle? my $polygon = Slic3r::Polygon->new_scale(@$points); my $center = $polygon->bounding_box->center; my @vertex_distances = map $center->distance_to($_), @$polygon; my $avg_dist = sum(@vertex_distances)/@vertex_distances; if (!defined first { abs($_ - $avg_dist) > 10*scaled_epsilon } @vertex_distances) { # all vertices are equidistant to center $self->{shape_options_book}->SetSelection(SHAPE_CIRCULAR); my $optgroup = $self->{optgroups}[SHAPE_CIRCULAR]; $optgroup->set_value('diameter', sprintf("%.0f", unscale($avg_dist*2))); $self->_update_shape; return; } } if (@$points < 3) { # Invalid polygon. Revert to default bed dimensions. $self->{shape_options_book}->SetSelection(SHAPE_RECTANGULAR); my $optgroup = $self->{optgroups}[SHAPE_RECTANGULAR]; $optgroup->set_value('rect_size', [200, 200]); $optgroup->set_value('rect_origin', [0, 0]); $self->_update_shape; return; } # This is a custom bed shape, use the polygon provided. $self->{shape_options_book}->SetSelection(SHAPE_CUSTOM); # Copy the polygon to the canvas, make a copy of the array. $self->{canvas}->bed_shape([@$points]); $self->_update_shape; } # Update the bed shape from the dialog fields. sub _update_shape { my ($self) = @_; my $page_idx = $self->{shape_options_book}->GetSelection; if ($page_idx == SHAPE_RECTANGULAR) { my $rect_size = $self->{optgroups}[SHAPE_RECTANGULAR]->get_value('rect_size'); my $rect_origin = $self->{optgroups}[SHAPE_RECTANGULAR]->get_value('rect_origin'); my ($x, $y) = @$rect_size; return if !looks_like_number($x) || !looks_like_number($y); # empty strings or '-' or other things return if !$x || !$y or $x == 0 or $y == 0; my ($x0, $y0) = (0,0); my ($x1, $y1) = ($x ,$y); { my ($dx, $dy) = @$rect_origin; return if !looks_like_number($dx) || !looks_like_number($dy); # empty strings or '-' or other things $x0 -= $dx; $x1 -= $dx; $y0 -= $dy; $y1 -= $dy; } $self->{canvas}->bed_shape([ [$x0,$y0], [$x1,$y0], [$x1,$y1], [$x0,$y1], ]); } elsif ($page_idx == SHAPE_CIRCULAR) { my $diameter = $self->{optgroups}[SHAPE_CIRCULAR]->get_value('diameter'); return if !$diameter or $diameter == 0; my $r = $diameter/2; my $twopi = 2*PI; my $edges = 60; my $polygon = Slic3r::Polygon->new_scale( map [ $r * cos $_, $r * sin $_ ], map { $twopi/$edges*$_ } 1..$edges ); $self->{canvas}->bed_shape([ map [ unscale($_->x), unscale($_->y) ], @$polygon #)) ]); } $self->{on_change}->(); $self->_update_preview; } sub _update_preview { my ($self) = @_; $self->{canvas}->Refresh if $self->{canvas}; $self->Refresh; } # Called from the constructor. # Create a panel for a rectangular / circular / custom bed shape. sub _init_shape_options_page { my ($self, $title) = @_; my $panel = Wx::Panel->new($self->{shape_options_book}); my $optgroup; push @{$self->{optgroups}}, $optgroup = Slic3r::GUI::OptionsGroup->new( parent => $panel, title => 'Settings', label_width => 100, on_change => sub { my ($opt_id) = @_; #$self->{"_$opt_id"} = $optgroup->get_value($opt_id); $self->_update_shape; }, ); $panel->SetSizerAndFit($optgroup->sizer); $self->{shape_options_book}->AddPage($panel, $title); return $optgroup; } # Loads an stl file, projects it to the XY plane and calculates a polygon. sub _load_stl { my ($self) = @_; my $dialog = Wx::FileDialog->new($self, 'Choose a file to import bed shape from (STL/OBJ/AMF/PRUSA):', "", "", &Slic3r::GUI::MODEL_WILDCARD, wxFD_OPEN | wxFD_FILE_MUST_EXIST); if ($dialog->ShowModal != wxID_OK) { $dialog->Destroy; return; } my $input_file = $dialog->GetPaths; $dialog->Destroy; my $model = Slic3r::Model->read_from_file($input_file); my $mesh = $model->mesh; my $expolygons = $mesh->horizontal_projection; if (@$expolygons == 0) { Slic3r::GUI::show_error($self, "The selected file contains no geometry."); return; } if (@$expolygons > 1) { Slic3r::GUI::show_error($self, "The selected file contains several disjoint areas. This is not supported."); return; } my $polygon = $expolygons->[0]->contour; $self->{canvas}->bed_shape([ map [ unscale($_->x), unscale($_->y) ], @$polygon ]); $self->_update_preview(); } # Returns the resulting bed shape polygon. This value will be stored to the ini file. sub GetValue { my ($self) = @_; return $self->{canvas}->bed_shape; } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/BonjourBrowser.pm 0000664 0000000 0000000 00000003007 13243544447 0022374 0 ustar 00root root 0000000 0000000 # A tiny dialog to select an OctoPrint device to print to. package Slic3r::GUI::BonjourBrowser; use strict; use warnings; use utf8; use Wx qw(:dialog :id :misc :sizer :choicebook wxTAB_TRAVERSAL); use Wx::Event qw(EVT_CLOSE); use base 'Wx::Dialog'; sub new { my $class = shift; my ($parent, $devices) = @_; my $self = $class->SUPER::new($parent, -1, "Device Browser", wxDefaultPosition, [350,700], wxDEFAULT_DIALOG_STYLE | wxRESIZE_BORDER); $self->{devices} = $devices; # label my $text = Wx::StaticText->new($self, -1, "Choose an OctoPrint device in your network:", wxDefaultPosition, wxDefaultSize); # selector $self->{choice} = my $choice = Wx::Choice->new($self, -1, wxDefaultPosition, wxDefaultSize, [ map $_->name, @{$self->{devices}} ]); my $main_sizer = Wx::BoxSizer->new(wxVERTICAL); $main_sizer->Add($text, 1, wxEXPAND | wxALL, 10); $main_sizer->Add($choice, 1, wxEXPAND | wxALL, 10); $main_sizer->Add($self->CreateButtonSizer(wxOK | wxCANCEL), 0, wxEXPAND); $self->SetSizer($main_sizer); $self->SetMinSize($self->GetSize); $main_sizer->SetSizeHints($self); # needed to actually free memory EVT_CLOSE($self, sub { $self->EndModal(wxID_OK); $self->Destroy; }); return $self; } sub GetValue { my ($self) = @_; return $self->{devices}[ $self->{choice}->GetSelection ]->address; } sub GetPort { my ($self) = @_; return $self->{devices}[ $self->{choice}->GetSelection ]->port; } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/ConfigWizard.pm 0000664 0000000 0000000 00000037002 13243544447 0022002 0 ustar 00root root 0000000 0000000 # The config wizard is executed when the Slic3r is first started. # The wizard helps the user to specify the 3D printer properties. package Slic3r::GUI::ConfigWizard; use strict; use warnings; use utf8; use Wx; use base 'Wx::Wizard'; # adhere to various human interface guidelines our $wizard = 'Wizard'; $wizard = 'Assistant' if &Wx::wxMAC || &Wx::wxGTK; sub new { my ($class, $parent, $presets, $fresh_start) = @_; my $self = $class->SUPER::new($parent, -1, "Configuration $wizard"); # initialize an empty repository $self->{config} = Slic3r::Config->new; my $welcome_page = Slic3r::GUI::ConfigWizard::Page::Welcome->new($self, $fresh_start); $self->add_page($welcome_page); $self->add_page(Slic3r::GUI::ConfigWizard::Page::Firmware->new($self)); $self->add_page(Slic3r::GUI::ConfigWizard::Page::Bed->new($self)); $self->add_page(Slic3r::GUI::ConfigWizard::Page::Nozzle->new($self)); $self->add_page(Slic3r::GUI::ConfigWizard::Page::Filament->new($self)); $self->add_page(Slic3r::GUI::ConfigWizard::Page::Temperature->new($self)); $self->add_page(Slic3r::GUI::ConfigWizard::Page::BedTemperature->new($self)); $self->add_page(Slic3r::GUI::ConfigWizard::Page::Finished->new($self)); $_->build_index for @{$self->{pages}}; $welcome_page->set_selection_presets([@{$presets}, 'Other']); return $self; } sub add_page { my ($self, $page) = @_; my $n = push @{$self->{pages}}, $page; # add first page to the page area sizer $self->GetPageAreaSizer->Add($page) if $n == 1; # link pages $self->{pages}[$n-2]->set_next_page($page) if $n >= 2; $page->set_previous_page($self->{pages}[$n-2]) if $n >= 2; } sub run { my ($self) = @_; my $result; if (Wx::Wizard::RunWizard($self, $self->{pages}[0])) { my $preset_name = $self->{pages}[0]->{preset_name}; $result = { preset_name => $preset_name, reset_user_profile => $self->{pages}[0]->{reset_user_profile} }; if ($preset_name eq 'Other') { # it would be cleaner to have these defined inside each page class, # in some event getting called before leaving the page # set first_layer_height + layer_height based on nozzle_diameter my $nozzle = $self->{config}->nozzle_diameter; $self->{config}->set('first_layer_height', $nozzle->[0]); $self->{config}->set('layer_height', $nozzle->[0] - 0.1); # set first_layer_temperature to temperature + 5 $self->{config}->set('first_layer_temperature', [$self->{config}->temperature->[0] + 5]); # set first_layer_bed_temperature to temperature + 5 $self->{config}->set('first_layer_bed_temperature', [ ($self->{config}->bed_temperature->[0] > 0) ? ($self->{config}->bed_temperature->[0] + 5) : 0 ]); $result->{config} = $self->{config}; } } $self->Destroy; return $result; } package Slic3r::GUI::ConfigWizard::Index; use Wx qw(:bitmap :dc :font :misc :sizer :systemsettings :window); use Wx::Event qw(EVT_ERASE_BACKGROUND EVT_PAINT); use base 'Wx::Panel'; sub new { my $class = shift; my ($parent, $title) = @_; my $self = $class->SUPER::new($parent); push @{$self->{titles}}, $title; $self->{own_index} = 0; $self->{bullets}->{before} = Wx::Bitmap->new(Slic3r::var("bullet_black.png"), wxBITMAP_TYPE_PNG); $self->{bullets}->{own} = Wx::Bitmap->new(Slic3r::var("bullet_blue.png"), wxBITMAP_TYPE_PNG); $self->{bullets}->{after} = Wx::Bitmap->new(Slic3r::var("bullet_white.png"), wxBITMAP_TYPE_PNG); $self->{background} = Wx::Bitmap->new(Slic3r::var("Slic3r_192px_transparent.png"), wxBITMAP_TYPE_PNG); $self->SetMinSize(Wx::Size->new($self->{background}->GetWidth, $self->{background}->GetHeight)); EVT_PAINT($self, \&repaint); return $self; } sub repaint { my ($self, $event) = @_; my $size = $self->GetClientSize; my $gap = 5; my $dc = Wx::PaintDC->new($self); $dc->SetBackgroundMode(wxTRANSPARENT); $dc->SetFont($self->GetFont); $dc->SetTextForeground($self->GetForegroundColour); my $background_h = $self->{background}->GetHeight; my $background_w = $self->{background}->GetWidth; $dc->DrawBitmap($self->{background}, ($size->GetWidth - $background_w) / 2, ($size->GetHeight - $background_h) / 2, 1); my $label_h = $self->{bullets}->{own}->GetHeight; $label_h = $dc->GetCharHeight if $dc->GetCharHeight > $label_h; my $label_w = $size->GetWidth; my $i = 0; foreach (@{$self->{titles}}) { my $bullet = $self->{bullets}->{own}; $bullet = $self->{bullets}->{before} if $i < $self->{own_index}; $bullet = $self->{bullets}->{after} if $i > $self->{own_index}; $dc->SetTextForeground(Wx::Colour->new(128, 128, 128)) if $i > $self->{own_index}; $dc->DrawLabel($_, $bullet, Wx::Rect->new(0, $i * ($label_h + $gap), $label_w, $label_h)); # Only show the first bullet if this is the only wizard page to be displayed. last if $i == 0 && $self->{just_welcome}; $i++; } $event->Skip; } sub prepend_title { my $self = shift; my ($title) = @_; unshift @{$self->{titles}}, $title; $self->{own_index}++; $self->Refresh; } sub append_title { my $self = shift; my ($title) = @_; push @{$self->{titles}}, $title; $self->Refresh; } package Slic3r::GUI::ConfigWizard::Page; use Wx qw(:font :misc :sizer :staticline :systemsettings); use base 'Wx::WizardPage'; sub new { my $class = shift; my ($parent, $title, $short_title) = @_; my $self = $class->SUPER::new($parent); my $sizer = Wx::FlexGridSizer->new(0, 2, 10, 10); $sizer->AddGrowableCol(1, 1); $sizer->AddGrowableRow(1, 1); $sizer->AddStretchSpacer(0); $self->SetSizer($sizer); # title my $text = Wx::StaticText->new($self, -1, $title, wxDefaultPosition, wxDefaultSize, wxALIGN_LEFT); my $bold_font = Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT); $bold_font->SetWeight(wxFONTWEIGHT_BOLD); $bold_font->SetPointSize(14); $text->SetFont($bold_font); $sizer->Add($text, 0, wxALIGN_LEFT, 0); # index $self->{short_title} = $short_title ? $short_title : $title; $self->{index} = Slic3r::GUI::ConfigWizard::Index->new($self, $self->{short_title}); $sizer->Add($self->{index}, 1, wxEXPAND | wxTOP | wxRIGHT, 10); # contents $self->{width} = 430; $self->{vsizer} = Wx::BoxSizer->new(wxVERTICAL); $sizer->Add($self->{vsizer}, 1); return $self; } sub append_text { my $self = shift; my ($text) = @_; my $para = Wx::StaticText->new($self, -1, $text, wxDefaultPosition, wxDefaultSize, wxALIGN_LEFT); $para->Wrap($self->{width}); $para->SetMinSize([$self->{width}, -1]); $self->{vsizer}->Add($para, 0, wxALIGN_LEFT | wxTOP | wxBOTTOM, 10); } sub append_option { my $self = shift; my ($full_key) = @_; # populate repository with the factory default my ($opt_key, $opt_index) = split /#/, $full_key, 2; $self->config->apply(Slic3r::Config::new_from_defaults_keys([$opt_key])); # draw the control my $optgroup = Slic3r::GUI::ConfigOptionsGroup->new( parent => $self, title => '', config => $self->config, full_labels => 1, ); $optgroup->append_single_option_line($opt_key, $opt_index); $self->{vsizer}->Add($optgroup->sizer, 0, wxEXPAND | wxTOP | wxBOTTOM, 10); } sub append_panel { my ($self, $panel) = @_; $self->{vsizer}->Add($panel, 0, wxEXPAND | wxTOP | wxBOTTOM, 10); } sub set_previous_page { my $self = shift; my ($previous_page) = @_; $self->{previous_page} = $previous_page; } sub GetPrev { my $self = shift; return $self->{previous_page}; } sub set_next_page { my $self = shift; my ($next_page) = @_; $self->{next_page} = $next_page; } sub GetNext { my $self = shift; return $self->{next_page}; } sub get_short_title { my $self = shift; return $self->{short_title}; } sub build_index { my $self = shift; my $page = $self; $self->{index}->prepend_title($page->get_short_title) while ($page = $page->GetPrev); $page = $self; $self->{index}->append_title($page->get_short_title) while ($page = $page->GetNext); } sub config { my ($self) = @_; return $self->GetParent->{config}; } package Slic3r::GUI::ConfigWizard::Page::Welcome; use base 'Slic3r::GUI::ConfigWizard::Page'; use Wx qw(:misc :sizer wxID_FORWARD); use Wx::Event qw(EVT_ACTIVATE EVT_CHOICE EVT_CHECKBOX); sub new { my ($class, $parent, $fresh_start) = @_; my $self = $class->SUPER::new($parent, "Welcome to the Slic3r Configuration $wizard", 'Welcome'); $self->{full_wizard_workflow} = 1; $self->{reset_user_profile} = 0; # Test for the existence of the old config path. my $message_has_legacy; { my $datadir = Slic3r::data_dir; if ($datadir =~ /Slic3rPE/) { # Check for existence of the legacy Slic3r directory. my $datadir_legacy = substr $datadir, 0, -2; my $dir_enc = Slic3r::encode_path($datadir_legacy); if (-e $dir_enc && -d $dir_enc && -e ($dir_enc . '/print') && -d ($dir_enc . '/print') && -e ($dir_enc . '/filament') && -d ($dir_enc . '/filament') && -e ($dir_enc . '/printer') && -d ($dir_enc . '/printer') && -e ($dir_enc . '/slic3r.ini')) { $message_has_legacy = "Starting with Slic3r 1.38.4, the user profile directory has been renamed to $datadir. You may consider closing Slic3r and renaming $datadir_legacy to $datadir."; } } } $self->append_text('Hello, welcome to Slic3r Prusa Edition! This '.lc($wizard).' helps you with the initial configuration; just a few settings and you will be ready to print.'); $self->append_text('Please select your printer vendor and printer type. If your printer is not listed, you may try your luck and select a similar one. If you select "Other", this ' . lc($wizard) . ' will let you set the basic 3D printer parameters.'); $self->append_text($message_has_legacy) if defined $message_has_legacy; # To import an existing configuration instead, cancel this '.lc($wizard).' and use the Open Config menu item found in the File menu.'); $self->append_text('If you received a configuration file or a config bundle from your 3D printer vendor, cancel this '.lc($wizard).' and use the "File->Load Config" or "File->Load Config Bundle" menu.'); $self->{choice} = my $choice = Wx::Choice->new($self, -1, wxDefaultPosition, wxDefaultSize, []); $self->{vsizer}->Add($choice, 0, wxEXPAND | wxTOP | wxBOTTOM, 10); if (! $fresh_start) { $self->{reset_checkbox} = Wx::CheckBox->new($self, -1, "Reset user profile, install from scratch"); $self->{vsizer}->Add($self->{reset_checkbox}, 0, wxEXPAND | wxTOP | wxBOTTOM, 10); } EVT_CHOICE($parent, $choice, sub { my $sel = $self->{choice}->GetStringSelection; $self->{preset_name} = $sel; $self->set_full_wizard_workflow(($sel eq 'Other') || ($sel eq '')); }); if (! $fresh_start) { EVT_CHECKBOX($self, $self->{reset_checkbox}, sub { $self->{reset_user_profile} = $self->{reset_checkbox}->GetValue(); }); } EVT_ACTIVATE($parent, sub { $self->set_full_wizard_workflow($self->{preset_name} eq 'Other'); }); return $self; } sub set_full_wizard_workflow { my ($self, $full_workflow) = @_; $self->{full_wizard_workflow} = $full_workflow; $self->{index}->{just_welcome} = !$full_workflow; $self->{index}->Refresh; my $next_button = $self->GetParent->FindWindow(wxID_FORWARD); $next_button->SetLabel($full_workflow ? "&Next >" : "&Finish"); } # Set the preset names, select the first item. sub set_selection_presets { my ($self, $names) = @_; $self->{choice}->Append($names); $self->{choice}->SetSelection(0); $self->{preset_name} = $names->[0]; } sub GetNext { my $self = shift; return $self->{full_wizard_workflow} ? $self->{next_page} : undef; } package Slic3r::GUI::ConfigWizard::Page::Firmware; use base 'Slic3r::GUI::ConfigWizard::Page'; sub new { my $class = shift; my ($parent) = @_; my $self = $class->SUPER::new($parent, 'Firmware Type'); $self->append_text('Choose the type of firmware used by your printer, then click Next.'); $self->append_option('gcode_flavor'); return $self; } package Slic3r::GUI::ConfigWizard::Page::Bed; use base 'Slic3r::GUI::ConfigWizard::Page'; sub new { my $class = shift; my ($parent) = @_; my $self = $class->SUPER::new($parent, 'Bed Size'); $self->append_text('Set the shape of your printer\'s bed, then click Next.'); $self->config->apply(Slic3r::Config::new_from_defaults_keys(['bed_shape'])); $self->{bed_shape_panel} = my $panel = Slic3r::GUI::BedShapePanel->new($self, $self->config->bed_shape); $self->{bed_shape_panel}->on_change(sub { $self->config->set('bed_shape', $self->{bed_shape_panel}->GetValue); }); $self->append_panel($self->{bed_shape_panel}); return $self; } package Slic3r::GUI::ConfigWizard::Page::Nozzle; use base 'Slic3r::GUI::ConfigWizard::Page'; sub new { my $class = shift; my ($parent) = @_; my $self = $class->SUPER::new($parent, 'Nozzle Diameter'); $self->append_text('Enter the diameter of your printer\'s hot end nozzle, then click Next.'); $self->append_option('nozzle_diameter#0'); return $self; } package Slic3r::GUI::ConfigWizard::Page::Filament; use base 'Slic3r::GUI::ConfigWizard::Page'; sub new { my $class = shift; my ($parent) = @_; my $self = $class->SUPER::new($parent, 'Filament Diameter'); $self->append_text('Enter the diameter of your filament, then click Next.'); $self->append_text('Good precision is required, so use a caliper and do multiple measurements along the filament, then compute the average.'); $self->append_option('filament_diameter#0'); return $self; } package Slic3r::GUI::ConfigWizard::Page::Temperature; use base 'Slic3r::GUI::ConfigWizard::Page'; sub new { my $class = shift; my ($parent) = @_; my $self = $class->SUPER::new($parent, 'Extrusion Temperature'); $self->append_text('Enter the temperature needed for extruding your filament, then click Next.'); $self->append_text('A rule of thumb is 160 to 230 °C for PLA, and 215 to 250 °C for ABS.'); $self->append_option('temperature#0'); return $self; } package Slic3r::GUI::ConfigWizard::Page::BedTemperature; use base 'Slic3r::GUI::ConfigWizard::Page'; sub new { my $class = shift; my ($parent) = @_; my $self = $class->SUPER::new($parent, 'Bed Temperature'); $self->append_text('Enter the bed temperature needed for getting your filament to stick to your heated bed, then click Next.'); $self->append_text('A rule of thumb is 60 °C for PLA and 110 °C for ABS. Leave zero if you have no heated bed.'); $self->append_option('bed_temperature#0'); return $self; } package Slic3r::GUI::ConfigWizard::Page::Finished; use base 'Slic3r::GUI::ConfigWizard::Page'; sub new { my $class = shift; my ($parent) = @_; my $self = $class->SUPER::new($parent, 'Congratulations!', 'Finish'); $self->append_text("You have successfully completed the Slic3r Configuration $wizard. " . 'Slic3r is now configured for your printer and filament.'); $self->append_text('To close this '.lc($wizard).' and apply the newly created configuration, click Finish.'); return $self; } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Controller.pm 0000664 0000000 0000000 00000015006 13243544447 0021537 0 ustar 00root root 0000000 0000000 # The "Controller" tab to control the printer using serial / USB. # This feature is rarely used. Much more often, the firmware reads the G-codes from a SD card. # May there be multiple subtabs per each printer connected? package Slic3r::GUI::Controller; use strict; use warnings; use utf8; use Wx qw(wxTheApp :frame :id :misc :sizer :bitmap :button :icon :dialog); use Wx::Event qw(EVT_CLOSE EVT_LEFT_DOWN EVT_MENU); use base qw(Wx::ScrolledWindow Class::Accessor); use List::Util qw(first); __PACKAGE__->mk_accessors(qw(_selected_printer_preset)); our @ConfigOptions = qw(bed_shape serial_port serial_speed); sub new { my ($class, $parent) = @_; my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, [600,350]); $self->SetScrollbars(0, 1, 0, 1); $self->{sizer} = my $sizer = Wx::BoxSizer->new(wxVERTICAL); # warning to show when there are no printers configured { $self->{text_no_printers} = Wx::StaticText->new($self, -1, "No printers were configured for USB/serial control.", wxDefaultPosition, wxDefaultSize); $self->{sizer}->Add($self->{text_no_printers}, 0, wxTOP | wxLEFT, 30); } # button for adding new printer panels { my $btn = $self->{btn_add} = Wx::BitmapButton->new($self, -1, Wx::Bitmap->new(Slic3r::var("add.png"), wxBITMAP_TYPE_PNG), wxDefaultPosition, wxDefaultSize, Wx::wxBORDER_NONE); $btn->SetToolTipString("Add printer…") if $btn->can('SetToolTipString'); EVT_LEFT_DOWN($btn, sub { my $menu = Wx::Menu->new; my @panels = $self->print_panels; # remove printers that already exist # update configs of currently loaded print panels foreach my $preset (@{wxTheApp->{preset_bundle}->printer}) { my $preset_name = $preset->name; next if ! $preset->config->serial_port || defined first { defined $_ && $_->printer_name eq $preset_name } @panels; my $myconfig = $preset->config->clone_only(\@ConfigOptions); my $id = &Wx::NewId(); $menu->Append($id, $preset_name); EVT_MENU($menu, $id, sub { $self->add_printer($preset_name, $myconfig); }); } $self->PopupMenu($menu, $btn->GetPosition); $menu->Destroy; }); $self->{sizer}->Add($btn, 0, wxTOP | wxLEFT, 10); } $self->SetSizer($sizer); $self->SetMinSize($self->GetSize); #$sizer->SetSizeHints($self); EVT_CLOSE($self, sub { my (undef, $event) = @_; if ($event->CanVeto) { foreach my $panel ($self->print_panels) { if ($panel->printing) { my $confirm = Wx::MessageDialog->new( $self, "Printer '" . $panel->printer_name . "' is printing.\n\nDo you want to stop printing?", 'Unfinished Print', wxYES_NO | wxNO_DEFAULT | wxICON_QUESTION, ); if ($confirm->ShowModal == wxID_NO) { $event->Veto; return; } } } } foreach my $panel ($self->print_panels) { $panel->disconnect; } $event->Skip; }); $self->Layout; return $self; } sub OnActivate { my ($self) = @_; # get all available presets my %presets = map { $_->name => $_->config->clone_only(\@ConfigOptions) } grep { $_->config->serial_port } @{wxTheApp->{preset_bundle}->printer}; # decide which ones we want to keep my %active = (); # keep the ones that are currently connected or have jobs in queue $active{$_} = 1 for map $_->printer_name, grep { $_->is_connected || @{$_->jobs} > 0 } $self->print_panels; if (%presets) { # if there are no active panels, use sensible defaults if (!%active && keys %presets <= 2) { # if only one or two presets exist, load them $active{$_} = 1 for keys %presets; } if (!%active) { # enable printers whose port is available my %ports = map { $_ => 1 } Slic3r::GUI::scan_serial_ports; $active{$_} = 1 for grep exists $ports{$presets{$_}->serial_port}, keys %presets; } if (!%active && $self->_selected_printer_preset) { # enable currently selected printer if it is configured $active{$self->_selected_printer_preset} = 1 if $presets{$self->_selected_printer_preset}; } } # apply changes for my $panel ($self->print_panels) { next if $active{$panel->printer_name}; $self->{sizer}->DetachWindow($panel); $panel->Destroy; } $self->add_printer($_, $presets{$_}) for sort keys %active; # show/hide the warning about no printers $self->{text_no_printers}->Show(!%presets); # show/hide the Add button $self->{btn_add}->Show(keys %presets != keys %active); $self->Layout; # we need this in order to trigger the OnSize event of wxScrolledWindow which # recalculates the virtual size Wx::GetTopLevelParent($self)->SendSizeEvent; } sub add_printer { my ($self, $printer_name, $config) = @_; # check that printer doesn't exist already foreach my $panel ($self->print_panels) { if ($panel->printer_name eq $printer_name) { return $panel; } } my $printer_panel = Slic3r::GUI::Controller::PrinterPanel->new($self, $printer_name, $config); $self->{sizer}->Prepend($printer_panel, 0, wxEXPAND | wxTOP | wxLEFT | wxRIGHT, 10); $self->Layout; return $printer_panel; } sub print_panels { my ($self) = @_; return grep $_->isa('Slic3r::GUI::Controller::PrinterPanel'), map $_->GetWindow, $self->{sizer}->GetChildren; } # Called by Slic3r::GUI::Tab::Printer::_on_presets_changed # when the presets are loaded or the user selects another preset. sub update_presets { my ($self, $presets) = @_; # update configs of currently loaded print panels my @presets = @$presets; foreach my $panel ($self->print_panels) { my $preset = $presets->find_preset($panel->printer_name, 0); $panel->config($preset->config->clone_only(\@ConfigOptions)) if defined $preset; } $self->_selected_printer_preset($presets->get_selected_preset->name); } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Controller/ 0000775 0000000 0000000 00000000000 13243544447 0021177 5 ustar 00root root 0000000 0000000 Slic3r-version_1.39.1/lib/Slic3r/GUI/Controller/ManualControlDialog.pm 0000664 0000000 0000000 00000014527 13243544447 0025444 0 ustar 00root root 0000000 0000000 # A printer "Controller" -> "ManualControlDialog" subtab, opened per 3D printer connected? package Slic3r::GUI::Controller::ManualControlDialog; use strict; use warnings; use utf8; use Wx qw(:dialog :id :misc :sizer :choicebook :button :bitmap wxBORDER_NONE wxTAB_TRAVERSAL); use Wx::Event qw(EVT_CLOSE EVT_BUTTON); use base qw(Wx::Dialog Class::Accessor); __PACKAGE__->mk_accessors(qw(sender config2 x_homed y_homed)); sub new { my ($class, $parent, $config, $sender) = @_; my $self = $class->SUPER::new($parent, -1, "Manual Control", wxDefaultPosition, [500,380], wxDEFAULT_DIALOG_STYLE | wxRESIZE_BORDER); $self->sender($sender); $self->config2({ xy_travel_speed => 130, z_travel_speed => 10, }); my $bed_sizer = Wx::FlexGridSizer->new(2, 3, 1, 1); $bed_sizer->AddGrowableCol(1, 1); $bed_sizer->AddGrowableRow(0, 1); my $move_button = sub { my ($sizer, $label, $icon, $bold, $pos, $handler) = @_; my $btn = Wx::Button->new($self, -1, $label, wxDefaultPosition, wxDefaultSize, wxBU_LEFT | wxBU_EXACTFIT); $btn->SetFont($bold ? $Slic3r::GUI::small_bold_font : $Slic3r::GUI::small_font); $btn->SetBitmap(Wx::Bitmap->new(Slic3r::var("$icon.png"), wxBITMAP_TYPE_PNG)); $btn->SetBitmapPosition($pos); EVT_BUTTON($self, $btn, $handler); $sizer->Add($btn, 1, wxEXPAND | wxALL, 0); }; # Y buttons { my $sizer = Wx::BoxSizer->new(wxVERTICAL); for my $d (qw(+10 +1 +0.1)) { $move_button->($sizer, $d, 'arrow_up', 0, wxLEFT, sub { $self->rel_move('Y', $d) }); } $move_button->($sizer, 'Y', 'house', 1, wxLEFT, sub { $self->home('Y') }); for my $d (qw(-0.1 -1 -10)) { $move_button->($sizer, $d, 'arrow_down', 0, wxLEFT, sub { $self->rel_move('Y', $d) }); }; $bed_sizer->Add($sizer, 1, wxEXPAND, 0); } # Bed canvas { my $bed_shape = $config->bed_shape; $self->{canvas} = my $canvas = Slic3r::GUI::2DBed->new($self, $bed_shape); $canvas->interactive(1); $canvas->on_move(sub { my ($pos) = @_; if (!($self->x_homed && $self->y_homed)) { Slic3r::GUI::show_error($self, "Please home both X and Y before moving."); return ; } # delete any pending commands to get a smoother movement $self->sender->purge_queue(1); $self->abs_xy_move($pos); }); $bed_sizer->Add($canvas, 0, wxEXPAND | wxRIGHT, 3); } # Z buttons { my $sizer = Wx::BoxSizer->new(wxVERTICAL); for my $d (qw(+10 +1 +0.1)) { $move_button->($sizer, $d, 'arrow_up', 0, wxLEFT, sub { $self->rel_move('Z', $d) }); } $move_button->($sizer, 'Z', 'house', 1, wxLEFT, sub { $self->home('Z') }); for my $d (qw(-0.1 -1 -10)) { $move_button->($sizer, $d, 'arrow_down', 0, wxLEFT, sub { $self->rel_move('Z', $d) }); }; $bed_sizer->Add($sizer, 1, wxEXPAND, 0); } # XYZ home button $move_button->($bed_sizer, 'XYZ', 'house', 1, wxTOP, sub { $self->home(undef) }); # X buttons { my $sizer = Wx::BoxSizer->new(wxHORIZONTAL); for my $d (qw(-10 -1 -0.1)) { $move_button->($sizer, $d, 'arrow_left', 0, wxTOP, sub { $self->rel_move('X', $d) }); } $move_button->($sizer, 'X', 'house', 1, wxTOP, sub { $self->home('X') }); for my $d (qw(+0.1 +1 +10)) { $move_button->($sizer, $d, 'arrow_right', 0, wxTOP, sub { $self->rel_move('X', $d) }); } $bed_sizer->Add($sizer, 1, wxEXPAND, 0); } my $optgroup = Slic3r::GUI::OptionsGroup->new( parent => $self, title => 'Settings', on_change => sub { my ($opt_id, $value) = @_; $self->config2->{$opt_id} = $value; }, ); { my $line = Slic3r::GUI::OptionsGroup::Line->new( label => 'Speed (mm/s)', ); $line->append_option(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'xy_travel_speed', type => 'f', label => 'X/Y', tooltip => '', default => $self->config2->{xy_travel_speed}, )); $line->append_option(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'z_travel_speed', type => 'f', label => 'Z', tooltip => '', default => $self->config2->{z_travel_speed}, )); $optgroup->append_line($line); } my $main_sizer = Wx::BoxSizer->new(wxVERTICAL); $main_sizer->Add($bed_sizer, 1, wxEXPAND | wxALL, 10); $main_sizer->Add($optgroup->sizer, 0, wxEXPAND | wxALL, 10); #$main_sizer->Add($self->CreateButtonSizer(wxCLOSE), 0, wxEXPAND); #EVT_BUTTON($self, wxID_CLOSE, sub { $self->Close }); $self->SetSizer($main_sizer); $self->SetMinSize($self->GetSize); #$main_sizer->SetSizeHints($self); $self->Layout; # needed to actually free memory EVT_CLOSE($self, sub { $self->EndModal(wxID_OK); $self->Destroy; }); return $self; } sub abs_xy_move { my ($self, $pos) = @_; $self->sender->send("G90", 1); # set absolute positioning $self->sender->send(sprintf("G1 X%.1f Y%.1f F%d", @$pos, $self->config2->{xy_travel_speed}*60), 1); $self->{canvas}->set_pos($pos); } sub rel_move { my ($self, $axis, $distance) = @_; my $speed = ($axis eq 'Z') ? $self->config2->{z_travel_speed} : $self->config2->{xy_travel_speed}; $self->sender->send("G91", 1); # set relative positioning $self->sender->send(sprintf("G1 %s%.1f F%d", $axis, $distance, $speed*60), 1); $self->sender->send("G90", 1); # set absolute positioning if (my $pos = $self->{canvas}->pos) { if ($axis eq 'X') { $pos->translate($distance, 0); } elsif ($axis eq 'Y') { $pos->translate(0, $distance); } $self->{canvas}->set_pos($pos); } } sub home { my ($self, $axis) = @_; $axis //= ''; $self->sender->send(sprintf("G28 %s", $axis), 1); $self->{canvas}->set_pos(undef); $self->x_homed(1) if $axis eq 'X'; $self->y_homed(1) if $axis eq 'Y'; } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Controller/PrinterPanel.pm 0000664 0000000 0000000 00000062444 13243544447 0024152 0 ustar 00root root 0000000 0000000 package Slic3r::GUI::Controller::PrinterPanel; use strict; use warnings; use utf8; use Wx qw(wxTheApp :panel :id :misc :sizer :button :bitmap :window :gauge :timer :textctrl :font :systemsettings); use Wx::Event qw(EVT_BUTTON EVT_MOUSEWHEEL EVT_TIMER EVT_SCROLLWIN); use base qw(Wx::Panel Class::Accessor); __PACKAGE__->mk_accessors(qw(printer_name config sender jobs printing status_timer temp_timer)); use constant CONNECTION_TIMEOUT => 3; # seconds use constant STATUS_TIMER_INTERVAL => 1000; # milliseconds use constant TEMP_TIMER_INTERVAL => 5000; # milliseconds sub new { my ($class, $parent, $printer_name, $config) = @_; my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, [500, 250]); $self->printer_name($printer_name || 'Printer'); $self->config($config); $self->jobs([]); # set up the timer that polls for updates { my $timer_id = &Wx::NewId(); $self->status_timer(Wx::Timer->new($self, $timer_id)); EVT_TIMER($self, $timer_id, sub { my ($self, $event) = @_; if ($self->printing) { my $queue_size = $self->sender->queue_size; $self->{gauge}->SetValue($self->{gauge}->GetRange - $queue_size); if ($queue_size == 0) { $self->print_completed; } } $self->{log_textctrl}->AppendText("$_\n") for @{$self->sender->purge_log}; { my $temp = $self->sender->getT; if ($temp eq '') { $self->{temp_panel}->Hide; } else { if (!$self->{temp_panel}->IsShown) { $self->{temp_panel}->Show; $self->Layout; } $self->{temp_text}->SetLabel($temp . "°C"); $temp = $self->sender->getB; if ($temp eq '') { $self->{bed_temp_text}->SetLabel('n.a.'); } else { $self->{bed_temp_text}->SetLabel($temp . "°C"); } } } }); } # set up the timer that sends temperature requests # (responses are handled by status_timer) { my $timer_id = &Wx::NewId(); $self->temp_timer(Wx::Timer->new($self, $timer_id)); EVT_TIMER($self, $timer_id, sub { my ($self, $event) = @_; $self->sender->send("M105", 1); # send it through priority queue }); } my $box = Wx::StaticBox->new($self, -1, ""); my $sizer = Wx::StaticBoxSizer->new($box, wxHORIZONTAL); my $left_sizer = Wx::BoxSizer->new(wxVERTICAL); # printer name { my $text = Wx::StaticText->new($box, -1, $self->printer_name, wxDefaultPosition, [220,-1]); my $font = $text->GetFont; $font->SetPointSize(20); $text->SetFont($font); $left_sizer->Add($text, 0, wxEXPAND, 0); } # connection info { my $conn_sizer = Wx::FlexGridSizer->new(2, 2, 1, 0); $conn_sizer->SetFlexibleDirection(wxHORIZONTAL); $conn_sizer->AddGrowableCol(1, 1); $left_sizer->Add($conn_sizer, 0, wxEXPAND | wxTOP, 5); { my $text = Wx::StaticText->new($box, -1, "Port:", wxDefaultPosition, wxDefaultSize); $text->SetFont($Slic3r::GUI::small_font); $conn_sizer->Add($text, 0, wxRIGHT | wxALIGN_CENTER_VERTICAL, 5); } my $serial_port_sizer = Wx::BoxSizer->new(wxHORIZONTAL); { $self->{serial_port_combobox} = Wx::ComboBox->new($box, -1, $config->serial_port, wxDefaultPosition, wxDefaultSize, []); $self->{serial_port_combobox}->SetFont($Slic3r::GUI::small_font); $self->update_serial_ports; $serial_port_sizer->Add($self->{serial_port_combobox}, 0, wxRIGHT | wxALIGN_CENTER_VERTICAL, 1); } { $self->{btn_rescan_serial} = my $btn = Wx::BitmapButton->new($box, -1, Wx::Bitmap->new(Slic3r::var("arrow_rotate_clockwise.png"), wxBITMAP_TYPE_PNG), wxDefaultPosition, wxDefaultSize, &Wx::wxBORDER_NONE); $btn->SetToolTipString("Rescan serial ports") if $btn->can('SetToolTipString'); $serial_port_sizer->Add($btn, 0, wxALIGN_CENTER_VERTICAL, 0); EVT_BUTTON($self, $btn, sub { $self->update_serial_ports }); } $conn_sizer->Add($serial_port_sizer, 0, wxRIGHT | wxALIGN_CENTER_VERTICAL, 5); { my $text = Wx::StaticText->new($box, -1, "Speed:", wxDefaultPosition, wxDefaultSize); $text->SetFont($Slic3r::GUI::small_font); $conn_sizer->Add($text, 0, wxRIGHT | wxALIGN_CENTER_VERTICAL, 5); } my $serial_speed_sizer = Wx::BoxSizer->new(wxHORIZONTAL); { $self->{serial_speed_combobox} = Wx::ComboBox->new($box, -1, $config->serial_speed, wxDefaultPosition, wxDefaultSize, ["115200", "250000"]); $self->{serial_speed_combobox}->SetFont($Slic3r::GUI::small_font); $serial_speed_sizer->Add($self->{serial_speed_combobox}, 0, wxALIGN_CENTER_VERTICAL, 0); } { $self->{btn_disconnect} = my $btn = Wx::Button->new($box, -1, "Disconnect", wxDefaultPosition, wxDefaultSize); $btn->SetFont($Slic3r::GUI::small_font); $btn->SetBitmap(Wx::Bitmap->new(Slic3r::var("delete.png"), wxBITMAP_TYPE_PNG)); $serial_speed_sizer->Add($btn, 0, wxLEFT, 5); EVT_BUTTON($self, $btn, \&disconnect); } $conn_sizer->Add($serial_speed_sizer, 0, wxRIGHT | wxALIGN_CENTER_VERTICAL, 5); } # buttons { $self->{btn_connect} = my $btn = Wx::Button->new($box, -1, "Connect to printer", wxDefaultPosition, [-1, 40]); my $font = $btn->GetFont; $font->SetPointSize($font->GetPointSize + 2); $btn->SetFont($font); $btn->SetBitmap(Wx::Bitmap->new(Slic3r::var("arrow_up.png"), wxBITMAP_TYPE_PNG)); $left_sizer->Add($btn, 0, wxTOP, 15); EVT_BUTTON($self, $btn, \&connect); } # print progress bar { my $gauge = $self->{gauge} = Wx::Gauge->new($self, wxGA_HORIZONTAL, 100, wxDefaultPosition, wxDefaultSize); $left_sizer->Add($self->{gauge}, 0, wxEXPAND | wxTOP, 15); $gauge->Hide; } # status $self->{status_text} = Wx::StaticText->new($box, -1, "", wxDefaultPosition, [200,-1]); $left_sizer->Add($self->{status_text}, 1, wxEXPAND | wxTOP, 15); # manual control { $self->{btn_manual_control} = my $btn = Wx::Button->new($box, -1, "Manual control", wxDefaultPosition, wxDefaultSize); $btn->SetFont($Slic3r::GUI::small_font); $btn->SetBitmap(Wx::Bitmap->new(Slic3r::var("cog.png"), wxBITMAP_TYPE_PNG)); $btn->Hide; $left_sizer->Add($btn, 0, wxTOP, 15); EVT_BUTTON($self, $btn, sub { my $dlg = Slic3r::GUI::Controller::ManualControlDialog->new ($self, $self->config, $self->sender); $dlg->ShowModal; }); } # temperature { my $temp_panel = $self->{temp_panel} = Wx::Panel->new($box, -1); my $temp_sizer = Wx::BoxSizer->new(wxHORIZONTAL); my $temp_font = Wx::Font->new($Slic3r::GUI::small_font); $temp_font->SetWeight(wxFONTWEIGHT_BOLD); { my $text = Wx::StaticText->new($temp_panel, -1, "Temperature:", wxDefaultPosition, wxDefaultSize); $text->SetFont($Slic3r::GUI::small_font); $temp_sizer->Add($text, 0, wxALIGN_CENTER_VERTICAL); $self->{temp_text} = Wx::StaticText->new($temp_panel, -1, "", wxDefaultPosition, wxDefaultSize); $self->{temp_text}->SetFont($temp_font); $self->{temp_text}->SetForegroundColour(Wx::wxRED); $temp_sizer->Add($self->{temp_text}, 1, wxALIGN_CENTER_VERTICAL); } { my $text = Wx::StaticText->new($temp_panel, -1, "Bed:", wxDefaultPosition, wxDefaultSize); $text->SetFont($Slic3r::GUI::small_font); $temp_sizer->Add($text, 0, wxALIGN_CENTER_VERTICAL); $self->{bed_temp_text} = Wx::StaticText->new($temp_panel, -1, "", wxDefaultPosition, wxDefaultSize); $self->{bed_temp_text}->SetFont($temp_font); $self->{bed_temp_text}->SetForegroundColour(Wx::wxRED); $temp_sizer->Add($self->{bed_temp_text}, 1, wxALIGN_CENTER_VERTICAL); } $temp_panel->SetSizer($temp_sizer); $temp_panel->Hide; $left_sizer->Add($temp_panel, 0, wxEXPAND | wxTOP | wxBOTTOM, 4); } # print jobs panel $self->{print_jobs_sizer} = my $print_jobs_sizer = Wx::BoxSizer->new(wxVERTICAL); { my $text = Wx::StaticText->new($box, -1, "Queue:", wxDefaultPosition, wxDefaultSize); $text->SetFont($Slic3r::GUI::small_font); $print_jobs_sizer->Add($text, 0, wxEXPAND, 0); $self->{jobs_panel} = Wx::ScrolledWindow->new($box, -1, wxDefaultPosition, wxDefaultSize, wxVSCROLL | wxBORDER_NONE); $self->{jobs_panel}->SetScrollbars(0, 1, 0, 1); $self->{jobs_panel_sizer} = Wx::BoxSizer->new(wxVERTICAL); $self->{jobs_panel}->SetSizer($self->{jobs_panel_sizer}); $print_jobs_sizer->Add($self->{jobs_panel}, 1, wxEXPAND, 0); # TODO: fix this. We're trying to pass the scroll event to the parent but it # doesn't work. EVT_SCROLLWIN($self->{jobs_panel}, sub { my ($panel, $event) = @_; my $controller = $self->GetParent; my $new_event = Wx::ScrollWinEvent->new( $event->GetEventType, $event->GetPosition, $event->GetOrientation, ); $controller->ProcessEvent($new_event); }) if 0; } my $log_sizer = Wx::BoxSizer->new(wxVERTICAL); { my $text = Wx::StaticText->new($box, -1, "Log:", wxDefaultPosition, wxDefaultSize); $text->SetFont($Slic3r::GUI::small_font); $log_sizer->Add($text, 0, wxEXPAND, 0); my $log = $self->{log_textctrl} = Wx::TextCtrl->new($box, -1, "", wxDefaultPosition, wxDefaultSize, wxTE_MULTILINE | wxBORDER_NONE); $log->SetBackgroundColour($box->GetBackgroundColour); $log->SetFont($Slic3r::GUI::small_font); $log->SetEditable(0); $log_sizer->Add($self->{log_textctrl}, 1, wxEXPAND, 0); } $sizer->Add($left_sizer, 0, wxEXPAND | wxALL, 0); $sizer->Add($print_jobs_sizer, 2, wxEXPAND | wxALL, 0); $sizer->Add($log_sizer, 1, wxEXPAND | wxLEFT, 15); $self->SetSizer($sizer); $self->SetMinSize($self->GetSize); $self->_update_connection_controls; return $self; } sub is_connected { my ($self) = @_; return $self->sender && $self->sender->is_connected; } sub _update_connection_controls { my ($self) = @_; $self->{btn_connect}->Show; $self->{btn_disconnect}->Hide; $self->{serial_port_combobox}->Enable; $self->{serial_speed_combobox}->Enable; $self->{btn_rescan_serial}->Enable; $self->{btn_manual_control}->Hide; $self->{btn_manual_control}->Disable; if ($self->is_connected) { $self->{btn_connect}->Hide; $self->{btn_manual_control}->Show; if (!$self->printing || $self->printing->paused) { $self->{btn_disconnect}->Show; $self->{btn_manual_control}->Enable; } $self->{serial_port_combobox}->Disable; $self->{serial_speed_combobox}->Disable; $self->{btn_rescan_serial}->Disable; } $self->Layout; } sub set_status { my ($self, $status) = @_; $self->{status_text}->SetLabel($status); $self->{status_text}->Wrap($self->{status_text}->GetSize->GetWidth); $self->{status_text}->Refresh; $self->Layout; } sub connect { my ($self) = @_; return if $self->is_connected; $self->set_status("Connecting..."); $self->sender(Slic3r::GCode::Sender->new); my $res = $self->sender->connect( $self->{serial_port_combobox}->GetValue, $self->{serial_speed_combobox}->GetValue, ); if (!$res) { $self->set_status("Connection failed. Check serial port and speed."); } else { if ($self->sender->wait_connected) { $self->set_status("Printer is online. You can now start printing from the queue on the right."); $self->status_timer->Start(STATUS_TIMER_INTERVAL, wxTIMER_CONTINUOUS); $self->temp_timer->Start(TEMP_TIMER_INTERVAL, wxTIMER_CONTINUOUS); # request temperature now, without waiting for the timer $self->sender->send("M105", 1); } else { $self->set_status("Connection failed. Check serial port and speed."); } } $self->_update_connection_controls; $self->reload_jobs; } sub disconnect { my ($self) = @_; $self->status_timer->Stop; $self->temp_timer->Stop; return if !$self->is_connected; $self->printing->printing(0) if $self->printing; $self->printing(undef); $self->{gauge}->Hide; $self->{temp_panel}->Hide; $self->sender->disconnect; $self->set_status(""); $self->_update_connection_controls; $self->reload_jobs; } sub update_serial_ports { my ($self) = @_; my $cb = $self->{serial_port_combobox}; my $current = $cb->GetValue; $cb->Clear; $cb->Append($_) for Slic3r::GUI::scan_serial_ports; $cb->SetValue($current); } sub load_print_job { my ($self, $gcode_file, $filament_stats) = @_; push @{$self->jobs}, my $job = Slic3r::GUI::Controller::PrinterPanel::PrintJob->new( id => time() . $gcode_file . rand(1000), gcode_file => $gcode_file, filament_stats => $filament_stats, ); $self->reload_jobs; return $job; } sub delete_job { my ($self, $job) = @_; $self->jobs([ grep $_->id ne $job->id, @{$self->jobs} ]); $self->reload_jobs; } sub print_job { my ($self, $job) = @_; $self->printing($job); $job->printing(1); $self->reload_jobs; open my $fh, '<', $job->gcode_file; my $line_count = 0; while (my $row = <$fh>) { $self->sender->send($row); $line_count++; } close $fh; $self->_update_connection_controls; $self->{gauge}->SetRange($line_count); $self->{gauge}->SetValue(0); $self->{gauge}->Enable; $self->{gauge}->Show; $self->Layout; $self->set_status('Printing...'); $self->{log_textctrl}->AppendText(sprintf "=====\n"); $self->{log_textctrl}->AppendText(sprintf "Printing %s\n", $job->name); $self->{log_textctrl}->AppendText(sprintf "Print started at %s\n", $self->_timestamp); } sub print_completed { my ($self) = @_; my $job = $self->printing; $self->printing(undef); $job->printing(0); $job->printed(1); $self->_update_connection_controls; $self->{gauge}->Hide; $self->Layout; $self->set_status('Print completed.'); $self->{log_textctrl}->AppendText(sprintf "Print completed at %s\n", $self->_timestamp); $self->reload_jobs; } sub reload_jobs { my ($self) = @_; # reorder jobs @{$self->jobs} = sort { ($a->printed <=> $b->printed) || ($a->timestamp <=> $b->timestamp) } @{$self->jobs}; # remove all panels foreach my $child ($self->{jobs_panel_sizer}->GetChildren) { my $window = $child->GetWindow; $self->{jobs_panel_sizer}->Detach($window); # now $child does not exist anymore $window->Destroy; } # re-add all panels foreach my $job (@{$self->jobs}) { my $panel = Slic3r::GUI::Controller::PrinterPanel::PrintJobPanel->new($self->{jobs_panel}, $job); $self->{jobs_panel_sizer}->Add($panel, 0, wxEXPAND | wxBOTTOM, 5); $panel->on_delete_job(sub { my ($job) = @_; $self->delete_job($job); }); $panel->on_print_job(sub { my ($job) = @_; $self->print_job($job); }); $panel->on_pause_print(sub { my ($job) = @_; $self->sender->pause_queue; $job->paused(1); $self->reload_jobs; $self->_update_connection_controls; $self->{gauge}->Disable; $self->set_status('Print is paused. Click on Resume to continue.'); }); $panel->on_abort_print(sub { my ($job) = @_; $self->sender->purge_queue; $self->printing(undef); $job->printing(0); $job->paused(0); $self->reload_jobs; $self->_update_connection_controls; $self->{gauge}->Disable; $self->{gauge}->Hide; $self->set_status('Print was aborted.'); $self->{log_textctrl}->AppendText(sprintf "Print aborted at %s\n", $self->_timestamp); }); $panel->on_resume_print(sub { my ($job) = @_; $self->sender->resume_queue; $job->paused(0); $self->reload_jobs; $self->_update_connection_controls; $self->{gauge}->Enable; $self->set_status('Printing...'); }); $panel->enable_print if $self->is_connected && !$self->printing; EVT_MOUSEWHEEL($panel, sub { my (undef, $event) = @_; Wx::PostEvent($self->{jobs_panel}, $event); $event->Skip; }); } $self->{jobs_panel}->Layout; $self->{print_jobs_sizer}->Layout; } sub _timestamp { my ($self) = @_; my @time = localtime(time); return sprintf '%02d:%02d:%02d', @time[2,1,0]; } package Slic3r::GUI::Controller::PrinterPanel::PrintJob; use Moo; use File::Basename qw(basename); has 'id' => (is => 'ro', required => 1); has 'timestamp' => (is => 'ro', default => sub { time }); has 'gcode_file' => (is => 'ro', required => 1); has 'filament_stats' => (is => 'rw'); has 'printing' => (is => 'rw', default => sub { 0 }); has 'paused' => (is => 'rw', default => sub { 0 }); has 'printed' => (is => 'rw', default => sub { 0 }); sub name { my ($self) = @_; return basename($self->gcode_file); } package Slic3r::GUI::Controller::PrinterPanel::PrintJobPanel; use strict; use warnings; use utf8; use Wx qw(wxTheApp :panel :id :misc :sizer :button :bitmap :font :dialog :icon :timer :colour :brush :pen); use Wx::Event qw(EVT_BUTTON EVT_TIMER EVT_ERASE_BACKGROUND); use base qw(Wx::Panel Class::Accessor); __PACKAGE__->mk_accessors(qw(job on_delete_job on_print_job on_pause_print on_resume_print on_abort_print blink_timer)); sub new { my ($class, $parent, $job) = @_; my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, wxDefaultSize); $self->job($job); $self->SetBackgroundColour(wxWHITE); { my $white_brush = Wx::Brush->new(wxWHITE, wxSOLID); my $pen = Wx::Pen->new(Wx::Colour->new(200,200,200), 1, wxSOLID); EVT_ERASE_BACKGROUND($self, sub { my ($self, $event) = @_; my $dc = $event->GetDC; my $size = $self->GetSize; $dc->SetBrush($white_brush); $dc->SetPen($pen); $dc->DrawRoundedRectangle(0, 0, $size->GetWidth,$size->GetHeight, 6); }); } my $left_sizer = Wx::BoxSizer->new(wxVERTICAL); { $self->{job_name_textctrl} = my $text = Wx::StaticText->new($self, -1, $job->name, wxDefaultPosition, wxDefaultSize); my $font = $text->GetFont; $font->SetWeight(wxFONTWEIGHT_BOLD); $text->SetFont($font); if ($job->printed) { $text->SetForegroundColour($Slic3r::GUI::grey); } $left_sizer->Add($text, 0, wxEXPAND, 0); } { my $filament_stats = join "\n", map "$_ (" . sprintf("%.2f", $job->filament_stats->{$_}/1000) . "m)", sort keys %{$job->filament_stats}; my $text = Wx::StaticText->new($self, -1, $filament_stats, wxDefaultPosition, wxDefaultSize); $text->SetFont($Slic3r::GUI::small_font); if ($job->printed && !$job->printing) { $text->SetForegroundColour($Slic3r::GUI::grey); } $left_sizer->Add($text, 0, wxEXPAND | wxTOP, 6); } my $buttons_sizer = Wx::BoxSizer->new(wxVERTICAL); my $button_style = Wx::wxBORDER_NONE | wxBU_EXACTFIT; { my $btn = $self->{btn_delete} = Wx::Button->new($self, -1, 'Delete', wxDefaultPosition, wxDefaultSize, $button_style); $btn->SetToolTipString("Delete this job from print queue") if $btn->can('SetToolTipString'); $btn->SetFont($Slic3r::GUI::small_font); $btn->SetBitmap(Wx::Bitmap->new(Slic3r::var("delete.png"), wxBITMAP_TYPE_PNG)); if ($job->printing) { $btn->Hide; } $buttons_sizer->Add($btn, 0, wxBOTTOM, 2); EVT_BUTTON($self, $btn, sub { my $res = Wx::MessageDialog->new($self, "Are you sure you want to delete this print job?", 'Delete Job', wxYES_NO | wxYES_DEFAULT | wxICON_QUESTION)->ShowModal; return unless $res == wxID_YES; wxTheApp->CallAfter(sub { $self->on_delete_job->($job); }); }); } { my $label = $job->printed ? 'Print Again' : 'Print This'; my $btn = $self->{btn_print} = Wx::Button->new($self, -1, $label, wxDefaultPosition, wxDefaultSize, $button_style); $btn->SetFont($Slic3r::GUI::small_bold_font); $btn->SetBitmap(Wx::Bitmap->new(Slic3r::var("control_play.png"), wxBITMAP_TYPE_PNG)); $btn->SetBitmapCurrent(Wx::Bitmap->new(Slic3r::var("control_play_blue.png"), wxBITMAP_TYPE_PNG)); #$btn->SetBitmapPosition(wxRIGHT); $btn->Hide; $buttons_sizer->Add($btn, 0, wxBOTTOM, 2); EVT_BUTTON($self, $btn, sub { wxTheApp->CallAfter(sub { $self->on_print_job->($job); }); }); } { my $btn = $self->{btn_pause} = Wx::Button->new($self, -1, "Pause", wxDefaultPosition, wxDefaultSize, $button_style); $btn->SetFont($Slic3r::GUI::small_font); if (!$job->printing || $job->paused) { $btn->Hide; } $btn->SetBitmap(Wx::Bitmap->new(Slic3r::var("control_pause.png"), wxBITMAP_TYPE_PNG)); $btn->SetBitmapCurrent(Wx::Bitmap->new(Slic3r::var("control_pause_blue.png"), wxBITMAP_TYPE_PNG)); $buttons_sizer->Add($btn, 0, wxBOTTOM, 2); EVT_BUTTON($self, $btn, sub { wxTheApp->CallAfter(sub { $self->on_pause_print->($job); }); }); } { my $btn = $self->{btn_resume} = Wx::Button->new($self, -1, "Resume", wxDefaultPosition, wxDefaultSize, $button_style); $btn->SetFont($Slic3r::GUI::small_font); if (!$job->printing || !$job->paused) { $btn->Hide; } $btn->SetBitmap(Wx::Bitmap->new(Slic3r::var("control_play.png"), wxBITMAP_TYPE_PNG)); $btn->SetBitmapCurrent(Wx::Bitmap->new(Slic3r::var("control_play_blue.png"), wxBITMAP_TYPE_PNG)); $buttons_sizer->Add($btn, 0, wxBOTTOM, 2); EVT_BUTTON($self, $btn, sub { wxTheApp->CallAfter(sub { $self->on_resume_print->($job); }); }); } { my $btn = $self->{btn_abort} = Wx::Button->new($self, -1, "Abort", wxDefaultPosition, wxDefaultSize, $button_style); $btn->SetFont($Slic3r::GUI::small_font); if (!$job->printing) { $btn->Hide; } $btn->SetBitmap(Wx::Bitmap->new(Slic3r::var("control_stop.png"), wxBITMAP_TYPE_PNG)); $btn->SetBitmapCurrent(Wx::Bitmap->new(Slic3r::var("control_stop_blue.png"), wxBITMAP_TYPE_PNG)); $buttons_sizer->Add($btn, 0, wxBOTTOM, 2); EVT_BUTTON($self, $btn, sub { wxTheApp->CallAfter(sub { $self->on_abort_print->($job); }); }); } my $sizer = Wx::BoxSizer->new(wxHORIZONTAL); $sizer->Add($left_sizer, 1, wxEXPAND | wxALL, 6); $sizer->Add($buttons_sizer, 0, wxEXPAND | wxALL, 6); $self->SetSizer($sizer); # set-up the timer that changes the job name color while printing if ($self->job->printing && !$self->job->paused) { my $timer_id = &Wx::NewId(); $self->blink_timer(Wx::Timer->new($self, $timer_id)); my $blink = 0; # closure my $colour = Wx::Colour->new(0, 190, 0); EVT_TIMER($self, $timer_id, sub { my ($self, $event) = @_; $self->{job_name_textctrl}->SetForegroundColour($blink ? Wx::wxBLACK : $colour); $blink = !$blink; }); $self->blink_timer->Start(1000, wxTIMER_CONTINUOUS); } return $self; } sub enable_print { my ($self) = @_; if (!$self->job->printing) { $self->{btn_print}->Show; } $self->Layout; } sub Destroy { my ($self) = @_; # There's a gap between the time Perl destroys the wxPanel object and # the blink_timer member, so the wxTimer might still fire an event which # isn't handled properly, causing a crash. So we ensure that blink_timer # is stopped before we destroy the wxPanel. $self->blink_timer->Stop if $self->blink_timer; return $self->SUPER::Destroy; } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/MainFrame.pm 0000664 0000000 0000000 00000074462 13243544447 0021266 0 ustar 00root root 0000000 0000000 # The main frame, the parent of all. package Slic3r::GUI::MainFrame; use strict; use warnings; use utf8; use File::Basename qw(basename dirname); use FindBin; use List::Util qw(min first); use Slic3r::Geometry qw(X Y); use Wx qw(:frame :bitmap :id :misc :notebook :panel :sizer :menu :dialog :filedialog :font :icon wxTheApp); use Wx::Event qw(EVT_CLOSE EVT_MENU EVT_NOTEBOOK_PAGE_CHANGED); use base 'Wx::Frame'; our $qs_last_input_file; our $qs_last_output_file; our $last_config; sub new { my ($class, %params) = @_; my $self = $class->SUPER::new(undef, -1, $Slic3r::FORK_NAME . ' - ' . $Slic3r::VERSION, wxDefaultPosition, wxDefaultSize, wxDEFAULT_FRAME_STYLE); Slic3r::GUI::set_main_frame($self); if ($^O eq 'MSWin32') { # Load the icon either from the exe, or from the ico file. my $iconfile = Slic3r::decode_path($FindBin::Bin) . '\slic3r.exe'; $iconfile = Slic3r::var("Slic3r.ico") unless -f $iconfile; $self->SetIcon(Wx::Icon->new($iconfile, wxBITMAP_TYPE_ICO)); } else { $self->SetIcon(Wx::Icon->new(Slic3r::var("Slic3r_128px.png"), wxBITMAP_TYPE_PNG)); } # store input params # If set, the "Controller" tab for the control of the printer over serial line and the serial port settings are hidden. $self->{no_controller} = $params{no_controller}; $self->{no_plater} = $params{no_plater}; $self->{loaded} = 0; # initialize tabpanel and menubar $self->_init_tabpanel; $self->_init_menubar; # set default tooltip timer in msec # SetAutoPop supposedly accepts long integers but some bug doesn't allow for larger values # (SetAutoPop is not available on GTK.) eval { Wx::ToolTip::SetAutoPop(32767) }; # initialize status bar $self->{statusbar} = Slic3r::GUI::ProgressStatusBar->new($self, -1); $self->{statusbar}->SetStatusText("Version $Slic3r::VERSION - Remember to check for updates at http://github.com/prusa3d/slic3r/releases"); $self->SetStatusBar($self->{statusbar}); $self->{loaded} = 1; # initialize layout { my $sizer = Wx::BoxSizer->new(wxVERTICAL); $sizer->Add($self->{tabpanel}, 1, wxEXPAND); $sizer->SetSizeHints($self); $self->SetSizer($sizer); $self->Fit; $self->SetMinSize([760, 490]); $self->SetSize($self->GetMinSize); wxTheApp->restore_window_pos($self, "main_frame"); $self->Show; $self->Layout; } # declare events EVT_CLOSE($self, sub { my (undef, $event) = @_; if ($event->CanVeto && !$self->check_unsaved_changes) { $event->Veto; return; } # save window size wxTheApp->save_window_pos($self, "main_frame"); # Save the slic3r.ini. Usually the ini file is saved from "on idle" callback, # but in rare cases it may not have been called yet. wxTheApp->{app_config}->save; # propagate event $event->Skip; }); $self->update_ui_from_settings; return $self; } sub _init_tabpanel { my ($self) = @_; $self->{tabpanel} = my $panel = Wx::Notebook->new($self, -1, wxDefaultPosition, wxDefaultSize, wxNB_TOP | wxTAB_TRAVERSAL); Slic3r::GUI::set_tab_panel($panel); EVT_NOTEBOOK_PAGE_CHANGED($self, $self->{tabpanel}, sub { my $panel = $self->{tabpanel}->GetCurrentPage; $panel->OnActivate if $panel->can('OnActivate'); }); if (!$self->{no_plater}) { $panel->AddPage($self->{plater} = Slic3r::GUI::Plater->new($panel), "Plater"); if (!$self->{no_controller}) { $panel->AddPage($self->{controller} = Slic3r::GUI::Controller->new($panel), "Controller"); } } $self->{options_tabs} = {}; for my $tab_name (qw(print filament printer)) { my $tab; $tab = $self->{options_tabs}{$tab_name} = ("Slic3r::GUI::Tab::" . ucfirst $tab_name)->new( $panel, no_controller => $self->{no_controller}); # Callback to be executed after any of the configuration fields (Perl class Slic3r::GUI::OptionsGroup::Field) change their value. $tab->on_value_change(sub { my ($opt_key, $value) = @_; my $config = $tab->{presets}->get_current_preset->config; if ($self->{plater}) { $self->{plater}->on_config_change($config); # propagate config change events to the plater $self->{plater}->on_extruders_change($value) if $opt_key eq 'extruders_count'; } # don't save while loading for the first time $self->config->save($Slic3r::GUI::autosave) if $Slic3r::GUI::autosave && $self->{loaded}; }); # Install a callback for the tab to update the platter and print controller presets, when # a preset changes at Slic3r::GUI::Tab. $tab->on_presets_changed(sub { if ($self->{plater}) { # Update preset combo boxes (Print settings, Filament, Printer) from their respective tabs. $self->{plater}->update_presets($tab_name, @_); if ($tab_name eq 'printer') { # Printer selected at the Printer tab, update "compatible" marks at the print and filament selectors. my ($presets, $reload_dependent_tabs) = @_; for my $tab_name_other (qw(print filament)) { # If the printer tells us that the print or filament preset has been switched or invalidated, # refresh the print or filament tab page. Otherwise just refresh the combo box. my $update_action = ($reload_dependent_tabs && (first { $_ eq $tab_name_other } (@{$reload_dependent_tabs}))) ? 'load_current_preset' : 'update_tab_ui'; $self->{options_tabs}{$tab_name_other}->$update_action; } # Update the controller printers. $self->{controller}->update_presets(@_) if $self->{controller}; } $self->{plater}->on_config_change($tab->{presets}->get_current_preset->config); } }); # Load the currently selected preset into the GUI, update the preset selection box. $tab->load_current_preset; $panel->AddPage($tab, $tab->title); } #TODO this is an example of a Slic3r XS interface call to add a new preset editor page to the main view. # Slic3r::GUI::create_preset_tab("print"); if ($self->{plater}) { $self->{plater}->on_select_preset(sub { my ($group, $name) = @_; $self->{options_tabs}{$group}->select_preset($name); }); # load initial config my $full_config = wxTheApp->{preset_bundle}->full_config; $self->{plater}->on_config_change($full_config); # Show a correct number of filament fields. $self->{plater}->on_extruders_change(int(@{$full_config->nozzle_diameter})); } } sub _init_menubar { my ($self) = @_; # File menu my $fileMenu = Wx::Menu->new; { wxTheApp->append_menu_item($fileMenu, "Open STL/OBJ/AMF…\tCtrl+O", 'Open a model', sub { $self->{plater}->add if $self->{plater}; }, undef, undef); #'brick_add.png'); $self->_append_menu_item($fileMenu, "&Load Config…\tCtrl+L", 'Load exported configuration file', sub { $self->load_config_file; }, undef, 'plugin_add.png'); $self->_append_menu_item($fileMenu, "&Export Config…\tCtrl+E", 'Export current configuration to file', sub { $self->export_config; }, undef, 'plugin_go.png'); $self->_append_menu_item($fileMenu, "&Load Config Bundle…", 'Load presets from a bundle', sub { $self->load_configbundle; }, undef, 'lorry_add.png'); $self->_append_menu_item($fileMenu, "&Export Config Bundle…", 'Export all presets to file', sub { $self->export_configbundle; }, undef, 'lorry_go.png'); $fileMenu->AppendSeparator(); my $repeat; $self->_append_menu_item($fileMenu, "Q&uick Slice…\tCtrl+U", 'Slice a file into a G-code', sub { wxTheApp->CallAfter(sub { $self->quick_slice; $repeat->Enable(defined $Slic3r::GUI::MainFrame::last_input_file); }); }, undef, 'cog_go.png'); $self->_append_menu_item($fileMenu, "Quick Slice and Save &As…\tCtrl+Alt+U", 'Slice a file into a G-code, save as', sub { wxTheApp->CallAfter(sub { $self->quick_slice(save_as => 1); $repeat->Enable(defined $Slic3r::GUI::MainFrame::last_input_file); }); }, undef, 'cog_go.png'); $repeat = $self->_append_menu_item($fileMenu, "&Repeat Last Quick Slice\tCtrl+Shift+U", 'Repeat last quick slice', sub { wxTheApp->CallAfter(sub { $self->quick_slice(reslice => 1); }); }, undef, 'cog_go.png'); $repeat->Enable(0); $fileMenu->AppendSeparator(); $self->_append_menu_item($fileMenu, "Slice to SV&G…\tCtrl+G", 'Slice file to a multi-layer SVG', sub { $self->quick_slice(save_as => 1, export_svg => 1); }, undef, 'shape_handles.png'); $self->{menu_item_reslice_now} = $self->_append_menu_item( $fileMenu, "(&Re)Slice Now\tCtrl+S", 'Start new slicing process', sub { $self->reslice_now; }, undef, 'shape_handles.png'); $fileMenu->AppendSeparator(); $self->_append_menu_item($fileMenu, "Repair STL file…", 'Automatically repair an STL file', sub { $self->repair_stl; }, undef, 'wrench.png'); $fileMenu->AppendSeparator(); # Cmd+, is standard on OS X - what about other operating systems? $self->_append_menu_item($fileMenu, "Preferences…\tCtrl+,", 'Application preferences', sub { Slic3r::GUI::Preferences->new($self)->ShowModal; }, wxID_PREFERENCES); $fileMenu->AppendSeparator(); $self->_append_menu_item($fileMenu, "&Quit", 'Quit Slic3r', sub { $self->Close(0); }, wxID_EXIT); } # Plater menu unless ($self->{no_plater}) { my $plater = $self->{plater}; $self->{plater_menu} = Wx::Menu->new; $self->_append_menu_item($self->{plater_menu}, "Export G-code...", 'Export current plate as G-code', sub { $plater->export_gcode; }, undef, 'cog_go.png'); $self->_append_menu_item($self->{plater_menu}, "Export plate as STL...", 'Export current plate as STL', sub { $plater->export_stl; }, undef, 'brick_go.png'); $self->_append_menu_item($self->{plater_menu}, "Export plate as AMF...", 'Export current plate as AMF', sub { $plater->export_amf; }, undef, 'brick_go.png'); $self->{object_menu} = $self->{plater}->object_menu; $self->on_plater_selection_changed(0); } # Window menu my $windowMenu = Wx::Menu->new; { my $tab_offset = 0; if (!$self->{no_plater}) { $self->_append_menu_item($windowMenu, "Select &Plater Tab\tCtrl+1", 'Show the plater', sub { $self->select_tab(0); }, undef, 'application_view_tile.png'); $tab_offset += 1; } if (!$self->{no_controller}) { $self->_append_menu_item($windowMenu, "Select &Controller Tab\tCtrl+T", 'Show the printer controller', sub { $self->select_tab(1); }, undef, 'printer_empty.png'); $tab_offset += 1; } if ($tab_offset > 0) { $windowMenu->AppendSeparator(); } $self->_append_menu_item($windowMenu, "Select P&rint Settings Tab\tCtrl+2", 'Show the print settings', sub { $self->select_tab($tab_offset+0); }, undef, 'cog.png'); $self->_append_menu_item($windowMenu, "Select &Filament Settings Tab\tCtrl+3", 'Show the filament settings', sub { $self->select_tab($tab_offset+1); }, undef, 'spool.png'); $self->_append_menu_item($windowMenu, "Select Print&er Settings Tab\tCtrl+4", 'Show the printer settings', sub { $self->select_tab($tab_offset+2); }, undef, 'printer_empty.png'); } # View menu if (!$self->{no_plater}) { $self->{viewMenu} = Wx::Menu->new; # \xA0 is a non-breaing space. It is entered here to spoil the automatic accelerators, # as the simple numeric accelerators spoil all numeric data entry. # The camera control accelerators are captured by 3DScene Perl module instead. my $accel = ($^O eq 'MSWin32') ? sub { $_[0] . "\t\xA0" . $_[1] } : sub { $_[0] }; $self->_append_menu_item($self->{viewMenu}, $accel->('Iso', '0'), 'Iso View' , sub { $self->select_view('iso' ); }); $self->_append_menu_item($self->{viewMenu}, $accel->('Top', '1'), 'Top View' , sub { $self->select_view('top' ); }); $self->_append_menu_item($self->{viewMenu}, $accel->('Bottom', '2'), 'Bottom View' , sub { $self->select_view('bottom' ); }); $self->_append_menu_item($self->{viewMenu}, $accel->('Front', '3'), 'Front View' , sub { $self->select_view('front' ); }); $self->_append_menu_item($self->{viewMenu}, $accel->('Rear', '4'), 'Rear View' , sub { $self->select_view('rear' ); }); $self->_append_menu_item($self->{viewMenu}, $accel->('Left', '5'), 'Left View' , sub { $self->select_view('left' ); }); $self->_append_menu_item($self->{viewMenu}, $accel->('Right', '6'), 'Right View' , sub { $self->select_view('right' ); }); } # Help menu my $helpMenu = Wx::Menu->new; { $self->_append_menu_item($helpMenu, "&Configuration $Slic3r::GUI::ConfigWizard::wizard…", "Run Configuration $Slic3r::GUI::ConfigWizard::wizard", sub { # Run the config wizard, offer the "reset user profile" checkbox. $self->config_wizard(0); }); $helpMenu->AppendSeparator(); $self->_append_menu_item($helpMenu, "Prusa 3D Drivers", 'Open the Prusa3D drivers download page in your browser', sub { Wx::LaunchDefaultBrowser('http://www.prusa3d.com/drivers/'); }); $self->_append_menu_item($helpMenu, "Prusa Edition Releases", 'Open the Prusa Edition releases page in your browser', sub { Wx::LaunchDefaultBrowser('http://github.com/prusa3d/slic3r/releases'); }); # my $versioncheck = $self->_append_menu_item($helpMenu, "Check for &Updates...", 'Check for new Slic3r versions', sub { # wxTheApp->check_version(1); # }); # $versioncheck->Enable(wxTheApp->have_version_check); $self->_append_menu_item($helpMenu, "Slic3r &Website", 'Open the Slic3r website in your browser', sub { Wx::LaunchDefaultBrowser('http://slic3r.org/'); }); $self->_append_menu_item($helpMenu, "Slic3r &Manual", 'Open the Slic3r manual in your browser', sub { Wx::LaunchDefaultBrowser('http://manual.slic3r.org/'); }); $helpMenu->AppendSeparator(); $self->_append_menu_item($helpMenu, "System Info", 'Show system information', sub { wxTheApp->system_info; }); $self->_append_menu_item($helpMenu, "Report an Issue", 'Report an issue on the Slic3r Prusa Edition', sub { Wx::LaunchDefaultBrowser('http://github.com/prusa3d/slic3r/issues/new'); }); $self->_append_menu_item($helpMenu, "&About Slic3r", 'Show about dialog', sub { wxTheApp->about; }); } # menubar # assign menubar to frame after appending items, otherwise special items # will not be handled correctly { my $menubar = Wx::MenuBar->new; $menubar->Append($fileMenu, "&File"); $menubar->Append($self->{plater_menu}, "&Plater") if $self->{plater_menu}; $menubar->Append($self->{object_menu}, "&Object") if $self->{object_menu}; $menubar->Append($windowMenu, "&Window"); $menubar->Append($self->{viewMenu}, "&View") if $self->{viewMenu}; $menubar->Append($helpMenu, "&Help"); # Add an optional debug menu. In production code, the add_debug_menu() call should do nothing. Slic3r::GUI::add_debug_menu($menubar); $self->SetMenuBar($menubar); } } sub is_loaded { my ($self) = @_; return $self->{loaded}; } # Selection of a 3D object changed on the platter. sub on_plater_selection_changed { my ($self, $have_selection) = @_; return if !defined $self->{object_menu}; $self->{object_menu}->Enable($_->GetId, $have_selection) for $self->{object_menu}->GetMenuItems; } # To perform the "Quck Slice", "Quick Slice and Save As", "Repeat last Quick Slice" and "Slice to SVG". sub quick_slice { my ($self, %params) = @_; my $progress_dialog; eval { # validate configuration my $config = wxTheApp->{preset_bundle}->full_config(); $config->validate; # select input file my $input_file; if (!$params{reslice}) { my $dialog = Wx::FileDialog->new($self, 'Choose a file to slice (STL/OBJ/AMF/PRUSA):', wxTheApp->{app_config}->get_last_dir, "", &Slic3r::GUI::MODEL_WILDCARD, wxFD_OPEN | wxFD_FILE_MUST_EXIST); if ($dialog->ShowModal != wxID_OK) { $dialog->Destroy; return; } $input_file = $dialog->GetPaths; $dialog->Destroy; $qs_last_input_file = $input_file unless $params{export_svg}; } else { if (!defined $qs_last_input_file) { Wx::MessageDialog->new($self, "No previously sliced file.", 'Error', wxICON_ERROR | wxOK)->ShowModal(); return; } if (! -e $qs_last_input_file) { Wx::MessageDialog->new($self, "Previously sliced file ($qs_last_input_file) not found.", 'File Not Found', wxICON_ERROR | wxOK)->ShowModal(); return; } $input_file = $qs_last_input_file; } my $input_file_basename = basename($input_file); wxTheApp->{app_config}->update_skein_dir(dirname($input_file)); my $print_center; { my $bed_shape = Slic3r::Polygon->new_scale(@{$config->bed_shape}); $print_center = Slic3r::Pointf->new_unscale(@{$bed_shape->bounding_box->center}); } my $sprint = Slic3r::Print::Simple->new( print_center => $print_center, status_cb => sub { my ($percent, $message) = @_; $progress_dialog->Update($percent, "$message…"); }, ); # keep model around my $model = Slic3r::Model->read_from_file($input_file); $sprint->apply_config($config); $sprint->set_model($model); # Copy the names of active presets into the placeholder parser. wxTheApp->{preset_bundle}->export_selections_pp($sprint->placeholder_parser); # select output file my $output_file; if ($params{reslice}) { $output_file = $qs_last_output_file if defined $qs_last_output_file; } elsif ($params{save_as}) { # The following line may die if the output_filename_format template substitution fails. $output_file = $sprint->output_filepath; $output_file =~ s/\.[gG][cC][oO][dD][eE]$/.svg/ if $params{export_svg}; my $dlg = Wx::FileDialog->new($self, 'Save ' . ($params{export_svg} ? 'SVG' : 'G-code') . ' file as:', wxTheApp->{app_config}->get_last_output_dir(dirname($output_file)), basename($output_file), $params{export_svg} ? &Slic3r::GUI::FILE_WILDCARDS->{svg} : &Slic3r::GUI::FILE_WILDCARDS->{gcode}, wxFD_SAVE | wxFD_OVERWRITE_PROMPT); if ($dlg->ShowModal != wxID_OK) { $dlg->Destroy; return; } $output_file = $dlg->GetPath; $qs_last_output_file = $output_file unless $params{export_svg}; wxTheApp->{app_config}->update_last_output_dir(dirname($output_file)); $dlg->Destroy; } # show processbar dialog $progress_dialog = Wx::ProgressDialog->new('Slicing…', "Processing $input_file_basename…", 100, $self, 0); $progress_dialog->Pulse; { my @warnings = (); local $SIG{__WARN__} = sub { push @warnings, $_[0] }; $sprint->output_file($output_file); if ($params{export_svg}) { $sprint->export_svg; } else { $sprint->export_gcode; } $sprint->status_cb(undef); Slic3r::GUI::warning_catcher($self)->($_) for @warnings; } $progress_dialog->Destroy; undef $progress_dialog; my $message = "$input_file_basename was successfully sliced."; wxTheApp->notify($message); Wx::MessageDialog->new($self, $message, 'Slicing Done!', wxOK | wxICON_INFORMATION)->ShowModal; }; Slic3r::GUI::catch_error($self, sub { $progress_dialog->Destroy if $progress_dialog }); } sub reslice_now { my ($self) = @_; $self->{plater}->reslice if $self->{plater}; } sub repair_stl { my $self = shift; my $input_file; { my $dialog = Wx::FileDialog->new($self, 'Select the STL file to repair:', wxTheApp->{app_config}->get_last_dir, "", &Slic3r::GUI::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/\.[sS][tT][lL]$/_fixed.obj/; 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::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($input_file); $tmesh->repair; $tmesh->WriteOBJFile($output_file); Slic3r::GUI::show_info($self, "Your file was repaired.", "Repair"); } sub export_config { my $self = shift; # Generate a cummulative configuration for the selected print, filaments and printer. my $config = wxTheApp->{preset_bundle}->full_config(); # Validate the cummulative configuration. eval { $config->validate; }; Slic3r::GUI::catch_error($self) and return; # Ask user for the file name for the config file. my $dlg = Wx::FileDialog->new($self, 'Save configuration as:', $last_config ? dirname($last_config) : wxTheApp->{app_config}->get_last_dir, $last_config ? basename($last_config) : "config.ini", &Slic3r::GUI::FILE_WILDCARDS->{ini}, wxFD_SAVE | wxFD_OVERWRITE_PROMPT); my $file = ($dlg->ShowModal == wxID_OK) ? $dlg->GetPath : undef; $dlg->Destroy; if (defined $file) { wxTheApp->{app_config}->update_config_dir(dirname($file)); $last_config = $file; $config->save($file); } } # Load a config file containing a Print, Filament & Printer preset. sub load_config_file { my ($self, $file) = @_; if (!$file) { return unless $self->check_unsaved_changes; my $dlg = Wx::FileDialog->new($self, 'Select configuration to load:', $last_config ? dirname($last_config) : wxTheApp->{app_config}->get_last_dir, "config.ini", 'INI files (*.ini, *.gcode)|*.ini;*.INI;*.gcode;*.g', wxFD_OPEN | wxFD_FILE_MUST_EXIST); return unless $dlg->ShowModal == wxID_OK; $file = $dlg->GetPaths; $dlg->Destroy; } eval { wxTheApp->{preset_bundle}->load_config_file($file); }; # Dont proceed further if the config file cannot be loaded. return if Slic3r::GUI::catch_error($self); $_->load_current_preset for (values %{$self->{options_tabs}}); wxTheApp->{app_config}->update_config_dir(dirname($file)); $last_config = $file; } sub export_configbundle { my ($self) = @_; return unless $self->check_unsaved_changes; # validate current configuration in case it's dirty eval { wxTheApp->{preset_bundle}->full_config->validate; }; Slic3r::GUI::catch_error($self) and return; # Ask user for a file name. my $dlg = Wx::FileDialog->new($self, 'Save presets bundle as:', $last_config ? dirname($last_config) : wxTheApp->{app_config}->get_last_dir, "Slic3r_config_bundle.ini", &Slic3r::GUI::FILE_WILDCARDS->{ini}, wxFD_SAVE | wxFD_OVERWRITE_PROMPT); my $file = ($dlg->ShowModal == wxID_OK) ? $dlg->GetPath : undef; $dlg->Destroy; if (defined $file) { # Export the config bundle. wxTheApp->{app_config}->update_config_dir(dirname($file)); eval { wxTheApp->{preset_bundle}->export_configbundle($file); }; Slic3r::GUI::catch_error($self) and return; } } # Loading a config bundle with an external file name used to be used # to auto-install a config bundle on a fresh user account, # but that behavior was not documented and likely buggy. sub load_configbundle { my ($self, $file, $reset_user_profile) = @_; return unless $self->check_unsaved_changes; if (!$file) { my $dlg = Wx::FileDialog->new($self, 'Select configuration to load:', $last_config ? dirname($last_config) : wxTheApp->{app_config}->get_last_dir, "config.ini", &Slic3r::GUI::FILE_WILDCARDS->{ini}, wxFD_OPEN | wxFD_FILE_MUST_EXIST); return unless $dlg->ShowModal == wxID_OK; $file = $dlg->GetPaths; $dlg->Destroy; } wxTheApp->{app_config}->update_config_dir(dirname($file)); my $presets_imported = 0; eval { $presets_imported = wxTheApp->{preset_bundle}->load_configbundle($file); }; Slic3r::GUI::catch_error($self) and return; # Load the currently selected preset into the GUI, update the preset selection box. foreach my $tab (values %{$self->{options_tabs}}) { $tab->load_current_preset; } my $message = sprintf "%d presets successfully imported.", $presets_imported; Slic3r::GUI::show_info($self, $message); } # Load a provied DynamicConfig into the Print / Filament / Printer tabs, thus modifying the active preset. # Also update the platter with the new presets. sub load_config { my ($self, $config) = @_; $_->load_config($config) foreach values %{$self->{options_tabs}}; $self->{plater}->on_config_change($config) if $self->{plater}; } sub config_wizard { my ($self, $fresh_start) = @_; # Exit wizard if there are unsaved changes and the user cancels the action. return unless $self->check_unsaved_changes; # Enumerate the profiles bundled with the Slic3r installation under resources/profiles. my $directory = Slic3r::resources_dir() . "/profiles"; my @profiles = (); if (opendir(DIR, Slic3r::encode_path($directory))) { while (my $file = readdir(DIR)) { if ($file =~ /\.ini$/) { $file =~ s/\.ini$//; push @profiles, Slic3r::decode_path($file); } } closedir(DIR); } # Open the wizard. if (my $result = Slic3r::GUI::ConfigWizard->new($self, \@profiles, $fresh_start)->run) { eval { if ($result->{reset_user_profile}) { wxTheApp->{preset_bundle}->reset(1); } if (defined $result->{config}) { # Load and save the settings into print, filament and printer presets. wxTheApp->{preset_bundle}->load_config('My Settings', $result->{config}); } else { # Wizard returned a name of a preset bundle bundled with the installation. Unpack it. wxTheApp->{preset_bundle}->load_configbundle($directory . '/' . $result->{preset_name} . '.ini'); } }; Slic3r::GUI::catch_error($self) and return; # Load the currently selected preset into the GUI, update the preset selection box. foreach my $tab (values %{$self->{options_tabs}}) { $tab->load_current_preset; } } } # This is called when closing the application, when loading a config file or when starting the config wizard # to notify the user whether he is aware that some preset changes will be lost. sub check_unsaved_changes { my $self = shift; my @dirty = (); foreach my $tab (values %{$self->{options_tabs}}) { push @dirty, $tab->title if $tab->{presets}->current_is_dirty; } 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}->SetSelection($tab); } # Set a camera direction, zoom to all objects. sub select_view { my ($self, $direction) = @_; if (! $self->{no_plater}) { $self->{plater}->select_view($direction); } } sub _append_menu_item { my ($self, $menu, $string, $description, $cb, $id, $icon) = @_; $id //= &Wx::NewId(); my $item = $menu->Append($id, $string, $description); $self->_set_menu_item_icon($item, $icon); EVT_MENU($self, $id, $cb); return $item; } sub _set_menu_item_icon { my ($self, $menuItem, $icon) = @_; # SetBitmap was not available on OS X before Wx 0.9927 if ($icon && $menuItem->can('SetBitmap')) { $menuItem->SetBitmap(Wx::Bitmap->new(Slic3r::var($icon), wxBITMAP_TYPE_PNG)); } } # Called after the Preferences dialog is closed and the program settings are saved. # Update the UI based on the current preferences. sub update_ui_from_settings { my ($self) = @_; $self->{menu_item_reslice_now}->Enable(! wxTheApp->{app_config}->get("background_processing")); $self->{plater}->update_ui_from_settings if ($self->{plater}); for my $tab_name (qw(print filament printer)) { $self->{options_tabs}{$tab_name}->update_ui_from_settings; } } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Notifier.pm 0000664 0000000 0000000 00000002662 13243544447 0021177 0 ustar 00root root 0000000 0000000 # Notify about the end of slicing. # The notifications are sent out using the Growl protocol if installed, and using DBus XWindow protocol. package Slic3r::GUI::Notifier; use Moo; has 'growler' => (is => 'rw'); my $icon = Slic3r::var("Slic3r.png"); sub BUILD { my ($self) = @_; if (eval 'use Growl::GNTP; 1') { # register with growl eval { $self->growler(Growl::GNTP->new(AppName => 'Slic3r', AppIcon => $icon)); $self->growler->register([{Name => 'SKEIN_DONE', DisplayName => 'Slicing Done'}]); }; # if register() fails (for example because of a timeout), disable growler at all $self->growler(undef) if $@; } } sub notify { my ($self, $message) = @_; my $title = 'Slicing Done!'; eval { $self->growler->notify(Event => 'SKEIN_DONE', Title => $title, Message => $message) if $self->growler; }; # Net::DBus is broken in multithreaded environment if (0 && eval 'use Net::DBus; 1') { eval { my $session = Net::DBus->session; my $serv = $session->get_service('org.freedesktop.Notifications'); my $notifier = $serv->get_object('/org/freedesktop/Notifications', 'org.freedesktop.Notifications'); $notifier->Notify('Slic3r', 0, $icon, $title, $message, [], {}, -1); undef $Net::DBus::bus_session; }; } } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/OptionsGroup.pm 0000664 0000000 0000000 00000040774 13243544447 0022076 0 ustar 00root root 0000000 0000000 # A dialog group object. Used by the Tab, Preferences dialog, ManualControlDialog etc. package Slic3r::GUI::OptionsGroup; use Moo; use List::Util qw(first); use Wx qw(:combobox :font :misc :sizer :systemsettings :textctrl wxTheApp); use Wx::Event qw(EVT_CHECKBOX EVT_COMBOBOX EVT_SPINCTRL EVT_TEXT EVT_KILL_FOCUS EVT_SLIDER); has 'parent' => (is => 'ro', required => 1); has 'title' => (is => 'ro', required => 1); has 'on_change' => (is => 'rw', default => sub { sub {} }); has 'staticbox' => (is => 'ro', default => sub { 1 }); has 'label_width' => (is => 'rw', default => sub { 180 }); has 'extra_column' => (is => 'rw', default => sub { undef }); has 'label_font' => (is => 'rw'); has 'sidetext_font' => (is => 'rw', default => sub { Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT) }); has 'sizer' => (is => 'rw'); has '_disabled' => (is => 'rw', default => sub { 0 }); has '_grid_sizer' => (is => 'rw'); has '_options' => (is => 'ro', default => sub { {} }); has '_fields' => (is => 'ro', default => sub { {} }); sub BUILD { my $self = shift; if ($self->staticbox) { my $box = Wx::StaticBox->new($self->parent, -1, $self->title); $self->sizer(Wx::StaticBoxSizer->new($box, wxVERTICAL)); } else { $self->sizer(Wx::BoxSizer->new(wxVERTICAL)); } my $num_columns = 1; ++$num_columns if $self->label_width != 0; ++$num_columns if $self->extra_column; $self->_grid_sizer(Wx::FlexGridSizer->new(0, $num_columns, 0, 0)); $self->_grid_sizer->SetFlexibleDirection(wxHORIZONTAL); $self->_grid_sizer->AddGrowableCol($self->label_width != 0); # TODO: border size may be related to wxWidgets 2.8.x vs. 2.9.x instead of wxMAC specific $self->sizer->Add($self->_grid_sizer, 0, wxEXPAND | wxALL, &Wx::wxMAC ? 0 : 5); } # this method accepts a Slic3r::GUI::OptionsGroup::Line object sub append_line { my ($self, $line) = @_; if ($line->sizer || ($line->widget && $line->full_width)) { # full-width widgets are appended *after* the grid sizer, so after all the non-full-width lines my $sizer = $line->sizer // $line->widget->($self->parent); $self->sizer->Add($sizer, 0, wxEXPAND | wxALL, &Wx::wxMAC ? 0 : 15); return; } my $grid_sizer = $self->_grid_sizer; # if we have an extra column, build it if ($self->extra_column) { if (defined (my $item = $self->extra_column->($line))) { $grid_sizer->Add($item, 0, wxALIGN_CENTER_VERTICAL, 0); } else { # if the callback provides no sizer for the extra cell, put a spacer $grid_sizer->AddSpacer(1); } } # build label if we have it my $label; if ($self->label_width != 0) { $label = Wx::StaticText->new($self->parent, -1, $line->label ? $line->label . ":" : "", wxDefaultPosition, [$self->label_width, -1]); $label->SetFont($self->label_font) if $self->label_font; $label->Wrap($self->label_width) ; # needed to avoid Linux/GTK bug $grid_sizer->Add($label, 0, wxALIGN_CENTER_VERTICAL, 0); $label->SetToolTipString($line->label_tooltip) if $line->label_tooltip; } # if we have a widget, add it to the sizer if ($line->widget) { my $widget_sizer = $line->widget->($self->parent); $grid_sizer->Add($widget_sizer, 0, wxEXPAND | wxALL, &Wx::wxMAC ? 0 : 15); return; } # if we have a single option with no sidetext just add it directly to the grid sizer my @options = @{$line->get_options}; $self->_options->{$_->opt_id} = $_ for @options; if (@options == 1 && !$options[0]->sidetext && !$options[0]->side_widget && !@{$line->get_extra_widgets}) { my $option = $options[0]; my $field = $self->_build_field($option); $grid_sizer->Add($field, 0, ($option->full_width ? wxEXPAND : 0) | wxALIGN_CENTER_VERTICAL, 0); return; } # if we're here, we have more than one option or a single option with sidetext # so we need a horizontal sizer to arrange these things my $sizer = Wx::BoxSizer->new(wxHORIZONTAL); $grid_sizer->Add($sizer, 0, 0, 0); foreach my $i (0..$#options) { my $option = $options[$i]; # add label if any if ($option->label) { my $field_label = Wx::StaticText->new($self->parent, -1, $option->label . ":", wxDefaultPosition, wxDefaultSize); $field_label->SetFont($self->sidetext_font); $sizer->Add($field_label, 0, wxALIGN_CENTER_VERTICAL, 0); } # add field my $field = $self->_build_field($option); $sizer->Add($field, 0, wxALIGN_CENTER_VERTICAL, 0); # add sidetext if any if ($option->sidetext) { my $sidetext = Wx::StaticText->new($self->parent, -1, $option->sidetext, wxDefaultPosition, wxDefaultSize); $sidetext->SetFont($self->sidetext_font); $sizer->Add($sidetext, 0, wxLEFT | wxALIGN_CENTER_VERTICAL, 4); } # add side widget if any if ($option->side_widget) { $sizer->Add($option->side_widget->($self->parent), 0, wxLEFT | wxALIGN_CENTER_VERTICAL, 1); } if ($option != $#options) { $sizer->AddSpacer(4); } } # add extra sizers if any foreach my $extra_widget (@{$line->get_extra_widgets}) { $sizer->Add($extra_widget->($self->parent), 0, wxLEFT | wxALIGN_CENTER_VERTICAL , 4); } } sub create_single_option_line { my ($self, $option) = @_; my $line = Slic3r::GUI::OptionsGroup::Line->new( label => $option->label, label_tooltip => $option->tooltip, ); $option->label(""); $line->append_option($option); return $line; } sub append_single_option_line { my ($self, $option) = @_; return $self->append_line($self->create_single_option_line($option)); } sub _build_field { my $self = shift; my ($opt) = @_; my $opt_id = $opt->opt_id; my $on_change = sub { my ($opt_id, $value) = @_; $self->_on_change($opt_id, $value) unless $self->_disabled; }; my $on_kill_focus = sub { my ($opt_id) = @_; $self->_on_kill_focus($opt_id); }; my $type = $opt->{gui_type} || $opt->{type}; my $field; if ($type eq 'bool') { $field = Slic3r::GUI::OptionsGroup::Field::Checkbox->new( parent => $self->parent, option => $opt, ); } elsif ($type eq 'i') { $field = Slic3r::GUI::OptionsGroup::Field::SpinCtrl->new( parent => $self->parent, option => $opt, ); } elsif ($type eq 'color') { $field = Slic3r::GUI::OptionsGroup::Field::ColourPicker->new( parent => $self->parent, option => $opt, ); } elsif ($type =~ /^(f|s|s@|percent)$/) { $field = Slic3r::GUI::OptionsGroup::Field::TextCtrl->new( parent => $self->parent, option => $opt, ); } elsif ($type eq 'select' || $type eq 'select_open') { $field = Slic3r::GUI::OptionsGroup::Field::Choice->new( parent => $self->parent, option => $opt, ); } elsif ($type eq 'f_enum_open' || $type eq 'i_enum_open' || $type eq 'i_enum_closed') { $field = Slic3r::GUI::OptionsGroup::Field::NumericChoice->new( parent => $self->parent, option => $opt, ); } elsif ($type eq 'point') { $field = Slic3r::GUI::OptionsGroup::Field::Point->new( parent => $self->parent, option => $opt, ); } elsif ($type eq 'slider') { $field = Slic3r::GUI::OptionsGroup::Field::Slider->new( parent => $self->parent, option => $opt, ); } return undef if !$field; $field->on_change($on_change); $field->on_kill_focus($on_kill_focus); $self->_fields->{$opt_id} = $field; return $field->isa('Slic3r::GUI::OptionsGroup::Field::wxWindow') ? $field->wxWindow : $field->wxSizer; } sub get_option { my ($self, $opt_id) = @_; return undef if !exists $self->_options->{$opt_id}; return $self->_options->{$opt_id}; } sub get_field { my ($self, $opt_id) = @_; return undef if !exists $self->_fields->{$opt_id}; return $self->_fields->{$opt_id}; } sub get_value { my ($self, $opt_id) = @_; return if !exists $self->_fields->{$opt_id}; return $self->_fields->{$opt_id}->get_value; } sub set_value { my ($self, $opt_id, $value) = @_; return if !exists $self->_fields->{$opt_id}; $self->_fields->{$opt_id}->set_value($value); } sub _on_change { my ($self, $opt_id, $value) = @_; $self->on_change->($opt_id, $value); } sub enable { my ($self) = @_; $_->enable for values %{$self->_fields}; } sub disable { my ($self) = @_; $_->disable for values %{$self->_fields}; } sub _on_kill_focus { my ($self, $opt_id) = @_; # nothing } package Slic3r::GUI::OptionsGroup::Line; use Moo; has 'label' => (is => 'rw', default => sub { "" }); has 'full_width' => (is => 'rw', default => sub { 0 }); has 'label_tooltip' => (is => 'rw', default => sub { "" }); has 'sizer' => (is => 'rw'); has 'widget' => (is => 'rw'); has '_options' => (is => 'ro', default => sub { [] }); # Extra UI components after the label and the edit widget of the option. has '_extra_widgets' => (is => 'ro', default => sub { [] }); # this method accepts a Slic3r::GUI::OptionsGroup::Option object sub append_option { my ($self, $option) = @_; push @{$self->_options}, $option; } sub append_widget { my ($self, $widget) = @_; push @{$self->_extra_widgets}, $widget; } sub get_options { my ($self) = @_; return [ @{$self->_options} ]; } sub get_extra_widgets { my ($self) = @_; return [ @{$self->_extra_widgets} ]; } # Configuration of an option. # This very much reflects the content of the C++ ConfigOptionDef class. package Slic3r::GUI::OptionsGroup::Option; use Moo; has 'opt_id' => (is => 'rw', required => 1); has 'type' => (is => 'rw', required => 1); has 'default' => (is => 'rw', required => 1); has 'gui_type' => (is => 'rw', default => sub { undef }); has 'gui_flags' => (is => 'rw', default => sub { "" }); has 'label' => (is => 'rw', default => sub { "" }); has 'sidetext' => (is => 'rw', default => sub { "" }); has 'tooltip' => (is => 'rw', default => sub { "" }); has 'multiline' => (is => 'rw', default => sub { 0 }); has 'full_width' => (is => 'rw', default => sub { 0 }); has 'width' => (is => 'rw', default => sub { undef }); has 'height' => (is => 'rw', default => sub { undef }); has 'min' => (is => 'rw', default => sub { undef }); has 'max' => (is => 'rw', default => sub { undef }); has 'labels' => (is => 'rw', default => sub { [] }); has 'values' => (is => 'rw', default => sub { [] }); has 'readonly' => (is => 'rw', default => sub { 0 }); has 'side_widget' => (is => 'rw', default => sub { undef }); package Slic3r::GUI::ConfigOptionsGroup; use Moo; use List::Util qw(first); extends 'Slic3r::GUI::OptionsGroup'; has 'config' => (is => 'ro', required => 1); has 'full_labels' => (is => 'ro', default => sub { 0 }); has '_opt_map' => (is => 'ro', default => sub { {} }); sub get_option { my ($self, $opt_key, $opt_index) = @_; $opt_index //= -1; if (!$self->config->has($opt_key)) { die "No $opt_key in ConfigOptionsGroup config"; } my $opt_id = ($opt_index == -1 ? $opt_key : "${opt_key}#${opt_index}"); $self->_opt_map->{$opt_id} = [ $opt_key, $opt_index ]; # Slic3r::Config::Options is a C++ Slic3r::PrintConfigDef exported as a Perl hash of hashes. # The C++ counterpart is a constant singleton. my $optdef = $Slic3r::Config::Options->{$opt_key}; # we should access this from $self->config my $default_value = $self->_get_config_value($opt_key, $opt_index, $optdef->{gui_flags} =~ /\bserialized\b/); return Slic3r::GUI::OptionsGroup::Option->new( opt_id => $opt_id, type => $optdef->{type}, default => $default_value, gui_type => $optdef->{gui_type}, gui_flags => $optdef->{gui_flags}, label => ($self->full_labels && defined $optdef->{full_label}) ? $optdef->{full_label} : $optdef->{label}, sidetext => $optdef->{sidetext}, # calling serialize() ensures we get a stringified value tooltip => $optdef->{tooltip} . " (default: " . $self->config->serialize($opt_key) . ")", multiline => $optdef->{multiline}, width => $optdef->{width}, min => $optdef->{min}, max => $optdef->{max}, labels => $optdef->{labels}, values => $optdef->{values}, readonly => $optdef->{readonly}, ); } sub create_single_option_line { my ($self, $opt_key, $opt_index) = @_; my $option; if (ref($opt_key)) { $option = $opt_key; } else { $option = $self->get_option($opt_key, $opt_index); } return $self->SUPER::create_single_option_line($option); } sub append_single_option_line { my ($self, $option, $opt_index) = @_; return $self->append_line($self->create_single_option_line($option, $opt_index)); } # Initialize UI components with the config values. sub reload_config { my ($self) = @_; foreach my $opt_id (keys %{ $self->_opt_map }) { my ($opt_key, $opt_index) = @{ $self->_opt_map->{$opt_id} }; my $option = $self->_options->{$opt_id}; $self->set_value($opt_id, $self->_get_config_value($opt_key, $opt_index, $option->gui_flags =~ /\bserialized\b/)); } } sub get_fieldc { my ($self, $opt_key, $opt_index) = @_; $opt_index //= -1; my $opt_id = first { $self->_opt_map->{$_}[0] eq $opt_key && $self->_opt_map->{$_}[1] == $opt_index } keys %{$self->_opt_map}; return defined($opt_id) ? $self->get_field($opt_id) : undef; } sub _get_config_value { my ($self, $opt_key, $opt_index, $deserialize) = @_; if ($deserialize) { # Want to edit a vector value (currently only multi-strings) in a single edit box. # Aggregate the strings the old way. # Currently used for the post_process config value only. die "Can't deserialize option indexed value" if $opt_index != -1; return join(';', @{$self->config->get($opt_key)}); } else { return $opt_index == -1 ? $self->config->get($opt_key) : $self->config->get_at($opt_key, $opt_index); } } sub _on_change { my ($self, $opt_id, $value) = @_; if (exists $self->_opt_map->{$opt_id}) { my ($opt_key, $opt_index) = @{ $self->_opt_map->{$opt_id} }; my $option = $self->_options->{$opt_id}; # get value my $field_value = $self->get_value($opt_id); if ($option->gui_flags =~ /\bserialized\b/) { die "Can't set serialized option indexed value" if $opt_index != -1; # Split a string to multiple strings by a semi-colon. This is the old way of storing multi-string values. # Currently used for the post_process config value only. my @values = split /;/, $field_value; $self->config->set($opt_key, \@values); } else { if ($opt_index == -1) { $self->config->set($opt_key, $field_value); } else { my $value = $self->config->get($opt_key); $value->[$opt_index] = $field_value; $self->config->set($opt_key, $value); } } } $self->SUPER::_on_change($opt_id, $value); } sub _on_kill_focus { my ($self, $opt_id) = @_; # when a field loses focus, reapply the config value to it # (thus discarding any invalid input and reverting to the last # accepted value) $self->reload_config; } # Static text shown among the options. # Currently used for the filament cooling legend only. package Slic3r::GUI::OptionsGroup::StaticText; use Wx qw(:misc :systemsettings); use base 'Wx::StaticText'; sub new { my ($class, $parent) = @_; my $self = $class->SUPER::new($parent, -1, "", wxDefaultPosition, wxDefaultSize); my $font = Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT); $self->SetFont($font); return $self; } sub SetText { my ($self, $value) = @_; $self->SetLabel($value); $self->Wrap(400); $self->GetParent->Layout; } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/OptionsGroup/ 0000775 0000000 0000000 00000000000 13243544447 0021524 5 ustar 00root root 0000000 0000000 Slic3r-version_1.39.1/lib/Slic3r/GUI/OptionsGroup/Field.pm 0000664 0000000 0000000 00000040357 13243544447 0023116 0 ustar 00root root 0000000 0000000 # An input field class prototype. package Slic3r::GUI::OptionsGroup::Field; use Moo; # This is a base class for option fields. has 'parent' => (is => 'ro', required => 1); # Slic3r::GUI::OptionsGroup::Option has 'option' => (is => 'ro', required => 1); # On change callback has 'on_change' => (is => 'rw', default => sub { sub {} }); has 'on_kill_focus' => (is => 'rw', default => sub { sub {} }); # If set, the callback $self->on_change is not called. # This is used to avoid recursive invocation of the field change/update by wxWidgets. has 'disable_change_event' => (is => 'rw', default => sub { 0 }); # This method should not fire the on_change event sub set_value { my ($self, $value) = @_; die "Method not implemented"; } sub get_value { my ($self) = @_; die "Method not implemented"; } sub set_tooltip { my ($self, $tooltip) = @_; $self->SetToolTipString($tooltip) if $tooltip && $self->can('SetToolTipString'); } sub toggle { my ($self, $enable) = @_; $enable ? $self->enable : $self->disable; } sub _on_change { my ($self, $opt_id) = @_; $self->on_change->($opt_id, $self->get_value) unless $self->disable_change_event; } sub _on_kill_focus { my ($self, $opt_id, $s, $event) = @_; # Without this, there will be nasty focus bugs on Windows. # Also, docs for wxEvent::Skip() say "In general, it is recommended to skip all # non-command events to allow the default handling to take place." $event->Skip(1); $self->on_kill_focus->($opt_id); } package Slic3r::GUI::OptionsGroup::Field::wxWindow; use Moo; extends 'Slic3r::GUI::OptionsGroup::Field'; has 'wxWindow' => (is => 'rw', trigger => 1); # wxWindow object sub _default_size { my ($self) = @_; # default width on Windows is too large return Wx::Size->new($self->option->width || 60, $self->option->height || -1); } sub _trigger_wxWindow { my ($self) = @_; $self->wxWindow->SetToolTipString($self->option->tooltip) if $self->option->tooltip && $self->wxWindow->can('SetToolTipString'); } sub set_value { my ($self, $value) = @_; $self->disable_change_event(1); $self->wxWindow->SetValue($value); $self->disable_change_event(0); } sub get_value { my ($self) = @_; return $self->wxWindow->GetValue; } sub enable { my ($self) = @_; $self->wxWindow->Enable; $self->wxWindow->Refresh; } sub disable { my ($self) = @_; $self->wxWindow->Disable; $self->wxWindow->Refresh; } package Slic3r::GUI::OptionsGroup::Field::Checkbox; use Moo; extends 'Slic3r::GUI::OptionsGroup::Field::wxWindow'; use Wx qw(:misc); use Wx::Event qw(EVT_CHECKBOX); sub BUILD { my ($self) = @_; my $field = Wx::CheckBox->new($self->parent, -1, ""); $self->wxWindow($field); $field->SetValue($self->option->default); $field->Disable if $self->option->readonly; EVT_CHECKBOX($self->parent, $field, sub { $self->_on_change($self->option->opt_id); }); } sub get_value { my ($self) = @_; return $self->wxWindow->GetValue ? 1 : 0; } package Slic3r::GUI::OptionsGroup::Field::SpinCtrl; use Moo; extends 'Slic3r::GUI::OptionsGroup::Field::wxWindow'; use Wx qw(:misc); use Wx::Event qw(EVT_SPINCTRL EVT_TEXT EVT_KILL_FOCUS); has 'tmp_value' => (is => 'rw'); sub BUILD { my ($self) = @_; my $field = Wx::SpinCtrl->new($self->parent, -1, $self->option->default, wxDefaultPosition, $self->_default_size, 0, $self->option->min || 0, $self->option->max || 2147483647, $self->option->default); $self->wxWindow($field); EVT_SPINCTRL($self->parent, $field, sub { $self->tmp_value(undef); $self->_on_change($self->option->opt_id); }); EVT_TEXT($self->parent, $field, sub { my ($s, $event) = @_; # On OSX/Cocoa, wxSpinCtrl::GetValue() doesn't return the new value # when it was changed from the text control, so the on_change callback # gets the old one, and on_kill_focus resets the control to the old value. # As a workaround, we get the new value from $event->GetString and store # here temporarily so that we can return it from $self->get_value $self->tmp_value($event->GetString) if $event->GetString =~ /^\d+$/; $self->_on_change($self->option->opt_id); # We don't reset tmp_value here because _on_change might put callbacks # in the CallAfter queue, and we want the tmp value to be available from # them as well. }); EVT_KILL_FOCUS($field, sub { $self->tmp_value(undef); $self->_on_kill_focus($self->option->opt_id, @_); }); } sub get_value { my ($self) = @_; return $self->tmp_value // $self->wxWindow->GetValue; } package Slic3r::GUI::OptionsGroup::Field::TextCtrl; use Moo; extends 'Slic3r::GUI::OptionsGroup::Field::wxWindow'; use Wx qw(:misc :textctrl); use Wx::Event qw(EVT_TEXT EVT_KILL_FOCUS); sub BUILD { my ($self) = @_; my $style = 0; $style = wxTE_MULTILINE if $self->option->multiline; my $field = Wx::TextCtrl->new($self->parent, -1, $self->option->default, wxDefaultPosition, $self->_default_size, $style); $self->wxWindow($field); # TODO: test loading a config that has empty string for multi-value options like 'wipe' EVT_TEXT($self->parent, $field, sub { $self->_on_change($self->option->opt_id); }); EVT_KILL_FOCUS($field, sub { $self->_on_kill_focus($self->option->opt_id, @_); }); } sub enable { my ($self) = @_; $self->wxWindow->Enable; $self->wxWindow->SetEditable(1); } sub disable { my ($self) = @_; $self->wxWindow->Disable; $self->wxWindow->SetEditable(0); } package Slic3r::GUI::OptionsGroup::Field::Choice; use Moo; extends 'Slic3r::GUI::OptionsGroup::Field::wxWindow'; use List::Util qw(first); use Wx qw(:misc :combobox); use Wx::Event qw(EVT_COMBOBOX EVT_TEXT); sub BUILD { my ($self) = @_; my $style = 0; $style |= wxCB_READONLY if defined $self->option->gui_type && $self->option->gui_type ne 'select_open'; my $field = Wx::ComboBox->new($self->parent, -1, "", wxDefaultPosition, $self->_default_size, $self->option->labels || $self->option->values || [], $style); $self->wxWindow($field); $self->set_value($self->option->default); EVT_COMBOBOX($self->parent, $field, sub { $self->_on_change($self->option->opt_id); }); EVT_TEXT($self->parent, $field, sub { $self->_on_change($self->option->opt_id); }); } sub set_value { my ($self, $value) = @_; $self->disable_change_event(1); my $idx; if ($self->option->values) { $idx = first { $self->option->values->[$_] eq $value } 0..$#{$self->option->values}; # if value is not among indexes values we use SetValue() } if (defined $idx) { $self->wxWindow->SetSelection($idx); } else { $self->wxWindow->SetValue($value); } $self->disable_change_event(0); } sub set_values { my ($self, $values) = @_; $self->disable_change_event(1); # it looks that Clear() also clears the text field in recent wxWidgets versions, # but we want to preserve it my $ww = $self->wxWindow; my $value = $ww->GetValue; $ww->Clear; $ww->Append($_) for @$values; $ww->SetValue($value); $self->disable_change_event(0); } sub get_value { my ($self) = @_; if ($self->option->values) { my $idx = $self->wxWindow->GetSelection; if ($idx != &Wx::wxNOT_FOUND) { return $self->option->values->[$idx]; } } return $self->wxWindow->GetValue; } package Slic3r::GUI::OptionsGroup::Field::NumericChoice; use Moo; extends 'Slic3r::GUI::OptionsGroup::Field::wxWindow'; use List::Util qw(first); use Wx qw(wxTheApp :misc :combobox); use Wx::Event qw(EVT_COMBOBOX EVT_TEXT); # if option has no 'values', indices are values # if option has no 'labels', values are labels sub BUILD { my ($self) = @_; my $field = Wx::ComboBox->new($self->parent, -1, $self->option->default, wxDefaultPosition, $self->_default_size, $self->option->labels || $self->option->values); $self->wxWindow($field); $self->set_value($self->option->default); EVT_COMBOBOX($self->parent, $field, sub { my $disable_change_event = $self->disable_change_event; $self->disable_change_event(1); my $idx = $field->GetSelection; # get index of selected value my $label; if ($self->option->labels && $idx <= $#{$self->option->labels}) { $label = $self->option->labels->[$idx]; } elsif ($self->option->values && $idx <= $#{$self->option->values}) { $label = $self->option->values->[$idx]; } else { $label = $idx; } # The MSW implementation of wxComboBox will leave the field blank if we call # SetValue() in the EVT_COMBOBOX event handler, so we postpone the call. wxTheApp->CallAfter(sub { my $dce = $self->disable_change_event; $self->disable_change_event(1); # ChangeValue() is not exported in wxPerl $field->SetValue($label); $self->disable_change_event($dce); }); $self->disable_change_event($disable_change_event); $self->_on_change($self->option->opt_id); }); EVT_TEXT($self->parent, $field, sub { $self->_on_change($self->option->opt_id); }); } sub set_value { my ($self, $value) = @_; $self->disable_change_event(1); my $field = $self->wxWindow; if ($self->option->gui_flags =~ /\bshow_value\b/) { $field->SetValue($value); } else { if ($self->option->values) { # check whether we have a value index my $value_idx = first { $self->option->values->[$_] eq $value } 0..$#{$self->option->values}; if (defined $value_idx) { $field->SetSelection($value_idx); $self->disable_change_event(0); return; } } elsif ($self->option->labels && $value <= $#{$self->option->labels}) { # if we have no values, we expect value to be an index $field->SetValue($self->option->labels->[$value]); $self->disable_change_event(0); return; } $field->SetValue($value); } $self->disable_change_event(0); } sub get_value { my ($self) = @_; my $label = $self->wxWindow->GetValue; if ($self->option->labels) { my $value_idx = first { $self->option->labels->[$_] eq $label } 0..$#{$self->option->labels}; if (defined $value_idx) { if ($self->option->values) { return $self->option->values->[$value_idx]; } return $value_idx; } } return $label; } package Slic3r::GUI::OptionsGroup::Field::ColourPicker; use Moo; extends 'Slic3r::GUI::OptionsGroup::Field::wxWindow'; use Wx qw(:misc :colour); use Wx::Event qw(EVT_COLOURPICKER_CHANGED); sub BUILD { my ($self) = @_; my $field = Wx::ColourPickerCtrl->new($self->parent, -1, $self->_string_to_colour($self->option->default), wxDefaultPosition, $self->_default_size); $self->wxWindow($field); EVT_COLOURPICKER_CHANGED($self->parent, $field, sub { $self->_on_change($self->option->opt_id); }); } sub set_value { my ($self, $value) = @_; $self->disable_change_event(1); $self->wxWindow->SetColour($self->_string_to_colour($value)); $self->disable_change_event(0); } sub get_value { my ($self) = @_; return $self->wxWindow->GetColour->GetAsString(wxC2S_HTML_SYNTAX); } sub _string_to_colour { my ($self, $string) = @_; $string =~ s/^#//; # If the color is in an invalid format, set it to white. $string = 'FFFFFF' if ($string !~ m/^[[:xdigit:]]{6}/); return Wx::Colour->new(unpack 'C*', pack 'H*', $string); } package Slic3r::GUI::OptionsGroup::Field::wxSizer; use Moo; extends 'Slic3r::GUI::OptionsGroup::Field'; has 'wxSizer' => (is => 'rw'); # wxSizer object package Slic3r::GUI::OptionsGroup::Field::Point; use Moo; extends 'Slic3r::GUI::OptionsGroup::Field::wxSizer'; has 'x_textctrl' => (is => 'rw'); has 'y_textctrl' => (is => 'rw'); use Slic3r::Geometry qw(X Y); use Wx qw(:misc :sizer); use Wx::Event qw(EVT_TEXT); sub BUILD { my ($self) = @_; my $sizer = Wx::BoxSizer->new(wxHORIZONTAL); $self->wxSizer($sizer); my $field_size = Wx::Size->new(40, -1); $self->x_textctrl(Wx::TextCtrl->new($self->parent, -1, $self->option->default->[X], wxDefaultPosition, $field_size)); $self->y_textctrl(Wx::TextCtrl->new($self->parent, -1, $self->option->default->[Y], wxDefaultPosition, $field_size)); my @items = ( Wx::StaticText->new($self->parent, -1, "x:"), $self->x_textctrl, Wx::StaticText->new($self->parent, -1, " y:"), $self->y_textctrl, ); $sizer->Add($_, 0, wxALIGN_CENTER_VERTICAL, 0) for @items; if ($self->option->tooltip) { foreach my $item (@items) { $item->SetToolTipString($self->option->tooltip) if $item->can('SetToolTipString'); } } EVT_TEXT($self->parent, $_, sub { $self->_on_change($self->option->opt_id); }) for $self->x_textctrl, $self->y_textctrl; } sub set_value { my ($self, $value) = @_; $self->disable_change_event(1); $self->x_textctrl->SetValue($value->[X]); $self->y_textctrl->SetValue($value->[Y]); $self->disable_change_event(0); } sub get_value { my ($self) = @_; return [ $self->x_textctrl->GetValue, $self->y_textctrl->GetValue, ]; } sub enable { my ($self) = @_; $self->x_textctrl->Enable; $self->y_textctrl->Enable; } sub disable { my ($self) = @_; $self->x_textctrl->Disable; $self->y_textctrl->Disable; } package Slic3r::GUI::OptionsGroup::Field::Slider; use Moo; extends 'Slic3r::GUI::OptionsGroup::Field::wxSizer'; has 'scale' => (is => 'rw', default => sub { 10 }); has 'slider' => (is => 'rw'); has 'textctrl' => (is => 'rw'); use Wx qw(:misc :sizer); use Wx::Event qw(EVT_SLIDER EVT_TEXT EVT_KILL_FOCUS); sub BUILD { my ($self) = @_; my $sizer = Wx::BoxSizer->new(wxHORIZONTAL); $self->wxSizer($sizer); my $slider = Wx::Slider->new( $self->parent, -1, ($self->option->default // $self->option->min) * $self->scale, ($self->option->min // 0) * $self->scale, ($self->option->max // 100) * $self->scale, wxDefaultPosition, [ $self->option->width // -1, $self->option->height // -1 ], ); $self->slider($slider); my $textctrl = Wx::TextCtrl->new($self->parent, -1, $slider->GetValue/$self->scale, wxDefaultPosition, [50,-1]); $self->textctrl($textctrl); $sizer->Add($slider, 1, wxALIGN_CENTER_VERTICAL, 0); $sizer->Add($textctrl, 0, wxALIGN_CENTER_VERTICAL, 0); EVT_SLIDER($self->parent, $slider, sub { if (! $self->disable_change_event) { $self->textctrl->SetLabel($self->get_value); $self->_on_change($self->option->opt_id); } }); EVT_TEXT($self->parent, $textctrl, sub { my $value = $textctrl->GetValue; if ($value =~ /^-?\d+(\.\d*)?$/) { $self->disable_change_event(1); $self->slider->SetValue($value*$self->scale); $self->disable_change_event(0); $self->_on_change($self->option->opt_id); } }); EVT_KILL_FOCUS($textctrl, sub { $self->_on_kill_focus($self->option->opt_id, @_); }); } sub set_value { my ($self, $value) = @_; $self->disable_change_event(1); $self->slider->SetValue($value*$self->scale); $self->textctrl->SetLabel($self->get_value); $self->disable_change_event(0); } sub get_value { my ($self) = @_; return $self->slider->GetValue/$self->scale; } sub enable { my ($self) = @_; $self->slider->Enable; $self->textctrl->Enable; $self->textctrl->SetEditable(1); } sub disable { my ($self) = @_; $self->slider->Disable; $self->textctrl->Disable; $self->textctrl->SetEditable(0); } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Plater.pm 0000664 0000000 0000000 00000260052 13243544447 0020646 0 ustar 00root root 0000000 0000000 # The "Plater" tab. It contains the "3D", "2D", "Preview" and "Layers" subtabs. package Slic3r::GUI::Plater; use strict; use warnings; use utf8; use File::Basename qw(basename dirname); use List::Util qw(sum first max); use Slic3r::Geometry qw(X Y Z scale unscale deg2rad rad2deg); use LWP::UserAgent; use threads::shared qw(shared_clone); use Wx qw(:button :colour :cursor :dialog :filedialog :keycode :icon :font :id :listctrl :misc :panel :sizer :toolbar :window wxTheApp :notebook :combobox wxNullBitmap); use Wx::Event qw(EVT_BUTTON EVT_TOGGLEBUTTON EVT_COMMAND EVT_KEY_DOWN EVT_LIST_ITEM_ACTIVATED EVT_LIST_ITEM_DESELECTED EVT_LIST_ITEM_SELECTED EVT_LEFT_DOWN EVT_MOUSE_EVENTS EVT_PAINT EVT_TOOL EVT_CHOICE EVT_COMBOBOX EVT_TIMER EVT_NOTEBOOK_PAGE_CHANGED); use base 'Wx::Panel'; use constant TB_ADD => &Wx::NewId; use constant TB_REMOVE => &Wx::NewId; use constant TB_RESET => &Wx::NewId; use constant TB_ARRANGE => &Wx::NewId; use constant TB_EXPORT_GCODE => &Wx::NewId; use constant TB_EXPORT_STL => &Wx::NewId; use constant TB_MORE => &Wx::NewId; use constant TB_FEWER => &Wx::NewId; use constant TB_45CW => &Wx::NewId; use constant TB_45CCW => &Wx::NewId; use constant TB_SCALE => &Wx::NewId; use constant TB_SPLIT => &Wx::NewId; use constant TB_CUT => &Wx::NewId; use constant TB_SETTINGS => &Wx::NewId; use constant TB_LAYER_EDITING => &Wx::NewId; # package variables to avoid passing lexicals to threads our $PROGRESS_BAR_EVENT : shared = Wx::NewEventType; our $ERROR_EVENT : shared = Wx::NewEventType; # Emitted from the worker thread when the G-code export is finished. our $EXPORT_COMPLETED_EVENT : shared = Wx::NewEventType; our $PROCESS_COMPLETED_EVENT : shared = Wx::NewEventType; use constant FILAMENT_CHOOSERS_SPACING => 0; use constant PROCESS_DELAY => 0.5 * 1000; # milliseconds my $PreventListEvents = 0; sub new { my ($class, $parent) = @_; my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, wxDefaultSize, wxTAB_TRAVERSAL); $self->{config} = Slic3r::Config::new_from_defaults_keys([qw( bed_shape complete_objects extruder_clearance_radius skirts skirt_distance brim_width variable_layer_height serial_port serial_speed octoprint_host octoprint_apikey nozzle_diameter single_extruder_multi_material wipe_tower wipe_tower_x wipe_tower_y wipe_tower_width wipe_tower_per_color_wipe extruder_colour filament_colour )]); # C++ Slic3r::Model with Perl extensions in Slic3r/Model.pm $self->{model} = Slic3r::Model->new; # C++ Slic3r::Print with Perl extensions in Slic3r/Print.pm $self->{print} = Slic3r::Print->new; # List of Perl objects Slic3r::GUI::Plater::Object, representing a 2D preview of the platter. $self->{objects} = []; $self->{print}->set_status_cb(sub { my ($percent, $message) = @_; Wx::PostEvent($self, Wx::PlThreadEvent->new(-1, $PROGRESS_BAR_EVENT, shared_clone([$percent, $message]))); }); # Initialize preview notebook $self->{preview_notebook} = Wx::Notebook->new($self, -1, wxDefaultPosition, [335,335], wxNB_BOTTOM); # Initialize handlers for canvases my $on_select_object = sub { my ($obj_idx) = @_; # Ignore the special objects (the wipe tower proxy and such). $self->select_object((defined($obj_idx) && $obj_idx < 1000) ? $obj_idx : undef); }; my $on_double_click = sub { $self->object_settings_dialog if $self->selected_object; }; my $on_right_click = sub { my ($canvas, $click_pos) = @_; my ($obj_idx, $object) = $self->selected_object; return if !defined $obj_idx; my $menu = $self->object_menu; $canvas->PopupMenu($menu, $click_pos); $menu->Destroy; }; my $on_instances_moved = sub { $self->update; }; # Initialize 3D plater if ($Slic3r::GUI::have_OpenGL) { $self->{canvas3D} = Slic3r::GUI::Plater::3D->new($self->{preview_notebook}, $self->{objects}, $self->{model}, $self->{print}, $self->{config}); $self->{preview_notebook}->AddPage($self->{canvas3D}, '3D'); $self->{canvas3D}->set_on_select_object($on_select_object); $self->{canvas3D}->set_on_double_click($on_double_click); $self->{canvas3D}->set_on_right_click(sub { $on_right_click->($self->{canvas3D}, @_); }); $self->{canvas3D}->set_on_arrange(sub { $self->arrange }); $self->{canvas3D}->set_on_rotate_object_left(sub { $self->rotate(-45, Z, 'relative') }); $self->{canvas3D}->set_on_rotate_object_right(sub { $self->rotate( 45, Z, 'relative') }); $self->{canvas3D}->set_on_scale_object_uniformly(sub { $self->changescale(undef) }); $self->{canvas3D}->set_on_increase_objects(sub { $self->increase() }); $self->{canvas3D}->set_on_decrease_objects(sub { $self->decrease() }); $self->{canvas3D}->set_on_remove_object(sub { $self->remove() }); $self->{canvas3D}->set_on_instances_moved($on_instances_moved); $self->{canvas3D}->set_on_wipe_tower_moved(sub { my ($new_pos_3f) = @_; my $cfg = Slic3r::Config->new; $cfg->set('wipe_tower_x', $new_pos_3f->x); $cfg->set('wipe_tower_y', $new_pos_3f->y); $self->GetFrame->{options_tabs}{print}->load_config($cfg); }); $self->{canvas3D}->set_on_model_update(sub { if (wxTheApp->{app_config}->get("background_processing")) { $self->schedule_background_process; } else { # Hide the print info box, it is no more valid. $self->{"print_info_box_show"}->(0); } }); $self->{canvas3D}->on_viewport_changed(sub { $self->{preview3D}->canvas->set_viewport_from_scene($self->{canvas3D}); }); } # Initialize 2D preview canvas $self->{canvas} = Slic3r::GUI::Plater::2D->new($self->{preview_notebook}, wxDefaultSize, $self->{objects}, $self->{model}, $self->{config}); $self->{preview_notebook}->AddPage($self->{canvas}, '2D'); $self->{canvas}->on_select_object($on_select_object); $self->{canvas}->on_double_click($on_double_click); $self->{canvas}->on_right_click(sub { $on_right_click->($self->{canvas}, @_); }); $self->{canvas}->on_instances_moved($on_instances_moved); # Initialize 3D toolpaths preview if ($Slic3r::GUI::have_OpenGL) { $self->{preview3D} = Slic3r::GUI::Plater::3DPreview->new($self->{preview_notebook}, $self->{print}, $self->{config}); $self->{preview3D}->canvas->on_viewport_changed(sub { $self->{canvas3D}->set_viewport_from_scene($self->{preview3D}->canvas); }); $self->{preview_notebook}->AddPage($self->{preview3D}, 'Preview'); $self->{preview3D_page_idx} = $self->{preview_notebook}->GetPageCount-1; } # Initialize toolpaths preview if ($Slic3r::GUI::have_OpenGL) { $self->{toolpaths2D} = Slic3r::GUI::Plater::2DToolpaths->new($self->{preview_notebook}, $self->{print}); $self->{preview_notebook}->AddPage($self->{toolpaths2D}, 'Layers'); } EVT_NOTEBOOK_PAGE_CHANGED($self, $self->{preview_notebook}, sub { my $preview = $self->{preview_notebook}->GetCurrentPage; $self->{preview3D}->load_print(1) if ($preview == $self->{preview3D}); $preview->OnActivate if $preview->can('OnActivate'); }); # toolbar for object manipulation if (!&Wx::wxMSW) { Wx::ToolTip::Enable(1); $self->{htoolbar} = Wx::ToolBar->new($self, -1, wxDefaultPosition, wxDefaultSize, wxTB_HORIZONTAL | wxTB_TEXT | wxBORDER_SIMPLE | wxTAB_TRAVERSAL); $self->{htoolbar}->AddTool(TB_ADD, "Add…", Wx::Bitmap->new(Slic3r::var("brick_add.png"), wxBITMAP_TYPE_PNG), ''); $self->{htoolbar}->AddTool(TB_REMOVE, "Delete", Wx::Bitmap->new(Slic3r::var("brick_delete.png"), wxBITMAP_TYPE_PNG), ''); $self->{htoolbar}->AddTool(TB_RESET, "Delete All", Wx::Bitmap->new(Slic3r::var("cross.png"), wxBITMAP_TYPE_PNG), ''); $self->{htoolbar}->AddTool(TB_ARRANGE, "Arrange", Wx::Bitmap->new(Slic3r::var("bricks.png"), wxBITMAP_TYPE_PNG), ''); $self->{htoolbar}->AddSeparator; $self->{htoolbar}->AddTool(TB_MORE, "More", Wx::Bitmap->new(Slic3r::var("add.png"), wxBITMAP_TYPE_PNG), ''); $self->{htoolbar}->AddTool(TB_FEWER, "Fewer", Wx::Bitmap->new(Slic3r::var("delete.png"), wxBITMAP_TYPE_PNG), ''); $self->{htoolbar}->AddSeparator; $self->{htoolbar}->AddTool(TB_45CCW, "45° ccw", Wx::Bitmap->new(Slic3r::var("arrow_rotate_anticlockwise.png"), wxBITMAP_TYPE_PNG), ''); $self->{htoolbar}->AddTool(TB_45CW, "45° cw", Wx::Bitmap->new(Slic3r::var("arrow_rotate_clockwise.png"), wxBITMAP_TYPE_PNG), ''); $self->{htoolbar}->AddTool(TB_SCALE, "Scale…", Wx::Bitmap->new(Slic3r::var("arrow_out.png"), wxBITMAP_TYPE_PNG), ''); $self->{htoolbar}->AddTool(TB_SPLIT, "Split", Wx::Bitmap->new(Slic3r::var("shape_ungroup.png"), wxBITMAP_TYPE_PNG), ''); $self->{htoolbar}->AddTool(TB_CUT, "Cut…", Wx::Bitmap->new(Slic3r::var("package.png"), wxBITMAP_TYPE_PNG), ''); $self->{htoolbar}->AddSeparator; $self->{htoolbar}->AddTool(TB_SETTINGS, "Settings…", Wx::Bitmap->new(Slic3r::var("cog.png"), wxBITMAP_TYPE_PNG), ''); $self->{htoolbar}->AddTool(TB_LAYER_EDITING, 'Layer Editing', Wx::Bitmap->new(Slic3r::var("variable_layer_height.png"), wxBITMAP_TYPE_PNG), wxNullBitmap, 1, 0, 'Layer Editing'); } else { my %tbar_buttons = ( add => "Add…", remove => "Delete", reset => "Delete All", arrange => "Arrange", increase => "", decrease => "", rotate45ccw => "", rotate45cw => "", changescale => "Scale…", split => "Split", cut => "Cut…", settings => "Settings…", layer_editing => "Layer editing", ); $self->{btoolbar} = Wx::BoxSizer->new(wxHORIZONTAL); for (qw(add remove reset arrange increase decrease rotate45ccw rotate45cw changescale split cut settings)) { $self->{"btn_$_"} = Wx::Button->new($self, -1, $tbar_buttons{$_}, wxDefaultPosition, wxDefaultSize, wxBU_EXACTFIT); $self->{btoolbar}->Add($self->{"btn_$_"}); } $self->{"btn_layer_editing"} = Wx::ToggleButton->new($self, -1, $tbar_buttons{'layer_editing'}, wxDefaultPosition, wxDefaultSize, wxBU_EXACTFIT); $self->{btoolbar}->Add($self->{"btn_layer_editing"}); } $self->{list} = Wx::ListView->new($self, -1, wxDefaultPosition, wxDefaultSize, wxLC_SINGLE_SEL | wxLC_REPORT | wxBORDER_SUNKEN | wxTAB_TRAVERSAL | wxWANTS_CHARS ); $self->{list}->InsertColumn(0, "Name", wxLIST_FORMAT_LEFT, 145); $self->{list}->InsertColumn(1, "Copies", wxLIST_FORMAT_CENTER, 45); $self->{list}->InsertColumn(2, "Scale", wxLIST_FORMAT_CENTER, wxLIST_AUTOSIZE_USEHEADER); EVT_LIST_ITEM_SELECTED($self, $self->{list}, \&list_item_selected); EVT_LIST_ITEM_DESELECTED($self, $self->{list}, \&list_item_deselected); EVT_LIST_ITEM_ACTIVATED($self, $self->{list}, \&list_item_activated); EVT_KEY_DOWN($self->{list}, sub { my ($list, $event) = @_; if ($event->GetKeyCode == WXK_TAB) { $list->Navigate($event->ShiftDown ? &Wx::wxNavigateBackward : &Wx::wxNavigateForward); } else { $event->Skip; } }); # right pane buttons $self->{btn_export_gcode} = Wx::Button->new($self, -1, "Export G-code…", wxDefaultPosition, [-1, 30], wxBU_LEFT); $self->{btn_reslice} = Wx::Button->new($self, -1, "Slice now", wxDefaultPosition, [-1, 30], wxBU_LEFT); $self->{btn_print} = Wx::Button->new($self, -1, "Print…", wxDefaultPosition, [-1, 30], wxBU_LEFT); $self->{btn_send_gcode} = Wx::Button->new($self, -1, "Send to printer", wxDefaultPosition, [-1, 30], wxBU_LEFT); $self->{btn_export_stl} = Wx::Button->new($self, -1, "Export STL…", wxDefaultPosition, [-1, 30], wxBU_LEFT); #$self->{btn_export_gcode}->SetFont($Slic3r::GUI::small_font); #$self->{btn_export_stl}->SetFont($Slic3r::GUI::small_font); $self->{btn_print}->Hide; $self->{btn_send_gcode}->Hide; my %icons = qw( add brick_add.png remove brick_delete.png reset cross.png arrange bricks.png export_gcode cog_go.png print arrow_up.png send_gcode arrow_up.png reslice reslice.png export_stl brick_go.png increase add.png decrease delete.png rotate45cw arrow_rotate_clockwise.png rotate45ccw arrow_rotate_anticlockwise.png changescale arrow_out.png split shape_ungroup.png cut package.png settings cog.png ); for (grep $self->{"btn_$_"}, keys %icons) { $self->{"btn_$_"}->SetBitmap(Wx::Bitmap->new(Slic3r::var($icons{$_}), wxBITMAP_TYPE_PNG)); } $self->selection_changed(0); $self->object_list_changed; EVT_BUTTON($self, $self->{btn_export_gcode}, sub { $self->export_gcode; }); EVT_BUTTON($self, $self->{btn_print}, sub { $self->{print_file} = $self->export_gcode(Wx::StandardPaths::Get->GetTempDir()); }); EVT_BUTTON($self, $self->{btn_send_gcode}, sub { $self->{send_gcode_file} = $self->export_gcode(Wx::StandardPaths::Get->GetTempDir()); }); EVT_BUTTON($self, $self->{btn_reslice}, \&reslice); EVT_BUTTON($self, $self->{btn_export_stl}, \&export_stl); if ($self->{htoolbar}) { EVT_TOOL($self, TB_ADD, sub { $self->add; }); EVT_TOOL($self, TB_REMOVE, sub { $self->remove() }); # explicitly pass no argument to remove EVT_TOOL($self, TB_RESET, sub { $self->reset; }); EVT_TOOL($self, TB_ARRANGE, sub { $self->arrange; }); EVT_TOOL($self, TB_MORE, sub { $self->increase; }); EVT_TOOL($self, TB_FEWER, sub { $self->decrease; }); EVT_TOOL($self, TB_45CW, sub { $_[0]->rotate(-45, Z, 'relative') }); EVT_TOOL($self, TB_45CCW, sub { $_[0]->rotate(45, Z, 'relative') }); EVT_TOOL($self, TB_SCALE, sub { $self->changescale(undef); }); EVT_TOOL($self, TB_SPLIT, sub { $self->split_object; }); EVT_TOOL($self, TB_CUT, sub { $_[0]->object_cut_dialog }); EVT_TOOL($self, TB_SETTINGS, sub { $_[0]->object_settings_dialog }); EVT_TOOL($self, TB_LAYER_EDITING, sub { my $state = $self->{canvas3D}->layer_editing_enabled; $self->{htoolbar}->ToggleTool(TB_LAYER_EDITING, ! $state); $self->on_layer_editing_toggled(! $state); }); } else { EVT_BUTTON($self, $self->{btn_add}, sub { $self->add; }); EVT_BUTTON($self, $self->{btn_remove}, sub { $self->remove() }); # explicitly pass no argument to remove EVT_BUTTON($self, $self->{btn_reset}, sub { $self->reset; }); EVT_BUTTON($self, $self->{btn_arrange}, sub { $self->arrange; }); EVT_BUTTON($self, $self->{btn_increase}, sub { $self->increase; }); EVT_BUTTON($self, $self->{btn_decrease}, sub { $self->decrease; }); EVT_BUTTON($self, $self->{btn_rotate45cw}, sub { $_[0]->rotate(-45, Z, 'relative') }); EVT_BUTTON($self, $self->{btn_rotate45ccw}, sub { $_[0]->rotate(45, Z, 'relative') }); EVT_BUTTON($self, $self->{btn_changescale}, sub { $self->changescale(undef); }); EVT_BUTTON($self, $self->{btn_split}, sub { $self->split_object; }); EVT_BUTTON($self, $self->{btn_cut}, sub { $_[0]->object_cut_dialog }); EVT_BUTTON($self, $self->{btn_settings}, sub { $_[0]->object_settings_dialog }); EVT_TOGGLEBUTTON($self, $self->{btn_layer_editing}, sub { $self->on_layer_editing_toggled($self->{btn_layer_editing}->GetValue); }); } $_->SetDropTarget(Slic3r::GUI::Plater::DropTarget->new($self)) for grep defined($_), $self, $self->{canvas}, $self->{canvas3D}, $self->{preview3D}, $self->{list}; EVT_COMMAND($self, -1, $PROGRESS_BAR_EVENT, sub { my ($self, $event) = @_; my ($percent, $message) = @{$event->GetData}; $self->on_progress_event($percent, $message); }); EVT_COMMAND($self, -1, $ERROR_EVENT, sub { my ($self, $event) = @_; Slic3r::GUI::show_error($self, @{$event->GetData}); }); EVT_COMMAND($self, -1, $EXPORT_COMPLETED_EVENT, sub { my ($self, $event) = @_; $self->on_export_completed($event->GetData); }); EVT_COMMAND($self, -1, $PROCESS_COMPLETED_EVENT, sub { my ($self, $event) = @_; $self->on_process_completed($event->GetData); }); { my $timer_id = Wx::NewId(); $self->{apply_config_timer} = Wx::Timer->new($self, $timer_id); EVT_TIMER($self, $timer_id, sub { my ($self, $event) = @_; $self->async_apply_config; }); } $self->{canvas}->update_bed_size; if ($self->{canvas3D}) { $self->{canvas3D}->update_bed_size; $self->{canvas3D}->zoom_to_bed; } if ($self->{preview3D}) { $self->{preview3D}->set_bed_shape($self->{config}->bed_shape); } $self->update; { my $presets; { $presets = $self->{presets_sizer} = Wx::FlexGridSizer->new(3, 2, 1, 2); $presets->AddGrowableCol(1, 1); $presets->SetFlexibleDirection(wxHORIZONTAL); my %group_labels = ( print => 'Print settings', filament => 'Filament', printer => 'Printer', ); # UI Combo boxes for a print, multiple filaments, and a printer. # Initially a single filament combo box is created, but the number of combo boxes for the filament selection may increase, # once a printer preset with multiple extruders is activated. # $self->{preset_choosers}{$group}[$idx] $self->{preset_choosers} = {}; for my $group (qw(print filament printer)) { my $text = Wx::StaticText->new($self, -1, "$group_labels{$group}:", wxDefaultPosition, wxDefaultSize, wxALIGN_RIGHT); $text->SetFont($Slic3r::GUI::small_font); my $choice = Wx::BitmapComboBox->new($self, -1, "", wxDefaultPosition, wxDefaultSize, [], wxCB_READONLY); if ($group eq 'filament') { EVT_LEFT_DOWN($choice, sub { $self->filament_color_box_lmouse_down(0, @_); } ); } $self->{preset_choosers}{$group} = [$choice]; # setup the listener EVT_COMBOBOX($choice, $choice, sub { my ($choice) = @_; wxTheApp->CallAfter(sub { $self->_on_select_preset($group, $choice, 0); }); }); $presets->Add($text, 0, wxALIGN_RIGHT | wxALIGN_CENTER_VERTICAL | wxRIGHT, 4); $presets->Add($choice, 1, wxALIGN_CENTER_VERTICAL | wxEXPAND | wxBOTTOM, 0); } } my $object_info_sizer; { my $box = Wx::StaticBox->new($self, -1, "Info"); $object_info_sizer = Wx::StaticBoxSizer->new($box, wxVERTICAL); $object_info_sizer->SetMinSize([350,-1]); my $grid_sizer = Wx::FlexGridSizer->new(3, 4, 5, 5); $grid_sizer->SetFlexibleDirection(wxHORIZONTAL); $grid_sizer->AddGrowableCol(1, 1); $grid_sizer->AddGrowableCol(3, 1); $object_info_sizer->Add($grid_sizer, 0, wxEXPAND); my @info = ( size => "Size", volume => "Volume", facets => "Facets", materials => "Materials", manifold => "Manifold", ); while (my $field = shift @info) { my $label = shift @info; my $text = Wx::StaticText->new($self, -1, "$label:", wxDefaultPosition, wxDefaultSize, wxALIGN_LEFT); $text->SetFont($Slic3r::GUI::small_font); $grid_sizer->Add($text, 0); $self->{"object_info_$field"} = Wx::StaticText->new($self, -1, "", wxDefaultPosition, wxDefaultSize, wxALIGN_LEFT); $self->{"object_info_$field"}->SetFont($Slic3r::GUI::small_font); if ($field eq 'manifold') { $self->{object_info_manifold_warning_icon} = Wx::StaticBitmap->new($self, -1, Wx::Bitmap->new(Slic3r::var("error.png"), wxBITMAP_TYPE_PNG)); $self->{object_info_manifold_warning_icon}->Hide; my $h_sizer = Wx::BoxSizer->new(wxHORIZONTAL); $h_sizer->Add($self->{object_info_manifold_warning_icon}, 0); $h_sizer->Add($self->{"object_info_$field"}, 0); $grid_sizer->Add($h_sizer, 0, wxEXPAND); } else { $grid_sizer->Add($self->{"object_info_$field"}, 0); } } } my $print_info_sizer; { my $box = Wx::StaticBox->new($self, -1, "Sliced Info"); $print_info_sizer = Wx::StaticBoxSizer->new($box, wxVERTICAL); $print_info_sizer->SetMinSize([350,-1]); my $grid_sizer = Wx::FlexGridSizer->new(2, 2, 5, 5); $grid_sizer->SetFlexibleDirection(wxHORIZONTAL); $grid_sizer->AddGrowableCol(1, 1); $grid_sizer->AddGrowableCol(3, 1); $print_info_sizer->Add($grid_sizer, 0, wxEXPAND); my @info = ( fil_m => "Used Filament (m)", fil_mm3 => "Used Filament (mm^3)", fil_g => "Used Filament (g)", cost => "Cost", time => "Estimated printing time", ); while (my $field = shift @info) { my $label = shift @info; my $text = Wx::StaticText->new($self, -1, "$label:", wxDefaultPosition, wxDefaultSize, wxALIGN_RIGHT); $text->SetFont($Slic3r::GUI::small_font); $grid_sizer->Add($text, 0); $self->{"print_info_$field"} = Wx::StaticText->new($self, -1, "", wxDefaultPosition, wxDefaultSize, wxALIGN_LEFT); $self->{"print_info_$field"}->SetFont($Slic3r::GUI::small_font); $grid_sizer->Add($self->{"print_info_$field"}, 0); } } my $buttons_sizer = Wx::BoxSizer->new(wxHORIZONTAL); $self->{buttons_sizer} = $buttons_sizer; $buttons_sizer->AddStretchSpacer(1); $buttons_sizer->Add($self->{btn_export_stl}, 0, wxALIGN_RIGHT, 0); $buttons_sizer->Add($self->{btn_reslice}, 0, wxALIGN_RIGHT, 0); $buttons_sizer->Add($self->{btn_print}, 0, wxALIGN_RIGHT, 0); $buttons_sizer->Add($self->{btn_send_gcode}, 0, wxALIGN_RIGHT, 0); $buttons_sizer->Add($self->{btn_export_gcode}, 0, wxALIGN_RIGHT, 0); my $right_sizer = Wx::BoxSizer->new(wxVERTICAL); $right_sizer->Add($presets, 0, wxEXPAND | wxTOP, 10) if defined $presets; $right_sizer->Add($buttons_sizer, 0, wxEXPAND | wxBOTTOM, 5); $right_sizer->Add($self->{list}, 1, wxEXPAND, 5); $right_sizer->Add($object_info_sizer, 0, wxEXPAND, 0); $right_sizer->Add($print_info_sizer, 0, wxEXPAND, 0); # Callback for showing / hiding the print info box. $self->{"print_info_box_show"} = sub { if ($right_sizer->IsShown(4) != $_[0]) { $right_sizer->Show(4, $_[0]); $self->Layout } }; # Show the box initially, let it be shown after the slicing is finished. $self->{"print_info_box_show"}->(0); my $hsizer = Wx::BoxSizer->new(wxHORIZONTAL); $hsizer->Add($self->{preview_notebook}, 1, wxEXPAND | wxTOP, 1); $hsizer->Add($right_sizer, 0, wxEXPAND | wxLEFT | wxRIGHT, 3); my $sizer = Wx::BoxSizer->new(wxVERTICAL); $sizer->Add($self->{htoolbar}, 0, wxEXPAND, 0) if $self->{htoolbar}; $sizer->Add($self->{btoolbar}, 0, wxEXPAND, 0) if $self->{btoolbar}; $sizer->Add($hsizer, 1, wxEXPAND, 0); $sizer->SetSizeHints($self); $self->SetSizer($sizer); } $self->update_ui_from_settings(); return $self; } # sets the callback sub on_select_preset { my ($self, $cb) = @_; $self->{on_select_preset} = $cb; } # Called from the platter combo boxes selecting the active print, filament or printer. sub _on_select_preset { my ($self, $group, $choice, $idx) = @_; # If user changed a filament preset and the selected machine is equipped with multiple extruders, # there are multiple filament selection combo boxes shown at the platter. In that case # don't propagate the filament selection changes to the tab. if ($group eq 'filament') { wxTheApp->{preset_bundle}->set_filament_preset($idx, $choice->GetStringSelection); } if ($group eq 'filament' && @{$self->{preset_choosers}{filament}} > 1) { # Only update the platter UI for the 2nd and other filaments. wxTheApp->{preset_bundle}->update_platter_filament_ui($idx, $choice); } else { # call GetSelection() in scalar context as it's context-aware $self->{on_select_preset}->($group, $choice->GetStringSelection) if $self->{on_select_preset}; } # Synchronize config.ini with the current selections. wxTheApp->{preset_bundle}->export_selections(wxTheApp->{app_config}); # get new config and generate on_config_change() event for updating plater and other things $self->on_config_change(wxTheApp->{preset_bundle}->full_config); } sub on_layer_editing_toggled { my ($self, $new_state) = @_; $self->{canvas3D}->layer_editing_enabled($new_state); if ($new_state && ! $self->{canvas3D}->layer_editing_enabled) { # Initialization of the OpenGL shaders failed. Disable the tool. if ($self->{htoolbar}) { $self->{htoolbar}->EnableTool(TB_LAYER_EDITING, 0); $self->{htoolbar}->ToggleTool(TB_LAYER_EDITING, 0); } else { $self->{"btn_layer_editing"}->Disable; $self->{"btn_layer_editing"}->SetValue(0); } } $self->{canvas3D}->Refresh; $self->{canvas3D}->Update; } sub GetFrame { my ($self) = @_; return &Wx::GetTopLevelParent($self); } # Called after the Preferences dialog is closed and the program settings are saved. # Update the UI based on the current preferences. sub update_ui_from_settings { my ($self) = @_; if (defined($self->{btn_reslice}) && $self->{buttons_sizer}->IsShown($self->{btn_reslice}) != (! wxTheApp->{app_config}->get("background_processing"))) { $self->{buttons_sizer}->Show($self->{btn_reslice}, ! wxTheApp->{app_config}->get("background_processing")); $self->{buttons_sizer}->Layout; } } # Update preset combo boxes (Print settings, Filament, Printer) from their respective tabs. # Called by # Slic3r::GUI::Tab::Print::_on_presets_changed # Slic3r::GUI::Tab::Filament::_on_presets_changed # Slic3r::GUI::Tab::Printer::_on_presets_changed # when the presets are loaded or the user selects another preset. # For Print settings and Printer, synchronize the selection index with their tabs. # For Filament, synchronize the selection index for a single extruder printer only, otherwise keep the selection. sub update_presets { # $group: one of qw(print filament printer) # $presets: PresetCollection my ($self, $group, $presets) = @_; my @choosers = @{$self->{preset_choosers}{$group}}; if ($group eq 'filament') { my $choice_idx = 0; if (int(@choosers) == 1) { # Single filament printer, synchronize the filament presets. wxTheApp->{preset_bundle}->set_filament_preset(0, wxTheApp->{preset_bundle}->filament->get_selected_preset->name); } foreach my $choice (@choosers) { wxTheApp->{preset_bundle}->update_platter_filament_ui($choice_idx, $choice); $choice_idx += 1; } } elsif ($group eq 'print') { wxTheApp->{preset_bundle}->print->update_platter_ui($choosers[0]); } elsif ($group eq 'printer') { # Update the print choosers to only contain the compatible presets, update the dirty flags. wxTheApp->{preset_bundle}->print->update_platter_ui($self->{preset_choosers}{print}->[0]); # Update the printer choosers, update the dirty flags. wxTheApp->{preset_bundle}->printer->update_platter_ui($choosers[0]); # Update the filament choosers to only contain the compatible presets, update the color preview, # update the dirty flags. my $choice_idx = 0; foreach my $choice (@{$self->{preset_choosers}{filament}}) { wxTheApp->{preset_bundle}->update_platter_filament_ui($choice_idx, $choice); $choice_idx += 1; } } # Synchronize config.ini with the current selections. wxTheApp->{preset_bundle}->export_selections(wxTheApp->{app_config}); } sub add { my ($self) = @_; my @input_files = wxTheApp->open_model($self); $self->load_files(\@input_files); } sub load_files { my ($self, $input_files) = @_; return if ! defined($input_files) || ! scalar(@$input_files); my $nozzle_dmrs = $self->{config}->get('nozzle_diameter'); # One of the files is potentionally a bundle of files. Don't bundle them, but load them one by one. # Only bundle .stls or .objs if the printer has multiple extruders. my $one_by_one = (@$nozzle_dmrs <= 1) || (@$input_files == 1) || defined(first { $_ =~ /.[aA][mM][fF]$/ || $_ =~ /.3[mM][fF]$/ || $_ =~ /.[pP][rR][uI][sS][aA]$/ } @$input_files); my $process_dialog = Wx::ProgressDialog->new('Loading…', "Processing input file\n" . basename($input_files->[0]), 100, $self, 0); $process_dialog->Pulse; local $SIG{__WARN__} = Slic3r::GUI::warning_catcher($self); # new_model to collect volumes, if all of them come from .stl or .obj and there is a chance, that they will be # possibly merged into a single multi-part object. my $new_model = $one_by_one ? undef : Slic3r::Model->new; # Object indices for the UI. my @obj_idx = (); # Collected file names to display the final message on the status bar. my @loaded_files = (); # For all input files. for (my $i = 0; $i < @$input_files; $i += 1) { my $input_file = $input_files->[$i]; $process_dialog->Update(100. * $i / @$input_files, "Processing input file\n" . basename($input_file)); my $model = eval { Slic3r::Model->read_from_file($input_file, 0) }; Slic3r::GUI::show_error($self, $@) if $@; next if ! defined $model; if ($model->looks_like_multipart_object) { my $dialog = Wx::MessageDialog->new($self, "This file contains several objects positioned at multiple heights. " . "Instead of considering them as multiple objects, should I consider\n" . "this file as a single object having multiple parts?\n", 'Multi-part object detected', wxICON_WARNING | wxYES | wxNO); $model->convert_multipart_object if $dialog->ShowModal() == wxID_YES; } if ($one_by_one) { push @obj_idx, $self->load_model_objects(@{$model->objects}); } else { # This must be an .stl or .obj file, which may contain a maximum of one volume. $new_model->add_object($_) for (@{$model->objects}); } } if ($new_model) { my $dialog = Wx::MessageDialog->new($self, "Multiple objects were loaded for a multi-material printer.\n" . "Instead of considering them as multiple objects, should I consider\n" . "these files to represent a single object having multiple parts?\n", 'Multi-part object detected', wxICON_WARNING | wxYES | wxNO); $new_model->convert_multipart_object if $dialog->ShowModal() == wxID_YES; push @obj_idx, $self->load_model_objects(@{$new_model->objects}); } # Note the current directory for the file open dialog. wxTheApp->{app_config}->update_skein_dir(dirname($input_files->[-1])); $process_dialog->Destroy; $self->statusbar->SetStatusText("Loaded " . join(',', @loaded_files)); return @obj_idx; } sub load_model_objects { my ($self, @model_objects) = @_; my $bed_centerf = $self->bed_centerf; my $bed_shape = Slic3r::Polygon->new_scale(@{$self->{config}->bed_shape}); my $bed_size = $bed_shape->bounding_box->size; my $need_arrange = 0; my $scaled_down = 0; my @obj_idx = (); foreach my $model_object (@model_objects) { my $o = $self->{model}->add_object($model_object); my $object_name = $model_object->name; $object_name = basename($model_object->input_file) if ($object_name eq ''); push @{ $self->{objects} }, Slic3r::GUI::Plater::Object->new(name => $object_name); push @obj_idx, $#{ $self->{objects} }; if ($model_object->instances_count == 0) { # if object has no defined position(s) we need to rearrange everything after loading $need_arrange = 1; # add a default instance and center object around origin $o->center_around_origin; # also aligns object to Z = 0 $o->add_instance(offset => $bed_centerf); } { # if the object is too large (more than 5 times the bed), scale it down my $size = $o->bounding_box->size; my $ratio = max(@$size[X,Y]) / unscale(max(@$bed_size[X,Y])); if ($ratio > 5) { $_->set_scaling_factor(1/$ratio) for @{$o->instances}; $scaled_down = 1; } } $self->{print}->auto_assign_extruders($o); $self->{print}->add_model_object($o); } # if user turned autocentering off, automatic arranging would disappoint them if (! wxTheApp->{app_config}->get("autocenter")) { $need_arrange = 0; } if ($scaled_down) { Slic3r::GUI::show_info( $self, 'Your object appears to be too large, so it was automatically scaled down to fit your print bed.', 'Object too large?', ); } foreach my $obj_idx (@obj_idx) { my $object = $self->{objects}[$obj_idx]; my $model_object = $self->{model}->objects->[$obj_idx]; $self->{list}->InsertStringItem($obj_idx, $object->name); $self->{list}->SetItemFont($obj_idx, Wx::Font->new(10, wxDEFAULT, wxNORMAL, wxNORMAL)) if $self->{list}->can('SetItemFont'); # legacy code for wxPerl < 0.9918 not supporting SetItemFont() $self->{list}->SetItem($obj_idx, 1, $model_object->instances_count); $self->{list}->SetItem($obj_idx, 2, ($model_object->instances->[0]->scaling_factor * 100) . "%"); $self->reset_thumbnail($obj_idx); } $self->arrange if $need_arrange; $self->update; # zoom to objects $self->{canvas3D}->zoom_to_volumes if $self->{canvas3D}; $self->{list}->Update; $self->{list}->Select($obj_idx[-1], 1); $self->object_list_changed; $self->schedule_background_process; return @obj_idx; } sub bed_centerf { my ($self) = @_; my $bed_shape = Slic3r::Polygon->new_scale(@{$self->{config}->bed_shape}); my $bed_center = $bed_shape->bounding_box->center; return Slic3r::Pointf->new(unscale($bed_center->x), unscale($bed_center->y)); #) } sub remove { my $self = shift; my ($obj_idx) = @_; $self->stop_background_process; # Prevent toolpaths preview from rendering while we modify the Print object $self->{toolpaths2D}->enabled(0) if $self->{toolpaths2D}; $self->{preview3D}->enabled(0) if $self->{preview3D}; # if no object index is supplied, remove the selected one if (! defined $obj_idx) { ($obj_idx, undef) = $self->selected_object; return if ! defined $obj_idx; } splice @{$self->{objects}}, $obj_idx, 1; $self->{model}->delete_object($obj_idx); $self->{print}->delete_object($obj_idx); $self->{list}->DeleteItem($obj_idx); $self->object_list_changed; $self->select_object(undef); $self->update; $self->schedule_background_process; } sub reset { my $self = shift; $self->stop_background_process; # Prevent toolpaths preview from rendering while we modify the Print object $self->{toolpaths2D}->enabled(0) if $self->{toolpaths2D}; $self->{preview3D}->enabled(0) if $self->{preview3D}; @{$self->{objects}} = (); $self->{model}->clear_objects; $self->{print}->clear_objects; $self->{list}->DeleteAllItems; $self->object_list_changed; $self->select_object(undef); $self->update; } sub increase { my ($self, $copies) = @_; $copies //= 1; my ($obj_idx, $object) = $self->selected_object; return if ! defined $obj_idx; my $model_object = $self->{model}->objects->[$obj_idx]; my $instance = $model_object->instances->[-1]; for my $i (1..$copies) { $instance = $model_object->add_instance( offset => Slic3r::Pointf->new(map 10+$_, @{$instance->offset}), scaling_factor => $instance->scaling_factor, rotation => $instance->rotation, ); $self->{print}->objects->[$obj_idx]->add_copy($instance->offset); } $self->{list}->SetItem($obj_idx, 1, $model_object->instances_count); # only autoarrange if user has autocentering enabled $self->stop_background_process; if (wxTheApp->{app_config}->get("autocenter")) { $self->arrange; } else { $self->update; } $self->schedule_background_process; } sub decrease { my ($self, $copies_asked) = @_; my $copies = $copies_asked // 1; my ($obj_idx, $object) = $self->selected_object; return if ! defined $obj_idx; $self->stop_background_process; my $model_object = $self->{model}->objects->[$obj_idx]; if ($model_object->instances_count > $copies) { for my $i (1..$copies) { $model_object->delete_last_instance; $self->{print}->objects->[$obj_idx]->delete_last_copy; } $self->{list}->SetItem($obj_idx, 1, $model_object->instances_count); } elsif (defined $copies_asked) { # The "decrease" came from the "set number of copies" dialog. $self->remove; } else { # The "decrease" came from the "-" button. Don't allow the object to disappear. $self->resume_background_process; return; } if ($self->{objects}[$obj_idx]) { $self->{list}->Select($obj_idx, 0); $self->{list}->Select($obj_idx, 1); } $self->update; $self->schedule_background_process; } sub set_number_of_copies { my ($self) = @_; $self->pause_background_process; # get current number of copies my ($obj_idx, $object) = $self->selected_object; my $model_object = $self->{model}->objects->[$obj_idx]; # prompt user my $copies = Wx::GetNumberFromUser("", "Enter the number of copies of the selected object:", "Copies", $model_object->instances_count, 0, 1000, $self); my $diff = $copies - $model_object->instances_count; if ($diff == 0) { # no variation $self->resume_background_process; } elsif ($diff > 0) { $self->increase($diff); } elsif ($diff < 0) { $self->decrease(-$diff); } } sub _get_number_from_user { my ($self, $title, $prompt_message, $error_message, $default, $only_positive) = @_; for (;;) { my $value = Wx::GetTextFromUser($prompt_message, $title, $default, $self); # Accept both dashes and dots as a decimal separator. $value =~ s/,/./; # If scaling value is being entered, remove the trailing percent sign. $value =~ s/%$// if $only_positive; # User canceled the selection, return undef. return if $value eq ''; # Validate a numeric value. return $value if ($value =~ /^-?\d*(?:\.\d*)?$/) && (! $only_positive || $value > 0); Wx::MessageBox( $error_message . (($only_positive && $value <= 0) ? ": $value\nNon-positive value." : ": $value\nNot a numeric value."), "Slic3r Error", wxOK | wxICON_EXCLAMATION, $self); $default = $value; } } sub rotate { my ($self, $angle, $axis, $relative_key) = @_; $relative_key //= 'absolute'; # relative or absolute coordinates $axis //= Z; # angle is in degrees my $relative = $relative_key eq 'relative'; my ($obj_idx, $object) = $self->selected_object; return if !defined $obj_idx; my $model_object = $self->{model}->objects->[$obj_idx]; my $model_instance = $model_object->instances->[0]; if (!defined $angle) { my $axis_name = $axis == X ? 'X' : $axis == Y ? 'Y' : 'Z'; my $default = $axis == Z ? rad2deg($model_instance->rotation) : 0; $angle = $self->_get_number_from_user("Enter the rotation angle:", "Rotate around $axis_name axis", "Invalid rotation angle entered", $default); return if $angle eq ''; } $self->stop_background_process; if ($axis == Z) { my $new_angle = deg2rad($angle); $_->set_rotation(($relative ? $_->rotation : 0.) + $new_angle) for @{ $model_object->instances }; $object->transform_thumbnail($self->{model}, $obj_idx); } else { # rotation around X and Y needs to be performed on mesh # so we first apply any Z rotation if ($model_instance->rotation != 0) { $model_object->rotate($model_instance->rotation, Z); $_->set_rotation(0) for @{ $model_object->instances }; } $model_object->rotate(deg2rad($angle), $axis); # realign object to Z = 0 $model_object->center_around_origin; $self->reset_thumbnail($obj_idx); } # update print and start background processing $self->{print}->add_model_object($model_object, $obj_idx); $self->selection_changed; # refresh info (size etc.) $self->update; $self->schedule_background_process; } sub mirror { my ($self, $axis) = @_; my ($obj_idx, $object) = $self->selected_object; return if !defined $obj_idx; my $model_object = $self->{model}->objects->[$obj_idx]; my $model_instance = $model_object->instances->[0]; # apply Z rotation before mirroring if ($model_instance->rotation != 0) { $model_object->rotate($model_instance->rotation, Z); $_->set_rotation(0) for @{ $model_object->instances }; } $model_object->mirror($axis); # realign object to Z = 0 $model_object->center_around_origin; $self->reset_thumbnail($obj_idx); # update print and start background processing $self->stop_background_process; $self->{print}->add_model_object($model_object, $obj_idx); $self->selection_changed; # refresh info (size etc.) $self->update; $self->schedule_background_process; } sub changescale { my ($self, $axis, $tosize) = @_; my ($obj_idx, $object) = $self->selected_object; return if !defined $obj_idx; my $model_object = $self->{model}->objects->[$obj_idx]; my $model_instance = $model_object->instances->[0]; my $object_size = $model_object->bounding_box->size; my $bed_size = Slic3r::Polygon->new_scale(@{$self->{config}->bed_shape})->bounding_box->size; if (defined $axis) { my $axis_name = $axis == X ? 'X' : $axis == Y ? 'Y' : 'Z'; my $scale; if ($tosize) { my $cursize = $object_size->[$axis]; my $newsize = $self->_get_number_from_user( sprintf('Enter the new size for the selected object (print bed: %smm):', unscale($bed_size->[$axis])), "Scale along $axis_name", 'Invalid scaling value entered', $cursize, 1); return if $newsize eq ''; $scale = $newsize / $cursize * 100; } else { $scale = $self->_get_number_from_user('Enter the scale % for the selected object:', "Scale along $axis_name", 'Invalid scaling value entered', 100, 1); return if $scale eq ''; } # apply Z rotation before scaling if ($model_instance->rotation != 0) { $model_object->rotate($model_instance->rotation, Z); $_->set_rotation(0) for @{ $model_object->instances }; } my $versor = [1,1,1]; $versor->[$axis] = $scale/100; $model_object->scale_xyz(Slic3r::Pointf3->new(@$versor)); #FIXME Scale the layer height profile when $axis == Z? #FIXME Scale the layer height ranges $axis == Z? # object was already aligned to Z = 0, so no need to realign it $self->reset_thumbnail($obj_idx); } else { my $scale; if ($tosize) { my $cursize = max(@$object_size); my $newsize = $self->_get_number_from_user('Enter the new max size for the selected object:', 'Scale', 'Invalid scaling value entered', $cursize, 1); return if ! defined($newsize) || $newsize eq ''; $scale = $model_instance->scaling_factor * $newsize / $cursize * 100; } else { # max scale factor should be above 2540 to allow importing files exported in inches $scale = $self->_get_number_from_user('Enter the scale % for the selected object:', 'Scale', 'Invalid scaling value entered', $model_instance->scaling_factor*100, 1); return if ! defined($scale) || $scale eq ''; } $self->{list}->SetItem($obj_idx, 2, "$scale%"); $scale /= 100; # turn percent into factor my $variation = $scale / $model_instance->scaling_factor; #FIXME Scale the layer height profile? foreach my $range (@{ $model_object->layer_height_ranges }) { $range->[0] *= $variation; $range->[1] *= $variation; } $_->set_scaling_factor($scale) for @{ $model_object->instances }; $object->transform_thumbnail($self->{model}, $obj_idx); } # update print and start background processing $self->stop_background_process; $self->{print}->add_model_object($model_object, $obj_idx); $self->selection_changed(1); # refresh info (size, volume etc.) $self->update; $self->schedule_background_process; } sub arrange { my $self = shift; $self->pause_background_process; my $bb = Slic3r::Geometry::BoundingBoxf->new_from_points($self->{config}->bed_shape); my $success = $self->{model}->arrange_objects(wxTheApp->{preset_bundle}->full_config->min_object_distance, $bb); # ignore arrange failures on purpose: user has visual feedback and we don't need to warn him # when parts don't fit in print bed # Force auto center of the aligned grid of of objects on the print bed. $self->update(1); } sub split_object { my $self = shift; my ($obj_idx, $current_object) = $self->selected_object; # we clone model object because split_object() adds the split volumes # into the same model object, thus causing duplicates when we call load_model_objects() my $new_model = $self->{model}->clone; # store this before calling get_object() my $current_model_object = $new_model->get_object($obj_idx); if ($current_model_object->volumes_count > 1) { Slic3r::GUI::warning_catcher($self)->("The selected object can't be split because it contains more than one volume/material."); return; } $self->pause_background_process; my @model_objects = @{$current_model_object->split_object}; if (@model_objects == 1) { $self->resume_background_process; Slic3r::GUI::warning_catcher($self)->("The selected object couldn't be split because it contains only one part."); $self->resume_background_process; return; } $_->center_around_origin for (@model_objects); $self->remove($obj_idx); $current_object = $obj_idx = undef; # load all model objects at once, otherwise the plate would be rearranged after each one # causing original positions not to be kept $self->load_model_objects(@model_objects); } sub schedule_background_process { my ($self) = @_; if (defined $self->{apply_config_timer}) { $self->{apply_config_timer}->Start(PROCESS_DELAY, 1); # 1 = one shot } } # Executed asynchronously by a timer every PROCESS_DELAY (0.5 second). # The timer is started by schedule_background_process(), sub async_apply_config { my ($self) = @_; # pause process thread before applying new config # since we don't want to touch data that is being used by the threads $self->pause_background_process; # apply new config my $invalidated = $self->{print}->apply_config(wxTheApp->{preset_bundle}->full_config); # Just redraw the 3D canvas without reloading the scene. # $self->{canvas3D}->Refresh if ($invalidated && $self->{canvas3D}->layer_editing_enabled); $self->{canvas3D}->Refresh if ($self->{canvas3D}->layer_editing_enabled); # Hide the slicing results if the current slicing status is no more valid. $self->{"print_info_box_show"}->(0) if $invalidated; if (wxTheApp->{app_config}->get("background_processing")) { if ($invalidated) { # kill current thread if any $self->stop_background_process; } else { $self->resume_background_process; } # schedule a new process thread in case it wasn't running $self->start_background_process; } # Reset preview canvases. If the print has been invalidated, the preview canvases will be cleared. # Otherwise they will be just refreshed. if ($invalidated) { $self->{toolpaths2D}->reload_print if $self->{toolpaths2D}; $self->{preview3D}->reload_print if $self->{preview3D}; } } sub start_background_process { my ($self) = @_; return if !@{$self->{objects}}; return if $self->{process_thread}; # It looks like declaring a local $SIG{__WARN__} prevents the ugly # "Attempt to free unreferenced scalar" warning... local $SIG{__WARN__} = Slic3r::GUI::warning_catcher($self); # don't start process thread if config is not valid eval { # this will throw errors if config is not valid wxTheApp->{preset_bundle}->full_config->validate; $self->{print}->validate; }; if ($@) { $self->statusbar->SetStatusText($@); return; } # Copy the names of active presets into the placeholder parser. wxTheApp->{preset_bundle}->export_selections_pp($self->{print}->placeholder_parser); # start thread @_ = (); $self->{process_thread} = Slic3r::spawn_thread(sub { eval { $self->{print}->process; }; if ($@) { Slic3r::debugf "Background process error: $@\n"; Wx::PostEvent($self, Wx::PlThreadEvent->new(-1, $PROCESS_COMPLETED_EVENT, $@)); } else { Wx::PostEvent($self, Wx::PlThreadEvent->new(-1, $PROCESS_COMPLETED_EVENT, undef)); } Slic3r::thread_cleanup(); }); Slic3r::debugf "Background processing started.\n"; } sub stop_background_process { my ($self) = @_; $self->{apply_config_timer}->Stop if defined $self->{apply_config_timer}; $self->statusbar->SetCancelCallback(undef); $self->statusbar->StopBusy; $self->statusbar->SetStatusText(""); $self->{toolpaths2D}->reload_print if $self->{toolpaths2D}; $self->{preview3D}->reload_print if $self->{preview3D}; if ($self->{process_thread}) { Slic3r::debugf "Killing background process.\n"; Slic3r::kill_all_threads(); $self->{process_thread} = undef; } else { Slic3r::debugf "No background process running.\n"; } # if there's an export process, kill that one as well if ($self->{export_thread}) { Slic3r::debugf "Killing background export process.\n"; Slic3r::kill_all_threads(); $self->{export_thread} = undef; } } sub pause_background_process { my ($self) = @_; if ($self->{process_thread} || $self->{export_thread}) { Slic3r::pause_all_threads(); return 1; } elsif (defined $self->{apply_config_timer} && $self->{apply_config_timer}->IsRunning) { $self->{apply_config_timer}->Stop; return 1; } return 0; } sub resume_background_process { my ($self) = @_; if ($self->{process_thread} || $self->{export_thread}) { Slic3r::resume_all_threads(); } } sub reslice { # explicitly cancel a previous thread and start a new one. my ($self) = @_; # Don't reslice if export of G-code or sending to OctoPrint is running. if (! defined($self->{export_gcode_output_file}) && ! defined($self->{send_gcode_file})) { # Stop the background processing threads, stop the async update timer. $self->stop_background_process; # Rather perform one additional unnecessary update of the print object instead of skipping a pending async update. $self->async_apply_config; $self->statusbar->SetCancelCallback(sub { $self->stop_background_process; $self->statusbar->SetStatusText("Slicing cancelled"); # this updates buttons status $self->object_list_changed; }); $self->start_background_process; } } sub export_gcode { my ($self, $output_file) = @_; return if !@{$self->{objects}}; if ($self->{export_gcode_output_file}) { Wx::MessageDialog->new($self, "Another export job is currently running.", 'Error', wxOK | wxICON_ERROR)->ShowModal; return; } # if process is not running, validate config # (we assume that if it is running, config is valid) eval { # this will throw errors if config is not valid wxTheApp->{preset_bundle}->full_config->validate; $self->{print}->validate; }; Slic3r::GUI::catch_error($self) and return; # apply config and validate print my $config = wxTheApp->{preset_bundle}->full_config; eval { # this will throw errors if config is not valid $config->validate; $self->{print}->apply_config($config); $self->{print}->validate; }; Slic3r::GUI::catch_error($self) and return; # select output file if ($output_file) { $self->{export_gcode_output_file} = eval { $self->{print}->output_filepath($output_file) }; Slic3r::GUI::catch_error($self) and return; } else { my $default_output_file = eval { $self->{print}->output_filepath($main::opt{output} // '') }; Slic3r::GUI::catch_error($self) and return; my $dlg = Wx::FileDialog->new($self, 'Save G-code file as:', wxTheApp->{app_config}->get_last_output_dir(dirname($default_output_file)), basename($default_output_file), &Slic3r::GUI::FILE_WILDCARDS->{gcode}, wxFD_SAVE | wxFD_OVERWRITE_PROMPT); if ($dlg->ShowModal != wxID_OK) { $dlg->Destroy; return; } my $path = $dlg->GetPath; wxTheApp->{app_config}->update_last_output_dir(dirname($path)); $self->{export_gcode_output_file} = $path; $dlg->Destroy; } $self->statusbar->StartBusy; $self->statusbar->SetCancelCallback(sub { $self->stop_background_process; $self->statusbar->SetStatusText("Export cancelled"); $self->{export_gcode_output_file} = undef; $self->{send_gcode_file} = undef; # this updates buttons status $self->object_list_changed; }); # start background process, whose completion event handler # will detect $self->{export_gcode_output_file} and proceed with export $self->start_background_process; # this updates buttons status $self->object_list_changed; return $self->{export_gcode_output_file}; } # This gets called only if we have threads. sub on_process_completed { my ($self, $error) = @_; $self->statusbar->SetCancelCallback(undef); $self->statusbar->StopBusy; $self->statusbar->SetStatusText($error // ""); Slic3r::debugf "Background processing completed.\n"; $self->{process_thread}->detach if $self->{process_thread}; $self->{process_thread} = undef; # if we're supposed to perform an explicit export let's display the error in a dialog if ($error && $self->{export_gcode_output_file}) { $self->{export_gcode_output_file} = undef; Slic3r::GUI::show_error($self, $error); } return if $error; $self->{toolpaths2D}->reload_print if $self->{toolpaths2D}; $self->{preview3D}->reload_print if $self->{preview3D}; # if we have an export filename, start a new thread for exporting G-code if ($self->{export_gcode_output_file}) { @_ = (); # workaround for "Attempt to free un referenced scalar..." our $_thread_self = $self; $self->{export_thread} = Slic3r::spawn_thread(sub { eval { $_thread_self->{print}->export_gcode(output_file => $_thread_self->{export_gcode_output_file}); }; if ($@) { Wx::PostEvent($_thread_self, Wx::PlThreadEvent->new(-1, $ERROR_EVENT, shared_clone([ $@ ]))); Wx::PostEvent($_thread_self, Wx::PlThreadEvent->new(-1, $EXPORT_COMPLETED_EVENT, 0)); } else { Wx::PostEvent($_thread_self, Wx::PlThreadEvent->new(-1, $EXPORT_COMPLETED_EVENT, 1)); } Slic3r::thread_cleanup(); }); Slic3r::debugf "Background G-code export started.\n"; } } # This gets called also if we have no threads. sub on_progress_event { my ($self, $percent, $message) = @_; $self->statusbar->SetProgress($percent); $self->statusbar->SetStatusText("$message…"); } # Called when the G-code export finishes, either successfully or with an error. # This gets called also if we don't have threads. sub on_export_completed { my ($self, $result) = @_; $self->statusbar->SetCancelCallback(undef); $self->statusbar->StopBusy; $self->statusbar->SetStatusText(""); Slic3r::debugf "Background export process completed.\n"; $self->{export_thread}->detach if $self->{export_thread}; $self->{export_thread} = undef; my $message; my $send_gcode = 0; my $do_print = 0; if ($result) { # G-code file exported successfully. if ($self->{print_file}) { $message = "File added to print queue"; $do_print = 1; } elsif ($self->{send_gcode_file}) { $message = "Sending G-code file to the OctoPrint server..."; $send_gcode = 1; } else { $message = "G-code file exported to " . $self->{export_gcode_output_file}; } } else { $message = "Export failed"; } $self->{export_gcode_output_file} = undef; $self->statusbar->SetStatusText($message); wxTheApp->notify($message); $self->do_print if $do_print; # Send $self->{send_gcode_file} to OctoPrint. $self->send_gcode if $send_gcode; $self->{print_file} = undef; $self->{send_gcode_file} = undef; $self->{"print_info_cost"}->SetLabel(sprintf("%.2f" , $self->{print}->total_cost)); $self->{"print_info_fil_g"}->SetLabel(sprintf("%.2f" , $self->{print}->total_weight)); $self->{"print_info_fil_mm3"}->SetLabel(sprintf("%.2f" , $self->{print}->total_extruded_volume)); $self->{"print_info_time"}->SetLabel($self->{print}->estimated_print_time); $self->{"print_info_fil_m"}->SetLabel(sprintf("%.2f" , $self->{print}->total_used_filament / 1000)); $self->{"print_info_box_show"}->(1); # this updates buttons status $self->object_list_changed; } sub do_print { my ($self) = @_; my $controller = $self->GetFrame->{controller}; my $printer_preset = wxTheApp->{preset_bundle}->printer->get_edited_preset; my $printer_panel = $controller->add_printer($printer_preset->name, $printer_preset->config); my $filament_stats = $self->{print}->filament_stats; my $filament_names = wxTheApp->{preset_bundle}->filament_presets; $filament_stats = { map { $filament_names->[$_] => $filament_stats->{$_} } keys %$filament_stats }; $printer_panel->load_print_job($self->{print_file}, $filament_stats); $self->GetFrame->select_tab(1); } # Send $self->{send_gcode_file} to OctoPrint. #FIXME Currently this call blocks the UI. Make it asynchronous. sub send_gcode { my ($self) = @_; $self->statusbar->StartBusy; my $ua = LWP::UserAgent->new; $ua->timeout(180); my $res = $ua->post( "http://" . $self->{config}->octoprint_host . "/api/files/local", Content_Type => 'form-data', 'X-Api-Key' => $self->{config}->octoprint_apikey, Content => [ file => [ # On Windows, the path has to be encoded in local code page for perl to be able to open it. Slic3r::encode_path($self->{send_gcode_file}), # Remove the UTF-8 flag from the perl string, so the LWP::UserAgent can insert # the UTF-8 encoded string into the request as a byte stream. Slic3r::path_to_filename_raw($self->{send_gcode_file}) ], print => $self->{send_gcode_file_print} ? 1 : 0, ], ); $self->statusbar->StopBusy; if ($res->is_success) { $self->statusbar->SetStatusText("G-code file successfully uploaded to the OctoPrint server"); } else { my $message = "Error while uploading to the OctoPrint server: " . $res->status_line; Slic3r::GUI::show_error($self, $message); $self->statusbar->SetStatusText($message); } } sub export_stl { my ($self) = @_; return if !@{$self->{objects}}; # Ask user for a file name to write into. my $output_file = $self->_get_export_file('STL') or return; # Store a binary STL. $self->{model}->store_stl($output_file, 1); $self->statusbar->SetStatusText("STL file exported to $output_file"); } sub reload_from_disk { my ($self) = @_; my ($obj_idx, $object) = $self->selected_object; return if !defined $obj_idx; my $model_object = $self->{model}->objects->[$obj_idx]; #FIXME convert to local file encoding return if !$model_object->input_file || !-e $model_object->input_file; my @new_obj_idx = $self->load_files([$model_object->input_file]); return if !@new_obj_idx; foreach my $new_obj_idx (@new_obj_idx) { my $o = $self->{model}->objects->[$new_obj_idx]; $o->clear_instances; $o->add_instance($_) for @{$model_object->instances}; #$o->invalidate_bounding_box; if ($o->volumes_count == $model_object->volumes_count) { for my $i (0..($o->volumes_count-1)) { $o->get_volume($i)->config->apply($model_object->get_volume($i)->config); } } #FIXME restore volumes and their configs, layer_height_ranges, layer_height_profile, layer_height_profile_valid, } $self->remove($obj_idx); } sub export_object_stl { my ($self) = @_; my ($obj_idx, $object) = $self->selected_object; return if !defined $obj_idx; my $model_object = $self->{model}->objects->[$obj_idx]; # Ask user for a file name to write into. my $output_file = $self->_get_export_file('STL') or return; $model_object->mesh->write_binary($output_file); $self->statusbar->SetStatusText("STL file exported to $output_file"); } sub export_amf { my ($self) = @_; return if !@{$self->{objects}}; # Ask user for a file name to write into. my $output_file = $self->_get_export_file('AMF') or return; $self->{model}->store_amf($output_file); $self->statusbar->SetStatusText("AMF file exported to $output_file"); } # Ask user to select an output file for a given file format (STl, AMF, 3MF). # Propose a default file name based on the 'output_filename_format' configuration value. sub _get_export_file { my ($self, $format) = @_; my $suffix = $format eq 'STL' ? '.stl' : '.amf.xml'; my $output_file = eval { $self->{print}->output_filepath($main::opt{output} // '') }; Slic3r::GUI::catch_error($self) and return undef; $output_file =~ s/\.[gG][cC][oO][dD][eE]$/$suffix/; my $dlg = Wx::FileDialog->new($self, "Save $format file as:", dirname($output_file), basename($output_file), &Slic3r::GUI::MODEL_WILDCARD, wxFD_SAVE | wxFD_OVERWRITE_PROMPT); if ($dlg->ShowModal != wxID_OK) { $dlg->Destroy; return undef; } $output_file = $dlg->GetPath; $dlg->Destroy; return $output_file; } sub reset_thumbnail { my ($self, $obj_idx) = @_; $self->{objects}[$obj_idx]->thumbnail(undef); } # this method gets called whenever print center is changed or the objects' bounding box changes # (i.e. when an object is added/removed/moved/rotated/scaled) sub update { my ($self, $force_autocenter) = @_; if (wxTheApp->{app_config}->get("autocenter") || $force_autocenter) { $self->{model}->center_instances_around_point($self->bed_centerf); } my $running = $self->pause_background_process; my $invalidated = $self->{print}->reload_model_instances(); # The mere fact that no steps were invalidated when reloading model instances # doesn't mean that all steps were done: for example, validation might have # failed upon previous instance move, so we have no running thread and no steps # are invalidated on this move, thus we need to schedule a new run. if ($invalidated || !$running) { $self->schedule_background_process; } else { $self->resume_background_process; } $self->{canvas}->reload_scene if $self->{canvas}; $self->{canvas3D}->reload_scene if $self->{canvas3D}; $self->{preview3D}->reload_print if $self->{preview3D}; } # When a number of extruders changes, the UI needs to be updated to show a single filament selection combo box per extruder. # Also the wxTheApp->{preset_bundle}->filament_presets needs to be resized accordingly # and some reasonable default has to be selected for the additional extruders. sub on_extruders_change { my ($self, $num_extruders) = @_; my $choices = $self->{preset_choosers}{filament}; while (int(@$choices) < $num_extruders) { # copy strings from first choice my @presets = $choices->[0]->GetStrings; # initialize new choice my $choice = Wx::BitmapComboBox->new($self, -1, "", wxDefaultPosition, wxDefaultSize, [@presets], wxCB_READONLY); my $extruder_idx = scalar @$choices; EVT_LEFT_DOWN($choice, sub { $self->filament_color_box_lmouse_down($extruder_idx, @_); } ); push @$choices, $choice; # copy icons from first choice $choice->SetItemBitmap($_, $choices->[0]->GetItemBitmap($_)) for 0..$#presets; # insert new choice into sizer $self->{presets_sizer}->Insert(4 + ($#$choices-1)*2, 0, 0); $self->{presets_sizer}->Insert(5 + ($#$choices-1)*2, $choice, 0, wxEXPAND | wxBOTTOM, FILAMENT_CHOOSERS_SPACING); # setup the listener EVT_COMBOBOX($choice, $choice, sub { my ($choice) = @_; wxTheApp->CallAfter(sub { $self->_on_select_preset('filament', $choice, $extruder_idx); }); }); # initialize selection wxTheApp->{preset_bundle}->update_platter_filament_ui($extruder_idx, $choice); } # remove unused choices if any while (@$choices > $num_extruders) { $self->{presets_sizer}->Remove(4 + ($#$choices-1)*2); # label $self->{presets_sizer}->Remove(4 + ($#$choices-1)*2); # wxChoice $choices->[-1]->Destroy; pop @$choices; } $self->Layout; } sub on_config_change { my ($self, $config) = @_; my $update_scheduled; foreach my $opt_key (@{$self->{config}->diff($config)}) { $self->{config}->set($opt_key, $config->get($opt_key)); if ($opt_key eq 'bed_shape') { $self->{canvas}->update_bed_size; $self->{canvas3D}->update_bed_size if $self->{canvas3D}; $self->{preview3D}->set_bed_shape($self->{config}->bed_shape) if $self->{preview3D}; $update_scheduled = 1; } elsif ($opt_key =~ '^wipe_tower' || $opt_key eq 'single_extruder_multi_material') { $update_scheduled = 1; } elsif ($opt_key eq 'serial_port') { $self->{btn_print}->Show($config->get('serial_port')); $self->Layout; } elsif ($opt_key eq 'octoprint_host') { $self->{btn_send_gcode}->Show($config->get('octoprint_host')); $self->Layout; } elsif ($opt_key eq 'variable_layer_height') { if ($config->get('variable_layer_height') != 1) { if ($self->{htoolbar}) { $self->{htoolbar}->EnableTool(TB_LAYER_EDITING, 0); $self->{htoolbar}->ToggleTool(TB_LAYER_EDITING, 0); } else { $self->{"btn_layer_editing"}->Disable; $self->{"btn_layer_editing"}->SetValue(0); } $self->{canvas3D}->layer_editing_enabled(0); $self->{canvas3D}->Refresh; $self->{canvas3D}->Update; } elsif ($self->{canvas3D}->layer_editing_allowed) { # Want to allow the layer editing, but do it only if the OpenGL supports it. if ($self->{htoolbar}) { $self->{htoolbar}->EnableTool(TB_LAYER_EDITING, 1); } else { $self->{"btn_layer_editing"}->Enable; } } } elsif ($opt_key eq 'extruder_colour') { $update_scheduled = 1; my $extruder_colors = $config->get('extruder_colour'); $self->{preview3D}->set_number_extruders(scalar(@{$extruder_colors})); } } $self->update if $update_scheduled; return if !$self->GetFrame->is_loaded; # (re)start timer $self->schedule_background_process; } sub list_item_deselected { my ($self, $event) = @_; return if $PreventListEvents; if ($self->{list}->GetFirstSelected == -1) { $self->select_object(undef); $self->{canvas}->Refresh; #FIXME VBOs are being refreshed just to change a selection color? $self->{canvas3D}->reload_scene if $self->{canvas3D}; } } sub list_item_selected { my ($self, $event) = @_; return if $PreventListEvents; my $obj_idx = $event->GetIndex; $self->select_object($obj_idx); $self->{canvas}->Refresh; #FIXME VBOs are being refreshed just to change a selection color? $self->{canvas3D}->reload_scene if $self->{canvas3D}; } sub list_item_activated { my ($self, $event, $obj_idx) = @_; $obj_idx //= $event->GetIndex; $self->object_settings_dialog($obj_idx); } # Called when clicked on the filament preset combo box. # When clicked on the icon, show the color picker. sub filament_color_box_lmouse_down { my ($self, $extruder_idx, $combobox, $event) = @_; my $pos = $event->GetLogicalPosition(Wx::ClientDC->new($combobox)); my( $x, $y ) = ( $pos->x, $pos->y ); if ($x > 24) { # Let the combo box process the mouse click. $event->Skip; } else { # Swallow the mouse click and open the color picker. my $data = Wx::ColourData->new; $data->SetChooseFull(1); my $dialog = Wx::ColourDialog->new($self->GetFrame, $data); if ($dialog->ShowModal == wxID_OK) { my $cfg = Slic3r::Config->new; my $colors = wxTheApp->{preset_bundle}->full_config->get('extruder_colour'); $colors->[$extruder_idx] = $dialog->GetColourData->GetColour->GetAsString(wxC2S_HTML_SYNTAX); $cfg->set('extruder_colour', $colors); $self->GetFrame->{options_tabs}{printer}->load_config($cfg); wxTheApp->{preset_bundle}->update_platter_filament_ui($extruder_idx, $combobox); } $dialog->Destroy(); } } sub object_cut_dialog { my ($self, $obj_idx) = @_; if (!defined $obj_idx) { ($obj_idx, undef) = $self->selected_object; } if (!$Slic3r::GUI::have_OpenGL) { Slic3r::GUI::show_error($self, "Please install the OpenGL modules to use this feature (see build instructions)."); return; } my $dlg = Slic3r::GUI::Plater::ObjectCutDialog->new($self, object => $self->{objects}[$obj_idx], model_object => $self->{model}->objects->[$obj_idx], ); return unless $dlg->ShowModal == wxID_OK; if (my @new_objects = $dlg->NewModelObjects) { $self->remove($obj_idx); $self->load_model_objects(grep defined($_), @new_objects); $self->arrange; } } sub object_settings_dialog { my ($self, $obj_idx) = @_; ($obj_idx, undef) = $self->selected_object if !defined $obj_idx; my $model_object = $self->{model}->objects->[$obj_idx]; # validate config before opening the settings dialog because # that dialog can't be closed if validation fails, but user # can't fix any error which is outside that dialog eval { wxTheApp->{preset_bundle}->full_config->validate; }; return if Slic3r::GUI::catch_error($_[0]); my $dlg = Slic3r::GUI::Plater::ObjectSettingsDialog->new($self, object => $self->{objects}[$obj_idx], model_object => $model_object, config => wxTheApp->{preset_bundle}->full_config, ); $self->pause_background_process; $dlg->ShowModal; # update thumbnail since parts may have changed if ($dlg->PartsChanged) { # recenter and re-align to Z = 0 $model_object->center_around_origin; $self->reset_thumbnail($obj_idx); } # update print if ($dlg->PartsChanged || $dlg->PartSettingsChanged) { $self->stop_background_process; $self->{print}->reload_object($obj_idx); $self->schedule_background_process; $self->{canvas}->reload_scene if $self->{canvas}; $self->{canvas3D}->reload_scene if $self->{canvas3D}; } else { $self->resume_background_process; } } # Called to update various buttons depending on whether there are any objects or # whether background processing (export of a G-code, sending to Octoprint, forced background re-slicing) is active. sub object_list_changed { my $self = shift; # Enable/disable buttons depending on whether there are any objects on the platter. my $have_objects = @{$self->{objects}} ? 1 : 0; my $variable_layer_height_allowed = $self->{config}->variable_layer_height && $self->{canvas3D}->layer_editing_allowed; if ($self->{htoolbar}) { # On OSX or Linux $self->{htoolbar}->EnableTool($_, $have_objects) for (TB_RESET, TB_ARRANGE, TB_LAYER_EDITING); $self->{htoolbar}->EnableTool(TB_LAYER_EDITING, 0) if (! $variable_layer_height_allowed); } else { # On MSW my $method = $have_objects ? 'Enable' : 'Disable'; $self->{"btn_$_"}->$method for grep $self->{"btn_$_"}, qw(reset arrange reslice export_gcode export_stl print send_gcode layer_editing); $self->{"btn_layer_editing"}->Disable if (! $variable_layer_height_allowed); } my $export_in_progress = $self->{export_gcode_output_file} || $self->{send_gcode_file}; my $method = ($have_objects && ! $export_in_progress) ? 'Enable' : 'Disable'; $self->{"btn_$_"}->$method for grep $self->{"btn_$_"}, qw(reslice export_gcode print send_gcode); } # Selection of an active 3D object changed. sub selection_changed { my ($self) = @_; my ($obj_idx, $object) = $self->selected_object; my $have_sel = defined $obj_idx; if ($self->{htoolbar}) { # On OSX or Linux $self->{htoolbar}->EnableTool($_, $have_sel) for (TB_REMOVE, TB_MORE, TB_FEWER, TB_45CW, TB_45CCW, TB_SCALE, TB_SPLIT, TB_CUT, TB_SETTINGS); } else { # On MSW my $method = $have_sel ? 'Enable' : 'Disable'; $self->{"btn_$_"}->$method for grep $self->{"btn_$_"}, qw(remove increase decrease rotate45cw rotate45ccw changescale split cut settings); } if ($self->{object_info_size}) { # have we already loaded the info pane? if ($have_sel) { my $model_object = $self->{model}->objects->[$obj_idx]; #FIXME print_info runs model fixing in two rounds, it is very slow, it should not be performed here! # $model_object->print_info; my $model_instance = $model_object->instances->[0]; $self->{object_info_size}->SetLabel(sprintf("%.2f x %.2f x %.2f", @{$model_object->instance_bounding_box(0)->size})); $self->{object_info_materials}->SetLabel($model_object->materials_count); if (my $stats = $model_object->mesh_stats) { $self->{object_info_volume}->SetLabel(sprintf('%.2f', $stats->{volume} * ($model_instance->scaling_factor**3))); $self->{object_info_facets}->SetLabel(sprintf('%d (%d shells)', $model_object->facets_count, $stats->{number_of_parts})); if (my $errors = sum(@$stats{qw(degenerate_facets edges_fixed facets_removed facets_added facets_reversed backwards_edges)})) { $self->{object_info_manifold}->SetLabel(sprintf("Auto-repaired (%d errors)", $errors)); $self->{object_info_manifold_warning_icon}->Show; # we don't show normals_fixed because we never provide normals # to admesh, so it generates normals for all facets my $message = sprintf '%d degenerate facets, %d edges fixed, %d facets removed, %d facets added, %d facets reversed, %d backwards edges', @$stats{qw(degenerate_facets edges_fixed facets_removed facets_added facets_reversed backwards_edges)}; $self->{object_info_manifold}->SetToolTipString($message); $self->{object_info_manifold_warning_icon}->SetToolTipString($message); } else { $self->{object_info_manifold}->SetLabel("Yes"); } } else { $self->{object_info_facets}->SetLabel($object->facets); } } else { $self->{"object_info_$_"}->SetLabel("") for qw(size volume facets materials manifold); $self->{object_info_manifold_warning_icon}->Hide; $self->{object_info_manifold}->SetToolTipString(""); } $self->Layout; } # prepagate the event to the frame (a custom Wx event would be cleaner) $self->GetFrame->on_plater_selection_changed($have_sel); } sub select_object { my ($self, $obj_idx) = @_; $_->selected(0) for @{ $self->{objects} }; if (defined $obj_idx) { $self->{objects}->[$obj_idx]->selected(1); # We use this flag to avoid circular event handling # Select() happens to fire a wxEVT_LIST_ITEM_SELECTED on Windows, # whose event handler calls this method again and again and again $PreventListEvents = 1; $self->{list}->Select($obj_idx, 1); $PreventListEvents = 0; } else { # TODO: deselect all in list } $self->selection_changed(1); } sub selected_object { my ($self) = @_; my $obj_idx = first { $self->{objects}[$_]->selected } 0..$#{ $self->{objects} }; return defined $obj_idx ? ($obj_idx, $self->{objects}[$obj_idx]) : undef; } sub statusbar { return $_[0]->GetFrame->{statusbar}; } sub object_menu { my ($self) = @_; my $frame = $self->GetFrame; my $menu = Wx::Menu->new; my $accel = ($^O eq 'MSWin32') ? sub { $_[0] . "\t\xA0" . $_[1] } : sub { $_[0] }; $frame->_append_menu_item($menu, $accel->('Delete', 'Del'), 'Remove the selected object', sub { $self->remove; }, undef, 'brick_delete.png'); $frame->_append_menu_item($menu, $accel->('Increase copies', '+'), 'Place one more copy of the selected object', sub { $self->increase; }, undef, 'add.png'); $frame->_append_menu_item($menu, $accel->('Decrease copies', '-'), 'Remove one copy of the selected object', sub { $self->decrease; }, undef, 'delete.png'); $frame->_append_menu_item($menu, "Set number of copies…", 'Change the number of copies of the selected object', sub { $self->set_number_of_copies; }, undef, 'textfield.png'); $menu->AppendSeparator(); $frame->_append_menu_item($menu, $accel->('Rotate 45° clockwise', 'l'), 'Rotate the selected object by 45° clockwise', sub { $self->rotate(-45, Z, 'relative'); }, undef, 'arrow_rotate_clockwise.png'); $frame->_append_menu_item($menu, $accel->('Rotate 45° counter-clockwise', 'r'), 'Rotate the selected object by 45° counter-clockwise', sub { $self->rotate(+45, Z, 'relative'); }, undef, 'arrow_rotate_anticlockwise.png'); my $rotateMenu = Wx::Menu->new; my $rotateMenuItem = $menu->AppendSubMenu($rotateMenu, "Rotate", 'Rotate the selected object by an arbitrary angle'); $frame->_set_menu_item_icon($rotateMenuItem, 'textfield.png'); $frame->_append_menu_item($rotateMenu, "Around X axis…", 'Rotate the selected object by an arbitrary angle around X axis', sub { $self->rotate(undef, X); }, undef, 'bullet_red.png'); $frame->_append_menu_item($rotateMenu, "Around Y axis…", 'Rotate the selected object by an arbitrary angle around Y axis', sub { $self->rotate(undef, Y); }, undef, 'bullet_green.png'); $frame->_append_menu_item($rotateMenu, "Around Z axis…", 'Rotate the selected object by an arbitrary angle around Z axis', sub { $self->rotate(undef, Z); }, undef, 'bullet_blue.png'); my $mirrorMenu = Wx::Menu->new; my $mirrorMenuItem = $menu->AppendSubMenu($mirrorMenu, "Mirror", 'Mirror the selected object'); $frame->_set_menu_item_icon($mirrorMenuItem, 'shape_flip_horizontal.png'); $frame->_append_menu_item($mirrorMenu, "Along X axis…", 'Mirror the selected object along the X axis', sub { $self->mirror(X); }, undef, 'bullet_red.png'); $frame->_append_menu_item($mirrorMenu, "Along Y axis…", 'Mirror the selected object along the Y axis', sub { $self->mirror(Y); }, undef, 'bullet_green.png'); $frame->_append_menu_item($mirrorMenu, "Along Z axis…", 'Mirror the selected object along the Z axis', sub { $self->mirror(Z); }, undef, 'bullet_blue.png'); my $scaleMenu = Wx::Menu->new; my $scaleMenuItem = $menu->AppendSubMenu($scaleMenu, "Scale", 'Scale the selected object along a single axis'); $frame->_set_menu_item_icon($scaleMenuItem, 'arrow_out.png'); $frame->_append_menu_item($scaleMenu, $accel->('Uniformly…', 's'), 'Scale the selected object along the XYZ axes', sub { $self->changescale(undef); }); $frame->_append_menu_item($scaleMenu, "Along X axis…", 'Scale the selected object along the X axis', sub { $self->changescale(X); }, undef, 'bullet_red.png'); $frame->_append_menu_item($scaleMenu, "Along Y axis…", 'Scale the selected object along the Y axis', sub { $self->changescale(Y); }, undef, 'bullet_green.png'); $frame->_append_menu_item($scaleMenu, "Along Z axis…", 'Scale the selected object along the Z axis', sub { $self->changescale(Z); }, undef, 'bullet_blue.png'); my $scaleToSizeMenu = Wx::Menu->new; my $scaleToSizeMenuItem = $menu->AppendSubMenu($scaleToSizeMenu, "Scale to size", 'Scale the selected object along a single axis'); $frame->_set_menu_item_icon($scaleToSizeMenuItem, 'arrow_out.png'); $frame->_append_menu_item($scaleToSizeMenu, "Uniformly…", 'Scale the selected object along the XYZ axes', sub { $self->changescale(undef, 1); }); $frame->_append_menu_item($scaleToSizeMenu, "Along X axis…", 'Scale the selected object along the X axis', sub { $self->changescale(X, 1); }, undef, 'bullet_red.png'); $frame->_append_menu_item($scaleToSizeMenu, "Along Y axis…", 'Scale the selected object along the Y axis', sub { $self->changescale(Y, 1); }, undef, 'bullet_green.png'); $frame->_append_menu_item($scaleToSizeMenu, "Along Z axis…", 'Scale the selected object along the Z axis', sub { $self->changescale(Z, 1); }, undef, 'bullet_blue.png'); $frame->_append_menu_item($menu, "Split", 'Split the selected object into individual parts', sub { $self->split_object; }, undef, 'shape_ungroup.png'); $frame->_append_menu_item($menu, "Cut…", 'Open the 3D cutting tool', sub { $self->object_cut_dialog; }, undef, 'package.png'); $menu->AppendSeparator(); $frame->_append_menu_item($menu, "Settings…", 'Open the object editor dialog', sub { $self->object_settings_dialog; }, undef, 'cog.png'); $menu->AppendSeparator(); $frame->_append_menu_item($menu, "Reload from Disk", 'Reload the selected file from Disk', sub { $self->reload_from_disk; }, undef, 'arrow_refresh.png'); $frame->_append_menu_item($menu, "Export object as STL…", 'Export this single object as STL file', sub { $self->export_object_stl; }, undef, 'brick_go.png'); return $menu; } # Set a camera direction, zoom to all objects. sub select_view { my ($self, $direction) = @_; my $idx_page = $self->{preview_notebook}->GetSelection; my $page = ($idx_page == &Wx::wxNOT_FOUND) ? '3D' : $self->{preview_notebook}->GetPageText($idx_page); if ($page eq 'Preview') { $self->{preview3D}->canvas->select_view($direction); $self->{canvas3D}->set_viewport_from_scene($self->{preview3D}->canvas); } else { $self->{canvas3D}->select_view($direction); $self->{preview3D}->canvas->set_viewport_from_scene($self->{canvas3D}); } } package Slic3r::GUI::Plater::DropTarget; use Wx::DND; use base 'Wx::FileDropTarget'; sub new { my ($class, $window) = @_; my $self = $class->SUPER::new; $self->{window} = $window; return $self; } sub OnDropFiles { my ($self, $x, $y, $filenames) = @_; # stop scalars leaking on older perl # https://rt.perl.org/rt3/Public/Bug/Display.html?id=70602 @_ = (); # only accept STL, OBJ and AMF files return 0 if grep !/\.(?:[sS][tT][lL]|[oO][bB][jJ]|[aA][mM][fF](?:\.[xX][mM][lL])?|[pP][rR][uU][sS][aA])$/, @$filenames; $self->{window}->load_files($filenames); } # 2D preview of an object. Each object is previewed by its convex hull. package Slic3r::GUI::Plater::Object; use Moo; has 'name' => (is => 'rw', required => 1); has 'thumbnail' => (is => 'rw'); # ExPolygon::Collection in scaled model units with no transforms has 'transformed_thumbnail' => (is => 'rw'); has 'instance_thumbnails' => (is => 'ro', default => sub { [] }); # array of ExPolygon::Collection objects, each one representing the actual placed thumbnail of each instance in pixel units has 'selected' => (is => 'rw', default => sub { 0 }); sub make_thumbnail { my ($self, $model, $obj_idx) = @_; # make method idempotent $self->thumbnail->clear; # raw_mesh is the non-transformed (non-rotated, non-scaled, non-translated) sum of non-modifier object volumes. my $mesh = $model->objects->[$obj_idx]->raw_mesh; #FIXME The "correct" variant could be extremely slow. # if ($mesh->facets_count <= 5000) { # # remove polygons with area <= 1mm # my $area_threshold = Slic3r::Geometry::scale 1; # $self->thumbnail->append( # grep $_->area >= $area_threshold, # @{ $mesh->horizontal_projection }, # horizontal_projection returns scaled expolygons # ); # $self->thumbnail->simplify(0.5); # } else { my $convex_hull = Slic3r::ExPolygon->new($mesh->convex_hull); $self->thumbnail->append($convex_hull); # } return $self->thumbnail; } sub transform_thumbnail { my ($self, $model, $obj_idx) = @_; return unless defined $self->thumbnail; my $model_object = $model->objects->[$obj_idx]; my $model_instance = $model_object->instances->[0]; # the order of these transformations MUST be the same everywhere, including # in Slic3r::Print->add_model_object() my $t = $self->thumbnail->clone; $t->rotate($model_instance->rotation, Slic3r::Point->new(0,0)); $t->scale($model_instance->scaling_factor); $self->transformed_thumbnail($t); } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Plater/ 0000775 0000000 0000000 00000000000 13243544447 0020303 5 ustar 00root root 0000000 0000000 Slic3r-version_1.39.1/lib/Slic3r/GUI/Plater/2D.pm 0000664 0000000 0000000 00000035214 13243544447 0021113 0 ustar 00root root 0000000 0000000 # 2D preview on the platter. # 3D objects are visualized by their convex hulls. package Slic3r::GUI::Plater::2D; use strict; use warnings; use utf8; use List::Util qw(min max first); use Slic3r::Geometry qw(X Y scale unscale convex_hull); use Slic3r::Geometry::Clipper qw(offset JT_ROUND intersection_pl); use Wx qw(wxTheApp :misc :pen :brush :sizer :font :cursor wxTAB_TRAVERSAL); use Wx::Event qw(EVT_MOUSE_EVENTS EVT_PAINT EVT_ERASE_BACKGROUND EVT_SIZE); use base 'Wx::Panel'; sub new { my $class = shift; my ($parent, $size, $objects, $model, $config) = @_; my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, $size, wxTAB_TRAVERSAL); # This has only effect on MacOS. On Windows and Linux/GTK, the background is painted by $self->repaint(). $self->SetBackgroundColour(Wx::wxWHITE); $self->{objects} = $objects; $self->{model} = $model; $self->{config} = $config; $self->{on_select_object} = sub {}; $self->{on_double_click} = sub {}; $self->{on_right_click} = sub {}; $self->{on_instances_moved} = sub {}; $self->{objects_brush} = Wx::Brush->new(Wx::Colour->new(210,210,210), wxSOLID); $self->{selected_brush} = Wx::Brush->new(Wx::Colour->new(255,128,128), wxSOLID); $self->{dragged_brush} = Wx::Brush->new(Wx::Colour->new(128,128,255), wxSOLID); $self->{transparent_brush} = Wx::Brush->new(Wx::Colour->new(0,0,0), wxTRANSPARENT); $self->{grid_pen} = Wx::Pen->new(Wx::Colour->new(230,230,230), 1, wxSOLID); $self->{print_center_pen} = Wx::Pen->new(Wx::Colour->new(200,200,200), 1, wxSOLID); $self->{clearance_pen} = Wx::Pen->new(Wx::Colour->new(0,0,200), 1, wxSOLID); $self->{skirt_pen} = Wx::Pen->new(Wx::Colour->new(150,150,150), 1, wxSOLID); $self->{user_drawn_background} = $^O ne 'darwin'; EVT_PAINT($self, \&repaint); EVT_ERASE_BACKGROUND($self, sub {}) if $self->{user_drawn_background}; EVT_MOUSE_EVENTS($self, \&mouse_event); EVT_SIZE($self, sub { $self->update_bed_size; $self->Refresh; }); return $self; } sub on_select_object { my ($self, $cb) = @_; $self->{on_select_object} = $cb; } sub on_double_click { my ($self, $cb) = @_; $self->{on_double_click} = $cb; } sub on_right_click { my ($self, $cb) = @_; $self->{on_right_click} = $cb; } sub on_instances_moved { my ($self, $cb) = @_; $self->{on_instances_moved} = $cb; } sub repaint { my ($self, $event) = @_; my $dc = Wx::AutoBufferedPaintDC->new($self); my $size = $self->GetSize; my @size = ($size->GetWidth, $size->GetHeight); if ($self->{user_drawn_background}) { # On all systems the AutoBufferedPaintDC() achieves double buffering. # On MacOS the background is erased, on Windows the background is not erased # and on Linux/GTK the background is erased to gray color. # Fill DC with the background on Windows & Linux/GTK. my $brush_background = Wx::Brush->new(Wx::wxWHITE, wxSOLID); $dc->SetPen(wxWHITE_PEN); $dc->SetBrush($brush_background); my $rect = $self->GetUpdateRegion()->GetBox(); $dc->DrawRectangle($rect->GetLeft(), $rect->GetTop(), $rect->GetWidth(), $rect->GetHeight()); } # draw grid $dc->SetPen($self->{grid_pen}); $dc->DrawLine(map @$_, @$_) for @{$self->{grid}}; # draw bed { $dc->SetPen($self->{print_center_pen}); $dc->SetBrush($self->{transparent_brush}); $dc->DrawPolygon($self->scaled_points_to_pixel($self->{bed_polygon}, 1), 0, 0); } # draw print center if (@{$self->{objects}} && wxTheApp->{app_config}->get("autocenter")) { my $center = $self->unscaled_point_to_pixel($self->{print_center}); $dc->SetPen($self->{print_center_pen}); $dc->DrawLine($center->[X], 0, $center->[X], $size[Y]); $dc->DrawLine(0, $center->[Y], $size[X], $center->[Y]); $dc->SetTextForeground(Wx::Colour->new(0,0,0)); $dc->SetFont(Wx::Font->new(10, wxDEFAULT, wxNORMAL, wxNORMAL)); $dc->DrawLabel("X = " . sprintf('%.0f', $self->{print_center}->[X]), Wx::Rect->new(0, 0, $center->[X]*2, $self->GetSize->GetHeight), wxALIGN_CENTER_HORIZONTAL | wxALIGN_BOTTOM); $dc->DrawRotatedText("Y = " . sprintf('%.0f', $self->{print_center}->[Y]), 0, $center->[Y]+15, 90); } # draw frame if (0) { $dc->SetPen(wxBLACK_PEN); $dc->SetBrush($self->{transparent_brush}); $dc->DrawRectangle(0, 0, @size); } # draw text if plate is empty if (!@{$self->{objects}}) { $dc->SetTextForeground(Wx::Colour->new(150,50,50)); $dc->SetFont(Wx::Font->new(14, wxDEFAULT, wxNORMAL, wxNORMAL)); $dc->DrawLabel( join('-', +(localtime)[3,4]) eq '13-8' ? 'What do you want to print today? â„¢' # Sept. 13, 2006. The first part ever printed by a RepRap to make another RepRap. : 'Drag your objects here', Wx::Rect->new(0, 0, $self->GetSize->GetWidth, $self->GetSize->GetHeight), wxALIGN_CENTER_HORIZONTAL | wxALIGN_CENTER_VERTICAL); } # draw thumbnails $dc->SetPen(wxBLACK_PEN); $self->clean_instance_thumbnails; for my $obj_idx (0 .. $#{$self->{objects}}) { my $object = $self->{objects}[$obj_idx]; my $model_object = $self->{model}->objects->[$obj_idx]; next unless defined $object->thumbnail; for my $instance_idx (0 .. $#{$model_object->instances}) { my $instance = $model_object->instances->[$instance_idx]; next if !defined $object->transformed_thumbnail; my $thumbnail = $object->transformed_thumbnail->clone; # in scaled model coordinates $thumbnail->translate(map scale($_), @{$instance->offset}); $object->instance_thumbnails->[$instance_idx] = $thumbnail; if (defined $self->{drag_object} && $self->{drag_object}[0] == $obj_idx && $self->{drag_object}[1] == $instance_idx) { $dc->SetBrush($self->{dragged_brush}); } elsif ($object->selected) { $dc->SetBrush($self->{selected_brush}); } else { $dc->SetBrush($self->{objects_brush}); } foreach my $expolygon (@$thumbnail) { foreach my $points (@{$expolygon->pp}) { $dc->DrawPolygon($self->scaled_points_to_pixel($points, 1), 0, 0); } } if (0) { # draw bounding box for debugging purposes my $bb = $model_object->instance_bounding_box($instance_idx); $bb->scale($self->{scaling_factor}); # no need to translate by instance offset because instance_bounding_box() does that my $points = $bb->polygon->pp; $dc->SetPen($self->{clearance_pen}); $dc->SetBrush($self->{transparent_brush}); $dc->DrawPolygon($self->_y($points), 0, 0); } # if sequential printing is enabled and we have more than one object, draw clearance area if ($self->{config}->complete_objects && (map @{$_->instances}, @{$self->{model}->objects}) > 1) { my ($clearance) = @{offset([$thumbnail->convex_hull], (scale($self->{config}->extruder_clearance_radius) / 2), JT_ROUND, scale(0.1))}; $dc->SetPen($self->{clearance_pen}); $dc->SetBrush($self->{transparent_brush}); $dc->DrawPolygon($self->scaled_points_to_pixel($clearance, 1), 0, 0); } } } # draw skirt if (@{$self->{objects}} && $self->{config}->skirts) { my @points = map @{$_->contour}, map @$_, map @{$_->instance_thumbnails}, @{$self->{objects}}; if (@points >= 3) { my ($convex_hull) = @{offset([convex_hull(\@points)], scale max($self->{config}->brim_width + $self->{config}->skirt_distance), JT_ROUND, scale(0.1))}; $dc->SetPen($self->{skirt_pen}); $dc->SetBrush($self->{transparent_brush}); $dc->DrawPolygon($self->scaled_points_to_pixel($convex_hull, 1), 0, 0); } } $event->Skip; } sub mouse_event { my ($self, $event) = @_; my $pos = $event->GetPosition; my $point = $self->point_to_model_units([ $pos->x, $pos->y ]); #]] if ($event->ButtonDown) { $self->{on_select_object}->(undef); # traverse objects and instances in reverse order, so that if they're overlapping # we get the one that gets drawn last, thus on top (as user expects that to move) OBJECTS: for my $obj_idx (reverse 0 .. $#{$self->{objects}}) { my $object = $self->{objects}->[$obj_idx]; for my $instance_idx (reverse 0 .. $#{ $object->instance_thumbnails }) { my $thumbnail = $object->instance_thumbnails->[$instance_idx]; if (defined first { $_->contour->contains_point($point) } @$thumbnail) { $self->{on_select_object}->($obj_idx); if ($event->LeftDown) { # start dragging my $instance = $self->{model}->objects->[$obj_idx]->instances->[$instance_idx]; my $instance_origin = [ map scale($_), @{$instance->offset} ]; $self->{drag_start_pos} = [ # displacement between the click and the instance origin in scaled model units $point->x - $instance_origin->[X], $point->y - $instance_origin->[Y], #- ]; $self->{drag_object} = [ $obj_idx, $instance_idx ]; } elsif ($event->RightDown) { $self->{on_right_click}->($pos); } last OBJECTS; } } } $self->Refresh; } elsif ($event->LeftUp) { $self->{on_instances_moved}->() if $self->{drag_object}; $self->{drag_start_pos} = undef; $self->{drag_object} = undef; $self->SetCursor(wxSTANDARD_CURSOR); } elsif ($event->LeftDClick) { $self->{on_double_click}->(); } elsif ($event->Dragging) { return if !$self->{drag_start_pos}; # concurrency problems my ($obj_idx, $instance_idx) = @{ $self->{drag_object} }; my $model_object = $self->{model}->objects->[$obj_idx]; $model_object->instances->[$instance_idx]->set_offset( Slic3r::Pointf->new( unscale($point->[X] - $self->{drag_start_pos}[X]), unscale($point->[Y] - $self->{drag_start_pos}[Y]), )); $self->Refresh; } elsif ($event->Moving) { my $cursor = wxSTANDARD_CURSOR; if (defined first { $_->contour->contains_point($point) } map @$_, map @{$_->instance_thumbnails}, @{ $self->{objects} }) { $cursor = Wx::Cursor->new(wxCURSOR_HAND); } $self->SetCursor($cursor); } } sub update_bed_size { my ($self) = @_; # when the canvas is not rendered yet, its GetSize() method returns 0,0 my $canvas_size = $self->GetSize; my ($canvas_w, $canvas_h) = ($canvas_size->GetWidth, $canvas_size->GetHeight); return if $canvas_w == 0; # get bed shape polygon $self->{bed_polygon} = my $polygon = Slic3r::Polygon->new_scale(@{$self->{config}->bed_shape}); my $bb = $polygon->bounding_box; my $size = $bb->size; # calculate the scaling factor needed for constraining print bed area inside preview # scaling_factor is expressed in pixel / mm $self->{scaling_factor} = min($canvas_w / unscale($size->x), $canvas_h / unscale($size->y)); #) # calculate the displacement needed to center bed $self->{bed_origin} = [ $canvas_w/2 - (unscale($bb->x_max + $bb->x_min)/2 * $self->{scaling_factor}), $canvas_h - ($canvas_h/2 - (unscale($bb->y_max + $bb->y_min)/2 * $self->{scaling_factor})), ]; # calculate print center my $center = $bb->center; $self->{print_center} = [ unscale($center->x), unscale($center->y) ]; #)) # cache bed contours and grid { my $step = scale 10; # 1cm grid my @polylines = (); for (my $x = $bb->x_min - ($bb->x_min % $step) + $step; $x < $bb->x_max; $x += $step) { push @polylines, Slic3r::Polyline->new([$x, $bb->y_min], [$x, $bb->y_max]); } for (my $y = $bb->y_min - ($bb->y_min % $step) + $step; $y < $bb->y_max; $y += $step) { push @polylines, Slic3r::Polyline->new([$bb->x_min, $y], [$bb->x_max, $y]); } @polylines = @{intersection_pl(\@polylines, [$polygon])}; $self->{grid} = [ map $self->scaled_points_to_pixel([ @$_[0,-1] ], 1), @polylines ]; } } sub clean_instance_thumbnails { my ($self) = @_; foreach my $object (@{ $self->{objects} }) { @{ $object->instance_thumbnails } = (); } } # convert a model coordinate into a pixel coordinate sub unscaled_point_to_pixel { my ($self, $point) = @_; my $canvas_height = $self->GetSize->GetHeight; my $zero = $self->{bed_origin}; return [ $point->[X] * $self->{scaling_factor} + $zero->[X], $canvas_height - $point->[Y] * $self->{scaling_factor} + ($zero->[Y] - $canvas_height), ]; } sub scaled_points_to_pixel { my ($self, $points, $unscale) = @_; my $result = []; foreach my $point (@$points) { $point = [ map unscale($_), @$point ] if $unscale; push @$result, $self->unscaled_point_to_pixel($point); } return $result; } sub point_to_model_units { my ($self, $point) = @_; my $zero = $self->{bed_origin}; return Slic3r::Point->new( scale ($point->[X] - $zero->[X]) / $self->{scaling_factor}, scale ($zero->[Y] - $point->[Y]) / $self->{scaling_factor}, ); } sub reload_scene { my ($self, $force) = @_; if (! $self->IsShown && ! $force) { $self->{reload_delayed} = 1; return; } $self->{reload_delayed} = 0; foreach my $obj_idx (0..$#{$self->{model}->objects}) { my $plater_object = $self->{objects}[$obj_idx]; next if $plater_object->thumbnail; # The thumbnail is not valid, update it with a convex hull of an object. $plater_object->thumbnail(Slic3r::ExPolygon::Collection->new); $plater_object->make_thumbnail($self->{model}, $obj_idx); $plater_object->transform_thumbnail($self->{model}, $obj_idx); } $self->Refresh; } # Called by the Platter wxNotebook when this page is activated. sub OnActivate { my ($self) = @_; $self->reload_scene(1) if ($self->{reload_delayed}); } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Plater/2DToolpaths.pm 0000664 0000000 0000000 00000073673 13243544447 0023024 0 ustar 00root root 0000000 0000000 # 2D preview of the tool paths of a single layer, using a thin line. # OpenGL is used to render the paths. # Vojtech also added a 2D simulation of under/over extrusion in a single layer. package Slic3r::GUI::Plater::2DToolpaths; use strict; use warnings; use utf8; use Slic3r::Print::State ':steps'; use Wx qw(:misc :sizer :slider :statictext :keycode wxWHITE wxWANTS_CHARS); use Wx::Event qw(EVT_SLIDER EVT_KEY_DOWN); use base qw(Wx::Panel Class::Accessor); __PACKAGE__->mk_accessors(qw(print enabled)); sub new { my $class = shift; my ($parent, $print) = @_; my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, wxDefaultSize, wxWANTS_CHARS); $self->SetBackgroundColour(wxWHITE); # init GUI elements my $canvas = $self->{canvas} = Slic3r::GUI::Plater::2DToolpaths::Canvas->new($self, $print); my $slider = $self->{slider} = Wx::Slider->new( $self, -1, 0, # default 0, # min # we set max to a bogus non-zero value because the MSW implementation of wxSlider # will skip drawing the slider if max <= min: 1, # max wxDefaultPosition, wxDefaultSize, wxVERTICAL | wxSL_INVERSE, ); my $z_label = $self->{z_label} = Wx::StaticText->new($self, -1, "", wxDefaultPosition, [40,-1], wxALIGN_CENTRE_HORIZONTAL); $z_label->SetFont($Slic3r::GUI::small_font); my $vsizer = Wx::BoxSizer->new(wxVERTICAL); $vsizer->Add($slider, 1, wxALL | wxEXPAND | wxALIGN_CENTER, 3); $vsizer->Add($z_label, 0, wxALL | wxEXPAND | wxALIGN_CENTER, 3); my $sizer = Wx::BoxSizer->new(wxHORIZONTAL); $sizer->Add($canvas, 1, wxALL | wxEXPAND, 0); $sizer->Add($vsizer, 0, wxTOP | wxBOTTOM | wxEXPAND, 5); EVT_SLIDER($self, $slider, sub { $self->set_z($self->{layers_z}[$slider->GetValue]) if $self->enabled; }); EVT_KEY_DOWN($canvas, sub { my ($s, $event) = @_; if ($event->HasModifiers) { $event->Skip; } else { my $key = $event->GetKeyCode; if ($key == ord('D') || $key == WXK_LEFT) { # Keys: 'D' or WXK_LEFT $slider->SetValue($slider->GetValue - 1); $self->set_z($self->{layers_z}[$slider->GetValue]); } elsif ($key == ord('U') || $key == WXK_RIGHT) { # Keys: 'U' or WXK_RIGHT $slider->SetValue($slider->GetValue + 1); $self->set_z($self->{layers_z}[$slider->GetValue]); } elsif ($key >= ord('1') && $key <= ord('3')) { # Keys: '1' to '3' $canvas->set_simulation_mode($key - ord('1')); } else { $event->Skip; } } }); $self->SetSizer($sizer); $self->SetMinSize($self->GetSize); $sizer->SetSizeHints($self); # init print $self->{print} = $print; $self->reload_print; return $self; } sub reload_print { my ($self) = @_; # we require that there's at least one object and the posSlice step # is performed on all of them (this ensures that _shifted_copies was # populated and we know the number of layers) if (!$self->print->object_step_done(STEP_SLICE)) { $self->enabled(0); $self->{slider}->Hide; $self->{canvas}->Refresh; # clears canvas return; } $self->{canvas}->bb($self->print->total_bounding_box); $self->{canvas}->_dirty(1); my %z = (); # z => 1 foreach my $object (@{$self->{print}->objects}) { foreach my $layer (@{$object->layers}, @{$object->support_layers}) { $z{$layer->print_z} = 1; } } $self->enabled(1); $self->{layers_z} = [ sort { $a <=> $b } keys %z ]; $self->{slider}->SetRange(0, scalar(@{$self->{layers_z}})-1); if ((my $z_idx = $self->{slider}->GetValue) <= $#{$self->{layers_z}}) { $self->set_z($self->{layers_z}[$z_idx]); } else { $self->{slider}->SetValue(0); $self->set_z($self->{layers_z}[0]) if @{$self->{layers_z}}; } $self->{slider}->Show; $self->Layout; } sub set_z { my ($self, $z) = @_; return if !$self->enabled; $self->{z_label}->SetLabel(sprintf '%.2f', $z); $self->{canvas}->set_z($z); } package Slic3r::GUI::Plater::2DToolpaths::Canvas; use Wx::Event qw(EVT_PAINT EVT_SIZE EVT_IDLE EVT_MOUSEWHEEL EVT_MOUSE_EVENTS); use OpenGL qw(:glconstants :glfunctions :glufunctions :gluconstants); use base qw(Wx::GLCanvas Class::Accessor); use Wx::GLCanvas qw(:all); use List::Util qw(min max first); use Slic3r::Geometry qw(scale epsilon X Y); use Slic3r::Print::State ':steps'; __PACKAGE__->mk_accessors(qw( print z layers color init bb _camera_bb _dirty _zoom _camera_target _drag_start_xy _texture_name _texture_size _extrusion_simulator _simulation_mode )); # make OpenGL::Array thread-safe { no warnings 'redefine'; *OpenGL::Array::CLONE_SKIP = sub { 1 }; } sub new { my ($class, $parent, $print) = @_; my $self = (Wx::wxVERSION >= 3.000003) ? # The wxWidgets 3.0.3-beta have a bug, they crash with NULL attribute list. $class->SUPER::new($parent, -1, Wx::wxDefaultPosition, Wx::wxDefaultSize, 0, "", [WX_GL_RGBA, WX_GL_DOUBLEBUFFER, WX_GL_DEPTH_SIZE, 24, 0]) : $class->SUPER::new($parent); # Immediatelly force creation of the OpenGL context to consume the static variable s_wglContextAttribs. $self->GetContext(); $self->print($print); $self->_zoom(1); # 2D point in model space $self->_camera_target(Slic3r::Pointf->new(0,0)); # Texture for the extrusion simulator. The texture will be allocated / reallocated on Resize. $self->_texture_name(0); $self->_texture_size(Slic3r::Point->new(0,0)); $self->_extrusion_simulator(Slic3r::ExtrusionSimulator->new()); $self->_simulation_mode(0); EVT_PAINT($self, sub { my $dc = Wx::PaintDC->new($self); $self->Render($dc); }); EVT_SIZE($self, sub { $self->_dirty(1) }); EVT_IDLE($self, sub { return unless $self->_dirty; return if !$self->IsShownOnScreen; $self->Resize; $self->Refresh; }); EVT_MOUSEWHEEL($self, sub { my ($self, $e) = @_; return if !$self->GetParent->enabled; my $old_zoom = $self->_zoom; # Calculate the zoom delta and apply it to the current zoom factor my $zoom = $e->GetWheelRotation() / $e->GetWheelDelta(); $zoom = max(min($zoom, 4), -4); $zoom /= 10; $self->_zoom($self->_zoom / (1-$zoom)); $self->_zoom(1) if $self->_zoom > 1; # prevent from zooming out too much { # In order to zoom around the mouse point we need to translate # the camera target. This math is almost there but not perfect yet... my $camera_bb_size = $self->_camera_bb->size; my $size = Slic3r::Pointf->new($self->GetSizeWH); my $pos = Slic3r::Pointf->new($e->GetPositionXY); # calculate the zooming center in pixel coordinates relative to the viewport center my $vec = Slic3r::Pointf->new($pos->x - $size->x/2, $pos->y - $size->y/2); #- # calculate where this point will end up after applying the new zoom my $vec2 = $vec->clone; $vec2->scale($old_zoom / $self->_zoom); # move the camera target by the difference of the two positions $self->_camera_target->translate( -($vec->x - $vec2->x) * $camera_bb_size->x / $size->x, ($vec->y - $vec2->y) * $camera_bb_size->y / $size->y, #// ); } $self->_dirty(1); $self->Refresh; }); EVT_MOUSE_EVENTS($self, \&mouse_event); return $self; } sub Destroy { my ($self) = @_; # Deallocate the OpenGL resources. my $context = $self->GetContext; if ($context and $self->texture_id) { $self->SetCurrent($context); glDeleteTextures(1, ($self->texture_id)); $self->SetCurrent(0); $self->texture_id(0); $self->texture_size(new Slic3r::Point(0, 0)); } return $self->SUPER::Destroy; } sub mouse_event { my ($self, $e) = @_; return if !$self->GetParent->enabled; my $pos = Slic3r::Pointf->new($e->GetPositionXY); if ($e->Entering && &Wx::wxMSW) { # wxMSW needs focus in order to catch mouse wheel events $self->SetFocus; } elsif ($e->Dragging) { if ($e->LeftIsDown || $e->MiddleIsDown || $e->RightIsDown) { # if dragging, translate view if (defined $self->_drag_start_xy) { my $move = $self->_drag_start_xy->vector_to($pos); # in pixels # get viewport and camera size in order to convert pixel to model units my ($x, $y) = $self->GetSizeWH; my $camera_bb_size = $self->_camera_bb->size; # compute translation in model units $self->_camera_target->translate( -$move->x * $camera_bb_size->x / $x, $move->y * $camera_bb_size->y / $y, # /** ); $self->_dirty(1); $self->Refresh; } $self->_drag_start_xy($pos); } } elsif ($e->LeftUp || $e->MiddleUp || $e->RightUp) { $self->_drag_start_xy(undef); } else { $e->Skip(); } } sub set_z { my ($self, $z) = @_; my $print = $self->print; # can we have interlaced layers? my $interlaced = (defined first { $_->config->support_material } @{$print->objects}) || (defined first { $_->config->infill_every_layers > 1 } @{$print->regions}); my $max_layer_height = $print->max_allowed_layer_height; my @layers = (); foreach my $object (@{$print->objects}) { foreach my $layer (@{$object->layers}, @{$object->support_layers}) { if ($interlaced) { push @layers, $layer if $z > ($layer->print_z - $max_layer_height - epsilon) && $z <= $layer->print_z + epsilon; } else { push @layers, $layer if abs($layer->print_z - $z) < epsilon; } } } # reverse layers so that we draw the lowermost (i.e. current) on top $self->z($z); $self->layers([ reverse @layers ]); $self->Refresh; } sub set_simulation_mode { my ($self, $mode) = @_; $self->_simulation_mode($mode); $self->_dirty(1); $self->Refresh; } sub Render { my ($self, $dc) = @_; # prevent calling SetCurrent() when window is not shown yet return unless $self->IsShownOnScreen; return unless my $context = $self->GetContext; $self->SetCurrent($context); $self->InitGL; glClearColor(1, 1, 1, 0); glClear(GL_COLOR_BUFFER_BIT); if (!$self->GetParent->enabled || !$self->layers) { $self->SwapBuffers; return; } glDisable(GL_DEPTH_TEST); glMatrixMode(GL_MODELVIEW); glLoadIdentity(); if ($self->_simulation_mode and $self->_texture_name and $self->_texture_size->x() > 0 and $self->_texture_size->y() > 0) { $self->_simulate_extrusion(); my ($x, $y) = $self->GetSizeWH; glEnable(GL_TEXTURE_2D); glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE,GL_REPLACE); glBindTexture(GL_TEXTURE_2D, $self->_texture_name); glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT); glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT); glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST); glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST); glTexImage2D_c(GL_TEXTURE_2D, 0, # level (0 normal, heighr is form mip-mapping) GL_RGBA, # internal format $self->_texture_size->x(), $self->_texture_size->y(), 0, # border GL_RGBA, # format RGBA color data GL_UNSIGNED_BYTE, # unsigned byte data $self->_extrusion_simulator->image_ptr()); # ptr to texture data glMatrixMode(GL_PROJECTION); glPushMatrix(); glLoadIdentity(); glOrtho(0, 1, 0, 1, 0, 1); glBegin(GL_QUADS); glTexCoord2f(0, 0); glVertex2f(0, 0); glTexCoord2f($x/$self->_texture_size->x(), 0); glVertex2f(1, 0); glTexCoord2f($x/$self->_texture_size->x(), $y/$self->_texture_size->y()); glVertex2f(1, 1); glTexCoord2f(0, $y/$self->_texture_size->y()); glVertex2f(0, 1); glEnd(); glPopMatrix(); glBindTexture(GL_TEXTURE_2D, 0); } # anti-alias if (0) { glEnable(GL_LINE_SMOOTH); glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); glHint(GL_LINE_SMOOTH_HINT, GL_DONT_CARE); glHint(GL_POLYGON_SMOOTH_HINT, GL_DONT_CARE); } # Tesselator triangulates polygons with holes on the fly for the rendering purposes only. my $tess; if ($self->_simulation_mode() == 0 and !(&Wx::wxMSW && $OpenGL::VERSION < 0.6704)) { # We can't use the GLU tesselator on MSW with older OpenGL versions # because of an upstream bug: # http://sourceforge.net/p/pogl/bugs/16/ $tess = gluNewTess(); gluTessCallback($tess, GLU_TESS_BEGIN, 'DEFAULT'); gluTessCallback($tess, GLU_TESS_END, 'DEFAULT'); gluTessCallback($tess, GLU_TESS_VERTEX, 'DEFAULT'); gluTessCallback($tess, GLU_TESS_COMBINE, 'DEFAULT'); gluTessCallback($tess, GLU_TESS_ERROR, 'DEFAULT'); gluTessCallback($tess, GLU_TESS_EDGE_FLAG, 'DEFAULT'); } foreach my $layer (@{$self->layers}) { my $object = $layer->object; # only draw the slice for the current layer next unless abs($layer->print_z - $self->z) < epsilon; # draw slice contour glLineWidth(1); foreach my $copy (@{ $object->_shifted_copies }) { glPushMatrix(); glTranslatef(@$copy, 0); foreach my $slice (@{$layer->slices}) { glColor3f(0.95, 0.95, 0.95); if ($tess) { gluTessBeginPolygon($tess); foreach my $polygon (@$slice) { gluTessBeginContour($tess); gluTessVertex_p($tess, @$_, 0) for @$polygon; gluTessEndContour($tess); } gluTessEndPolygon($tess); } glColor3f(0.9, 0.9, 0.9); foreach my $polygon (@$slice) { foreach my $line (@{$polygon->lines}) { glBegin(GL_LINES); glVertex2f(@{$line->a}); glVertex2f(@{$line->b}); glEnd(); } } } glPopMatrix(); } } my $skirt_drawn = 0; my $brim_drawn = 0; foreach my $layer (@{$self->layers}) { my $object = $layer->object; my $print_z = $layer->print_z; # draw brim if ($self->print->step_done(STEP_BRIM) && $layer->id == 0 && !$brim_drawn) { $self->color([0, 0, 0]); $self->_draw(undef, $print_z, $_) for @{$self->print->brim}; $brim_drawn = 1; } if ($self->print->step_done(STEP_SKIRT) && ($self->print->has_infinite_skirt() || $self->print->config->skirt_height > $layer->id) && !$skirt_drawn) { $self->color([0, 0, 0]); $self->_draw(undef, $print_z, $_) for @{$self->print->skirt}; $skirt_drawn = 1; } foreach my $layerm (@{$layer->regions}) { if ($object->step_done(STEP_PERIMETERS)) { $self->color([0.7, 0, 0]); $self->_draw($object, $print_z, $_) for map @$_, @{$layerm->perimeters}; } if ($object->step_done(STEP_INFILL)) { $self->color([0, 0, 0.7]); $self->_draw($object, $print_z, $_) for map @$_, @{$layerm->fills}; } } if ($object->step_done(STEP_SUPPORTMATERIAL)) { if ($layer->isa('Slic3r::Layer::Support')) { $self->color([0, 0, 0]); $self->_draw($object, $print_z, $_) for @{$layer->support_fills}; } } } gluDeleteTess($tess) if $tess; $self->SwapBuffers; } sub _draw { my ($self, $object, $print_z, $path) = @_; my @paths = ($path->isa('Slic3r::ExtrusionLoop') || $path->isa('Slic3r::ExtrusionMultiPath')) ? @$path : ($path); $self->_draw_path($object, $print_z, $_) for @paths; } sub _draw_path { my ($self, $object, $print_z, $path) = @_; return if $print_z - $path->height > $self->z - epsilon; if (abs($print_z - $self->z) < epsilon) { glColor3f(@{$self->color}); } else { glColor3f(0.8, 0.8, 0.8); } glLineWidth(1); if (defined $object) { foreach my $copy (@{ $object->_shifted_copies }) { glPushMatrix(); glTranslatef(@$copy, 0); foreach my $line (@{$path->polyline->lines}) { glBegin(GL_LINES); glVertex2f(@{$line->a}); glVertex2f(@{$line->b}); glEnd(); } glPopMatrix(); } } else { foreach my $line (@{$path->polyline->lines}) { glBegin(GL_LINES); glVertex2f(@{$line->a}); glVertex2f(@{$line->b}); glEnd(); } } } sub _simulate_extrusion { my ($self) = @_; $self->_extrusion_simulator->reset_accumulator(); foreach my $layer (@{$self->layers}) { if (abs($layer->print_z - $self->z) < epsilon) { my $object = $layer->object; my @shifts = (defined $object) ? @{$object->_shifted_copies} : (Slic3r::Point->new(0, 0)); foreach my $layerm (@{$layer->regions}) { my @extrusions = (); if ($object->step_done(STEP_PERIMETERS)) { push @extrusions, @$_ for @{$layerm->perimeters}; } if ($object->step_done(STEP_INFILL)) { push @extrusions, @$_ for @{$layerm->fills}; } foreach my $extrusion_entity (@extrusions) { my @paths = ($extrusion_entity->isa('Slic3r::ExtrusionLoop') || $extrusion_entity->isa('Slic3r::ExtrusionMultiPath')) ? @$extrusion_entity : ($extrusion_entity); foreach my $path (@paths) { print "width: ", $path->width, " height: ", $path->height, " mm3_per_mm: ", $path->mm3_per_mm, " height2: ", $path->mm3_per_mm / $path->height, "\n"; $self->_extrusion_simulator->extrude_to_accumulator($path, $_, $self->_simulation_mode()) for @shifts; } } } } } $self->_extrusion_simulator->evaluate_accumulator($self->_simulation_mode()); } sub InitGL { my $self = shift; return if $self->init; return unless $self->GetContext; my $texture_id = 0; ($texture_id) = glGenTextures_p(1); $self->_texture_name($texture_id); $self->init(1); } sub GetContext { my ($self) = @_; return $self->{context} ||= Wx::GLContext->new($self); } sub SetCurrent { my ($self, $context) = @_; return $self->SUPER::SetCurrent($context); } sub Resize { my ($self) = @_; return unless $self->GetContext; return unless $self->bb; $self->_dirty(0); $self->SetCurrent($self->GetContext); my ($x, $y) = $self->GetSizeWH; if ($self->_texture_size->x() < $x or $self->_texture_size->y() < $y) { # Allocate a large enough OpenGL texture with power of 2 dimensions. $self->_texture_size->set_x(1) if ($self->_texture_size->x() == 0); $self->_texture_size->set_y(1) if ($self->_texture_size->y() == 0); $self->_texture_size->set_x($self->_texture_size->x() * 2) while ($self->_texture_size->x() < $x); $self->_texture_size->set_y($self->_texture_size->y() * 2) while ($self->_texture_size->y() < $y); #print "screen size ", $x, "x", $y; #print "texture size ", $self->_texture_size->x(), "x", $self->_texture_size->y(); # Initialize an empty texture. glBindTexture(GL_TEXTURE_2D, $self->_texture_name); if (1) { glTexImage2D_c(GL_TEXTURE_2D, 0, # level (0 normal, heighr is form mip-mapping) GL_RGBA, # internal format $self->_texture_size->x(), $self->_texture_size->y(), 0, # border GL_RGBA, # format RGBA color data GL_UNSIGNED_BYTE, # unsigned byte data 0); # ptr to texture data } glBindTexture(GL_TEXTURE_2D, 0); $self->_extrusion_simulator->set_image_size($self->_texture_size); } $self->_extrusion_simulator->set_viewport(Slic3r::Geometry::BoundingBox->new_from_points( [Slic3r::Point->new(0, 0), Slic3r::Point->new($x, $y)])); glViewport(0, 0, $x, $y); glMatrixMode(GL_PROJECTION); glLoadIdentity(); my $bb = $self->bb->clone; # center bounding box around origin before scaling it my $bb_center = $bb->center; $bb->translate(@{$bb_center->negative}); # scale bounding box according to zoom factor $bb->scale($self->_zoom); # reposition bounding box around original center $bb->translate(@{$bb_center}); # translate camera $bb->translate(@{$self->_camera_target}); # keep camera_bb within total bb # (i.e. prevent user from panning outside the bounding box) { my @translate = (0,0); if ($bb->x_min < $self->bb->x_min) { $translate[X] += $self->bb->x_min - $bb->x_min; } if ($bb->y_min < $self->bb->y_min) { $translate[Y] += $self->bb->y_min - $bb->y_min; } if ($bb->x_max > $self->bb->x_max) { $translate[X] -= $bb->x_max - $self->bb->x_max; } if ($bb->y_max > $self->bb->y_max) { $translate[Y] -= $bb->y_max - $self->bb->y_max; } $self->_camera_target->translate(@translate); $bb->translate(@translate); } # save camera $self->_camera_bb($bb); my ($x1, $y1, $x2, $y2) = ($bb->x_min, $bb->y_min, $bb->x_max, $bb->y_max); if (($x2 - $x1)/($y2 - $y1) > $x/$y) { # adjust Y my $new_y = $y * ($x2 - $x1) / $x; $y1 = ($y2 + $y1)/2 - $new_y/2; $y2 = $y1 + $new_y; } else { my $new_x = $x * ($y2 - $y1) / $y; $x1 = ($x2 + $x1)/2 - $new_x/2; $x2 = $x1 + $new_x; } glOrtho($x1, $x2, $y1, $y2, 0, 1); # Set the adjusted bounding box at the extrusion simulator. #print "Scene bbox ", $bb->x_min, ",", $bb->y_min, " ", $bb->x_max, ",", $bb->y_max, "\n"; #print "Setting simulator bbox ", $x1, ",", $y1, " ", $x2, ",", $y2, "\n"; $self->_extrusion_simulator->set_bounding_box( Slic3r::Geometry::BoundingBox->new_from_points( [Slic3r::Point->new($x1, $y1), Slic3r::Point->new($x2, $y2)])); glMatrixMode(GL_MODELVIEW); } # Thick line drawing is not used anywhere. Probably not tested? sub line { my ( $x1, $y1, $x2, $y2, # coordinates of the line $w, # width/thickness of the line in pixel $Cr, $Cg, $Cb, # RGB color components $Br, $Bg, $Bb, # color of background when alphablend=false # Br=alpha of color when alphablend=true $alphablend, # use alpha blend or not ) = @_; my $t; my $R; my $f = $w - int($w); my $A; if ($alphablend) { $A = $Br; } else { $A = 1; } # determine parameters t,R if ($w >= 0 && $w < 1) { $t = 0.05; $R = 0.48 + 0.32 * $f; if (!$alphablend) { $Cr += 0.88 * (1-$f); $Cg += 0.88 * (1-$f); $Cb += 0.88 * (1-$f); $Cr = 1.0 if ($Cr > 1.0); $Cg = 1.0 if ($Cg > 1.0); $Cb = 1.0 if ($Cb > 1.0); } else { $A *= $f; } } elsif ($w >= 1.0 && $w < 2.0) { $t = 0.05 + $f*0.33; $R = 0.768 + 0.312*$f; } elsif ($w >= 2.0 && $w < 3.0) { $t = 0.38 + $f*0.58; $R = 1.08; } elsif ($w >= 3.0 && $w < 4.0) { $t = 0.96 + $f*0.48; $R = 1.08; } elsif ($w >= 4.0 && $w < 5.0) { $t= 1.44 + $f*0.46; $R = 1.08; } elsif ($w >= 5.0 && $w < 6.0) { $t= 1.9 + $f*0.6; $R = 1.08; } elsif ($w >= 6.0) { my $ff = $w - 6.0; $t = 2.5 + $ff*0.50; $R = 1.08; } #printf( "w=%f, f=%f, C=%.4f\n", $w, $f, $C); # determine angle of the line to horizontal my $tx = 0; my $ty = 0; # core thinkness of a line my $Rx = 0; my $Ry = 0; # fading edge of a line my $cx = 0; my $cy = 0; # cap of a line my $ALW = 0.01; my $dx = $x2 - $x1; my $dy = $y2 - $y1; if (abs($dx) < $ALW) { # vertical $tx = $t; $ty = 0; $Rx = $R; $Ry = 0; if ($w > 0.0 && $w < 1.0) { $tx *= 8; } elsif ($w == 1.0) { $tx *= 10; } } elsif (abs($dy) < $ALW) { #horizontal $tx = 0; $ty = $t; $Rx = 0; $Ry = $R; if ($w > 0.0 && $w < 1.0) { $ty *= 8; } elsif ($w == 1.0) { $ty *= 10; } } else { if ($w < 3) { # approximate to make things even faster my $m = $dy/$dx; # and calculate tx,ty,Rx,Ry if ($m > -0.4142 && $m <= 0.4142) { # -22.5 < $angle <= 22.5, approximate to 0 (degree) $tx = $t * 0.1; $ty = $t; $Rx = $R * 0.6; $Ry = $R; } elsif ($m > 0.4142 && $m <= 2.4142) { # 22.5 < $angle <= 67.5, approximate to 45 (degree) $tx = $t * -0.7071; $ty = $t * 0.7071; $Rx = $R * -0.7071; $Ry = $R * 0.7071; } elsif ($m > 2.4142 || $m <= -2.4142) { # 67.5 < $angle <= 112.5, approximate to 90 (degree) $tx = $t; $ty = $t*0.1; $Rx = $R; $Ry = $R*0.6; } elsif ($m > -2.4142 && $m < -0.4142) { # 112.5 < angle < 157.5, approximate to 135 (degree) $tx = $t * 0.7071; $ty = $t * 0.7071; $Rx = $R * 0.7071; $Ry = $R * 0.7071; } else { # error in determining angle printf("error in determining angle: m=%.4f\n", $m); } } else { # calculate to exact $dx= $y1 - $y2; $dy= $x2 - $x1; my $L = sqrt($dx*$dx + $dy*$dy); $dx /= $L; $dy /= $L; $cx = -0.6*$dy; $cy=0.6*$dx; $tx = $t*$dx; $ty = $t*$dy; $Rx = $R*$dx; $Ry = $R*$dy; } } # draw the line by triangle strip glBegin(GL_TRIANGLE_STRIP); if (!$alphablend) { glColor3f($Br, $Bg, $Bb); } else { glColor4f($Cr, $Cg, $Cb, 0); } glVertex2f($x1 - $tx - $Rx, $y1 - $ty - $Ry); # fading edge glVertex2f($x2 - $tx - $Rx, $y2 - $ty - $Ry); if (!$alphablend) { glColor3f($Cr, $Cg, $Cb); } else { glColor4f($Cr, $Cg, $Cb, $A); } glVertex2f($x1 - $tx, $y1 - $ty); # core glVertex2f($x2 - $tx, $y2 - $ty); glVertex2f($x1 + $tx, $y1 + $ty); glVertex2f($x2 + $tx, $y2 + $ty); if ((abs($dx) < $ALW || abs($dy) < $ALW) && $w <= 1.0) { # printf("skipped one fading edge\n"); } else { if (!$alphablend) { glColor3f($Br, $Bg, $Bb); } else { glColor4f($Cr, $Cg, $Cb, 0); } glVertex2f($x1 + $tx+ $Rx, $y1 + $ty + $Ry); # fading edge glVertex2f($x2 + $tx+ $Rx, $y2 + $ty + $Ry); } glEnd(); # cap if ($w < 3) { # do not draw cap } else { # draw cap glBegin(GL_TRIANGLE_STRIP); if (!$alphablend) { glColor3f($Br, $Bg, $Bb); } else { glColor4f($Cr, $Cg, $Cb, 0); } glVertex2f($x1 - $Rx + $cx, $y1 - $Ry + $cy); glVertex2f($x1 + $Rx + $cx, $y1 + $Ry + $cy); glColor3f($Cr, $Cg, $Cb); glVertex2f($x1 - $tx - $Rx, $y1 - $ty - $Ry); glVertex2f($x1 + $tx + $Rx, $y1 + $ty + $Ry); glEnd(); glBegin(GL_TRIANGLE_STRIP); if (!$alphablend) { glColor3f($Br, $Bg, $Bb); } else { glColor4f($Cr, $Cg, $Cb, 0); } glVertex2f($x2 - $Rx - $cx, $y2 - $Ry - $cy); glVertex2f($x2 + $Rx - $cx, $y2 + $Ry - $cy); glColor3f($Cr, $Cg, $Cb); glVertex2f($x2 - $tx - $Rx, $y2 - $ty - $Ry); glVertex2f($x2 + $tx + $Rx, $y2 + $ty + $Ry); glEnd(); } } package Slic3r::GUI::Plater::2DToolpaths::Dialog; use Wx qw(:dialog :id :misc :sizer); use Wx::Event qw(EVT_CLOSE); use base 'Wx::Dialog'; sub new { my $class = shift; my ($parent, $print) = @_; my $self = $class->SUPER::new($parent, -1, "Toolpaths", wxDefaultPosition, [500,500], wxDEFAULT_DIALOG_STYLE | wxRESIZE_BORDER); my $sizer = Wx::BoxSizer->new(wxVERTICAL); $sizer->Add(Slic3r::GUI::Plater::2DToolpaths->new($self, $print), 1, wxEXPAND, 0); $self->SetSizer($sizer); $self->SetMinSize($self->GetSize); # needed to actually free memory EVT_CLOSE($self, sub { $self->EndModal(wxID_OK); $self->Destroy; }); return $self; } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Plater/3D.pm 0000664 0000000 0000000 00000015161 13243544447 0021113 0 ustar 00root root 0000000 0000000 package Slic3r::GUI::Plater::3D; use strict; use warnings; use utf8; use List::Util qw(); use Wx qw(:misc :pen :brush :sizer :font :cursor :keycode wxTAB_TRAVERSAL); use Wx::Event qw(EVT_KEY_DOWN EVT_CHAR); use base qw(Slic3r::GUI::3DScene Class::Accessor); __PACKAGE__->mk_accessors(qw( on_arrange on_rotate_object_left on_rotate_object_right on_scale_object_uniformly on_remove_object on_increase_objects on_decrease_objects)); sub new { my $class = shift; my ($parent, $objects, $model, $print, $config) = @_; my $self = $class->SUPER::new($parent); $self->enable_picking(1); $self->enable_moving(1); $self->select_by('object'); $self->drag_by('instance'); $self->{objects} = $objects; $self->{model} = $model; $self->{print} = $print; $self->{config} = $config; $self->{on_select_object} = sub {}; $self->{on_instances_moved} = sub {}; $self->{on_wipe_tower_moved} = sub {}; $self->on_select(sub { my ($volume_idx) = @_; $self->{on_select_object}->(($volume_idx == -1) ? undef : $self->volumes->[$volume_idx]->object_idx) if ($self->{on_select_object}); }); $self->on_move(sub { my @volume_idxs = @_; my %done = (); # prevent moving instances twice my $object_moved; my $wipe_tower_moved; foreach my $volume_idx (@volume_idxs) { my $volume = $self->volumes->[$volume_idx]; my $obj_idx = $volume->object_idx; my $instance_idx = $volume->instance_idx; next if $done{"${obj_idx}_${instance_idx}"}; $done{"${obj_idx}_${instance_idx}"} = 1; if ($obj_idx < 1000) { # Move a regular object. my $model_object = $self->{model}->get_object($obj_idx); $model_object ->instances->[$instance_idx] ->offset ->translate($volume->origin->x, $volume->origin->y); #)) $model_object->invalidate_bounding_box; $object_moved = 1; } elsif ($obj_idx == 1000) { # Move a wipe tower proxy. $wipe_tower_moved = $volume->origin; } } $self->{on_instances_moved}->() if $object_moved && $self->{on_instances_moved}; $self->{on_wipe_tower_moved}->($wipe_tower_moved) if $wipe_tower_moved && $self->{on_wipe_tower_moved}; }); EVT_KEY_DOWN($self, sub { my ($s, $event) = @_; if ($event->HasModifiers) { $event->Skip; } else { my $key = $event->GetKeyCode; if ($key == WXK_DELETE) { $self->on_remove_object->() if $self->on_remove_object; } else { $event->Skip; } } }); EVT_CHAR($self, sub { my ($s, $event) = @_; if ($event->HasModifiers) { $event->Skip; } else { my $key = $event->GetKeyCode; if ($key == ord('a')) { $self->on_arrange->() if $self->on_arrange; } elsif ($key == ord('l')) { $self->on_rotate_object_left->() if $self->on_rotate_object_left; } elsif ($key == ord('r')) { $self->on_rotate_object_right->() if $self->on_rotate_object_right; } elsif ($key == ord('s')) { $self->on_scale_object_uniformly->() if $self->on_scale_object_uniformly; } elsif ($key == ord('+')) { $self->on_increase_objects->() if $self->on_increase_objects; } elsif ($key == ord('-')) { $self->on_decrease_objects->() if $self->on_decrease_objects; } else { $event->Skip; } } }); return $self; } sub set_on_select_object { my ($self, $cb) = @_; $self->{on_select_object} = $cb; } sub set_on_double_click { my ($self, $cb) = @_; $self->on_double_click($cb); } sub set_on_right_click { my ($self, $cb) = @_; $self->on_right_click($cb); } sub set_on_arrange { my ($self, $cb) = @_; $self->on_arrange($cb); } sub set_on_rotate_object_left { my ($self, $cb) = @_; $self->on_rotate_object_left($cb); } sub set_on_rotate_object_right { my ($self, $cb) = @_; $self->on_rotate_object_right($cb); } sub set_on_scale_object_uniformly { my ($self, $cb) = @_; $self->on_scale_object_uniformly($cb); } sub set_on_increase_objects { my ($self, $cb) = @_; $self->on_increase_objects($cb); } sub set_on_decrease_objects { my ($self, $cb) = @_; $self->on_decrease_objects($cb); } sub set_on_remove_object { my ($self, $cb) = @_; $self->on_remove_object($cb); } sub set_on_instances_moved { my ($self, $cb) = @_; $self->{on_instances_moved} = $cb; } sub set_on_wipe_tower_moved { my ($self, $cb) = @_; $self->{on_wipe_tower_moved} = $cb; } sub set_on_model_update { my ($self, $cb) = @_; $self->on_model_update($cb); } sub reload_scene { my ($self, $force) = @_; $self->reset_objects; $self->update_bed_size; if (! $self->IsShown && ! $force) { $self->{reload_delayed} = 1; return; } $self->{reload_delayed} = 0; foreach my $obj_idx (0..$#{$self->{model}->objects}) { my @volume_idxs = $self->load_object($self->{model}, $self->{print}, $obj_idx); if ($self->{objects}[$obj_idx]->selected) { $self->select_volume($_) for @volume_idxs; } } if (defined $self->{config}->nozzle_diameter) { # Should the wipe tower be visualized? my $extruders_count = scalar @{ $self->{config}->nozzle_diameter }; # Height of a print. my $height = $self->{model}->bounding_box->z_max; # Show at least a slab. $height = 10 if $height < 10; if ($extruders_count > 1 && $self->{config}->single_extruder_multi_material && $self->{config}->wipe_tower && ! $self->{config}->complete_objects) { $self->volumes->load_wipe_tower_preview(1000, $self->{config}->wipe_tower_x, $self->{config}->wipe_tower_y, $self->{config}->wipe_tower_width, $self->{config}->wipe_tower_per_color_wipe * ($extruders_count - 1), $self->{model}->bounding_box->z_max, $self->UseVBOs); } } } sub update_bed_size { my ($self) = @_; $self->set_bed_shape($self->{config}->bed_shape); } # Called by the Platter wxNotebook when this page is activated. sub OnActivate { my ($self) = @_; $self->reload_scene(1) if ($self->{reload_delayed}); } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Plater/3DPreview.pm 0000664 0000000 0000000 00000027355 13243544447 0022465 0 ustar 00root root 0000000 0000000 package Slic3r::GUI::Plater::3DPreview; use strict; use warnings; use utf8; use Slic3r::Print::State ':steps'; use Wx qw(:misc :sizer :slider :statictext :keycode wxWHITE); use Wx::Event qw(EVT_SLIDER EVT_KEY_DOWN EVT_CHECKBOX); use base qw(Wx::Panel Class::Accessor); __PACKAGE__->mk_accessors(qw(print enabled _loaded canvas slider_low slider_high single_layer)); sub new { my $class = shift; my ($parent, $print, $config) = @_; my $self = $class->SUPER::new($parent, -1, wxDefaultPosition); $self->{config} = $config; $self->{number_extruders} = 1; $self->{preferred_color_mode} = 'feature'; # init GUI elements my $canvas = Slic3r::GUI::3DScene->new($self); $canvas->use_plain_shader(1); $self->canvas($canvas); my $slider_low = Wx::Slider->new( $self, -1, 0, # default 0, # min # we set max to a bogus non-zero value because the MSW implementation of wxSlider # will skip drawing the slider if max <= min: 1, # max wxDefaultPosition, wxDefaultSize, wxVERTICAL | wxSL_INVERSE, ); $self->slider_low($slider_low); my $slider_high = Wx::Slider->new( $self, -1, 0, # default 0, # min # we set max to a bogus non-zero value because the MSW implementation of wxSlider # will skip drawing the slider if max <= min: 1, # max wxDefaultPosition, wxDefaultSize, wxVERTICAL | wxSL_INVERSE, ); $self->slider_high($slider_high); my $z_label_low = $self->{z_label_low} = Wx::StaticText->new($self, -1, "", wxDefaultPosition, [40,-1], wxALIGN_CENTRE_HORIZONTAL); $z_label_low->SetFont($Slic3r::GUI::small_font); my $z_label_high = $self->{z_label_high} = Wx::StaticText->new($self, -1, "", wxDefaultPosition, [40,-1], wxALIGN_CENTRE_HORIZONTAL); $z_label_high->SetFont($Slic3r::GUI::small_font); $self->single_layer(0); $self->{color_by_extruder} = 0; my $checkbox_singlelayer = $self->{checkbox_singlelayer} = Wx::CheckBox->new($self, -1, "1 Layer"); my $checkbox_color_by_extruder = $self->{checkbox_color_by_extruder} = Wx::CheckBox->new($self, -1, "Tool"); my $hsizer = Wx::BoxSizer->new(wxHORIZONTAL); my $vsizer = Wx::BoxSizer->new(wxVERTICAL); my $vsizer_outer = Wx::BoxSizer->new(wxVERTICAL); $vsizer->Add($slider_low, 3, 0, 0); $vsizer->Add($z_label_low, 0, 0, 0); $hsizer->Add($vsizer, 0, wxEXPAND, 0); $vsizer = Wx::BoxSizer->new(wxVERTICAL); $vsizer->Add($slider_high, 3, 0, 0); $vsizer->Add($z_label_high, 0, 0, 0); $hsizer->Add($vsizer, 0, wxEXPAND, 0); $vsizer_outer->Add($hsizer, 3, wxALIGN_CENTER_HORIZONTAL, 0); $vsizer_outer->Add($checkbox_singlelayer, 0, wxTOP | wxALIGN_CENTER_HORIZONTAL, 5); $vsizer_outer->Add($checkbox_color_by_extruder, 0, wxTOP | wxALIGN_CENTER_HORIZONTAL, 5); my $sizer = Wx::BoxSizer->new(wxHORIZONTAL); $sizer->Add($canvas, 1, wxALL | wxEXPAND, 0); $sizer->Add($vsizer_outer, 0, wxTOP | wxBOTTOM | wxEXPAND, 5); EVT_SLIDER($self, $slider_low, sub { $slider_high->SetValue($slider_low->GetValue) if $self->single_layer; $self->set_z_idx_low ($slider_low ->GetValue) }); EVT_SLIDER($self, $slider_high, sub { $slider_low->SetValue($slider_high->GetValue) if $self->single_layer; $self->set_z_idx_high($slider_high->GetValue) }); EVT_KEY_DOWN($canvas, sub { my ($s, $event) = @_; my $key = $event->GetKeyCode; if ($event->HasModifiers) { $event->Skip; } else { if ($key == ord('U')) { $slider_high->SetValue($slider_high->GetValue + 1); $slider_low->SetValue($slider_high->GetValue) if ($event->ShiftDown()); $self->set_z_idx_high($slider_high->GetValue); } elsif ($key == ord('D')) { $slider_high->SetValue($slider_high->GetValue - 1); $slider_low->SetValue($slider_high->GetValue) if ($event->ShiftDown()); $self->set_z_idx_high($slider_high->GetValue); } elsif ($key == ord('S')) { $checkbox_singlelayer->SetValue(! $checkbox_singlelayer->GetValue()); $self->single_layer($checkbox_singlelayer->GetValue()); if ($self->single_layer) { $slider_low->SetValue($slider_high->GetValue); $self->set_z_idx_high($slider_high->GetValue); } } else { $event->Skip; } } }); EVT_KEY_DOWN($slider_low, sub { my ($s, $event) = @_; my $key = $event->GetKeyCode; if ($event->HasModifiers) { $event->Skip; } else { if ($key == WXK_LEFT) { } elsif ($key == WXK_RIGHT) { $slider_high->SetFocus; } else { $event->Skip; } } }); EVT_KEY_DOWN($slider_high, sub { my ($s, $event) = @_; my $key = $event->GetKeyCode; if ($event->HasModifiers) { $event->Skip; } else { if ($key == WXK_LEFT) { $slider_low->SetFocus; } elsif ($key == WXK_RIGHT) { } else { $event->Skip; } } }); EVT_CHECKBOX($self, $checkbox_singlelayer, sub { $self->single_layer($checkbox_singlelayer->GetValue()); if ($self->single_layer) { $slider_low->SetValue($slider_high->GetValue); $self->set_z_idx_high($slider_high->GetValue); } }); EVT_CHECKBOX($self, $checkbox_color_by_extruder, sub { $self->{color_by_extruder} = $checkbox_color_by_extruder->GetValue(); $self->{preferred_color_mode} = $self->{color_by_extruder} ? 'tool' : 'feature'; $self->reload_print; }); $self->SetSizer($sizer); $self->SetMinSize($self->GetSize); $sizer->SetSizeHints($self); # init canvas $self->print($print); $self->reload_print; return $self; } sub reload_print { my ($self, $force) = @_; $self->canvas->reset_objects; $self->_loaded(0); if (! $self->IsShown && ! $force) { $self->{reload_delayed} = 1; return; } $self->load_print; } sub load_print { my ($self) = @_; return if $self->_loaded; # we require that there's at least one object and the posSlice step # is performed on all of them (this ensures that _shifted_copies was # populated and we know the number of layers) my $n_layers = 0; if ($self->print->object_step_done(STEP_SLICE)) { my %z = (); # z => 1 foreach my $object (@{$self->{print}->objects}) { foreach my $layer (@{$object->layers}, @{$object->support_layers}) { $z{$layer->print_z} = 1; } } $self->{layers_z} = [ sort { $a <=> $b } keys %z ]; $n_layers = scalar(@{$self->{layers_z}}); } if ($n_layers == 0) { $self->enabled(0); $self->set_z_range(0,0); $self->slider_low->Hide; $self->slider_high->Hide; $self->canvas->Refresh; # clears canvas return; } my $z_idx_low = $self->slider_low->GetValue; my $z_idx_high = $self->slider_high->GetValue; $self->enabled(1); $self->slider_low->SetRange(0, $n_layers - 1); $self->slider_high->SetRange(0, $n_layers - 1); if ($z_idx_high < $n_layers && ($self->single_layer || $z_idx_high != 0)) { # use $z_idx } else { # Out of range. Disable 'single layer' view. $self->single_layer(0); $self->{checkbox_singlelayer}->SetValue(0); $z_idx_low = 0; $z_idx_high = $n_layers - 1; } if ($self->single_layer) { $z_idx_low = $z_idx_high; } elsif ($z_idx_low > $z_idx_high) { $z_idx_low = 0; } $self->slider_low->SetValue($z_idx_low); $self->slider_high->SetValue($z_idx_high); $self->slider_low->Show; $self->slider_high->Show; $self->Layout; my $by_tool = $self->{color_by_extruder}; if ($self->{preferred_color_mode} eq 'tool_or_feature') { # It is left to Slic3r to decide whether the print shall be colored by the tool or by the feature. # Color by feature if it is a single extruder print. my $extruders = $self->{print}->extruders; $by_tool = scalar(@{$extruders}) > 1; $self->{color_by_extruder} = $by_tool; $self->{checkbox_color_by_extruder}->SetValue($by_tool); $self->{preferred_color_mode} = 'tool_or_feature'; } # Collect colors per extruder. # Leave it empty, if the print should be colored by a feature. my @colors = (); if ($by_tool) { my @extruder_colors = @{$self->{config}->extruder_colour}; my @filament_colors = @{$self->{config}->filament_colour}; for (my $i = 0; $i <= $#extruder_colors; $i += 1) { my $color = $extruder_colors[$i]; $color = $filament_colors[$i] if (! defined($color) || $color !~ m/^#[[:xdigit:]]{6}/); $color = '#FFFFFF' if (! defined($color) || $color !~ m/^#[[:xdigit:]]{6}/); push @colors, $color; } } if ($self->IsShown) { # load skirt and brim $self->canvas->load_print_toolpaths($self->print, \@colors); $self->canvas->load_wipe_tower_toolpaths($self->print, \@colors); foreach my $object (@{$self->print->objects}) { $self->canvas->load_print_object_toolpaths($object, \@colors); # Show the objects in very transparent color. #my @volume_ids = $self->canvas->load_object($object->model_object); #$self->canvas->volumes->[$_]->color->[3] = 0.2 for @volume_ids; } $self->canvas->zoom_to_volumes; $self->_loaded(1); } $self->set_z_range($self->{layers_z}[$z_idx_low], $self->{layers_z}[$z_idx_high]); } sub set_z_range { my ($self, $z_low, $z_high) = @_; return if !$self->enabled; $self->{z_label_low}->SetLabel(sprintf '%.2f', $z_low); $self->{z_label_high}->SetLabel(sprintf '%.2f', $z_high); $self->canvas->set_toolpaths_range($z_low - 1e-6, $z_high + 1e-6); $self->canvas->Refresh if $self->IsShown; } sub set_z_idx_low { my ($self, $idx_low) = @_; if ($self->enabled) { my $idx_high = $self->slider_high->GetValue; if ($idx_low >= $idx_high) { $idx_high = $idx_low; $self->slider_high->SetValue($idx_high); } $self->set_z_range($self->{layers_z}[$idx_low], $self->{layers_z}[$idx_high]); } } sub set_z_idx_high { my ($self, $idx_high) = @_; if ($self->enabled) { my $idx_low = $self->slider_low->GetValue; if ($idx_low > $idx_high) { $idx_low = $idx_high; $self->slider_low->SetValue($idx_low); } $self->set_z_range($self->{layers_z}[$idx_low], $self->{layers_z}[$idx_high]); } } sub set_bed_shape { my ($self, $bed_shape) = @_; $self->canvas->set_bed_shape($bed_shape); } sub set_number_extruders { my ($self, $number_extruders) = @_; if ($self->{number_extruders} != $number_extruders) { $self->{number_extruders} = $number_extruders; my $by_tool = $number_extruders > 1; $self->{color_by_extruder} = $by_tool; $self->{checkbox_color_by_extruder}->SetValue($by_tool); $self->{preferred_color_mode} = $by_tool ? 'tool_or_feature' : 'feature'; } } # Called by the Platter wxNotebook when this page is activated. sub OnActivate { my ($self) = @_; $self->reload_print(1) if ($self->{reload_delayed}); } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Plater/3DToolpaths.pm 0000664 0000000 0000000 00000011311 13243544447 0023002 0 ustar 00root root 0000000 0000000 package Slic3r::GUI::Plater::3DToolpaths; use strict; use warnings; use utf8; use Slic3r::Print::State ':steps'; use Wx qw(:misc :sizer :slider :statictext wxWHITE); use Wx::Event qw(EVT_SLIDER EVT_KEY_DOWN); use base qw(Wx::Panel Class::Accessor); __PACKAGE__->mk_accessors(qw(print enabled _loaded canvas slider)); sub new { my $class = shift; my ($parent, $print) = @_; my $self = $class->SUPER::new($parent, -1, wxDefaultPosition); # init GUI elements my $canvas = Slic3r::GUI::3DScene->new($self); $self->canvas($canvas); my $slider = Wx::Slider->new( $self, -1, 0, # default 0, # min # we set max to a bogus non-zero value because the MSW implementation of wxSlider # will skip drawing the slider if max <= min: 1, # max wxDefaultPosition, wxDefaultSize, wxVERTICAL | wxSL_INVERSE, ); $self->slider($slider); my $z_label = $self->{z_label} = Wx::StaticText->new($self, -1, "", wxDefaultPosition, [40,-1], wxALIGN_CENTRE_HORIZONTAL); $z_label->SetFont($Slic3r::GUI::small_font); my $vsizer = Wx::BoxSizer->new(wxVERTICAL); $vsizer->Add($slider, 1, wxALL | wxEXPAND | wxALIGN_CENTER, 3); $vsizer->Add($z_label, 0, wxALL | wxEXPAND | wxALIGN_CENTER, 3); my $sizer = Wx::BoxSizer->new(wxHORIZONTAL); $sizer->Add($canvas, 1, wxALL | wxEXPAND, 0); $sizer->Add($vsizer, 0, wxTOP | wxBOTTOM | wxEXPAND, 5); EVT_SLIDER($self, $slider, sub { $self->set_z($self->{layers_z}[$slider->GetValue]) if $self->enabled; }); EVT_KEY_DOWN($canvas, sub { my ($s, $event) = @_; if ($event->HasModifiers) { $event->Skip; } else { my $key = $event->GetKeyCode; if ($key == 85 || $key == 315) { $slider->SetValue($slider->GetValue + 1); $self->set_z($self->{layers_z}[$slider->GetValue]); } elsif ($key == 68 || $key == 317) { $slider->SetValue($slider->GetValue - 1); $self->set_z($self->{layers_z}[$slider->GetValue]); } else { $event->Skip; } } }); $self->SetSizer($sizer); $self->SetMinSize($self->GetSize); $sizer->SetSizeHints($self); # init canvas $self->print($print); $self->reload_print; return $self; } sub reload_print { my ($self) = @_; $self->canvas->reset_objects; $self->_loaded(0); $self->load_print; } sub load_print { my ($self) = @_; return if $self->_loaded; # we require that there's at least one object and the posSlice step # is performed on all of them (this ensures that _shifted_copies was # populated and we know the number of layers) if (!$self->print->object_step_done(STEP_SLICE)) { $self->enabled(0); $self->slider->Hide; $self->canvas->Refresh; # clears canvas return; } my $z_idx; { my %z = (); # z => 1 foreach my $object (@{$self->{print}->objects}) { foreach my $layer (@{$object->layers}, @{$object->support_layers}) { $z{$layer->print_z} = 1; } } $self->enabled(1); $self->{layers_z} = [ sort { $a <=> $b } keys %z ]; $self->slider->SetRange(0, scalar(@{$self->{layers_z}})-1); if (($z_idx = $self->slider->GetValue) <= $#{$self->{layers_z}} && $self->slider->GetValue != 0) { # use $z_idx } else { $self->slider->SetValue(scalar(@{$self->{layers_z}})-1); $z_idx = @{$self->{layers_z}} ? -1 : undef; } $self->slider->Show; $self->Layout; } if ($self->IsShown) { # load skirt and brim $self->canvas->load_print_toolpaths($self->print); foreach my $object (@{$self->print->objects}) { $self->canvas->load_print_object_toolpaths($object); # Show the objects in very transparent color. #my @volume_ids = $self->canvas->load_object($object->model_object); #$self->canvas->volumes->[$_]->color->[3] = 0.2 for @volume_ids; } $self->canvas->zoom_to_volumes; $self->_loaded(1); } $self->set_z($self->{layers_z}[$z_idx]); } sub set_z { my ($self, $z) = @_; return if !$self->enabled; $self->{z_label}->SetLabel(sprintf '%.2f', $z); $self->canvas->set_toolpaths_range(0, $z); $self->canvas->Refresh if $self->IsShown; } sub set_bed_shape { my ($self, $bed_shape) = @_; $self->canvas->set_bed_shape($bed_shape); } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Plater/LambdaObjectDialog.pm 0000664 0000000 0000000 00000016622 13243544447 0024277 0 ustar 00root root 0000000 0000000 # Generate an anonymous or "lambda" 3D object. This gets used with the Add Generic option in Settings. # package Slic3r::GUI::Plater::LambdaObjectDialog; use strict; use warnings; use utf8; use Wx qw(wxTheApp :dialog :id :misc :sizer wxTAB_TRAVERSAL wxCB_READONLY wxTE_PROCESS_TAB); use Wx::Event qw(EVT_CLOSE EVT_BUTTON EVT_COMBOBOX EVT_TEXT); use Scalar::Util qw(looks_like_number); use base 'Wx::Dialog'; sub new { my $class = shift; my ($parent, %params) = @_; my $self = $class->SUPER::new($parent, -1, "Lambda Object", wxDefaultPosition, [500,500], wxDEFAULT_DIALOG_STYLE | wxRESIZE_BORDER); # Note whether the window was already closed, so a pending update is not executed. $self->{already_closed} = 0; $self->{object_parameters} = { type => "box", dim => [1, 1, 1], cyl_r => 1, cyl_h => 1, sph_rho => 1.0, slab_h => 1.0, slab_z => 0.0, }; $self->{sizer} = Wx::BoxSizer->new(wxVERTICAL); my $button_sizer = Wx::BoxSizer->new(wxHORIZONTAL); my $button_ok = $self->CreateStdDialogButtonSizer(wxOK); my $button_cancel = $self->CreateStdDialogButtonSizer(wxCANCEL); $button_sizer->Add($button_ok); $button_sizer->Add($button_cancel); EVT_BUTTON($self, wxID_OK, sub { # validate user input return if !$self->CanClose; $self->EndModal(wxID_OK); $self->Destroy; }); EVT_BUTTON($self, wxID_CANCEL, sub { # validate user input return if !$self->CanClose; $self->EndModal(wxID_CANCEL); $self->Destroy; }); my $optgroup_box; $optgroup_box = $self->{optgroup_box} = Slic3r::GUI::OptionsGroup->new( parent => $self, title => 'Add Cube...', on_change => sub { # Do validation my ($opt_id) = @_; if ($opt_id == 0 || $opt_id == 1 || $opt_id == 2) { if (!looks_like_number($optgroup_box->get_value($opt_id))) { return 0; } } $self->{object_parameters}->{dim}[$opt_id] = $optgroup_box->get_value($opt_id); }, label_width => 100, ); my @options = ("box", "slab", "cylinder", "sphere"); $self->{type} = Wx::ComboBox->new($self, 1, "box", wxDefaultPosition, wxDefaultSize, \@options, wxCB_READONLY); $optgroup_box->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 0, label => 'L', type => 'f', default => '1', )); $optgroup_box->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 1, label => 'W', type => 'f', default => '1', )); $optgroup_box->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 2, label => 'H', type => 'f', default => '1', )); my $optgroup_cylinder; $optgroup_cylinder = $self->{optgroup_cylinder} = Slic3r::GUI::OptionsGroup->new( parent => $self, title => 'Add Cylinder...', on_change => sub { # Do validation my ($opt_id) = @_; if ($opt_id eq 'cyl_r' || $opt_id eq 'cyl_h') { if (!looks_like_number($optgroup_cylinder->get_value($opt_id))) { return 0; } } $self->{object_parameters}->{$opt_id} = $optgroup_cylinder->get_value($opt_id); }, label_width => 100, ); $optgroup_cylinder->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => "cyl_r", label => 'Radius', type => 'f', default => '1', )); $optgroup_cylinder->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => "cyl_h", label => 'Height', type => 'f', default => '1', )); my $optgroup_sphere; $optgroup_sphere = $self->{optgroup_sphere} = Slic3r::GUI::OptionsGroup->new( parent => $self, title => 'Add Sphere...', on_change => sub { # Do validation my ($opt_id) = @_; if ($opt_id eq 'sph_rho') { if (!looks_like_number($optgroup_sphere->get_value($opt_id))) { return 0; } } $self->{object_parameters}->{$opt_id} = $optgroup_sphere->get_value($opt_id); }, label_width => 100, ); $optgroup_sphere->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => "sph_rho", label => 'Rho', type => 'f', default => '1', )); my $optgroup_slab; $optgroup_slab = $self->{optgroup_slab} = Slic3r::GUI::OptionsGroup->new( parent => $self, title => 'Add Slab...', on_change => sub { # Do validation my ($opt_id) = @_; if ($opt_id eq 'slab_z' || $opt_id eq 'slab_h') { if (!looks_like_number($optgroup_slab->get_value($opt_id))) { return 0; } } $self->{object_parameters}->{$opt_id} = $optgroup_slab->get_value($opt_id); }, label_width => 100, ); $optgroup_slab->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => "slab_h", label => 'H', type => 'f', default => '1', )); $optgroup_slab->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => "slab_z", label => 'Initial Z', type => 'f', default => '0', )); EVT_COMBOBOX($self, 1, sub{ $self->{object_parameters}->{type} = $self->{type}->GetValue(); $self->_update_ui; }); $self->{sizer}->Add($self->{type}, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10); $self->{sizer}->Add($optgroup_box->sizer, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10); $self->{sizer}->Add($optgroup_cylinder->sizer, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10); $self->{sizer}->Add($optgroup_sphere->sizer, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10); $self->{sizer}->Add($optgroup_slab->sizer, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10); $self->{sizer}->Add($button_sizer,0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10); $self->_update_ui; $self->SetSizer($self->{sizer}); $self->{sizer}->Fit($self); $self->{sizer}->SetSizeHints($self); return $self; } sub CanClose { return 1; } sub ObjectParameter { my ($self) = @_; return $self->{object_parameters}; } sub _update_ui { my ($self) = @_; $self->{sizer}->Hide($self->{optgroup_cylinder}->sizer); $self->{sizer}->Hide($self->{optgroup_slab}->sizer); $self->{sizer}->Hide($self->{optgroup_box}->sizer); $self->{sizer}->Hide($self->{optgroup_sphere}->sizer); if ($self->{type}->GetValue eq "box") { $self->{sizer}->Show($self->{optgroup_box}->sizer); } elsif ($self->{type}->GetValue eq "cylinder") { $self->{sizer}->Show($self->{optgroup_cylinder}->sizer); } elsif ($self->{type}->GetValue eq "slab") { $self->{sizer}->Show($self->{optgroup_slab}->sizer); } elsif ($self->{type}->GetValue eq "sphere") { $self->{sizer}->Show($self->{optgroup_sphere}->sizer); } $self->{sizer}->Fit($self); $self->{sizer}->SetSizeHints($self); } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Plater/ObjectCutDialog.pm 0000664 0000000 0000000 00000025215 13243544447 0023650 0 ustar 00root root 0000000 0000000 # Cut an object at a Z position, keep either the top or the bottom of the object. # This dialog gets opened with the "Cut..." button above the platter. package Slic3r::GUI::Plater::ObjectCutDialog; use strict; use warnings; use utf8; use Slic3r::Geometry qw(PI X); use Wx qw(wxTheApp :dialog :id :misc :sizer wxTAB_TRAVERSAL); use Wx::Event qw(EVT_CLOSE EVT_BUTTON); use base 'Wx::Dialog'; sub new { my ($class, $parent, %params) = @_; my $self = $class->SUPER::new($parent, -1, $params{object}->name, wxDefaultPosition, [500,500], wxDEFAULT_DIALOG_STYLE | wxRESIZE_BORDER); $self->{model_object} = $params{model_object}; $self->{new_model_objects} = []; # Mark whether the mesh cut is valid. # If not, it needs to be recalculated by _update() on wxTheApp->CallAfter() or on exit of the dialog. $self->{mesh_cut_valid} = 0; # Note whether the window was already closed, so a pending update is not executed. $self->{already_closed} = 0; # cut options $self->{cut_options} = { z => 0, keep_upper => 1, keep_lower => 1, rotate_lower => 1, # preview => 1, # Disabled live preview by default as it is not stable and/or the calculation takes too long for interactive usage. preview => 0, }; my $optgroup; $optgroup = $self->{optgroup} = Slic3r::GUI::OptionsGroup->new( parent => $self, title => 'Cut', on_change => sub { my ($opt_id) = @_; # There seems to be an issue with wxWidgets 3.0.2/3.0.3, where the slider # genates tens of events for a single value change. # Only trigger the recalculation if the value changes # or a live preview was activated and the mesh cut is not valid yet. if ($self->{cut_options}{$opt_id} != $optgroup->get_value($opt_id) || ! $self->{mesh_cut_valid} && $self->_life_preview_active()) { $self->{cut_options}{$opt_id} = $optgroup->get_value($opt_id); $self->{mesh_cut_valid} = 0; wxTheApp->CallAfter(sub { $self->_update; }); } }, label_width => 120, ); $optgroup->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'z', type => 'slider', label => 'Z', default => $self->{cut_options}{z}, min => 0, max => $self->{model_object}->bounding_box->size->z * $self->{model_object}->instances->[0]->scaling_factor, full_width => 1, )); { my $line = Slic3r::GUI::OptionsGroup::Line->new( label => 'Keep', ); $line->append_option(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'keep_upper', type => 'bool', label => 'Upper part', default => $self->{cut_options}{keep_upper}, )); $line->append_option(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'keep_lower', type => 'bool', label => 'Lower part', default => $self->{cut_options}{keep_lower}, )); $optgroup->append_line($line); } $optgroup->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'rotate_lower', label => 'Rotate lower part upwards', type => 'bool', tooltip => 'If enabled, the lower part will be rotated by 180° so that the flat cut surface lies on the print bed.', default => $self->{cut_options}{rotate_lower}, )); $optgroup->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'preview', label => 'Show preview', type => 'bool', tooltip => 'If enabled, object will be cut in real time.', default => $self->{cut_options}{preview}, )); { my $cut_button_sizer = Wx::BoxSizer->new(wxVERTICAL); $self->{btn_cut} = Wx::Button->new($self, -1, "Perform cut", wxDefaultPosition, wxDefaultSize); $cut_button_sizer->Add($self->{btn_cut}, 0, wxALIGN_RIGHT | wxALL, 10); $optgroup->append_line(Slic3r::GUI::OptionsGroup::Line->new( sizer => $cut_button_sizer, )); } # left pane with tree my $left_sizer = Wx::BoxSizer->new(wxVERTICAL); $left_sizer->Add($optgroup->sizer, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10); # right pane with preview canvas my $canvas; if ($Slic3r::GUI::have_OpenGL) { $canvas = $self->{canvas} = Slic3r::GUI::3DScene->new($self); $canvas->load_object($self->{model_object}, undef, undef, [0]); $canvas->set_auto_bed_shape; $canvas->SetSize([500,500]); $canvas->SetMinSize($canvas->GetSize); $canvas->zoom_to_volumes; } $self->{sizer} = Wx::BoxSizer->new(wxHORIZONTAL); $self->{sizer}->Add($left_sizer, 0, wxEXPAND | wxTOP | wxBOTTOM, 10); $self->{sizer}->Add($canvas, 1, wxEXPAND | wxALL, 0) if $canvas; $self->SetSizer($self->{sizer}); $self->SetMinSize($self->GetSize); $self->{sizer}->SetSizeHints($self); EVT_BUTTON($self, $self->{btn_cut}, sub { # Recalculate the cut if the preview was not active. $self->_perform_cut() unless $self->{mesh_cut_valid}; # Adjust position / orientation of the split object halves. if ($self->{new_model_objects}{lower}) { if ($self->{cut_options}{rotate_lower}) { $self->{new_model_objects}{lower}->rotate(PI, X); $self->{new_model_objects}{lower}->center_around_origin; # align to Z = 0 } } if ($self->{new_model_objects}{upper}) { $self->{new_model_objects}{upper}->center_around_origin; # align to Z = 0 } # Note that the window was already closed, so a pending update will not be executed. $self->{already_closed} = 1; $self->EndModal(wxID_OK); $self->Destroy(); }); EVT_CLOSE($self, sub { # Note that the window was already closed, so a pending update will not be executed. $self->{already_closed} = 1; $self->EndModal(wxID_CANCEL); $self->Destroy(); }); $self->_update; return $self; } # scale Z down to original size since we're using the transformed mesh for 3D preview # and cut dialog but ModelObject::cut() needs Z without any instance transformation sub _mesh_slice_z_pos { my ($self) = @_; return $self->{cut_options}{z} / $self->{model_object}->instances->[0]->scaling_factor; } # Only perform live preview if just a single part of the object shall survive. sub _life_preview_active { my ($self) = @_; return $self->{cut_options}{preview} && ($self->{cut_options}{keep_upper} != $self->{cut_options}{keep_lower}); } # Slice the mesh, keep the top / bottom part. sub _perform_cut { my ($self) = @_; # Early exit. If the cut is valid, don't recalculate it. return if $self->{mesh_cut_valid}; my $z = $self->_mesh_slice_z_pos(); my ($new_model) = $self->{model_object}->cut($z); my ($upper_object, $lower_object) = @{$new_model->objects}; $self->{new_model} = $new_model; $self->{new_model_objects} = {}; if ($self->{cut_options}{keep_upper} && $upper_object->volumes_count > 0) { $self->{new_model_objects}{upper} = $upper_object; } if ($self->{cut_options}{keep_lower} && $lower_object->volumes_count > 0) { $self->{new_model_objects}{lower} = $lower_object; } $self->{mesh_cut_valid} = 1; } sub _update { my ($self) = @_; # Don't update if the window was already closed. # We are not sure whether the action planned by wxTheApp->CallAfter() may be triggered after the window is closed. # Probably not, but better be safe than sorry, which is espetially true on multiple platforms. return if $self->{already_closed}; # Only recalculate the cut, if the live cut preview is active. my $life_preview_active = $self->_life_preview_active(); $self->_perform_cut() if $life_preview_active; { # scale Z down to original size since we're using the transformed mesh for 3D preview # and cut dialog but ModelObject::cut() needs Z without any instance transformation my $z = $self->_mesh_slice_z_pos(); # update canvas if ($self->{canvas}) { # get volumes to render my @objects = (); if ($life_preview_active) { push @objects, values %{$self->{new_model_objects}}; } else { push @objects, $self->{model_object}; } # get section contour my @expolygons = (); foreach my $volume (@{$self->{model_object}->volumes}) { next if !$volume->mesh; next if $volume->modifier; my $expp = $volume->mesh->slice([ $z + $volume->mesh->bounding_box->z_min ])->[0]; push @expolygons, @$expp; } foreach my $expolygon (@expolygons) { $self->{model_object}->instances->[0]->transform_polygon($_) for @$expolygon; $expolygon->translate(map Slic3r::Geometry::scale($_), @{ $self->{model_object}->instances->[0]->offset }); } $self->{canvas}->reset_objects; $self->{canvas}->load_object($_, undef, undef, [0]) for @objects; $self->{canvas}->SetCuttingPlane( $self->{cut_options}{z}, [@expolygons], ); $self->{canvas}->Render; } } # update controls { my $z = $self->{cut_options}{z}; my $optgroup = $self->{optgroup}; $optgroup->get_field('keep_upper')->toggle(my $have_upper = abs($z - $optgroup->get_option('z')->max) > 0.1); $optgroup->get_field('keep_lower')->toggle(my $have_lower = $z > 0.1); $optgroup->get_field('rotate_lower')->toggle($z > 0 && $self->{cut_options}{keep_lower}); # Disabled live preview by default as it is not stable and/or the calculation takes too long for interactive usage. # $optgroup->get_field('preview')->toggle($self->{cut_options}{keep_upper} != $self->{cut_options}{keep_lower}); # update cut button if (($self->{cut_options}{keep_upper} && $have_upper) || ($self->{cut_options}{keep_lower} && $have_lower)) { $self->{btn_cut}->Enable; } else { $self->{btn_cut}->Disable; } } } sub NewModelObjects { my ($self) = @_; return values %{ $self->{new_model_objects} }; } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Plater/ObjectPartsPanel.pm 0000664 0000000 0000000 00000051143 13243544447 0024045 0 ustar 00root root 0000000 0000000 # Configuration of mesh modifiers and their parameters. # This panel is inserted into ObjectSettingsDialog. package Slic3r::GUI::Plater::ObjectPartsPanel; use strict; use warnings; use utf8; use File::Basename qw(basename); use Wx qw(:misc :sizer :treectrl :button :keycode wxTAB_TRAVERSAL wxSUNKEN_BORDER wxBITMAP_TYPE_PNG wxID_CANCEL wxMOD_CONTROL wxTheApp); use Wx::Event qw(EVT_BUTTON EVT_TREE_ITEM_COLLAPSING EVT_TREE_SEL_CHANGED EVT_TREE_KEY_DOWN); use base 'Wx::Panel'; use constant ICON_OBJECT => 0; use constant ICON_SOLIDMESH => 1; use constant ICON_MODIFIERMESH => 2; sub new { my ($class, $parent, %params) = @_; my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, wxDefaultSize, wxTAB_TRAVERSAL); # C++ type Slic3r::ModelObject my $object = $self->{model_object} = $params{model_object}; # Save state for sliders. $self->{move_options} = { x => 0, y => 0, z => 0, }; $self->{last_coords} = { x => 0, y => 0, z => 0, }; # create TreeCtrl my $tree = $self->{tree} = Wx::TreeCtrl->new($self, -1, wxDefaultPosition, [300, 100], wxTR_NO_BUTTONS | wxSUNKEN_BORDER | wxTR_HAS_VARIABLE_ROW_HEIGHT | wxTR_SINGLE); { $self->{tree_icons} = Wx::ImageList->new(16, 16, 1); $tree->AssignImageList($self->{tree_icons}); $self->{tree_icons}->Add(Wx::Bitmap->new(Slic3r::var("brick.png"), wxBITMAP_TYPE_PNG)); # ICON_OBJECT $self->{tree_icons}->Add(Wx::Bitmap->new(Slic3r::var("package.png"), wxBITMAP_TYPE_PNG)); # ICON_SOLIDMESH $self->{tree_icons}->Add(Wx::Bitmap->new(Slic3r::var("plugin.png"), wxBITMAP_TYPE_PNG)); # ICON_MODIFIERMESH my $rootId = $tree->AddRoot("Object", ICON_OBJECT); $tree->SetPlData($rootId, { type => 'object' }); } # buttons $self->{btn_load_part} = Wx::Button->new($self, -1, "Load part…", wxDefaultPosition, wxDefaultSize, wxBU_LEFT); $self->{btn_load_modifier} = Wx::Button->new($self, -1, "Load modifier…", wxDefaultPosition, wxDefaultSize, wxBU_LEFT); $self->{btn_load_lambda_modifier} = Wx::Button->new($self, -1, "Load generic…", wxDefaultPosition, wxDefaultSize, wxBU_LEFT); $self->{btn_delete} = Wx::Button->new($self, -1, "Delete part", wxDefaultPosition, wxDefaultSize, wxBU_LEFT); $self->{btn_split} = Wx::Button->new($self, -1, "Split part", wxDefaultPosition, wxDefaultSize, wxBU_LEFT); $self->{btn_move_up} = Wx::Button->new($self, -1, "", wxDefaultPosition, [40, -1], wxBU_LEFT); $self->{btn_move_down} = Wx::Button->new($self, -1, "", wxDefaultPosition, [40, -1], wxBU_LEFT); $self->{btn_load_part}->SetBitmap(Wx::Bitmap->new(Slic3r::var("brick_add.png"), wxBITMAP_TYPE_PNG)); $self->{btn_load_modifier}->SetBitmap(Wx::Bitmap->new(Slic3r::var("brick_add.png"), wxBITMAP_TYPE_PNG)); $self->{btn_load_lambda_modifier}->SetBitmap(Wx::Bitmap->new(Slic3r::var("brick_add.png"), wxBITMAP_TYPE_PNG)); $self->{btn_delete}->SetBitmap(Wx::Bitmap->new(Slic3r::var("brick_delete.png"), wxBITMAP_TYPE_PNG)); $self->{btn_split}->SetBitmap(Wx::Bitmap->new(Slic3r::var("shape_ungroup.png"), wxBITMAP_TYPE_PNG)); $self->{btn_move_up}->SetBitmap(Wx::Bitmap->new(Slic3r::var("bullet_arrow_up.png"), wxBITMAP_TYPE_PNG)); $self->{btn_move_down}->SetBitmap(Wx::Bitmap->new(Slic3r::var("bullet_arrow_down.png"), wxBITMAP_TYPE_PNG)); # buttons sizer my $buttons_sizer = Wx::GridSizer->new(2, 3); $buttons_sizer->Add($self->{btn_load_part}, 0, wxEXPAND | wxBOTTOM | wxRIGHT, 5); $buttons_sizer->Add($self->{btn_load_modifier}, 0, wxEXPAND | wxBOTTOM | wxRIGHT, 5); $buttons_sizer->Add($self->{btn_load_lambda_modifier}, 0, wxEXPAND | wxBOTTOM, 5); $buttons_sizer->Add($self->{btn_delete}, 0, wxEXPAND | wxRIGHT, 5); $buttons_sizer->Add($self->{btn_split}, 0, wxEXPAND | wxRIGHT, 5); { my $up_down_sizer = Wx::GridSizer->new(1, 2); $up_down_sizer->Add($self->{btn_move_up}, 0, wxEXPAND | wxRIGHT, 5); $up_down_sizer->Add($self->{btn_move_down}, 0, wxEXPAND, 5); $buttons_sizer->Add($up_down_sizer, 0, wxEXPAND, 5); } $self->{btn_load_part}->SetFont($Slic3r::GUI::small_font); $self->{btn_load_modifier}->SetFont($Slic3r::GUI::small_font); $self->{btn_load_lambda_modifier}->SetFont($Slic3r::GUI::small_font); $self->{btn_delete}->SetFont($Slic3r::GUI::small_font); $self->{btn_split}->SetFont($Slic3r::GUI::small_font); $self->{btn_move_up}->SetFont($Slic3r::GUI::small_font); $self->{btn_move_down}->SetFont($Slic3r::GUI::small_font); # part settings panel $self->{settings_panel} = Slic3r::GUI::Plater::OverrideSettingsPanel->new($self, on_change => sub { $self->{part_settings_changed} = 1; }); my $settings_sizer = Wx::StaticBoxSizer->new($self->{staticbox} = Wx::StaticBox->new($self, -1, "Part Settings"), wxVERTICAL); $settings_sizer->Add($self->{settings_panel}, 1, wxEXPAND | wxALL, 0); my $optgroup_movers; $optgroup_movers = $self->{optgroup_movers} = Slic3r::GUI::OptionsGroup->new( parent => $self, title => 'Move', on_change => sub { my ($opt_id) = @_; # There seems to be an issue with wxWidgets 3.0.2/3.0.3, where the slider # genates tens of events for a single value change. # Only trigger the recalculation if the value changes # or a live preview was activated and the mesh cut is not valid yet. if ($self->{move_options}{$opt_id} != $optgroup_movers->get_value($opt_id)) { $self->{move_options}{$opt_id} = $optgroup_movers->get_value($opt_id); wxTheApp->CallAfter(sub { $self->_update; }); } }, label_width => 20, ); $optgroup_movers->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'x', type => 'slider', label => 'X', default => 0, min => -($self->{model_object}->bounding_box->size->x)*4, max => $self->{model_object}->bounding_box->size->x*4, full_width => 1, )); $optgroup_movers->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'y', type => 'slider', label => 'Y', default => 0, min => -($self->{model_object}->bounding_box->size->y)*4, max => $self->{model_object}->bounding_box->size->y*4, full_width => 1, )); $optgroup_movers->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'z', type => 'slider', label => 'Z', default => 0, min => -($self->{model_object}->bounding_box->size->z)*4, max => $self->{model_object}->bounding_box->size->z*4, full_width => 1, )); # left pane with tree my $left_sizer = Wx::BoxSizer->new(wxVERTICAL); $left_sizer->Add($tree, 3, wxEXPAND | wxLEFT | wxRIGHT | wxBOTTOM, 10); $left_sizer->Add($buttons_sizer, 0, wxEXPAND | wxLEFT | wxRIGHT | wxBOTTOM, 10); $left_sizer->Add($settings_sizer, 5, wxEXPAND | wxALL, 0); $left_sizer->Add($optgroup_movers->sizer, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10); # right pane with preview canvas my $canvas; if ($Slic3r::GUI::have_OpenGL) { $canvas = $self->{canvas} = Slic3r::GUI::3DScene->new($self); $canvas->enable_picking(1); $canvas->select_by('volume'); $canvas->on_select(sub { my ($volume_idx) = @_; # convert scene volume to model object volume $self->reload_tree(($volume_idx == -1) ? undef : $canvas->volumes->[$volume_idx]->volume_idx); }); $canvas->load_object($self->{model_object}, undef, undef, [0]); $canvas->set_auto_bed_shape; $canvas->SetSize([500,700]); $canvas->zoom_to_volumes; } $self->{sizer} = Wx::BoxSizer->new(wxHORIZONTAL); $self->{sizer}->Add($left_sizer, 0, wxEXPAND | wxALL, 0); $self->{sizer}->Add($canvas, 1, wxEXPAND | wxALL, 0) if $canvas; $self->SetSizer($self->{sizer}); $self->{sizer}->SetSizeHints($self); # attach events EVT_TREE_ITEM_COLLAPSING($self, $tree, sub { my ($self, $event) = @_; $event->Veto; }); EVT_TREE_SEL_CHANGED($self, $tree, sub { my ($self, $event) = @_; return if $self->{disable_tree_sel_changed_event}; $self->selection_changed; }); EVT_TREE_KEY_DOWN($self, $tree, \&on_tree_key_down); EVT_BUTTON($self, $self->{btn_load_part}, sub { $self->on_btn_load(0) }); EVT_BUTTON($self, $self->{btn_load_modifier}, sub { $self->on_btn_load(1) }); EVT_BUTTON($self, $self->{btn_load_lambda_modifier}, sub { $self->on_btn_lambda(1) }); EVT_BUTTON($self, $self->{btn_delete}, \&on_btn_delete); EVT_BUTTON($self, $self->{btn_split}, \&on_btn_split); EVT_BUTTON($self, $self->{btn_move_up}, \&on_btn_move_up); EVT_BUTTON($self, $self->{btn_move_down}, \&on_btn_move_down); $self->reload_tree; return $self; } sub reload_tree { my ($self, $selected_volume_idx) = @_; $selected_volume_idx //= -1; my $object = $self->{model_object}; my $tree = $self->{tree}; my $rootId = $tree->GetRootItem; # despite wxWidgets states that DeleteChildren "will not generate any events unlike Delete() method", # the MSW implementation of DeleteChildren actually calls Delete() for each item, so # EVT_TREE_SEL_CHANGED is being called, with bad effects (the event handler is called; this # subroutine is never continued; an invisible EndModal is called on the dialog causing Plater # to continue its logic and rescheduling the background process etc. GH #2774) $self->{disable_tree_sel_changed_event} = 1; $tree->DeleteChildren($rootId); $self->{disable_tree_sel_changed_event} = 0; my $selectedId = $rootId; foreach my $volume_id (0..$#{$object->volumes}) { my $volume = $object->volumes->[$volume_id]; my $icon = $volume->modifier ? ICON_MODIFIERMESH : ICON_SOLIDMESH; my $itemId = $tree->AppendItem($rootId, $volume->name || $volume_id, $icon); if ($volume_id == $selected_volume_idx) { $selectedId = $itemId; } $tree->SetPlData($itemId, { type => 'volume', volume_id => $volume_id, }); } $tree->ExpandAll; Slic3r::GUI->CallAfter(sub { $self->{tree}->SelectItem($selectedId); # SelectItem() should trigger EVT_TREE_SEL_CHANGED as per wxWidgets docs, # but in fact it doesn't if the given item is already selected (this happens # on first load) $self->selection_changed; }); } sub get_selection { my ($self) = @_; my $nodeId = $self->{tree}->GetSelection; if ($nodeId->IsOk) { return $self->{tree}->GetPlData($nodeId); } return undef; } sub selection_changed { my ($self) = @_; # deselect all meshes if ($self->{canvas}) { $_->set_selected(0) for @{$self->{canvas}->volumes}; } # disable things as if nothing is selected $self->{'btn_' . $_}->Disable for (qw(delete move_up move_down split)); $self->{settings_panel}->disable; $self->{settings_panel}->set_config(undef); # reset move sliders $self->{optgroup_movers}->set_value("x", 0); $self->{optgroup_movers}->set_value("y", 0); $self->{optgroup_movers}->set_value("z", 0); $self->{move_options} = { x => 0, y => 0, z => 0, }; $self->{last_coords} = { x => 0, y => 0, z => 0, }; if (my $itemData = $self->get_selection) { my ($config, @opt_keys); if ($itemData->{type} eq 'volume') { # select volume in 3D preview if ($self->{canvas}) { $self->{canvas}->volumes->[ $itemData->{volume_id} ]->set_selected(1); } $self->{btn_delete}->Enable; $self->{btn_split}->Enable; $self->{btn_move_up}->Enable if $itemData->{volume_id} > 0; $self->{btn_move_down}->Enable if $itemData->{volume_id} + 1 < $self->{model_object}->volumes_count; # attach volume config to settings panel my $volume = $self->{model_object}->volumes->[ $itemData->{volume_id} ]; if ($volume->modifier) { $self->{optgroup_movers}->enable; } else { $self->{optgroup_movers}->disable; } $config = $volume->config; $self->{staticbox}->SetLabel('Part Settings'); # get default values @opt_keys = @{Slic3r::Config::PrintRegion->new->get_keys}; } elsif ($itemData->{type} eq 'object') { # select nothing in 3D preview # attach object config to settings panel $self->{optgroup_movers}->disable; $self->{staticbox}->SetLabel('Object Settings'); @opt_keys = (map @{$_->get_keys}, Slic3r::Config::PrintObject->new, Slic3r::Config::PrintRegion->new); $config = $self->{model_object}->config; } # get default values my $default_config = Slic3r::Config::new_from_defaults_keys(\@opt_keys); # append default extruder push @opt_keys, 'extruder'; $default_config->set('extruder', 0); $config->set_ifndef('extruder', 0); $self->{settings_panel}->set_default_config($default_config); $self->{settings_panel}->set_config($config); $self->{settings_panel}->set_opt_keys(\@opt_keys); $self->{settings_panel}->set_fixed_options([qw(extruder)]); $self->{settings_panel}->enable; } $self->{canvas}->Render if $self->{canvas}; } sub on_btn_load { my ($self, $is_modifier) = @_; my @input_files = wxTheApp->open_model($self); foreach my $input_file (@input_files) { my $model = eval { Slic3r::Model->read_from_file($input_file) }; if ($@) { Slic3r::GUI::show_error($self, $@); next; } foreach my $object (@{$model->objects}) { foreach my $volume (@{$object->volumes}) { my $new_volume = $self->{model_object}->add_volume($volume); $new_volume->set_modifier($is_modifier); $new_volume->set_name(basename($input_file)); # apply the same translation we applied to the object $new_volume->mesh->translate(@{$self->{model_object}->origin_translation}); # set a default extruder value, since user can't add it manually $new_volume->config->set_ifndef('extruder', 0); $self->{parts_changed} = 1; } } } $self->_parts_changed; } sub on_btn_lambda { my ($self, $is_modifier) = @_; my $dlg = Slic3r::GUI::Plater::LambdaObjectDialog->new($self); if ($dlg->ShowModal() == wxID_CANCEL) { return; } my $params = $dlg->ObjectParameter; my $type = "".$params->{"type"}; my $name = "lambda-".$params->{"type"}; my $mesh; if ($type eq "box") { $mesh = Slic3r::TriangleMesh::cube($params->{"dim"}[0], $params->{"dim"}[1], $params->{"dim"}[2]); } elsif ($type eq "cylinder") { $mesh = Slic3r::TriangleMesh::cylinder($params->{"cyl_r"}, $params->{"cyl_h"}); } elsif ($type eq "sphere") { $mesh = Slic3r::TriangleMesh::sphere($params->{"sph_rho"}); } elsif ($type eq "slab") { $mesh = Slic3r::TriangleMesh::cube($self->{model_object}->bounding_box->size->x*1.5, $self->{model_object}->bounding_box->size->y*1.5, $params->{"slab_h"}); # box sets the base coordinate at 0,0, move to center of plate and move it up to initial_z $mesh->translate(-$self->{model_object}->bounding_box->size->x*1.5/2.0, -$self->{model_object}->bounding_box->size->y*1.5/2.0, $params->{"slab_z"}); } else { return; } $mesh->repair; my $new_volume = $self->{model_object}->add_volume(mesh => $mesh); $new_volume->set_modifier($is_modifier); $new_volume->set_name($name); # set a default extruder value, since user can't add it manually $new_volume->config->set_ifndef('extruder', 0); $self->{parts_changed} = 1; $self->_parts_changed; } sub on_tree_key_down { my ($self, $event) = @_; my $keycode = $event->GetKeyCode; # Wx >= 0.9911 if (defined(&Wx::TreeEvent::GetKeyEvent) && ($event->GetKeyEvent->GetModifiers & wxMOD_CONTROL)) { if ($keycode == WXK_UP) { $event->Skip; $self->on_btn_move_up; } elsif ($keycode == WXK_DOWN) { $event->Skip; $self->on_btn_move_down; } } } sub on_btn_move_up { my ($self) = @_; my $itemData = $self->get_selection; if ($itemData && $itemData->{type} eq 'volume') { my $volume_id = $itemData->{volume_id}; if ($self->{model_object}->move_volume_up($volume_id)) { $self->{canvas}->volumes->move_volume_up($volume_id); $self->{parts_changed} = 1; $self->reload_tree($volume_id - 1); } } } sub on_btn_move_down { my ($self) = @_; my $itemData = $self->get_selection; if ($itemData && $itemData->{type} eq 'volume') { my $volume_id = $itemData->{volume_id}; if ($self->{model_object}->move_volume_down($volume_id)) { $self->{canvas}->volumes->move_volume_down($volume_id); $self->{parts_changed} = 1; $self->reload_tree($volume_id + 1); } } } sub on_btn_delete { my ($self) = @_; my $itemData = $self->get_selection; if ($itemData && $itemData->{type} eq 'volume') { my $volume = $self->{model_object}->volumes->[$itemData->{volume_id}]; # if user is deleting the last solid part, throw error if (!$volume->modifier && scalar(grep !$_->modifier, @{$self->{model_object}->volumes}) == 1) { Slic3r::GUI::show_error($self, "You can't delete the last solid part from this object."); return; } $self->{model_object}->delete_volume($itemData->{volume_id}); $self->{parts_changed} = 1; } $self->_parts_changed; } sub on_btn_split { my ($self) = @_; my $itemData = $self->get_selection; if ($itemData && $itemData->{type} eq 'volume') { my $volume = $self->{model_object}->volumes->[$itemData->{volume_id}]; $self->{parts_changed} = 1 if $volume->split > 1; } $self->_parts_changed; } sub _parts_changed { my ($self) = @_; $self->reload_tree; if ($self->{canvas}) { $self->{canvas}->reset_objects; $self->{canvas}->load_object($self->{model_object}); $self->{canvas}->zoom_to_volumes; $self->{canvas}->Render; } } sub CanClose { my $self = shift; return 1; # skip validation for now # validate options before allowing user to dismiss the dialog # the validate method only works on full configs so we have # to merge our settings with the default ones my $config = $self->GetParent->GetParent->GetParent->GetParent->GetParent->config->clone; eval { $config->apply($self->model_object->config); $config->validate; }; return ! Slic3r::GUI::catch_error($self); } sub PartsChanged { my ($self) = @_; return $self->{parts_changed}; } sub PartSettingsChanged { my ($self) = @_; return $self->{part_settings_changed}; } sub _update { my ($self) = @_; my ($m_x, $m_y, $m_z) = ($self->{move_options}{x}, $self->{move_options}{y}, $self->{move_options}{z}); my ($l_x, $l_y, $l_z) = ($self->{last_coords}{x}, $self->{last_coords}{y}, $self->{last_coords}{z}); my $itemData = $self->get_selection; if ($itemData && $itemData->{type} eq 'volume') { my $d = Slic3r::Pointf3->new($m_x - $l_x, $m_y - $l_y, $m_z - $l_z); my $volume = $self->{model_object}->volumes->[$itemData->{volume_id}]; $volume->mesh->translate(@{$d}); $self->{last_coords}{x} = $m_x; $self->{last_coords}{y} = $m_y; $self->{last_coords}{z} = $m_z; } $self->{parts_changed} = 1; my @objects = (); push @objects, $self->{model_object}; $self->{canvas}->reset_objects; $self->{canvas}->load_object($_, undef, [0]) for @objects; $self->{canvas}->Render; } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Plater/ObjectSettingsDialog.pm 0000664 0000000 0000000 00000017340 13243544447 0024715 0 ustar 00root root 0000000 0000000 # This dialog opens up when double clicked on an object line in the list at the right side of the platter. # One may load additional STLs and additional modifier STLs, # one may change the properties of the print per each modifier mesh or a Z-span. package Slic3r::GUI::Plater::ObjectSettingsDialog; use strict; use warnings; use utf8; use Wx qw(:dialog :id :misc :sizer :systemsettings :notebook wxTAB_TRAVERSAL wxTheApp); use Wx::Event qw(EVT_BUTTON); use base 'Wx::Dialog'; # Called with # %params{object} of a Perl type Slic3r::GUI::Plater::Object # %params{model_object} of a C++ type Slic3r::ModelObject sub new { my ($class, $parent, %params) = @_; my $self = $class->SUPER::new($parent, -1, "Settings for " . $params{object}->name, wxDefaultPosition, [700,500], wxDEFAULT_DIALOG_STYLE | wxRESIZE_BORDER); $self->{$_} = $params{$_} for keys %params; $self->{tabpanel} = Wx::Notebook->new($self, -1, wxDefaultPosition, wxDefaultSize, wxNB_TOP | wxTAB_TRAVERSAL); $self->{tabpanel}->AddPage($self->{parts} = Slic3r::GUI::Plater::ObjectPartsPanel->new($self->{tabpanel}, model_object => $params{model_object}), "Parts"); $self->{tabpanel}->AddPage($self->{layers} = Slic3r::GUI::Plater::ObjectDialog::LayersTab->new($self->{tabpanel}), "Layers"); my $buttons = $self->CreateStdDialogButtonSizer(wxOK); EVT_BUTTON($self, wxID_OK, sub { # validate user input return if !$self->{parts}->CanClose; return if !$self->{layers}->CanClose; # notify tabs $self->{layers}->Closing; # save window size wxTheApp->save_window_pos($self, "object_settings"); $self->EndModal(wxID_OK); $self->Destroy; }); my $sizer = Wx::BoxSizer->new(wxVERTICAL); $sizer->Add($self->{tabpanel}, 1, wxEXPAND | wxTOP | wxLEFT | wxRIGHT, 10); $sizer->Add($buttons, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10); $self->SetSizer($sizer); $self->SetMinSize($self->GetSize); wxTheApp->restore_window_pos($self, "object_settings"); return $self; } sub PartsChanged { my ($self) = @_; return $self->{parts}->PartsChanged; } sub PartSettingsChanged { my ($self) = @_; return $self->{parts}->PartSettingsChanged || $self->{layers}->LayersChanged; } package Slic3r::GUI::Plater::ObjectDialog::BaseTab; use base 'Wx::Panel'; sub model_object { my ($self) = @_; # $self->GetParent->GetParent is of type Slic3r::GUI::Plater::ObjectSettingsDialog return $self->GetParent->GetParent->{model_object}; } package Slic3r::GUI::Plater::ObjectDialog::LayersTab; use Wx qw(:dialog :id :misc :sizer :systemsettings); use Wx::Grid; use Wx::Event qw(EVT_GRID_CELL_CHANGED); use base 'Slic3r::GUI::Plater::ObjectDialog::BaseTab'; sub new { my $class = shift; my ($parent, %params) = @_; my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, wxDefaultSize); my $sizer = Wx::BoxSizer->new(wxVERTICAL); { my $label = Wx::StaticText->new($self, -1, "You can use this section to override the default layer height for parts of this object.", wxDefaultPosition, [-1, 40]); $label->SetFont(Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT)); $sizer->Add($label, 0, wxEXPAND | wxALL, 10); } my $grid = $self->{grid} = Wx::Grid->new($self, -1, wxDefaultPosition, wxDefaultSize); $sizer->Add($grid, 1, wxEXPAND | wxALL, 10); $grid->CreateGrid(0, 3); $grid->DisableDragRowSize; $grid->HideRowLabels; $grid->SetColLabelValue(0, "Min Z (mm)"); $grid->SetColLabelValue(1, "Max Z (mm)"); $grid->SetColLabelValue(2, "Layer height (mm)"); $grid->SetColSize($_, 135) for 0..2; $grid->SetDefaultCellAlignment(wxALIGN_CENTRE, wxALIGN_CENTRE); # load data foreach my $range (@{ $self->model_object->layer_height_ranges }) { $grid->AppendRows(1); my $i = $grid->GetNumberRows-1; $grid->SetCellValue($i, $_, $range->[$_]) for 0..2; } $grid->AppendRows(1); # append one empty row EVT_GRID_CELL_CHANGED($grid, sub { my ($grid, $event) = @_; # remove any non-numeric character my $value = $grid->GetCellValue($event->GetRow, $event->GetCol); $value =~ s/,/./g; $value =~ s/[^0-9.]//g; $grid->SetCellValue($event->GetRow, $event->GetCol, ($event->GetCol == 2) ? $self->_clamp_layer_height($value) : $value); # if there's no empty row, let's append one for my $i (0 .. $grid->GetNumberRows) { if ($i == $grid->GetNumberRows) { # if we're here then we found no empty row $grid->AppendRows(1); last; } if (!grep $grid->GetCellValue($i, $_), 0..2) { # exit loop if this row is empty last; } } $self->{layers_changed} = 1; }); $self->SetSizer($sizer); $sizer->SetSizeHints($self); return $self; } sub _clamp_layer_height { my ($self, $value) = @_; # $self->GetParent->GetParent is of type Slic3r::GUI::Plater::ObjectSettingsDialog my $config = $self->GetParent->GetParent->{config}; if ($value =~ /^[0-9,.E]+$/) { # Looks like a number. Validate the layer height. my $nozzle_dmrs = $config->get('nozzle_diameter'); my $min_layer_heights = $config->get('min_layer_height'); my $max_layer_heights = $config->get('max_layer_height'); my $min_layer_height = 1000.; my $max_layer_height = 0.; my $max_nozzle_dmr = 0.; for (my $i = 0; $i < int(@{$nozzle_dmrs}); $i += 1) { $min_layer_height = $min_layer_heights->[$i] if ($min_layer_heights->[$i] < $min_layer_height); $max_layer_height = $max_layer_heights->[$i] if ($max_layer_heights->[$i] > $max_layer_height); $max_nozzle_dmr = $nozzle_dmrs ->[$i] if ($nozzle_dmrs ->[$i] > $max_nozzle_dmr ); } $min_layer_height = 0.005 if ($min_layer_height < 0.005); $max_layer_height = $max_nozzle_dmr * 0.75 if ($max_layer_height == 0.); $max_layer_height = $max_nozzle_dmr if ($max_layer_height > $max_nozzle_dmr); return ($value < $min_layer_height) ? $min_layer_height : ($value > $max_layer_height) ? $max_layer_height : $value; } else { # If an invalid numeric value has been entered, use the default layer height. return $config->get('layer_height'); } } sub CanClose { my $self = shift; # validate ranges before allowing user to dismiss the dialog foreach my $range ($self->_get_ranges) { my ($min, $max, $height) = @$range; if ($max <= $min) { Slic3r::GUI::show_error($self, "Invalid Z range $min-$max."); return 0; } if ($min < 0 || $max < 0) { Slic3r::GUI::show_error($self, "Invalid Z range $min-$max."); return 0; } if ($height < 0) { Slic3r::GUI::show_error($self, "Invalid layer height $height."); return 0; } # TODO: check for overlapping ranges } return 1; } sub Closing { my $self = shift; # save ranges into the plater object $self->model_object->set_layer_height_ranges([ $self->_get_ranges ]); } sub _get_ranges { my $self = shift; my @ranges = (); for my $i (0 .. $self->{grid}->GetNumberRows-1) { my ($min, $max, $height) = map $self->{grid}->GetCellValue($i, $_), 0..2; next if $min eq '' || $max eq '' || $height eq ''; push @ranges, [ $min, $max, $height ]; } return sort { $a->[0] <=> $b->[0] } @ranges; } sub LayersChanged { my ($self) = @_; return $self->{layers_changed}; } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Plater/OverrideSettingsPanel.pm 0000664 0000000 0000000 00000015143 13243544447 0025125 0 ustar 00root root 0000000 0000000 # Included in ObjectSettingsDialog -> ObjectPartsPanel. # Maintains, displays, adds and removes overrides of slicing parameters for an object and its modifier mesh. package Slic3r::GUI::Plater::OverrideSettingsPanel; use strict; use warnings; use utf8; use List::Util qw(first); use Wx qw(:misc :sizer :button wxTAB_TRAVERSAL wxSUNKEN_BORDER wxBITMAP_TYPE_PNG wxTheApp); use Wx::Event qw(EVT_BUTTON EVT_LEFT_DOWN EVT_MENU); use base 'Wx::ScrolledWindow'; use constant ICON_MATERIAL => 0; use constant ICON_SOLIDMESH => 1; use constant ICON_MODIFIERMESH => 2; my %icons = ( 'Advanced' => 'wand.png', 'Extruders' => 'funnel.png', 'Extrusion Width' => 'funnel.png', 'Infill' => 'infill.png', 'Layers and Perimeters' => 'layers.png', 'Skirt and brim' => 'box.png', 'Speed' => 'time.png', 'Speed > Acceleration' => 'time.png', 'Support material' => 'building.png', ); sub new { my ($class, $parent, %params) = @_; my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, wxDefaultSize, wxTAB_TRAVERSAL); # C++ class Slic3r::DynamicPrintConfig, initially empty. $self->{default_config} = Slic3r::Config->new; $self->{config} = Slic3r::Config->new; # On change callback. $self->{on_change} = $params{on_change}; $self->{fixed_options} = {}; $self->{sizer} = Wx::BoxSizer->new(wxVERTICAL); $self->{options_sizer} = Wx::BoxSizer->new(wxVERTICAL); $self->{sizer}->Add($self->{options_sizer}, 0, wxEXPAND | wxALL, 0); # option selector { # create the button my $btn = $self->{btn_add} = Wx::BitmapButton->new($self, -1, Wx::Bitmap->new(Slic3r::var("add.png"), wxBITMAP_TYPE_PNG), wxDefaultPosition, wxDefaultSize, Wx::wxBORDER_NONE); EVT_LEFT_DOWN($btn, sub { my $menu = Wx::Menu->new; # create category submenus my %categories = (); # category => submenu foreach my $opt_key (@{$self->{options}}) { if (my $cat = $Slic3r::Config::Options->{$opt_key}{category}) { $categories{$cat} //= Wx::Menu->new; } } # append submenus to main menu my @categories = ('Layers and Perimeters', 'Infill', 'Support material', 'Speed', 'Extruders', 'Extrusion Width', 'Advanced'); #foreach my $cat (sort keys %categories) { foreach my $cat (@categories) { wxTheApp->append_submenu($menu, $cat, "", $categories{$cat}, undef, $icons{$cat}); } # append options to submenus foreach my $opt_key (@{$self->{options}}) { my $cat = $Slic3r::Config::Options->{$opt_key}{category} or next; my $cb = sub { $self->{config}->set($opt_key, $self->{default_config}->get($opt_key)); $self->update_optgroup; $self->{on_change}->($opt_key) if $self->{on_change}; }; wxTheApp->append_menu_item($categories{$cat}, $self->{option_labels}{$opt_key}, $Slic3r::Config::Options->{$opt_key}{tooltip}, $cb); } $self->PopupMenu($menu, $btn->GetPosition); $menu->Destroy; }); my $h_sizer = Wx::BoxSizer->new(wxHORIZONTAL); $h_sizer->Add($btn, 0, wxALL, 0); $self->{sizer}->Add($h_sizer, 0, wxEXPAND | wxBOTTOM, 10); } $self->SetSizer($self->{sizer}); $self->SetScrollbars(0, 1, 0, 1); $self->set_opt_keys($params{opt_keys}) if $params{opt_keys}; $self->update_optgroup; return $self; } sub set_default_config { my ($self, $config) = @_; $self->{default_config} = $config; } sub set_config { my ($self, $config) = @_; $self->{config} = $config; $self->update_optgroup; } sub set_opt_keys { my ($self, $opt_keys) = @_; # sort options by category+label $self->{option_labels} = { map { $_ => $Slic3r::Config::Options->{$_}{full_label} // $Slic3r::Config::Options->{$_}{label} } @$opt_keys }; $self->{options} = [ sort { $self->{option_labels}{$a} cmp $self->{option_labels}{$b} } @$opt_keys ]; } sub set_fixed_options { my ($self, $opt_keys) = @_; $self->{fixed_options} = { map {$_ => 1} @$opt_keys }; $self->update_optgroup; } sub update_optgroup { my $self = shift; $self->{options_sizer}->Clear(1); return if !defined $self->{config}; my %categories = (); foreach my $opt_key (@{$self->{config}->get_keys}) { my $category = $Slic3r::Config::Options->{$opt_key}{category}; $categories{$category} ||= []; push @{$categories{$category}}, $opt_key; } foreach my $category (sort keys %categories) { my $optgroup = Slic3r::GUI::ConfigOptionsGroup->new( parent => $self, title => $category, config => $self->{config}, full_labels => 1, label_font => $Slic3r::GUI::small_font, sidetext_font => $Slic3r::GUI::small_font, label_width => 120, on_change => sub { $self->{on_change}->() if $self->{on_change} }, extra_column => sub { my ($line) = @_; my $opt_key = $line->get_options->[0]->opt_id; # we assume that we have one option per line # disallow deleting fixed options return undef if $self->{fixed_options}{$opt_key}; my $btn = Wx::BitmapButton->new($self, -1, Wx::Bitmap->new(Slic3r::var("delete.png"), wxBITMAP_TYPE_PNG), wxDefaultPosition, wxDefaultSize, Wx::wxBORDER_NONE); EVT_BUTTON($self, $btn, sub { $self->{config}->erase($opt_key); $self->{on_change}->() if $self->{on_change}; wxTheApp->CallAfter(sub { $self->update_optgroup }); }); return $btn; }, ); foreach my $opt_key (sort @{$categories{$category}}) { $optgroup->append_single_option_line($opt_key); } $self->{options_sizer}->Add($optgroup->sizer, 0, wxEXPAND | wxBOTTOM, 0); } $self->GetParent->Layout; # we need this for showing scrollbars } # work around a wxMAC bug causing controls not being disabled when calling Disable() on a Window sub enable { my ($self) = @_; $self->{btn_add}->Enable; $self->Enable; } sub disable { my ($self) = @_; $self->{btn_add}->Disable; $self->Disable; } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Preferences.pm 0000664 0000000 0000000 00000012376 13243544447 0021664 0 ustar 00root root 0000000 0000000 # Preferences dialog, opens from Menu: File->Preferences package Slic3r::GUI::Preferences; use Wx qw(:dialog :id :misc :sizer :systemsettings wxTheApp); use Wx::Event qw(EVT_BUTTON EVT_TEXT_ENTER); use base 'Wx::Dialog'; sub new { my ($class, $parent) = @_; my $self = $class->SUPER::new($parent, -1, "Preferences", wxDefaultPosition, wxDefaultSize); $self->{values} = {}; my $app_config = wxTheApp->{app_config}; my $optgroup; $optgroup = Slic3r::GUI::OptionsGroup->new( parent => $self, title => 'General', on_change => sub { my ($opt_id) = @_; $self->{values}{$opt_id} = $optgroup->get_value($opt_id); }, label_width => 200, ); # $optgroup->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( # opt_id => 'version_check', # type => 'bool', # label => 'Check for updates', # tooltip => 'If this is enabled, Slic3r will check for updates daily and display a reminder if a newer version is available.', # default => $app_config->get("version_check") // 1, # readonly => !wxTheApp->have_version_check, # )); $optgroup->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'remember_output_path', type => 'bool', label => 'Remember output directory', tooltip => 'If this is enabled, Slic3r will prompt the last output directory instead of the one containing the input files.', default => $app_config->get("remember_output_path"), )); $optgroup->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'autocenter', type => 'bool', label => 'Auto-center parts', tooltip => 'If this is enabled, Slic3r will auto-center objects around the print bed center.', default => $app_config->get("autocenter"), )); $optgroup->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'background_processing', type => 'bool', label => 'Background processing', tooltip => 'If this is enabled, Slic3r will pre-process objects as soon as they\'re loaded in order to save time when exporting G-code.', default => $app_config->get("background_processing"), )); $optgroup->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'no_controller', type => 'bool', label => 'Disable USB/serial connection', tooltip => 'Disable communication with the printer over a serial / USB cable. This simplifies the user interface in case the printer is never attached to the computer.', default => $app_config->get("no_controller"), )); $optgroup->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'no_defaults', type => 'bool', label => 'Suppress "- default -" presets', tooltip => 'Suppress "- default -" presets in the Print / Filament / Printer selections once there are any other valid presets available.', default => $app_config->get("no_defaults"), )); $optgroup->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'show_incompatible_presets', type => 'bool', label => 'Show incompatible print and filament presets', tooltip => 'When checked, the print and filament presets are shown in the preset editor even ' . 'if they are marked as incompatible with the active printer', default => $app_config->get("show_incompatible_presets"), )); $optgroup->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'use_legacy_opengl', type => 'bool', label => 'Use legacy OpenGL 1.1 rendering', tooltip => 'If you have rendering issues caused by a buggy OpenGL 2.0 driver, you may try to check this checkbox. This will disable the layer height editing and anti aliasing, so it is likely better to upgrade your graphics driver.', default => $app_config->get("use_legacy_opengl"), )); my $sizer = Wx::BoxSizer->new(wxVERTICAL); $sizer->Add($optgroup->sizer, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10); my $buttons = $self->CreateStdDialogButtonSizer(wxOK | wxCANCEL); EVT_BUTTON($self, wxID_OK, sub { $self->_accept }); $sizer->Add($buttons, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10); $self->SetSizer($sizer); $sizer->SetSizeHints($self); return $self; } sub _accept { my ($self) = @_; if (defined($self->{values}{no_controller}) || defined($self->{values}{no_defaults}) || defined($self->{values}{use_legacy_opengl})) { Slic3r::GUI::warning_catcher($self)->("You need to restart Slic3r to make the changes effective."); } my $app_config = wxTheApp->{app_config}; $app_config->set($_, $self->{values}{$_}) for keys %{$self->{values}}; $self->EndModal(wxID_OK); $self->Close; # needed on Linux # Nothify the UI to update itself from the ini file. wxTheApp->update_ui_from_settings; } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/ProgressStatusBar.pm 0000664 0000000 0000000 00000006107 13243544447 0023053 0 ustar 00root root 0000000 0000000 # Status bar at the bottom of the main screen. package Slic3r::GUI::ProgressStatusBar; use strict; use warnings; use Wx qw(:gauge :misc); use base 'Wx::StatusBar'; sub new { my $class = shift; my $self = $class->SUPER::new(@_); $self->{busy} = 0; $self->{timer} = Wx::Timer->new($self); $self->{prog} = Wx::Gauge->new($self, wxGA_HORIZONTAL, 100, wxDefaultPosition, wxDefaultSize); $self->{prog}->Hide; $self->{cancelbutton} = Wx::Button->new($self, -1, "Cancel", wxDefaultPosition, wxDefaultSize); $self->{cancelbutton}->Hide; $self->SetFieldsCount(3); $self->SetStatusWidths(-1, 150, 155); Wx::Event::EVT_TIMER($self, \&OnTimer, $self->{timer}); Wx::Event::EVT_SIZE($self, \&OnSize); Wx::Event::EVT_BUTTON($self, $self->{cancelbutton}, sub { $self->{cancel_cb}->(); $self->{cancelbutton}->Hide; }); return $self; } sub DESTROY { my $self = shift; $self->{timer}->Stop if $self->{timer} && $self->{timer}->IsRunning; } sub OnSize { my ($self, $event) = @_; my %fields = ( # 0 is reserved for status text 1 => $self->{cancelbutton}, 2 => $self->{prog}, ); foreach (keys %fields) { my $rect = $self->GetFieldRect($_); my $offset = &Wx::wxGTK ? 1 : 0; # add a cosmetic 1 pixel offset on wxGTK my $pos = [$rect->GetX + $offset, $rect->GetY + $offset]; $fields{$_}->Move($pos); $fields{$_}->SetSize($rect->GetWidth - $offset, $rect->GetHeight); } $event->Skip; } sub OnTimer { my ($self, $event) = @_; if ($self->{prog}->IsShown) { $self->{timer}->Stop; } $self->{prog}->Pulse if $self->{_busy}; } sub SetCancelCallback { my $self = shift; my ($cb) = @_; $self->{cancel_cb} = $cb; $cb ? $self->{cancelbutton}->Show : $self->{cancelbutton}->Hide; } sub Run { my $self = shift; my $rate = shift || 100; if (!$self->{timer}->IsRunning) { $self->{timer}->Start($rate); } } sub GetProgress { my $self = shift; return $self->{prog}->GetValue; } sub SetProgress { my $self = shift; my ($val) = @_; if (!$self->{prog}->IsShown) { $self->ShowProgress(1); } if ($val == $self->{prog}->GetRange) { $self->{prog}->SetValue(0); $self->ShowProgress(0); } else { $self->{prog}->SetValue($val); } } sub SetRange { my $self = shift; my ($val) = @_; if ($val != $self->{prog}->GetRange) { $self->{prog}->SetRange($val); } } sub ShowProgress { my $self = shift; my ($show) = @_; $self->{prog}->Show($show); $self->{prog}->Pulse; } sub StartBusy { my $self = shift; my $rate = shift || 100; $self->{_busy} = 1; $self->ShowProgress(1); if (!$self->{timer}->IsRunning) { $self->{timer}->Start($rate); } } sub StopBusy { my $self = shift; $self->{timer}->Stop; $self->ShowProgress(0); $self->{prog}->SetValue(0); $self->{_busy} = 0; } sub IsBusy { my $self = shift; return $self->{_busy}; } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/SystemInfo.pm 0000664 0000000 0000000 00000004615 13243544447 0021520 0 ustar 00root root 0000000 0000000 package Slic3r::GUI::SystemInfo; use strict; use warnings; use utf8; use Wx qw(:font :html :misc :dialog :sizer :systemsettings :frame :id wxTheClipboard); use Wx::Event qw(EVT_HTML_LINK_CLICKED EVT_LEFT_DOWN EVT_BUTTON); use Wx::Html; use base 'Wx::Dialog'; sub new { my ($class, %params) = @_; my $self = $class->SUPER::new($params{parent}, -1, 'Slic3r Prusa Edition - System Information', wxDefaultPosition, [600, 340], wxDEFAULT_DIALOG_STYLE | wxMAXIMIZE_BOX | wxRESIZE_BORDER); $self->{text_info} = $params{text_info}; $self->SetBackgroundColour(Wx::wxWHITE); my $vsizer = Wx::BoxSizer->new(wxVERTICAL); $self->SetSizer($vsizer); # text my $text = '' . '' . ($params{slic3r_info} // '') . ($params{copyright_info} // '') . ($params{system_info} // '') . ($params{opengl_info} // '') . '' . ''; my $html = $self->{html} = Wx::HtmlWindow->new($self, -1, wxDefaultPosition, wxDefaultSize, wxHW_SCROLLBAR_AUTO); my $font = Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT); my $size = &Wx::wxMSW ? 8 : 10; $html->SetFonts($font->GetFaceName, $font->GetFaceName, [$size * 1.5, $size * 1.4, $size * 1.3, $size, $size, $size, $size]); $html->SetBorders(10); $html->SetPage($text); $vsizer->Add($html, 1, wxEXPAND | wxALIGN_LEFT | wxRIGHT | wxBOTTOM, 0); EVT_HTML_LINK_CLICKED($self, $html, \&link_clicked); my $buttons = $self->CreateStdDialogButtonSizer(wxOK); my $btn_copy_to_clipboard = Wx::Button->new($self, -1, "Copy to Clipboard", wxDefaultPosition, wxDefaultSize); $buttons->Insert(0, $btn_copy_to_clipboard, 0, wxLEFT, 5); EVT_BUTTON($self, $btn_copy_to_clipboard, \©_to_clipboard); $self->SetEscapeId(wxID_CLOSE); EVT_BUTTON($self, wxID_CLOSE, sub { $self->EndModal(wxID_CLOSE); $self->Close; }); # $vsizer->Add($buttons, 0, wxEXPAND | wxRIGHT | wxBOTTOM, 3); $vsizer->Add($buttons, 0, wxEXPAND | wxALL, 5); return $self; } sub link_clicked { my ($self, $event) = @_; Wx::LaunchDefaultBrowser($event->GetLinkInfo->GetHref); $event->Skip(0); } sub copy_to_clipboard { my ($self, $event) = @_; my $data = $self->{text_info}; wxTheClipboard->Open; wxTheClipboard->SetData(Wx::TextDataObject->new($data)); wxTheClipboard->Close; } 1; Slic3r-version_1.39.1/lib/Slic3r/GUI/Tab.pm 0000664 0000000 0000000 00000233312 13243544447 0020124 0 ustar 00root root 0000000 0000000 # The "Expert" tab at the right of the main tabbed window. # This file implements following packages: # Slic3r::GUI::Tab; # Slic3r::GUI::Tab::Print; # Slic3r::GUI::Tab::Filament; # Slic3r::GUI::Tab::Printer; # Slic3r::GUI::Tab::Page # - Option page: For example, the Slic3r::GUI::Tab::Print has option pages "Layers and perimeters", "Infill", "Skirt and brim" ... # Slic3r::GUI::SavePresetWindow # - Dialog to select a new preset name to store the configuration. # Slic3r::GUI::Tab::Preset; # - Single preset item: name, file is default or external. package Slic3r::GUI::Tab; use strict; use warnings; use utf8; use File::Basename qw(basename); use List::Util qw(first); use Wx qw(:bookctrl :dialog :keycode :icon :id :misc :panel :sizer :treectrl :window :button wxTheApp wxCB_READONLY); use Wx::Event qw(EVT_BUTTON EVT_COMBOBOX EVT_KEY_DOWN EVT_CHECKBOX EVT_TREE_SEL_CHANGED); use base qw(Wx::Panel Class::Accessor); sub new { my ($class, $parent, %params) = @_; my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, wxDefaultSize, wxBK_LEFT | wxTAB_TRAVERSAL); # Vertical sizer to hold the choice menu and the rest of the page. $self->{sizer} = Wx::BoxSizer->new(wxVERTICAL); $self->{sizer}->SetSizeHints($self); $self->SetSizer($self->{sizer}); # preset chooser { # choice menu $self->{presets_choice} = Wx::BitmapComboBox->new($self, -1, "", wxDefaultPosition, [270, -1], [], wxCB_READONLY); $self->{presets_choice}->SetFont($Slic3r::GUI::small_font); # buttons $self->{btn_save_preset} = Wx::BitmapButton->new($self, -1, Wx::Bitmap->new(Slic3r::var("disk.png"), wxBITMAP_TYPE_PNG), wxDefaultPosition, wxDefaultSize, wxBORDER_NONE); $self->{btn_delete_preset} = Wx::BitmapButton->new($self, -1, Wx::Bitmap->new(Slic3r::var("delete.png"), wxBITMAP_TYPE_PNG), wxDefaultPosition, wxDefaultSize, wxBORDER_NONE); $self->{show_incompatible_presets} = 0; $self->{bmp_show_incompatible_presets} = Wx::Bitmap->new(Slic3r::var("flag-red-icon.png"), wxBITMAP_TYPE_PNG); $self->{bmp_hide_incompatible_presets} = Wx::Bitmap->new(Slic3r::var("flag-green-icon.png"), wxBITMAP_TYPE_PNG); $self->{btn_hide_incompatible_presets} = Wx::BitmapButton->new($self, -1, $self->{bmp_hide_incompatible_presets}, wxDefaultPosition, wxDefaultSize, wxBORDER_NONE); $self->{btn_save_preset}->SetToolTipString("Save current " . lc($self->title)); $self->{btn_delete_preset}->SetToolTipString("Delete this preset"); $self->{btn_delete_preset}->Disable; my $hsizer = Wx::BoxSizer->new(wxHORIZONTAL); $self->{sizer}->Add($hsizer, 0, wxBOTTOM, 3); $hsizer->Add($self->{presets_choice}, 1, wxLEFT | wxRIGHT | wxTOP | wxALIGN_CENTER_VERTICAL, 3); $hsizer->AddSpacer(4); $hsizer->Add($self->{btn_save_preset}, 0, wxALIGN_CENTER_VERTICAL); $hsizer->AddSpacer(4); $hsizer->Add($self->{btn_delete_preset}, 0, wxALIGN_CENTER_VERTICAL); $hsizer->AddSpacer(16); $hsizer->Add($self->{btn_hide_incompatible_presets}, 0, wxALIGN_CENTER_VERTICAL); } # Horizontal sizer to hold the tree and the selected page. $self->{hsizer} = Wx::BoxSizer->new(wxHORIZONTAL); $self->{sizer}->Add($self->{hsizer}, 1, wxEXPAND, 0); # left vertical sizer my $left_sizer = Wx::BoxSizer->new(wxVERTICAL); $self->{hsizer}->Add($left_sizer, 0, wxEXPAND | wxLEFT | wxTOP | wxBOTTOM, 3); # tree $self->{treectrl} = Wx::TreeCtrl->new($self, -1, wxDefaultPosition, [185, -1], wxTR_NO_BUTTONS | wxTR_HIDE_ROOT | wxTR_SINGLE | wxTR_NO_LINES | wxBORDER_SUNKEN | wxWANTS_CHARS); $left_sizer->Add($self->{treectrl}, 1, wxEXPAND); $self->{icons} = Wx::ImageList->new(16, 16, 1); # Map from an icon file name to its index in $self->{icons}. $self->{icon_index} = {}; # Index of the last icon inserted into $self->{icons}. $self->{icon_count} = -1; $self->{treectrl}->AssignImageList($self->{icons}); $self->{treectrl}->AddRoot("root"); $self->{pages} = []; $self->{treectrl}->SetIndent(0); $self->{disable_tree_sel_changed_event} = 0; EVT_TREE_SEL_CHANGED($parent, $self->{treectrl}, sub { return if $self->{disable_tree_sel_changed_event}; my $page = first { $_->{title} eq $self->{treectrl}->GetItemText($self->{treectrl}->GetSelection) } @{$self->{pages}} or return; $_->Hide for @{$self->{pages}}; $page->Show; $self->{hsizer}->Layout; $self->Refresh; }); EVT_KEY_DOWN($self->{treectrl}, sub { my ($treectrl, $event) = @_; if ($event->GetKeyCode == WXK_TAB) { $treectrl->Navigate($event->ShiftDown ? &Wx::wxNavigateBackward : &Wx::wxNavigateForward); } else { $event->Skip; } }); EVT_COMBOBOX($parent, $self->{presets_choice}, sub { $self->select_preset($self->{presets_choice}->GetStringSelection); }); EVT_BUTTON($self, $self->{btn_save_preset}, sub { $self->save_preset }); EVT_BUTTON($self, $self->{btn_delete_preset}, sub { $self->delete_preset }); EVT_BUTTON($self, $self->{btn_hide_incompatible_presets}, sub { $self->_toggle_show_hide_incompatible }); # Initialize the DynamicPrintConfig by default keys/values. # Possible %params keys: no_controller $self->build(%params); $self->rebuild_page_tree; $self->_update; return $self; } # Save the current preset into file. # This removes the "dirty" flag of the preset, possibly creates a new preset under a new name, # and activates the new preset. # Wizard calls save_preset with a name "My Settings", otherwise no name is provided and this method # opens a Slic3r::GUI::SavePresetWindow dialog. sub save_preset { my ($self, $name) = @_; # since buttons (and choices too) don't get focus on Mac, we set focus manually # to the treectrl so that the EVT_* events are fired for the input field having # focus currently. is there anything better than this? $self->{treectrl}->SetFocus; if (!defined $name) { my $preset = $self->{presets}->get_selected_preset; my $default_name = $preset->default ? 'Untitled' : $preset->name; $default_name =~ s/\.[iI][nN][iI]$//; my $dlg = Slic3r::GUI::SavePresetWindow->new($self, title => lc($self->title), default => $default_name, values => [ map $_->name, grep !$_->default && !$_->external, @{$self->{presets}} ], ); return unless $dlg->ShowModal == wxID_OK; $name = $dlg->get_name; } # Save the preset into Slic3r::data_dir/presets/section_name/preset_name.ini eval { $self->{presets}->save_current_preset($name); }; Slic3r::GUI::catch_error($self) and return; # Mark the print & filament enabled if they are compatible with the currently selected preset. wxTheApp->{preset_bundle}->update_compatible_with_printer(0); # Add the new item into the UI component, remove dirty flags and activate the saved item. $self->update_tab_ui; # Update the selection boxes at the platter. $self->_on_presets_changed; } # Called for a currently selected preset. sub delete_preset { my ($self) = @_; my $current_preset = $self->{presets}->get_selected_preset; # Don't let the user delete the '- default -' configuration. my $msg = 'Are you sure you want to ' . ($current_preset->external ? 'remove' : 'delete') . ' the selected preset?'; my $title = ($current_preset->external ? 'Remove' : 'Delete') . ' Preset'; return if $current_preset->default || wxID_YES != Wx::MessageDialog->new($self, $msg, $title, wxYES_NO | wxNO_DEFAULT | wxICON_QUESTION)->ShowModal; # Delete the file and select some other reasonable preset. # The 'external' presets will only be removed from the preset list, their files will not be deleted. eval { $self->{presets}->delete_current_preset; }; Slic3r::GUI::catch_error($self) and return; # Load the newly selected preset into the UI, update selection combo boxes with their dirty flags. $self->load_current_preset; } sub _toggle_show_hide_incompatible { my ($self) = @_; $self->{show_incompatible_presets} = ! $self->{show_incompatible_presets}; $self->_update_show_hide_incompatible_button; $self->update_tab_ui; } sub _update_show_hide_incompatible_button { my ($self) = @_; $self->{btn_hide_incompatible_presets}->SetBitmap($self->{show_incompatible_presets} ? $self->{bmp_show_incompatible_presets} : $self->{bmp_hide_incompatible_presets}); $self->{btn_hide_incompatible_presets}->SetToolTipString($self->{show_incompatible_presets} ? "Both compatible an incompatible presets are shown. Click to hide presets not compatible with the current printer." : "Only compatible presets are shown. Click to show both the presets compatible and not compatible with the current printer."); } # Register the on_value_change callback. sub on_value_change { my ($self, $cb) = @_; $self->{on_value_change} = $cb; } # Register the on_presets_changed callback. sub on_presets_changed { my ($self, $cb) = @_; $self->{on_presets_changed} = $cb; } # This method is called whenever an option field is changed by the user. # Propagate event to the parent through the 'on_value_change' callback # and call _update. # The on_value_change callback triggers Platter::on_config_change() to configure the 3D preview # (colors, wipe tower positon etc) and to restart the background slicing process. sub _on_value_change { my ($self, $key, $value) = @_; $self->{on_value_change}->($key, $value) if $self->{on_value_change}; $self->_update; } # Override this to capture changes of configuration caused either by loading or switching a preset, # or by a user changing an option field. # This callback is useful for cross-validating configuration values of a single preset. sub _update {} # Call a callback to update the selection of presets on the platter: # To update the content of the selection boxes, # to update the filament colors of the selection boxes, # to update the "dirty" flags of the selection boxes, # to uddate number of "filament" selection boxes when the number of extruders change. sub _on_presets_changed { my ($self, $reload_dependent_tabs) = @_; $self->{on_presets_changed}->($self->{presets}, $reload_dependent_tabs) if $self->{on_presets_changed}; } # For the printer profile, generate the extruder pages after a preset is loaded. sub on_preset_loaded {} # If the current preset is dirty, the user is asked whether the changes may be discarded. # if the current preset was not dirty, or the user agreed to discard the changes, 1 is returned. sub may_discard_current_dirty_preset { my ($self, $presets, $new_printer_name) = @_; $presets //= $self->{presets}; # Display a dialog showing the dirty options in a human readable form. my $old_preset = $presets->get_current_preset; my $type_name = $presets->name; my $tab = ' '; my $name = $old_preset->default ? ('Default ' . $type_name . ' preset') : ($type_name . " preset\n$tab" . $old_preset->name); # Collect descriptions of the dirty options. my @option_names = (); foreach my $opt_key (@{$presets->current_dirty_options}) { my $opt = $Slic3r::Config::Options->{$opt_key}; my $name = $opt->{full_label} // $opt->{label}; $name = $opt->{category} . " > $name" if $opt->{category}; push @option_names, $name; } # Show a confirmation dialog with the list of dirty options. my $changes = join "\n", map "$tab$_", @option_names; my $message = (defined $new_printer_name) ? "$name\n\nis not compatible with printer\n$tab$new_printer_name\n\nand it has the following unsaved changes:" : "$name\n\nhas the following unsaved changes:"; my $confirm = Wx::MessageDialog->new($self, $message . "\n$changes\n\nDiscard changes and continue anyway?", 'Unsaved Changes', wxYES_NO | wxNO_DEFAULT | wxICON_QUESTION); return $confirm->ShowModal == wxID_YES; } # Called by the UI combo box when the user switches profiles. # Select a preset by a name. If ! defined(name), then the default preset is selected. # If the current profile is modified, user is asked to save the changes. sub select_preset { my ($self, $name, $force) = @_; $force //= 0; my $presets = $self->{presets}; # If no name is provided, select the "-- default --" preset. $name //= $presets->default_preset->name; my $current_dirty = $presets->current_is_dirty; my $canceled = 0; my $printer_tab = $presets->name eq 'printer'; my @reload_dependent_tabs = (); if (! $force && $current_dirty && ! $self->may_discard_current_dirty_preset) { $canceled = 1; } elsif ($printer_tab) { # Before switching the printer to a new one, verify, whether the currently active print and filament # are compatible with the new printer. # If they are not compatible and the the current print or filament are dirty, let user decide # whether to discard the changes or keep the current printer selection. my $new_printer_preset = $presets->find_preset($name, 1); my $print_presets = wxTheApp->{preset_bundle}->print; my $print_preset_dirty = $print_presets->current_is_dirty; my $print_preset_compatible = $print_presets->get_edited_preset->is_compatible_with_printer($new_printer_preset); $canceled = ! $force && $print_preset_dirty && ! $print_preset_compatible && ! $self->may_discard_current_dirty_preset($print_presets, $name); my $filament_presets = wxTheApp->{preset_bundle}->filament; my $filament_preset_dirty = $filament_presets->current_is_dirty; my $filament_preset_compatible = $filament_presets->get_edited_preset->is_compatible_with_printer($new_printer_preset); if (! $canceled && ! $force) { $canceled = $filament_preset_dirty && ! $filament_preset_compatible && ! $self->may_discard_current_dirty_preset($filament_presets, $name); } if (! $canceled) { if (! $print_preset_compatible) { # The preset will be switched to a different, compatible preset, or the '-- default --'. push @reload_dependent_tabs, 'print'; $print_presets->discard_current_changes if $print_preset_dirty; } if (! $filament_preset_compatible) { # The preset will be switched to a different, compatible preset, or the '-- default --'. push @reload_dependent_tabs, 'filament'; $filament_presets->discard_current_changes if $filament_preset_dirty; } } } if ($canceled) { $self->update_tab_ui; # Trigger the on_presets_changed event so that we also restore the previous value in the plater selector, # if this action was initiated from the platter. $self->_on_presets_changed; } else { $presets->discard_current_changes if $current_dirty; $presets->select_preset_by_name($name); # Mark the print & filament enabled if they are compatible with the currently selected preset. # The following method should not discard changes of current print or filament presets on change of a printer profile, # if they are compatible with the current printer. wxTheApp->{preset_bundle}->update_compatible_with_printer(1) if $current_dirty || $printer_tab; # Initialize the UI from the current preset. $self->load_current_preset(\@reload_dependent_tabs); } } # Initialize the UI from the current preset. sub load_current_preset { my ($self, $dependent_tab_names) = @_; my $preset = $self->{presets}->get_current_preset; eval { local $SIG{__WARN__} = Slic3r::GUI::warning_catcher($self); my $method = $preset->default ? 'Disable' : 'Enable'; $self->{btn_delete_preset}->$method; $self->_update; # For the printer profile, generate the extruder pages. $self->on_preset_loaded; # Reload preset pages with the new configuration values. $self->_reload_config; }; # use CallAfter because some field triggers schedule on_change calls using CallAfter, # and we don't want them to be called after this update_dirty() as they would mark the # preset dirty again # (not sure this is true anymore now that update_dirty is idempotent) wxTheApp->CallAfter(sub { $self->update_tab_ui; $self->_on_presets_changed($dependent_tab_names); }); } sub add_options_page { my ($self, $title, $icon, %params) = @_; # Index of $icon in an icon list $self->{icons}. my $icon_idx = 0; if ($icon) { $icon_idx = $self->{icon_index}->{$icon}; if (! defined $icon_idx) { # Add a new icon to the icon list. my $bitmap = Wx::Bitmap->new(Slic3r::var($icon), wxBITMAP_TYPE_PNG); $self->{icons}->Add($bitmap); $icon_idx = $self->{icon_count} + 1; $self->{icon_count} = $icon_idx; $self->{icon_index}->{$icon} = $icon_idx; } } # Initialize the page. my $page = Slic3r::GUI::Tab::Page->new($self, $title, $icon_idx); $page->Hide; $self->{hsizer}->Add($page, 1, wxEXPAND | wxLEFT, 5); push @{$self->{pages}}, $page; return $page; } # Reload current $self->{config} (aka $self->{presets}->edited_preset->config) into the UI fields. sub _reload_config { my ($self) = @_; $self->Freeze; $_->reload_config for @{$self->{pages}}; $self->Thaw; } # Regerenerate content of the page tree. sub rebuild_page_tree { my ($self) = @_; $self->Freeze; # get label of the currently selected item my $selected = $self->{treectrl}->GetItemText($self->{treectrl}->GetSelection); my $rootItem = $self->{treectrl}->GetRootItem; $self->{treectrl}->DeleteChildren($rootItem); my $have_selection = 0; foreach my $page (@{$self->{pages}}) { my $itemId = $self->{treectrl}->AppendItem($rootItem, $page->{title}, $page->{iconID}); if ($page->{title} eq $selected) { $self->{disable_tree_sel_changed_event} = 1; $self->{treectrl}->SelectItem($itemId); $self->{disable_tree_sel_changed_event} = 0; $have_selection = 1; } } if (!$have_selection) { # this is triggered on first load, so we don't disable the sel change event $self->{treectrl}->SelectItem($self->{treectrl}->GetFirstChild($rootItem)); } $self->Thaw; } # Update the combo box label of the selected preset based on its "dirty" state, # comparing the selected preset config with $self->{config}. sub update_dirty { my ($self) = @_; $self->{presets}->update_dirty_ui($self->{presets_choice}); $self->_on_presets_changed; } # Load a provied DynamicConfig into the tab, modifying the active preset. # This could be used for example by setting a Wipe Tower position by interactive manipulation in the 3D view. sub load_config { my ($self, $config) = @_; my $modified = 0; foreach my $opt_key (@{$self->{config}->diff($config)}) { $self->{config}->set($opt_key, $config->get($opt_key)); $modified = 1; } if ($modified) { $self->update_dirty; # Initialize UI components with the config values. $self->_reload_config; $self->_update; } } # To be called by custom widgets, load a value into a config, # update the preset selection boxes (the dirty flags) sub _load_key_value { my ($self, $opt_key, $value) = @_; $self->{config}->set($opt_key, $value); # Mark the print & filament enabled if they are compatible with the currently selected preset. if ($opt_key eq 'compatible_printers') { # $opt_key eq 'compatible_printers_condition') { wxTheApp->{preset_bundle}->update_compatible_with_printer(0); } $self->{presets}->update_dirty_ui($self->{presets_choice}); $self->_on_presets_changed; $self->_update; } # Find a field with an index over all pages of this tab. # This method is used often and everywhere, therefore it shall be quick. sub get_field { my ($self, $opt_key, $opt_index) = @_; foreach my $page (@{$self->{pages}}) { my $field = $page->get_field($opt_key, $opt_index); return $field if defined $field; } return undef; } # Set a key/value pair on this page. Return true if the value has been modified. # Currently used for distributing extruders_count over preset pages of Slic3r::GUI::Tab::Printer # after a preset is loaded. sub set_value { my ($self, $opt_key, $value) = @_; my $changed = 0; foreach my $page (@{$self->{pages}}) { $changed = 1 if $page->set_value($opt_key, $value); } return $changed; } # Return a callback to create a Tab widget to mark the preferences as compatible / incompatible to the current printer. sub _compatible_printers_widget { my ($self) = @_; return sub { my ($parent) = @_; my $checkbox = $self->{compatible_printers_checkbox} = Wx::CheckBox->new($parent, -1, "All"); my $btn = $self->{compatible_printers_btn} = Wx::Button->new($parent, -1, "Set…", wxDefaultPosition, wxDefaultSize, wxBU_LEFT | wxBU_EXACTFIT); $btn->SetFont($Slic3r::GUI::small_font); $btn->SetBitmap(Wx::Bitmap->new(Slic3r::var("printer_empty.png"), wxBITMAP_TYPE_PNG)); my $sizer = Wx::BoxSizer->new(wxHORIZONTAL); $sizer->Add($checkbox, 0, wxALIGN_CENTER_VERTICAL); $sizer->Add($btn, 0, wxALIGN_CENTER_VERTICAL); EVT_CHECKBOX($self, $checkbox, sub { my $method = $checkbox->GetValue ? 'Disable' : 'Enable'; $btn->$method; # All printers have been made compatible with this preset. $self->_load_key_value('compatible_printers', []) if $checkbox->GetValue; $self->get_field('compatible_printers_condition')->toggle($checkbox->GetValue); }); EVT_BUTTON($self, $btn, sub { # Collect names of non-default non-external printer profiles. my @presets = map $_->name, grep !$_->default && !$_->external, @{wxTheApp->{preset_bundle}->printer}; my $dlg = Wx::MultiChoiceDialog->new($self, "Select the printers this profile is compatible with.", "Compatible printers", \@presets); # Collect and set indices of printers marked as compatible. my @selections = (); foreach my $preset_name (@{ $self->{config}->get('compatible_printers') }) { my $idx = first { $presets[$_] eq $preset_name } 0..$#presets; push @selections, $idx if defined $idx; } $dlg->SetSelections(@selections); # Show the dialog. if ($dlg->ShowModal == wxID_OK) { my $value = [ @presets[$dlg->GetSelections] ]; if (!@$value) { $checkbox->SetValue(1); $self->get_field('compatible_printers_condition')->toggle(1); $btn->Disable; } # All printers have been made compatible with this preset. $self->_load_key_value('compatible_printers', $value); } }); return $sizer; }; } sub _reload_compatible_printers_widget { my ($self) = @_; my $has_any = int(@{$self->{config}->get('compatible_printers')}) > 0; my $method = $has_any ? 'Enable' : 'Disable'; $self->{compatible_printers_checkbox}->SetValue(! $has_any); $self->{compatible_printers_btn}->$method; $self->get_field('compatible_printers_condition')->toggle(! $has_any); } sub update_ui_from_settings { my ($self) = @_; # Show the 'show / hide presets' button only for the print and filament tabs, and only if enabled # in application preferences. my $show = wxTheApp->{app_config}->get("show_incompatible_presets") && $self->{presets}->name ne 'printer'; my $method = $show ? 'Show' : 'Hide'; $self->{btn_hide_incompatible_presets}->$method; # If the 'show / hide presets' button is hidden, hide the incompatible presets. if ($show) { $self->_update_show_hide_incompatible_button; } else { if ($self->{show_incompatible_presets}) { $self->{show_incompatible_presets} = 0; $self->update_tab_ui; } } } sub update_tab_ui { my ($self) = @_; $self->{presets}->update_tab_ui($self->{presets_choice}, $self->{show_incompatible_presets}) } package Slic3r::GUI::Tab::Print; use base 'Slic3r::GUI::Tab'; use List::Util qw(first); use Wx qw(:icon :dialog :id wxTheApp); sub name { 'print' } sub title { 'Print Settings' } sub build { my $self = shift; $self->{presets} = wxTheApp->{preset_bundle}->print; $self->{config} = $self->{presets}->get_edited_preset->config; { my $page = $self->add_options_page('Layers and perimeters', 'layers.png'); { my $optgroup = $page->new_optgroup('Layer height'); $optgroup->append_single_option_line('layer_height'); $optgroup->append_single_option_line('first_layer_height'); } { my $optgroup = $page->new_optgroup('Vertical shells'); $optgroup->append_single_option_line('perimeters'); $optgroup->append_single_option_line('spiral_vase'); my $line = Slic3r::GUI::OptionsGroup::Line->new( label => '', full_width => 1, widget => sub { my ($parent) = @_; return $self->{recommended_thin_wall_thickness_description_line} = Slic3r::GUI::OptionsGroup::StaticText->new($parent); }, ); $optgroup->append_line($line); } { my $optgroup = $page->new_optgroup('Horizontal shells'); my $line = Slic3r::GUI::OptionsGroup::Line->new( label => 'Solid layers', ); $line->append_option($optgroup->get_option('top_solid_layers')); $line->append_option($optgroup->get_option('bottom_solid_layers')); $optgroup->append_line($line); } { my $optgroup = $page->new_optgroup('Quality (slower slicing)'); $optgroup->append_single_option_line('extra_perimeters'); $optgroup->append_single_option_line('ensure_vertical_shell_thickness'); $optgroup->append_single_option_line('avoid_crossing_perimeters'); $optgroup->append_single_option_line('thin_walls'); $optgroup->append_single_option_line('overhangs'); } { my $optgroup = $page->new_optgroup('Advanced'); $optgroup->append_single_option_line('seam_position'); $optgroup->append_single_option_line('external_perimeters_first'); } } { my $page = $self->add_options_page('Infill', 'infill.png'); { my $optgroup = $page->new_optgroup('Infill'); $optgroup->append_single_option_line('fill_density'); $optgroup->append_single_option_line('fill_pattern'); $optgroup->append_single_option_line('external_fill_pattern'); } { my $optgroup = $page->new_optgroup('Reducing printing time'); $optgroup->append_single_option_line('infill_every_layers'); $optgroup->append_single_option_line('infill_only_where_needed'); } { my $optgroup = $page->new_optgroup('Advanced'); $optgroup->append_single_option_line('solid_infill_every_layers'); $optgroup->append_single_option_line('fill_angle'); $optgroup->append_single_option_line('solid_infill_below_area'); $optgroup->append_single_option_line('bridge_angle'); $optgroup->append_single_option_line('only_retract_when_crossing_perimeters'); $optgroup->append_single_option_line('infill_first'); } } { my $page = $self->add_options_page('Skirt and brim', 'box.png'); { my $optgroup = $page->new_optgroup('Skirt'); $optgroup->append_single_option_line('skirts'); $optgroup->append_single_option_line('skirt_distance'); $optgroup->append_single_option_line('skirt_height'); $optgroup->append_single_option_line('min_skirt_length'); } { my $optgroup = $page->new_optgroup('Brim'); $optgroup->append_single_option_line('brim_width'); } } { my $page = $self->add_options_page('Support material', 'building.png'); { my $optgroup = $page->new_optgroup('Support material'); $optgroup->append_single_option_line('support_material'); $optgroup->append_single_option_line('support_material_threshold'); $optgroup->append_single_option_line('support_material_enforce_layers'); } { my $optgroup = $page->new_optgroup('Raft'); $optgroup->append_single_option_line('raft_layers'); # $optgroup->append_single_option_line('raft_contact_distance'); } { my $optgroup = $page->new_optgroup('Options for support material and raft'); $optgroup->append_single_option_line('support_material_contact_distance'); $optgroup->append_single_option_line('support_material_pattern'); $optgroup->append_single_option_line('support_material_with_sheath'); $optgroup->append_single_option_line('support_material_spacing'); $optgroup->append_single_option_line('support_material_angle'); $optgroup->append_single_option_line('support_material_interface_layers'); $optgroup->append_single_option_line('support_material_interface_spacing'); $optgroup->append_single_option_line('support_material_interface_contact_loops'); $optgroup->append_single_option_line('support_material_buildplate_only'); $optgroup->append_single_option_line('support_material_xy_spacing'); $optgroup->append_single_option_line('dont_support_bridges'); $optgroup->append_single_option_line('support_material_synchronize_layers'); } } { my $page = $self->add_options_page('Speed', 'time.png'); { my $optgroup = $page->new_optgroup('Speed for print moves'); $optgroup->append_single_option_line('perimeter_speed'); $optgroup->append_single_option_line('small_perimeter_speed'); $optgroup->append_single_option_line('external_perimeter_speed'); $optgroup->append_single_option_line('infill_speed'); $optgroup->append_single_option_line('solid_infill_speed'); $optgroup->append_single_option_line('top_solid_infill_speed'); $optgroup->append_single_option_line('support_material_speed'); $optgroup->append_single_option_line('support_material_interface_speed'); $optgroup->append_single_option_line('bridge_speed'); $optgroup->append_single_option_line('gap_fill_speed'); } { my $optgroup = $page->new_optgroup('Speed for non-print moves'); $optgroup->append_single_option_line('travel_speed'); } { my $optgroup = $page->new_optgroup('Modifiers'); $optgroup->append_single_option_line('first_layer_speed'); } { my $optgroup = $page->new_optgroup('Acceleration control (advanced)'); $optgroup->append_single_option_line('perimeter_acceleration'); $optgroup->append_single_option_line('infill_acceleration'); $optgroup->append_single_option_line('bridge_acceleration'); $optgroup->append_single_option_line('first_layer_acceleration'); $optgroup->append_single_option_line('default_acceleration'); } { my $optgroup = $page->new_optgroup('Autospeed (advanced)'); $optgroup->append_single_option_line('max_print_speed'); $optgroup->append_single_option_line('max_volumetric_speed'); $optgroup->append_single_option_line('max_volumetric_extrusion_rate_slope_positive'); $optgroup->append_single_option_line('max_volumetric_extrusion_rate_slope_negative'); } } { my $page = $self->add_options_page('Multiple Extruders', 'funnel.png'); { my $optgroup = $page->new_optgroup('Extruders'); $optgroup->append_single_option_line('perimeter_extruder'); $optgroup->append_single_option_line('infill_extruder'); $optgroup->append_single_option_line('solid_infill_extruder'); $optgroup->append_single_option_line('support_material_extruder'); $optgroup->append_single_option_line('support_material_interface_extruder'); } { my $optgroup = $page->new_optgroup('Ooze prevention'); $optgroup->append_single_option_line('ooze_prevention'); $optgroup->append_single_option_line('standby_temperature_delta'); } { my $optgroup = $page->new_optgroup('Wipe tower'); $optgroup->append_single_option_line('wipe_tower'); $optgroup->append_single_option_line('wipe_tower_x'); $optgroup->append_single_option_line('wipe_tower_y'); $optgroup->append_single_option_line('wipe_tower_width'); $optgroup->append_single_option_line('wipe_tower_per_color_wipe'); } { my $optgroup = $page->new_optgroup('Advanced'); $optgroup->append_single_option_line('interface_shells'); } } { my $page = $self->add_options_page('Advanced', 'wrench.png'); { my $optgroup = $page->new_optgroup('Extrusion width', label_width => 180, ); $optgroup->append_single_option_line('extrusion_width'); $optgroup->append_single_option_line('first_layer_extrusion_width'); $optgroup->append_single_option_line('perimeter_extrusion_width'); $optgroup->append_single_option_line('external_perimeter_extrusion_width'); $optgroup->append_single_option_line('infill_extrusion_width'); $optgroup->append_single_option_line('solid_infill_extrusion_width'); $optgroup->append_single_option_line('top_infill_extrusion_width'); $optgroup->append_single_option_line('support_material_extrusion_width'); } { my $optgroup = $page->new_optgroup('Overlap'); $optgroup->append_single_option_line('infill_overlap'); } { my $optgroup = $page->new_optgroup('Flow'); $optgroup->append_single_option_line('bridge_flow_ratio'); } { my $optgroup = $page->new_optgroup('Other'); $optgroup->append_single_option_line('clip_multipart_objects'); $optgroup->append_single_option_line('elefant_foot_compensation'); $optgroup->append_single_option_line('xy_size_compensation'); # $optgroup->append_single_option_line('threads'); $optgroup->append_single_option_line('resolution'); } } { my $page = $self->add_options_page('Output options', 'page_white_go.png'); { my $optgroup = $page->new_optgroup('Sequential printing'); $optgroup->append_single_option_line('complete_objects'); my $line = Slic3r::GUI::OptionsGroup::Line->new( label => 'Extruder clearance (mm)', ); foreach my $opt_key (qw(extruder_clearance_radius extruder_clearance_height)) { my $option = $optgroup->get_option($opt_key); $option->width(60); $line->append_option($option); } $optgroup->append_line($line); } { my $optgroup = $page->new_optgroup('Output file'); $optgroup->append_single_option_line('gcode_comments'); { my $option = $optgroup->get_option('output_filename_format'); $option->full_width(1); $optgroup->append_single_option_line($option); } } { my $optgroup = $page->new_optgroup('Post-processing scripts', label_width => 0, ); my $option = $optgroup->get_option('post_process'); $option->full_width(1); $option->height(50); $optgroup->append_single_option_line($option); } } { my $page = $self->add_options_page('Notes', 'note.png'); { my $optgroup = $page->new_optgroup('Notes', label_width => 0, ); my $option = $optgroup->get_option('notes'); $option->full_width(1); $option->height(250); $optgroup->append_single_option_line($option); } } { my $page = $self->add_options_page('Dependencies', 'wrench.png'); { my $optgroup = $page->new_optgroup('Profile dependencies'); { my $line = Slic3r::GUI::OptionsGroup::Line->new( label => 'Compatible printers', widget => $self->_compatible_printers_widget, ); $optgroup->append_line($line); my $option = $optgroup->get_option('compatible_printers_condition'); $option->full_width(1); $optgroup->append_single_option_line($option); } } } } # Reload current $self->{config} (aka $self->{presets}->edited_preset->config) into the UI fields. sub _reload_config { my ($self) = @_; $self->_reload_compatible_printers_widget; $self->SUPER::_reload_config; } # Slic3r::GUI::Tab::Print::_update is called after a configuration preset is loaded or switched, or when a single option is modifed by the user. sub _update { my ($self) = @_; $self->Freeze; my $config = $self->{config}; if ($config->spiral_vase && !($config->perimeters == 1 && $config->top_solid_layers == 0 && $config->fill_density == 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" . "- no ensure_vertical_shell_thickness\n" . "\nShall I adjust those settings in order to enable Spiral Vase?", 'Spiral Vase', wxICON_WARNING | wxYES | wxNO); my $new_conf = Slic3r::Config->new; if ($dialog->ShowModal() == wxID_YES) { $new_conf->set("perimeters", 1); $new_conf->set("top_solid_layers", 0); $new_conf->set("fill_density", 0); $new_conf->set("support_material", 0); $new_conf->set("ensure_vertical_shell_thickness", 0); } else { $new_conf->set("spiral_vase", 0); } $self->load_config($new_conf); } if ($config->wipe_tower && ($config->first_layer_height != 0.2 || $config->layer_height < 0.15 || $config->layer_height > 0.35)) { my $dialog = Wx::MessageDialog->new($self, "The Wipe Tower currently supports only:\n" . "- first layer height 0.2mm\n" . "- layer height from 0.15mm to 0.35mm\n" . "\nShall I adjust those settings in order to enable the Wipe Tower?", 'Wipe Tower', wxICON_WARNING | wxYES | wxNO); my $new_conf = Slic3r::Config->new; if ($dialog->ShowModal() == wxID_YES) { $new_conf->set("first_layer_height", 0.2); $new_conf->set("layer_height", 0.15) if $config->layer_height < 0.15; $new_conf->set("layer_height", 0.35) if $config->layer_height > 0.35; } else { $new_conf->set("wipe_tower", 0); } $self->load_config($new_conf); } if ($config->wipe_tower && $config->support_material && $config->support_material_contact_distance > 0. && ($config->support_material_extruder != 0 || $config->support_material_interface_extruder != 0)) { my $dialog = Wx::MessageDialog->new($self, "The Wipe Tower currently supports the non-soluble supports only\n" . "if they are printed with the current extruder without triggering a tool change.\n" . "(both support_material_extruder and support_material_interface_extruder need to be set to 0).\n" . "\nShall I adjust those settings in order to enable the Wipe Tower?", 'Wipe Tower', wxICON_WARNING | wxYES | wxNO); my $new_conf = Slic3r::Config->new; if ($dialog->ShowModal() == wxID_YES) { $new_conf->set("support_material_extruder", 0); $new_conf->set("support_material_interface_extruder", 0); } else { $new_conf->set("wipe_tower", 0); } $self->load_config($new_conf); } if ($config->wipe_tower && $config->support_material && $config->support_material_contact_distance == 0 && ! $config->support_material_synchronize_layers) { my $dialog = Wx::MessageDialog->new($self, "For the Wipe Tower to work with the soluble supports, the support layers\n" . "need to be synchronized with the object layers.\n" . "\nShall I synchronize support layers in order to enable the Wipe Tower?", 'Wipe Tower', wxICON_WARNING | wxYES | wxNO); my $new_conf = Slic3r::Config->new; if ($dialog->ShowModal() == wxID_YES) { $new_conf->set("support_material_synchronize_layers", 1); } else { $new_conf->set("wipe_tower", 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(); 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->{external_fill_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'); $new_conf->set("fill_density", 100); } else { $new_conf->set("fill_density", 40); } $self->load_config($new_conf); } my $have_perimeters = $config->perimeters > 0; $self->get_field($_)->toggle($have_perimeters) for qw(extra_perimeters ensure_vertical_shell_thickness thin_walls overhangs seam_position external_perimeters_first external_perimeter_extrusion_width perimeter_speed small_perimeter_speed external_perimeter_speed); 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); 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(external_fill_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 bridge_angle infill_extrusion_width infill_speed bridge_speed); $self->get_field('gap_fill_speed')->toggle($have_perimeters && $have_infill); 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_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); my $have_brim = $config->brim_width > 0; # perimeter_extruder uses the same logic as in Print::extruders() $self->get_field('perimeter_extruder')->toggle($have_perimeters || $have_brim); my $have_raft = $config->raft_layers > 0; my $have_support_material = $config->support_material || $have_raft; my $have_support_interface = $config->support_material_interface_layers > 0; my $have_support_soluble = $have_support_material && $config->support_material_contact_distance == 0; $self->get_field($_)->toggle($have_support_material) for qw(support_material_threshold support_material_pattern support_material_with_sheath support_material_spacing support_material_angle support_material_interface_layers dont_support_bridges support_material_extrusion_width support_material_contact_distance support_material_xy_spacing); $self->get_field($_)->toggle($have_support_material && $have_support_interface) for qw(support_material_interface_spacing support_material_interface_extruder support_material_interface_speed support_material_interface_contact_loops); $self->get_field('support_material_synchronize_layers')->toggle($have_support_soluble); $self->get_field('perimeter_extrusion_width')->toggle($have_perimeters || $have_skirt || $have_brim); $self->get_field('support_material_extruder')->toggle($have_support_material || $have_skirt); $self->get_field('support_material_speed')->toggle($have_support_material || $have_brim || $have_skirt); my $have_sequential_printing = $config->complete_objects; $self->get_field($_)->toggle($have_sequential_printing) for qw(extruder_clearance_radius extruder_clearance_height); my $have_ooze_prevention = $config->ooze_prevention; $self->get_field($_)->toggle($have_ooze_prevention) for qw(standby_temperature_delta); my $have_wipe_tower = $config->wipe_tower; $self->get_field($_)->toggle($have_wipe_tower) for qw(wipe_tower_x wipe_tower_y wipe_tower_width wipe_tower_per_color_wipe); $self->{recommended_thin_wall_thickness_description_line}->SetText( Slic3r::GUI::PresetHints::recommended_thin_wall_thickness(wxTheApp->{preset_bundle})); $self->Thaw; } # Update on activation to recalculate the estimates if the nozzle diameter changed # and the extrusion width values were left to zero (automatic, nozzle dependent). sub OnActivate { my ($self) = @_; $self->{recommended_thin_wall_thickness_description_line}->SetText( Slic3r::GUI::PresetHints::recommended_thin_wall_thickness(wxTheApp->{preset_bundle})); } package Slic3r::GUI::Tab::Filament; use base 'Slic3r::GUI::Tab'; use Wx qw(wxTheApp); sub name { 'filament' } sub title { 'Filament Settings' } sub build { my $self = shift; $self->{presets} = wxTheApp->{preset_bundle}->filament; $self->{config} = $self->{presets}->get_edited_preset->config; { my $page = $self->add_options_page('Filament', 'spool.png'); { my $optgroup = $page->new_optgroup('Filament'); $optgroup->append_single_option_line('filament_colour', 0); $optgroup->append_single_option_line('filament_diameter', 0); $optgroup->append_single_option_line('extrusion_multiplier', 0); $optgroup->append_single_option_line('filament_density', 0); $optgroup->append_single_option_line('filament_cost', 0); } { my $optgroup = $page->new_optgroup('Temperature (°C)'); { my $line = Slic3r::GUI::OptionsGroup::Line->new( label => 'Extruder', ); $line->append_option($optgroup->get_option('first_layer_temperature', 0)); $line->append_option($optgroup->get_option('temperature', 0)); $optgroup->append_line($line); } { my $line = Slic3r::GUI::OptionsGroup::Line->new( label => 'Bed', ); $line->append_option($optgroup->get_option('first_layer_bed_temperature', 0)); $line->append_option($optgroup->get_option('bed_temperature', 0)); $optgroup->append_line($line); } } } { my $page = $self->add_options_page('Cooling', 'hourglass.png'); { my $optgroup = $page->new_optgroup('Enable'); $optgroup->append_single_option_line('fan_always_on', 0); $optgroup->append_single_option_line('cooling', 0); my $line = Slic3r::GUI::OptionsGroup::Line->new( label => '', full_width => 1, widget => sub { my ($parent) = @_; return $self->{cooling_description_line} = Slic3r::GUI::OptionsGroup::StaticText->new($parent); }, ); $optgroup->append_line($line); } { my $optgroup = $page->new_optgroup('Fan settings'); { my $line = Slic3r::GUI::OptionsGroup::Line->new( label => 'Fan speed', ); $line->append_option($optgroup->get_option('min_fan_speed', 0)); $line->append_option($optgroup->get_option('max_fan_speed', 0)); $optgroup->append_line($line); } $optgroup->append_single_option_line('bridge_fan_speed', 0); $optgroup->append_single_option_line('disable_fan_first_layers', 0); } { my $optgroup = $page->new_optgroup('Cooling thresholds', label_width => 250, ); $optgroup->append_single_option_line('fan_below_layer_time', 0); $optgroup->append_single_option_line('slowdown_below_layer_time', 0); $optgroup->append_single_option_line('min_print_speed', 0); } } { my $page = $self->add_options_page('Advanced', 'wrench.png'); { my $optgroup = $page->new_optgroup('Filament properties'); $optgroup->append_single_option_line('filament_type', 0); $optgroup->append_single_option_line('filament_soluble', 0); $optgroup = $page->new_optgroup('Print speed override'); $optgroup->append_single_option_line('filament_max_volumetric_speed', 0); my $line = Slic3r::GUI::OptionsGroup::Line->new( label => '', full_width => 1, widget => sub { my ($parent) = @_; return $self->{volumetric_speed_description_line} = Slic3r::GUI::OptionsGroup::StaticText->new($parent); }, ); $optgroup->append_line($line); } } { my $page = $self->add_options_page('Custom G-code', 'cog.png'); { my $optgroup = $page->new_optgroup('Start G-code', label_width => 0, ); my $option = $optgroup->get_option('start_filament_gcode', 0); $option->full_width(1); $option->height(150); $optgroup->append_single_option_line($option); } { my $optgroup = $page->new_optgroup('End G-code', label_width => 0, ); my $option = $optgroup->get_option('end_filament_gcode', 0); $option->full_width(1); $option->height(150); $optgroup->append_single_option_line($option); } } { my $page = $self->add_options_page('Notes', 'note.png'); { my $optgroup = $page->new_optgroup('Notes', label_width => 0, ); my $option = $optgroup->get_option('filament_notes', 0); $option->full_width(1); $option->height(250); $optgroup->append_single_option_line($option); } } { my $page = $self->add_options_page('Dependencies', 'wrench.png'); { my $optgroup = $page->new_optgroup('Profile dependencies'); { my $line = Slic3r::GUI::OptionsGroup::Line->new( label => 'Compatible printers', widget => $self->_compatible_printers_widget, ); $optgroup->append_line($line); my $option = $optgroup->get_option('compatible_printers_condition'); $option->full_width(1); $optgroup->append_single_option_line($option); } } } } # Reload current $self->{config} (aka $self->{presets}->edited_preset->config) into the UI fields. sub _reload_config { my ($self) = @_; $self->_reload_compatible_printers_widget; $self->SUPER::_reload_config; } # Slic3r::GUI::Tab::Filament::_update is called after a configuration preset is loaded or switched, or when a single option is modifed by the user. sub _update { my ($self) = @_; $self->{cooling_description_line}->SetText( Slic3r::GUI::PresetHints::cooling_description($self->{presets}->get_edited_preset)); $self->{volumetric_speed_description_line}->SetText( Slic3r::GUI::PresetHints::maximum_volumetric_flow_description(wxTheApp->{preset_bundle})); my $cooling = $self->{config}->cooling->[0]; my $fan_always_on = $cooling || $self->{config}->fan_always_on->[0]; $self->get_field($_, 0)->toggle($cooling) for qw(max_fan_speed fan_below_layer_time slowdown_below_layer_time min_print_speed); $self->get_field($_, 0)->toggle($fan_always_on) for qw(min_fan_speed disable_fan_first_layers); } sub OnActivate { my ($self) = @_; $self->{volumetric_speed_description_line}->SetText( Slic3r::GUI::PresetHints::maximum_volumetric_flow_description(wxTheApp->{preset_bundle})); } package Slic3r::GUI::Tab::Printer; use base 'Slic3r::GUI::Tab'; use Wx qw(wxTheApp :sizer :button :bitmap :misc :id :icon :dialog); use Wx::Event qw(EVT_BUTTON); sub name { 'printer' } sub title { 'Printer Settings' } sub build { my ($self, %params) = @_; $self->{presets} = wxTheApp->{preset_bundle}->printer; $self->{config} = $self->{presets}->get_edited_preset->config; $self->{extruders_count} = scalar @{$self->{config}->nozzle_diameter}; my $bed_shape_widget = sub { my ($parent) = @_; my $btn = Wx::Button->new($parent, -1, "Set…", wxDefaultPosition, wxDefaultSize, wxBU_LEFT | wxBU_EXACTFIT); $btn->SetFont($Slic3r::GUI::small_font); $btn->SetBitmap(Wx::Bitmap->new(Slic3r::var("printer_empty.png"), wxBITMAP_TYPE_PNG)); my $sizer = Wx::BoxSizer->new(wxHORIZONTAL); $sizer->Add($btn); EVT_BUTTON($self, $btn, sub { my $dlg = Slic3r::GUI::BedShapeDialog->new($self, $self->{config}->bed_shape); $self->_load_key_value('bed_shape', $dlg->GetValue) if $dlg->ShowModal == wxID_OK; }); return $sizer; }; { my $page = $self->add_options_page('General', 'printer_empty.png'); { my $optgroup = $page->new_optgroup('Size and coordinates'); my $line = Slic3r::GUI::OptionsGroup::Line->new( label => 'Bed shape', widget => $bed_shape_widget, ); $optgroup->append_line($line); $optgroup->append_single_option_line('z_offset'); } { my $optgroup = $page->new_optgroup('Capabilities'); { my $option = Slic3r::GUI::OptionsGroup::Option->new( opt_id => 'extruders_count', type => 'i', default => 1, label => 'Extruders', tooltip => 'Number of extruders of the printer.', min => 1, ); $optgroup->append_single_option_line($option); $optgroup->append_single_option_line('single_extruder_multi_material'); } $optgroup->on_change(sub { my ($opt_key, $value) = @_; wxTheApp->CallAfter(sub { if ($opt_key eq 'extruders_count') { $self->_extruders_count_changed($optgroup->get_value('extruders_count')); $self->update_dirty; } else { $self->update_dirty; $self->_on_value_change($opt_key, $value); } }); }); } if (!$params{no_controller}) { my $optgroup = $page->new_optgroup('USB/Serial connection'); my $line = Slic3r::GUI::OptionsGroup::Line->new( label => 'Serial port', ); my $serial_port = $optgroup->get_option('serial_port'); $serial_port->side_widget(sub { my ($parent) = @_; my $btn = Wx::BitmapButton->new($parent, -1, Wx::Bitmap->new(Slic3r::var("arrow_rotate_clockwise.png"), wxBITMAP_TYPE_PNG), wxDefaultPosition, wxDefaultSize, &Wx::wxBORDER_NONE); $btn->SetToolTipString("Rescan serial ports") if $btn->can('SetToolTipString'); EVT_BUTTON($self, $btn, \&_update_serial_ports); return $btn; }); my $serial_test = sub { my ($parent) = @_; my $btn = $self->{serial_test_btn} = Wx::Button->new($parent, -1, "Test", wxDefaultPosition, wxDefaultSize, wxBU_LEFT | wxBU_EXACTFIT); $btn->SetFont($Slic3r::GUI::small_font); $btn->SetBitmap(Wx::Bitmap->new(Slic3r::var("wrench.png"), wxBITMAP_TYPE_PNG)); EVT_BUTTON($self, $btn, sub { my $sender = Slic3r::GCode::Sender->new; my $res = $sender->connect( $self->{config}->serial_port, $self->{config}->serial_speed, ); if ($res && $sender->wait_connected) { Slic3r::GUI::show_info($self, "Connection to printer works correctly.", "Success!"); } else { Slic3r::GUI::show_error($self, "Connection failed."); } }); return $btn; }; $line->append_option($serial_port); $line->append_option($optgroup->get_option('serial_speed')); $line->append_widget($serial_test); $optgroup->append_line($line); } { my $optgroup = $page->new_optgroup('OctoPrint upload'); # append two buttons to the Host line my $octoprint_host_browse = sub { my ($parent) = @_; my $btn = Wx::Button->new($parent, -1, "Browse…", wxDefaultPosition, wxDefaultSize, wxBU_LEFT); $btn->SetFont($Slic3r::GUI::small_font); $btn->SetBitmap(Wx::Bitmap->new(Slic3r::var("zoom.png"), wxBITMAP_TYPE_PNG)); if (!eval "use Net::Bonjour; 1") { $btn->Disable; } EVT_BUTTON($self, $btn, sub { # look for devices my $entries; { my $res = Net::Bonjour->new('http'); $res->discover; $entries = [ $res->entries ]; } if (@{$entries}) { my $dlg = Slic3r::GUI::BonjourBrowser->new($self, $entries); $self->_load_key_value('octoprint_host', $dlg->GetValue . ":" . $dlg->GetPort) if $dlg->ShowModal == wxID_OK; } else { Wx::MessageDialog->new($self, 'No Bonjour device found', 'Device Browser', wxOK | wxICON_INFORMATION)->ShowModal; } }); return $btn; }; my $octoprint_host_test = sub { my ($parent) = @_; my $btn = $self->{octoprint_host_test_btn} = Wx::Button->new($parent, -1, "Test", wxDefaultPosition, wxDefaultSize, wxBU_LEFT | wxBU_EXACTFIT); $btn->SetFont($Slic3r::GUI::small_font); $btn->SetBitmap(Wx::Bitmap->new(Slic3r::var("wrench.png"), wxBITMAP_TYPE_PNG)); EVT_BUTTON($self, $btn, sub { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $res = $ua->get( "http://" . $self->{config}->octoprint_host . "/api/version", 'X-Api-Key' => $self->{config}->octoprint_apikey, ); if ($res->is_success) { Slic3r::GUI::show_info($self, "Connection to OctoPrint works correctly.", "Success!"); } else { Slic3r::GUI::show_error($self, "I wasn't able to connect to OctoPrint (" . $res->status_line . "). " . "Check hostname and OctoPrint version (at least 1.1.0 is required)."); } }); return $btn; }; my $host_line = $optgroup->create_single_option_line('octoprint_host'); $host_line->append_widget($octoprint_host_browse); $host_line->append_widget($octoprint_host_test); $optgroup->append_line($host_line); $optgroup->append_single_option_line('octoprint_apikey'); } { my $optgroup = $page->new_optgroup('Firmware'); $optgroup->append_single_option_line('gcode_flavor'); } { my $optgroup = $page->new_optgroup('Advanced'); $optgroup->append_single_option_line('use_relative_e_distances'); $optgroup->append_single_option_line('use_firmware_retraction'); $optgroup->append_single_option_line('use_volumetric_e'); $optgroup->append_single_option_line('variable_layer_height'); } } { my $page = $self->add_options_page('Custom G-code', 'cog.png'); { my $optgroup = $page->new_optgroup('Start G-code', label_width => 0, ); my $option = $optgroup->get_option('start_gcode'); $option->full_width(1); $option->height(150); $optgroup->append_single_option_line($option); } { my $optgroup = $page->new_optgroup('End G-code', label_width => 0, ); my $option = $optgroup->get_option('end_gcode'); $option->full_width(1); $option->height(150); $optgroup->append_single_option_line($option); } { my $optgroup = $page->new_optgroup('Before layer change G-code', label_width => 0, ); my $option = $optgroup->get_option('before_layer_gcode'); $option->full_width(1); $option->height(150); $optgroup->append_single_option_line($option); } { my $optgroup = $page->new_optgroup('After layer change G-code', label_width => 0, ); my $option = $optgroup->get_option('layer_gcode'); $option->full_width(1); $option->height(150); $optgroup->append_single_option_line($option); } { my $optgroup = $page->new_optgroup('Tool change G-code', label_width => 0, ); my $option = $optgroup->get_option('toolchange_gcode'); $option->full_width(1); $option->height(150); $optgroup->append_single_option_line($option); } { my $optgroup = $page->new_optgroup('Between objects G-code (for sequential printing)', label_width => 0, ); my $option = $optgroup->get_option('between_objects_gcode'); $option->full_width(1); $option->height(150); $optgroup->append_single_option_line($option); } } { my $page = $self->add_options_page('Notes', 'note.png'); { my $optgroup = $page->new_optgroup('Notes', label_width => 0, ); my $option = $optgroup->get_option('printer_notes'); $option->full_width(1); $option->height(250); $optgroup->append_single_option_line($option); } } $self->{extruder_pages} = []; $self->_build_extruder_pages; $self->_update_serial_ports if (!$params{no_controller}); } sub _update_serial_ports { my ($self) = @_; $self->get_field('serial_port')->set_values([ Slic3r::GUI::scan_serial_ports ]); } sub _extruders_count_changed { my ($self, $extruders_count) = @_; $self->{extruders_count} = $extruders_count; wxTheApp->{preset_bundle}->printer->get_edited_preset->set_num_extruders($extruders_count); wxTheApp->{preset_bundle}->update_multi_material_filament_presets; $self->_build_extruder_pages; $self->_on_value_change('extruders_count', $extruders_count); } sub _build_extruder_pages { my ($self) = @_; my $default_config = Slic3r::Config::Full->new; foreach my $extruder_idx (@{$self->{extruder_pages}} .. $self->{extruders_count}-1) { # build page my $page = $self->{extruder_pages}[$extruder_idx] = $self->add_options_page("Extruder " . ($extruder_idx + 1), 'funnel.png'); { my $optgroup = $page->new_optgroup('Size'); $optgroup->append_single_option_line('nozzle_diameter', $extruder_idx); } { my $optgroup = $page->new_optgroup('Layer height limits'); $optgroup->append_single_option_line($_, $extruder_idx) for qw(min_layer_height max_layer_height); } { my $optgroup = $page->new_optgroup('Position (for multi-extruder printers)'); $optgroup->append_single_option_line('extruder_offset', $extruder_idx); } { my $optgroup = $page->new_optgroup('Retraction'); $optgroup->append_single_option_line($_, $extruder_idx) for qw(retract_length retract_lift); { my $line = Slic3r::GUI::OptionsGroup::Line->new( label => 'Only lift Z', ); $line->append_option($optgroup->get_option('retract_lift_above', $extruder_idx)); $line->append_option($optgroup->get_option('retract_lift_below', $extruder_idx)); $optgroup->append_line($line); } $optgroup->append_single_option_line($_, $extruder_idx) for qw(retract_speed deretract_speed retract_restart_extra retract_before_travel retract_layer_change wipe retract_before_wipe); } { my $optgroup = $page->new_optgroup('Retraction when tool is disabled (advanced settings for multi-extruder setups)'); $optgroup->append_single_option_line($_, $extruder_idx) for qw(retract_length_toolchange retract_restart_extra_toolchange); } { my $optgroup = $page->new_optgroup('Preview'); $optgroup->append_single_option_line('extruder_colour', $extruder_idx); } } # remove extra pages if ($self->{extruders_count} <= $#{$self->{extruder_pages}}) { $_->Destroy for @{$self->{extruder_pages}}[$self->{extruders_count}..$#{$self->{extruder_pages}}]; splice @{$self->{extruder_pages}}, $self->{extruders_count}; } # rebuild page list my @pages_without_extruders = (grep $_->{title} !~ /^Extruder \d+/, @{$self->{pages}}); my $page_notes = pop @pages_without_extruders; @{$self->{pages}} = ( @pages_without_extruders, @{$self->{extruder_pages}}[ 0 .. $self->{extruders_count}-1 ], $page_notes ); $self->rebuild_page_tree; } # Slic3r::GUI::Tab::Printer::_update is called after a configuration preset is loaded or switched, or when a single option is modifed by the user. sub _update { my ($self) = @_; $self->Freeze; my $config = $self->{config}; my $serial_speed = $self->get_field('serial_speed'); if ($serial_speed) { $self->get_field('serial_speed')->toggle($config->get('serial_port')); if ($config->get('serial_speed') && $config->get('serial_port')) { $self->{serial_test_btn}->Enable; } else { $self->{serial_test_btn}->Disable; } } if ($config->get('octoprint_host') && eval "use LWP::UserAgent; 1") { $self->{octoprint_host_test_btn}->Enable; } else { $self->{octoprint_host_test_btn}->Disable; } $self->get_field('octoprint_apikey')->toggle($config->get('octoprint_host')); my $have_multiple_extruders = $self->{extruders_count} > 1; $self->get_field('toolchange_gcode')->toggle($have_multiple_extruders); $self->get_field('single_extruder_multi_material')->toggle($have_multiple_extruders); for my $i (0 .. ($self->{extruders_count}-1)) { my $have_retract_length = $config->get_at('retract_length', $i) > 0; # when using firmware retraction, firmware decides retraction length $self->get_field('retract_length', $i)->toggle(!$config->use_firmware_retraction); # user can customize travel length if we have retraction length or we're using # firmware retraction $self->get_field('retract_before_travel', $i)->toggle($have_retract_length || $config->use_firmware_retraction); # user can customize other retraction options if retraction is enabled my $retraction = ($have_retract_length || $config->use_firmware_retraction); $self->get_field($_, $i)->toggle($retraction) for qw(retract_lift retract_layer_change); # retract lift above/below only applies if using retract lift $self->get_field($_, $i)->toggle($retraction && $config->get_at('retract_lift', $i) > 0) for qw(retract_lift_above retract_lift_below); # some options only apply when not using firmware retraction $self->get_field($_, $i)->toggle($retraction && !$config->use_firmware_retraction) for qw(retract_speed deretract_speed retract_before_wipe retract_restart_extra wipe); my $wipe = $config->get_at('wipe', $i); $self->get_field('retract_before_wipe', $i)->toggle($wipe); if ($config->use_firmware_retraction && $wipe) { my $dialog = Wx::MessageDialog->new($self, "The Wipe option is not available when using the Firmware Retraction mode.\n" . "\nShall I disable it in order to enable Firmware Retraction?", 'Firmware Retraction', wxICON_WARNING | wxYES | wxNO); my $new_conf = Slic3r::Config->new; if ($dialog->ShowModal() == wxID_YES) { my $wipe = $config->wipe; $wipe->[$i] = 0; $new_conf->set("wipe", $wipe); } else { $new_conf->set("use_firmware_retraction", 0); } $self->load_config($new_conf); } $self->get_field('retract_length_toolchange', $i)->toggle($have_multiple_extruders); my $toolchange_retraction = $config->get_at('retract_length_toolchange', $i) > 0; $self->get_field('retract_restart_extra_toolchange', $i)->toggle ($have_multiple_extruders && $toolchange_retraction); } $self->Thaw; } # this gets executed after preset is loaded and before GUI fields are updated sub on_preset_loaded { my ($self) = @_; # update the extruders count field my $extruders_count = scalar @{ $self->{config}->nozzle_diameter }; $self->set_value('extruders_count', $extruders_count); # update the GUI field according to the number of nozzle diameters supplied $self->_extruders_count_changed($extruders_count); } # Single Tab page containing a {vsizer} of {optgroups} package Slic3r::GUI::Tab::Page; use Wx qw(wxTheApp :misc :panel :sizer); use base 'Wx::ScrolledWindow'; sub new { my ($class, $parent, $title, $iconID) = @_; my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, wxDefaultSize, wxTAB_TRAVERSAL); $self->{optgroups} = []; $self->{title} = $title; $self->{iconID} = $iconID; $self->SetScrollbars(1, 1, 1, 1); $self->{vsizer} = Wx::BoxSizer->new(wxVERTICAL); $self->SetSizer($self->{vsizer}); return $self; } sub new_optgroup { my ($self, $title, %params) = @_; my $optgroup = Slic3r::GUI::ConfigOptionsGroup->new( parent => $self, title => $title, config => $self->GetParent->{config}, label_width => $params{label_width} // 200, on_change => sub { my ($opt_key, $value) = @_; wxTheApp->CallAfter(sub { $self->GetParent->update_dirty; $self->GetParent->_on_value_change($opt_key, $value); }); }, ); push @{$self->{optgroups}}, $optgroup; $self->{vsizer}->Add($optgroup->sizer, 0, wxEXPAND | wxALL, 10); return $optgroup; } sub reload_config { my ($self) = @_; $_->reload_config for @{$self->{optgroups}}; } sub get_field { my ($self, $opt_key, $opt_index) = @_; foreach my $optgroup (@{ $self->{optgroups} }) { my $field = $optgroup->get_fieldc($opt_key, $opt_index); return $field if defined $field; } return undef; } sub set_value { my ($self, $opt_key, $value) = @_; my $changed = 0; foreach my $optgroup (@{$self->{optgroups}}) { $changed = 1 if $optgroup->set_value($opt_key, $value); } return $changed; } # Dialog to select a new file name for a modified preset to be saved. # Called from Tab::save_preset(). package Slic3r::GUI::SavePresetWindow; use Wx qw(:combobox :dialog :id :misc :sizer); use Wx::Event qw(EVT_BUTTON EVT_TEXT_ENTER); use base 'Wx::Dialog'; sub new { my ($class, $parent, %params) = @_; my $self = $class->SUPER::new($parent, -1, "Save preset", wxDefaultPosition, wxDefaultSize); my @values = @{$params{values}}; my $text = Wx::StaticText->new($self, -1, "Save " . lc($params{title}) . " as:", wxDefaultPosition, wxDefaultSize); $self->{combo} = Wx::ComboBox->new($self, -1, $params{default}, wxDefaultPosition, wxDefaultSize, \@values, wxTE_PROCESS_ENTER); my $buttons = $self->CreateStdDialogButtonSizer(wxOK | wxCANCEL); my $sizer = Wx::BoxSizer->new(wxVERTICAL); $sizer->Add($text, 0, wxEXPAND | wxTOP | wxLEFT | wxRIGHT, 10); $sizer->Add($self->{combo}, 0, wxEXPAND | wxLEFT | wxRIGHT, 10); $sizer->Add($buttons, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10); EVT_BUTTON($self, wxID_OK, \&accept); EVT_TEXT_ENTER($self, $self->{combo}, \&accept); $self->SetSizer($sizer); $sizer->SetSizeHints($self); return $self; } sub accept { my ($self, $event) = @_; if (($self->{chosen_name} = Slic3r::normalize_utf8_nfc($self->{combo}->GetValue))) { if ($self->{chosen_name} !~ /^[^<>:\/\\|?*\"]+$/) { Slic3r::GUI::show_error($self, "The supplied name is not valid; the following characters are not allowed: <>:/\|?*\""); } elsif ($self->{chosen_name} eq '- default -') { Slic3r::GUI::show_error($self, "The supplied name is not available."); } else { $self->EndModal(wxID_OK); } } } sub get_name { my ($self) = @_; return $self->{chosen_name}; } 1; Slic3r-version_1.39.1/lib/Slic3r/Geometry.pm 0000664 0000000 0000000 00000017147 13243544447 0020573 0 ustar 00root root 0000000 0000000 package Slic3r::Geometry; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); # Exported by this module. The last section starting with convex_hull is exported by Geometry.xsp our @EXPORT_OK = qw( PI epsilon angle3points collinear dot line_intersection normalize point_in_segment polyline_lines polygon_is_convex polygon_segment_having_point scale unscale scaled_epsilon size_2D X Y Z convex_hull chained_path_from deg2rad rad2deg rad2deg_dir ); use constant PI => 4 * atan2(1, 1); use constant A => 0; use constant B => 1; use constant X1 => 0; use constant Y1 => 1; use constant X2 => 2; use constant Y2 => 3; sub epsilon () { 1E-4 } sub scaled_epsilon () { epsilon / &Slic3r::SCALING_FACTOR } sub scale ($) { $_[0] / &Slic3r::SCALING_FACTOR } sub unscale ($) { $_[0] * &Slic3r::SCALING_FACTOR } # used by geometry.t, polygon_segment_having_point sub point_in_segment { my ($point, $line) = @_; my ($x, $y) = @$point; my $line_p = $line->pp; my @line_x = sort { $a <=> $b } $line_p->[A][X], $line_p->[B][X]; my @line_y = sort { $a <=> $b } $line_p->[A][Y], $line_p->[B][Y]; # check whether the point is in the segment bounding box return 0 unless $x >= ($line_x[0] - epsilon) && $x <= ($line_x[1] + epsilon) && $y >= ($line_y[0] - epsilon) && $y <= ($line_y[1] + epsilon); # if line is vertical, check whether point's X is the same as the line if ($line_p->[A][X] == $line_p->[B][X]) { return abs($x - $line_p->[A][X]) < epsilon ? 1 : 0; } # calculate the Y in line at X of the point my $y3 = $line_p->[A][Y] + ($line_p->[B][Y] - $line_p->[A][Y]) * ($x - $line_p->[A][X]) / ($line_p->[B][X] - $line_p->[A][X]); return abs($y3 - $y) < epsilon ? 1 : 0; } # used by geometry.t sub polyline_lines { my ($polyline) = @_; my @points = @$polyline; return map Slic3r::Line->new(@points[$_, $_+1]), 0 .. $#points-1; } # given a $polygon, return the (first) segment having $point # used by geometry.t sub polygon_segment_having_point { my ($polygon, $point) = @_; foreach my $line (@{ $polygon->lines }) { return $line if point_in_segment($point, $line); } return undef; } # polygon must be simple (non complex) and ccw sub polygon_is_convex { my ($points) = @_; for (my $i = 0; $i <= $#$points; $i++) { my $angle = angle3points($points->[$i-1], $points->[$i-2], $points->[$i]); return 0 if $angle < PI; } return 1; } sub normalize { my ($line) = @_; my $len = sqrt( ($line->[X]**2) + ($line->[Y]**2) + ($line->[Z]**2) ) or return [0, 0, 0]; # to avoid illegal division by zero return [ map $_ / $len, @$line ]; } # 2D dot product # used by 3DScene.pm sub dot { my ($u, $v) = @_; return $u->[X] * $v->[X] + $u->[Y] * $v->[Y]; } sub line_intersection { my ($line1, $line2, $require_crossing) = @_; $require_crossing ||= 0; my $intersection = _line_intersection(map @$_, @$line1, @$line2); return (ref $intersection && $intersection->[1] == $require_crossing) ? $intersection->[0] : undef; } sub collinear { my ($line1, $line2, $require_overlapping) = @_; my $intersection = _line_intersection(map @$_, @$line1, @$line2); return 0 unless !ref($intersection) && ($intersection eq 'parallel collinear' || ($intersection eq 'parallel vertical' && abs($line1->[A][X] - $line2->[A][X]) < epsilon)); if ($require_overlapping) { my @box_a = bounding_box([ $line1->[0], $line1->[1] ]); my @box_b = bounding_box([ $line2->[0], $line2->[1] ]); return 0 unless bounding_box_intersect( 2, @box_a, @box_b ); } return 1; } sub _line_intersection { my ( $x0, $y0, $x1, $y1, $x2, $y2, $x3, $y3 ) = @_; my ($x, $y); # The as-yet-undetermined intersection point. my $dy10 = $y1 - $y0; # dyPQ, dxPQ are the coordinate differences my $dx10 = $x1 - $x0; # between the points P and Q. my $dy32 = $y3 - $y2; my $dx32 = $x3 - $x2; my $dy10z = abs( $dy10 ) < epsilon; # Is the difference $dy10 "zero"? my $dx10z = abs( $dx10 ) < epsilon; my $dy32z = abs( $dy32 ) < epsilon; my $dx32z = abs( $dx32 ) < epsilon; my $dyx10; # The slopes. my $dyx32; $dyx10 = $dy10 / $dx10 unless $dx10z; $dyx32 = $dy32 / $dx32 unless $dx32z; # Now we know all differences and the slopes; # we can detect horizontal/vertical special cases. # E.g., slope = 0 means a horizontal line. unless ( defined $dyx10 or defined $dyx32 ) { return "parallel vertical"; } elsif ( $dy10z and not $dy32z ) { # First line horizontal. $y = $y0; $x = $x2 + ( $y - $y2 ) * $dx32 / $dy32; } elsif ( not $dy10z and $dy32z ) { # Second line horizontal. $y = $y2; $x = $x0 + ( $y - $y0 ) * $dx10 / $dy10; } elsif ( $dx10z and not $dx32z ) { # First line vertical. $x = $x0; $y = $y2 + $dyx32 * ( $x - $x2 ); } elsif ( not $dx10z and $dx32z ) { # Second line vertical. $x = $x2; $y = $y0 + $dyx10 * ( $x - $x0 ); } elsif ( abs( $dyx10 - $dyx32 ) < epsilon ) { # The slopes are suspiciously close to each other. # Either we have parallel collinear or just parallel lines. # The bounding box checks have already weeded the cases # "parallel horizontal" and "parallel vertical" away. my $ya = $y0 - $dyx10 * $x0; my $yb = $y2 - $dyx32 * $x2; return "parallel collinear" if abs( $ya - $yb ) < epsilon; return "parallel"; } else { # None of the special cases matched. # We have a "honest" line intersection. $x = ($y2 - $y0 + $dyx10*$x0 - $dyx32*$x2)/($dyx10 - $dyx32); $y = $y0 + $dyx10 * ($x - $x0); } my $h10 = $dx10 ? ($x - $x0) / $dx10 : ($dy10 ? ($y - $y0) / $dy10 : 1); my $h32 = $dx32 ? ($x - $x2) / $dx32 : ($dy32 ? ($y - $y2) / $dy32 : 1); return [Slic3r::Point->new($x, $y), $h10 >= 0 && $h10 <= 1 && $h32 >= 0 && $h32 <= 1]; } # 2D sub bounding_box { my ($points) = @_; my @x = map $_->x, @$points; my @y = map $_->y, @$points; #,, my @bb = (undef, undef, undef, undef); for (0..$#x) { $bb[X1] = $x[$_] if !defined $bb[X1] || $x[$_] < $bb[X1]; $bb[X2] = $x[$_] if !defined $bb[X2] || $x[$_] > $bb[X2]; $bb[Y1] = $y[$_] if !defined $bb[Y1] || $y[$_] < $bb[Y1]; $bb[Y2] = $y[$_] if !defined $bb[Y2] || $y[$_] > $bb[Y2]; } return @bb[X1,Y1,X2,Y2]; } sub size_2D { my @bounding_box = bounding_box(@_); return ( ($bounding_box[X2] - $bounding_box[X1]), ($bounding_box[Y2] - $bounding_box[Y1]), ); } # bounding_box_intersect($d, @a, @b) # Return true if the given bounding boxes @a and @b intersect # in $d dimensions. Used by sub collinear. sub bounding_box_intersect { my ( $d, @bb ) = @_; # Number of dimensions and box coordinates. my @aa = splice( @bb, 0, 2 * $d ); # The first box. # (@bb is the second one.) # Must intersect in all dimensions. for ( my $i_min = 0; $i_min < $d; $i_min++ ) { my $i_max = $i_min + $d; # The index for the maximum. return 0 if ( $aa[ $i_max ] + epsilon ) < $bb[ $i_min ]; return 0 if ( $bb[ $i_max ] + epsilon ) < $aa[ $i_min ]; } return 1; } # this assumes a CCW rotation from $p2 to $p3 around $p1 sub angle3points { my ($p1, $p2, $p3) = @_; # p1 is the center my $angle = atan2($p2->[X] - $p1->[X], $p2->[Y] - $p1->[Y]) - atan2($p3->[X] - $p1->[X], $p3->[Y] - $p1->[Y]); # we only want to return only positive angles return $angle <= 0 ? $angle + 2*PI() : $angle; } 1; Slic3r-version_1.39.1/lib/Slic3r/Geometry/ 0000775 0000000 0000000 00000000000 13243544447 0020223 5 ustar 00root root 0000000 0000000 Slic3r-version_1.39.1/lib/Slic3r/Geometry/Clipper.pm 0000664 0000000 0000000 00000000446 13243544447 0022163 0 ustar 00root root 0000000 0000000 package Slic3r::Geometry::Clipper; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); our @EXPORT_OK = qw( offset offset2 offset_ex offset2_ex diff_ex diff union_ex intersection_ex JT_ROUND JT_MITER JT_SQUARE intersection intersection_pl diff_pl union); 1; Slic3r-version_1.39.1/lib/Slic3r/Layer.pm 0000664 0000000 0000000 00000001307 13243544447 0020043 0 ustar 00root root 0000000 0000000 # Extends the C++ class Slic3r::Layer. package Slic3r::Layer; use strict; use warnings; # the following two were previously generated by Moo sub print { my $self = shift; return $self->object->print; } sub config { my $self = shift; return $self->object->config; } sub region { my $self = shift; my ($region_id) = @_; while ($self->region_count <= $region_id) { $self->add_region($self->object->print->get_region($self->region_count)); } return $self->get_region($region_id); } sub regions { my ($self) = @_; return [ map $self->get_region($_), 0..($self->region_count-1) ]; } package Slic3r::Layer::Support; our @ISA = qw(Slic3r::Layer); 1; Slic3r-version_1.39.1/lib/Slic3r/Line.pm 0000664 0000000 0000000 00000000557 13243544447 0017664 0 ustar 00root root 0000000 0000000 package Slic3r::Line; use strict; use warnings; # a line is a two-points line use parent 'Slic3r::Polyline'; sub intersection { my $self = shift; my ($line, $require_crossing) = @_; return Slic3r::Geometry::line_intersection($self, $line, $require_crossing); } sub grow { my $self = shift; return Slic3r::Polyline->new(@$self)->grow(@_); } 1; Slic3r-version_1.39.1/lib/Slic3r/Model.pm 0000664 0000000 0000000 00000010025 13243544447 0020024 0 ustar 00root root 0000000 0000000 # extends C++ class Slic3r::Model package Slic3r::Model; use List::Util qw(first max any); sub merge { my $class = shift; my @models = @_; my $new_model = ref($class) ? $class : $class->new; $new_model->add_object($_) for map @{$_->objects}, @models; return $new_model; } sub add_object { my $self = shift; if (@_ == 1) { # we have a Model::Object my ($object) = @_; return $self->_add_object_clone($object); } else { my (%args) = @_; my $new_object = $self->_add_object; $new_object->set_name($args{name}) if defined $args{name}; $new_object->set_input_file($args{input_file}) if defined $args{input_file}; $new_object->config->apply($args{config}) if defined $args{config}; $new_object->set_layer_height_ranges($args{layer_height_ranges}) if defined $args{layer_height_ranges}; $new_object->set_origin_translation($args{origin_translation}) if defined $args{origin_translation}; return $new_object; } } sub set_material { my $self = shift; my ($material_id, $attributes) = @_; my $material = $self->add_material($material_id); $material->apply($attributes // {}); return $material; } # Extends C++ class Slic3r::ModelMaterial package Slic3r::Model::Material; sub apply { my ($self, $attributes) = @_; $self->set_attribute($_, $attributes{$_}) for keys %$attributes; } # Extends C++ class Slic3r::ModelObject package Slic3r::Model::Object; use List::Util qw(first sum); sub add_volume { my $self = shift; my $new_volume; if (@_ == 1) { # we have a Model::Volume my ($volume) = @_; $new_volume = $self->_add_volume_clone($volume); if ($volume->material_id ne '') { # merge material attributes and config (should we rename materials in case of duplicates?) if (my $material = $volume->object->model->get_material($volume->material_id)) { my %attributes = %{ $material->attributes }; if ($self->model->has_material($volume->material_id)) { %attributes = (%attributes, %{ $self->model->get_material($volume->material_id)->attributes }) } my $new_material = $self->model->set_material($volume->material_id, {%attributes}); $new_material->config->apply($material->config); } } } else { my %args = @_; $new_volume = $self->_add_volume($args{mesh}); $new_volume->set_name($args{name}) if defined $args{name}; $new_volume->set_material_id($args{material_id}) if defined $args{material_id}; $new_volume->set_modifier($args{modifier}) if defined $args{modifier}; $new_volume->config->apply($args{config}) if defined $args{config}; } if ($new_volume->material_id ne '' && !defined $self->model->get_material($new_volume->material_id)) { # TODO: this should be a trigger on Volume::material_id $self->model->set_material($new_volume->material_id); } $self->invalidate_bounding_box; return $new_volume; } sub add_instance { my $self = shift; if (@_ == 1) { # we have a Model::Instance my ($instance) = @_; return $self->_add_instance_clone($instance); } else { my (%args) = @_; my $new_instance = $self->_add_instance; $new_instance->set_rotation($args{rotation}) if defined $args{rotation}; $new_instance->set_scaling_factor($args{scaling_factor}) if defined $args{scaling_factor}; $new_instance->set_offset($args{offset}) if defined $args{offset}; return $new_instance; } } sub mesh_stats { my $self = shift; # TODO: sum values from all volumes return $self->volumes->[0]->mesh->stats; } 1; Slic3r-version_1.39.1/lib/Slic3r/Point.pm 0000664 0000000 0000000 00000001050 13243544447 0020053 0 ustar 00root root 0000000 0000000 package Slic3r::Point; use strict; use warnings; sub new_scale { my $class = shift; return $class->new(map Slic3r::Geometry::scale($_), @_); } sub dump_perl { my $self = shift; return sprintf "[%s,%s]", @$self; } package Slic3r::Pointf; use strict; use warnings; sub new_unscale { my $class = shift; return $class->new(map Slic3r::Geometry::unscale($_), @_); } package Slic3r::Pointf3; use strict; use warnings; sub new_unscale { my $class = shift; return $class->new(map Slic3r::Geometry::unscale($_), @_); } 1; Slic3r-version_1.39.1/lib/Slic3r/Polygon.pm 0000664 0000000 0000000 00000000316 13243544447 0020415 0 ustar 00root root 0000000 0000000 package Slic3r::Polygon; use strict; use warnings; # a polygon is a closed polyline. use parent 'Slic3r::Polyline'; sub grow { my $self = shift; return $self->split_at_first_point->grow(@_); } 1; Slic3r-version_1.39.1/lib/Slic3r/Polyline.pm 0000664 0000000 0000000 00000000643 13243544447 0020564 0 ustar 00root root 0000000 0000000 package Slic3r::Polyline; use strict; use warnings; use Slic3r::Geometry qw(X Y); sub new_scale { my $class = shift; my @points = map { ref($_) eq 'Slic3r::Point' ? $_->pp : $_ } @_; return $class->new(map [ Slic3r::Geometry::scale($_->[X]), Slic3r::Geometry::scale($_->[Y]) ], @points); } sub dump_perl { my $self = shift; return sprintf "[%s]", join ',', map "[$_->[0],$_->[1]]", @$self; } 1; Slic3r-version_1.39.1/lib/Slic3r/Print.pm 0000664 0000000 0000000 00000023132 13243544447 0020063 0 ustar 00root root 0000000 0000000 # The slicing work horse. # Extends C++ class Slic3r::Print package Slic3r::Print; use strict; use warnings; use File::Basename qw(basename fileparse); use File::Spec; use List::Util qw(min max first sum); use Slic3r::ExtrusionLoop ':roles'; use Slic3r::ExtrusionPath ':roles'; use Slic3r::Flow ':roles'; use Slic3r::Geometry qw(X Y unscale); use Slic3r::Geometry::Clipper qw(diff_ex union_ex intersection_ex intersection offset union JT_ROUND JT_SQUARE); use Slic3r::Print::State ':steps'; our $status_cb; sub set_status_cb { my ($class, $cb) = @_; $status_cb = $cb; } sub status_cb { return $status_cb // sub {}; } sub size { my $self = shift; return $self->bounding_box->size; } # Slicing process, running at a background thread. sub process { my ($self) = @_; Slic3r::trace(3, "Staring the slicing process."); $_->make_perimeters for @{$self->objects}; $self->status_cb->(70, "Infilling layers"); $_->infill for @{$self->objects}; $_->generate_support_material for @{$self->objects}; $self->make_skirt; $self->make_brim; # must come after make_skirt $self->make_wipe_tower; # time to make some statistics if (0) { eval "use Devel::Size"; print "MEMORY USAGE:\n"; printf " meshes = %.1fMb\n", List::Util::sum(map Devel::Size::total_size($_->meshes), @{$self->objects})/1024/1024; printf " layer slices = %.1fMb\n", List::Util::sum(map Devel::Size::total_size($_->slices), map @{$_->layers}, @{$self->objects})/1024/1024; printf " region slices = %.1fMb\n", List::Util::sum(map Devel::Size::total_size($_->slices), map @{$_->regions}, map @{$_->layers}, @{$self->objects})/1024/1024; printf " perimeters = %.1fMb\n", List::Util::sum(map Devel::Size::total_size($_->perimeters), map @{$_->regions}, map @{$_->layers}, @{$self->objects})/1024/1024; printf " fills = %.1fMb\n", List::Util::sum(map Devel::Size::total_size($_->fills), map @{$_->regions}, map @{$_->layers}, @{$self->objects})/1024/1024; printf " print object = %.1fMb\n", Devel::Size::total_size($self)/1024/1024; } if (0) { eval "use Slic3r::Test::SectionCut"; Slic3r::Test::SectionCut->new(print => $self)->export_svg("section_cut.svg"); } Slic3r::trace(3, "Slicing process finished.") } # G-code export process, running at a background thread. # The export_gcode may die for various reasons (fails to process output_filename_format, # write error into the G-code, cannot execute post-processing scripts). # It is up to the caller to show an error message. sub export_gcode { my $self = shift; my %params = @_; # prerequisites $self->process; # output everything to a G-code file # The following call may die if the output_filename_format template substitution fails. my $output_file = $self->output_filepath($params{output_file} // ''); $self->status_cb->(90, "Exporting G-code" . ($output_file ? " to $output_file" : "")); # The following line may die for multiple reasons. Slic3r::GCode->new->do_export($self, $output_file); # run post-processing scripts if (@{$self->config->post_process}) { $self->status_cb->(95, "Running post-processing scripts"); $self->config->setenv; for my $script (@{$self->config->post_process}) { Slic3r::debugf " '%s' '%s'\n", $script, $output_file; # -x doesn't return true on Windows except for .exe files if (($^O eq 'MSWin32') ? !(-e $script) : !(-x $script)) { die "The configured post-processing script is not executable: check permissions. ($script)\n"; } if ($^O eq 'MSWin32' && $script =~ /\.[pP][lL]/) { system($^X, $script, $output_file); } else { system($script, $output_file); } } } } # Export SVG slices for the offline SLA printing. # The export_svg is expected to be executed inside an eval block. sub export_svg { my $self = shift; my %params = @_; $_->slice for @{$self->objects}; my $fh = $params{output_fh}; if (!$fh) { # The following line may die if the output_filename_format template substitution fails. my $output_file = $self->output_filepath($params{output_file}); $output_file =~ s/\.[gG][cC][oO][dD][eE]$/.svg/; Slic3r::open(\$fh, ">", $output_file) or die "Failed to open $output_file for writing\n"; print "Exporting to $output_file..." unless $params{quiet}; } my $print_bb = $self->bounding_box; my $print_size = $print_bb->size; print $fh sprintf <<"EOF", unscale($print_size->[X]), unscale($print_size->[Y]); \n"; close $fh; print "Done.\n" unless $params{quiet}; } sub make_skirt { my $self = shift; # prerequisites $_->make_perimeters for @{$self->objects}; $_->infill for @{$self->objects}; $_->generate_support_material for @{$self->objects}; return if $self->step_done(STEP_SKIRT); $self->set_step_started(STEP_SKIRT); $self->skirt->clear; if ($self->has_skirt) { $self->status_cb->(88, "Generating skirt"); $self->_make_skirt(); } $self->set_step_done(STEP_SKIRT); } sub make_brim { my $self = shift; # prerequisites $_->make_perimeters for @{$self->objects}; $_->infill for @{$self->objects}; $_->generate_support_material for @{$self->objects}; $self->make_skirt; return if $self->step_done(STEP_BRIM); $self->set_step_started(STEP_BRIM); # since this method must be idempotent, we clear brim paths *before* # checking whether we need to generate them $self->brim->clear; if ($self->config->brim_width > 0) { $self->status_cb->(88, "Generating brim"); $self->_make_brim; } $self->set_step_done(STEP_BRIM); } sub make_wipe_tower { my $self = shift; # prerequisites $_->make_perimeters for @{$self->objects}; $_->infill for @{$self->objects}; $_->generate_support_material for @{$self->objects}; $self->make_skirt; $self->make_brim; return if $self->step_done(STEP_WIPE_TOWER); $self->set_step_started(STEP_WIPE_TOWER); $self->_clear_wipe_tower; if ($self->has_wipe_tower) { # $self->status_cb->(95, "Generating wipe tower"); $self->_make_wipe_tower; } $self->set_step_done(STEP_WIPE_TOWER); } 1; Slic3r-version_1.39.1/lib/Slic3r/Print/ 0000775 0000000 0000000 00000000000 13243544447 0017524 5 ustar 00root root 0000000 0000000 Slic3r-version_1.39.1/lib/Slic3r/Print/Object.pm 0000664 0000000 0000000 00000006600 13243544447 0021272 0 ustar 00root root 0000000 0000000 package Slic3r::Print::Object; # extends c++ class Slic3r::PrintObject (Print.xsp) use strict; use warnings; use List::Util qw(min max sum first); use Slic3r::Flow ':roles'; use Slic3r::Geometry qw(scale epsilon); use Slic3r::Geometry::Clipper qw(diff diff_ex intersection intersection_ex union union_ex offset offset2 offset_ex offset2_ex JT_MITER); use Slic3r::Print::State ':steps'; use Slic3r::Surface ':types'; sub layers { my $self = shift; return [ map $self->get_layer($_), 0..($self->layer_count - 1) ]; } sub support_layers { my $self = shift; return [ map $self->get_support_layer($_), 0..($self->support_layer_count - 1) ]; } # 1) Decides Z positions of the layers, # 2) Initializes layers and their regions # 3) Slices the object meshes # 4) Slices the modifier meshes and reclassifies the slices of the object meshes by the slices of the modifier meshes # 5) Applies size compensation (offsets the slices in XY plane) # 6) Replaces bad slices by the slices reconstructed from the upper/lower layer # Resulting expolygons of layer regions are marked as Internal. # # this should be idempotent sub slice { my $self = shift; return if $self->step_done(STEP_SLICE); $self->set_step_started(STEP_SLICE); $self->print->status_cb->(10, "Processing triangulated mesh"); $self->_slice; my $warning = $self->_fix_slicing_errors; warn $warning if (defined($warning) && $warning ne ''); # simplify slices if required $self->_simplify_slices(scale($self->print->config->resolution)) if ($self->print->config->resolution); die "No layers were detected. You might want to repair your STL file(s) or check their size or thickness and retry.\n" if !@{$self->layers}; $self->set_step_done(STEP_SLICE); } # 1) Merges typed region slices into stInternal type. # 2) Increases an "extra perimeters" counter at region slices where needed. # 3) Generates perimeters, gap fills and fill regions (fill regions of type stInternal). sub make_perimeters { my ($self) = @_; # prerequisites $self->slice; if (! $self->step_done(STEP_PERIMETERS)) { $self->print->status_cb->(20, "Generating perimeters"); $self->_make_perimeters; } } sub prepare_infill { my ($self) = @_; # prerequisites $self->make_perimeters; return if $self->step_done(STEP_PREPARE_INFILL); $self->set_step_started(STEP_PREPARE_INFILL); $self->print->status_cb->(30, "Preparing infill"); $self->_prepare_infill; $self->set_step_done(STEP_PREPARE_INFILL); } sub infill { my ($self) = @_; # prerequisites $self->prepare_infill; $self->_infill; } sub generate_support_material { my $self = shift; # prerequisites $self->slice; return if $self->step_done(STEP_SUPPORTMATERIAL); $self->set_step_started(STEP_SUPPORTMATERIAL); $self->clear_support_layers; if (($self->config->support_material || $self->config->raft_layers > 0) && scalar(@{$self->layers}) > 1) { $self->print->status_cb->(85, "Generating support material"); # New supports, C++ implementation. $self->_generate_support_material; } $self->set_step_done(STEP_SUPPORTMATERIAL); my $stats = sprintf "Weight: %.1fg, Cost: %.1f" , $self->print->total_weight, $self->print->total_cost; $self->print->status_cb->(85, $stats); } 1; Slic3r-version_1.39.1/lib/Slic3r/Print/Simple.pm 0000664 0000000 0000000 00000006500 13243544447 0021314 0 ustar 00root root 0000000 0000000 # A simple wrapper to quickly print a single model without a GUI. # Used by the command line slic3r.pl, by command line utilities pdf-slic3s.pl and view-toolpaths.pl, # and by the quick slice menu of the Slic3r GUI. # # It creates and owns an instance of Slic3r::Print to perform the slicing # and it accepts an instance of Slic3r::Model from the outside. package Slic3r::Print::Simple; use Moo; use Slic3r::Geometry qw(X Y); has '_print' => ( is => 'ro', default => sub { Slic3r::Print->new }, handles => [qw(apply_config extruders output_filepath total_used_filament total_extruded_volume placeholder_parser process)], ); has 'duplicate' => ( is => 'rw', default => sub { 1 }, ); has 'scale' => ( is => 'rw', default => sub { 1 }, ); has 'rotate' => ( is => 'rw', default => sub { 0 }, ); has 'duplicate_grid' => ( is => 'rw', default => sub { [1,1] }, ); has 'status_cb' => ( is => 'rw', default => sub { sub {} }, ); has 'print_center' => ( is => 'rw', default => sub { Slic3r::Pointf->new(100,100) }, ); has 'dont_arrange' => ( is => 'rw', default => sub { 0 }, ); has 'output_file' => ( is => 'rw', ); sub set_model { # $model is of type Slic3r::Model my ($self, $model) = @_; # make method idempotent so that the object is reusable $self->_print->clear_objects; # make sure all objects have at least one defined instance my $need_arrange = $model->add_default_instances && ! $self->dont_arrange; # apply scaling and rotation supplied from command line if any foreach my $instance (map @{$_->instances}, @{$model->objects}) { $instance->set_scaling_factor($instance->scaling_factor * $self->scale); $instance->set_rotation($instance->rotation + $self->rotate); } if ($self->duplicate_grid->[X] > 1 || $self->duplicate_grid->[Y] > 1) { $model->duplicate_objects_grid($self->duplicate_grid->[X], $self->duplicate_grid->[Y], $self->_print->config->duplicate_distance); } elsif ($need_arrange) { $model->duplicate_objects($self->duplicate, $self->_print->config->min_object_distance); } elsif ($self->duplicate > 1) { # if all input objects have defined position(s) apply duplication to the whole model $model->duplicate($self->duplicate, $self->_print->config->min_object_distance); } $_->translate(0,0,-$_->bounding_box->z_min) for @{$model->objects}; $model->center_instances_around_point($self->print_center) if (! $self->dont_arrange); foreach my $model_object (@{$model->objects}) { $self->_print->auto_assign_extruders($model_object); $self->_print->add_model_object($model_object); } } sub _before_export { my ($self) = @_; $self->_print->set_status_cb($self->status_cb); $self->_print->validate; } sub _after_export { my ($self) = @_; $self->_print->set_status_cb(undef); } sub export_gcode { my ($self) = @_; $self->_before_export; $self->_print->export_gcode(output_file => $self->output_file); $self->_after_export; } sub export_svg { my ($self) = @_; $self->_before_export; $self->_print->export_svg(output_file => $self->output_file); $self->_after_export; } 1; Slic3r-version_1.39.1/lib/Slic3r/Print/State.pm 0000664 0000000 0000000 00000000565 13243544447 0021150 0 ustar 00root root 0000000 0000000 # Wraps C++ enums Slic3r::PrintStep and Slic3r::PrintObjectStep package Slic3r::Print::State; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); our @EXPORT_OK = qw(STEP_SLICE STEP_PERIMETERS STEP_PREPARE_INFILL STEP_INFILL STEP_SUPPORTMATERIAL STEP_SKIRT STEP_BRIM STEP_WIPE_TOWER); our %EXPORT_TAGS = (steps => \@EXPORT_OK); 1; Slic3r-version_1.39.1/lib/Slic3r/SVG.pm 0000664 0000000 0000000 00000010160 13243544447 0017423 0 ustar 00root root 0000000 0000000 package Slic3r::SVG; use strict; use warnings; use SVG; use constant X => 0; use constant Y => 1; our $filltype = 'evenodd'; sub factor { return &Slic3r::SCALING_FACTOR * 10; } sub svg { my $svg = SVG->new(width => 200 * 10, height => 200 * 10); my $marker_end = $svg->marker( id => "endArrow", viewBox => "0 0 10 10", refX => "1", refY => "5", markerUnits => "strokeWidth", orient => "auto", markerWidth => "10", markerHeight => "8", ); $marker_end->polyline( points => "0,0 10,5 0,10 1,5", fill => "darkblue", ); return $svg; } sub output { my ($filename, @things) = @_; my $svg = svg(); my $arrows = 1; while (my $type = shift @things) { my $value = shift @things; if ($type eq 'no_arrows') { $arrows = 0; } elsif ($type =~ /^(?:(.+?)_)?expolygons$/) { my $colour = $1; $value = [ map $_->pp, @$value ]; my $g = $svg->group( style => { 'stroke-width' => 0, 'stroke' => $colour || 'black', 'fill' => ($type !~ /polygons/ ? 'none' : ($colour || 'grey')), 'fill-type' => $filltype, }, ); foreach my $expolygon (@$value) { my $points = join ' ', map "M $_ z", map join(" ", reverse map $_->[0]*factor() . " " . $_->[1]*factor(), @$_), @$expolygon; $g->path( d => $points, ); } } elsif ($type =~ /^(?:(.+?)_)?(polygon|polyline)s$/) { my ($colour, $method) = ($1, $2); $value = [ map $_->pp, @$value ]; my $g = $svg->group( style => { 'stroke-width' => ($method eq 'polyline') ? 1 : 0, 'stroke' => $colour || 'black', 'fill' => ($type !~ /polygons/ ? 'none' : ($colour || 'grey')), }, ); foreach my $polygon (@$value) { my $path = $svg->get_path( 'x' => [ map($_->[X] * factor(), @$polygon) ], 'y' => [ map($_->[Y] * factor(), @$polygon) ], -type => 'polygon', ); $g->$method( %$path, 'marker-end' => !$arrows ? "" : "url(#endArrow)", ); } } elsif ($type =~ /^(?:(.+?)_)?points$/) { my $colour = $1 // 'black'; my $r = $colour eq 'black' ? 1 : 3; $value = [ map $_->pp, @$value ]; my $g = $svg->group( style => { 'stroke-width' => 2, 'stroke' => $colour, 'fill' => $colour, }, ); foreach my $point (@$value) { $g->circle( cx => $point->[X] * factor(), cy => $point->[Y] * factor(), r => $r, ); } } elsif ($type =~ /^(?:(.+?)_)?lines$/) { my $colour = $1; $value = [ map $_->pp, @$value ]; my $g = $svg->group( style => { 'stroke-width' => 2, }, ); foreach my $line (@$value) { $g->line( x1 => $line->[0][X] * factor(), y1 => $line->[0][Y] * factor(), x2 => $line->[1][X] * factor(), y2 => $line->[1][Y] * factor(), style => { 'stroke' => $colour || 'black', }, 'marker-end' => !$arrows ? "" : "url(#endArrow)", ); } } } write_svg($svg, $filename); } sub write_svg { my ($svg, $filename) = @_; Slic3r::open(\my $fh, '>', $filename); print $fh $svg->xmlify; close $fh; printf "SVG written to %s\n", $filename; } 1; Slic3r-version_1.39.1/lib/Slic3r/Surface.pm 0000664 0000000 0000000 00000000542 13243544447 0020357 0 ustar 00root root 0000000 0000000 package Slic3r::Surface; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); our @EXPORT_OK = qw(S_TYPE_TOP S_TYPE_BOTTOM S_TYPE_BOTTOMBRIDGE S_TYPE_INTERNAL S_TYPE_INTERNALSOLID S_TYPE_INTERNALBRIDGE S_TYPE_INTERNALVOID); our %EXPORT_TAGS = (types => \@EXPORT_OK); sub p { my $self = shift; return @{$self->polygons}; } 1; Slic3r-version_1.39.1/lib/Slic3r/Test.pm 0000664 0000000 0000000 00000276046 13243544447 0017724 0 ustar 00root root 0000000 0000000 package Slic3r::Test; use strict; use warnings; use Cwd 'abs_path'; require Exporter; our @ISA = qw(Exporter); our @EXPORT_OK = qw(_eq); use IO::Scalar; use List::Util qw(first); use Slic3r::Geometry qw(epsilon X Y Z); my %cuboids = ( '20mm_cube' => [20,20,20], '2x20x10' => [2, 20,10], ); sub mesh { my ($name, %params) = @_; my ($vertices, $facets); if ($cuboids{$name}) { my ($x, $y, $z) = @{ $cuboids{$name} }; $vertices = [ [$x,$y,0], [$x,0,0], [0,0,0], [0,$y,0], [$x,$y,$z], [0,$y,$z], [0,0,$z], [$x,0,$z], ]; $facets = [ [0,1,2], [0,2,3], [4,5,6], [4,6,7], [0,4,7], [0,7,1], [1,7,6], [1,6,2], [2,6,5], [2,5,3], [4,0,3], [4,3,5], ], } elsif ($name eq 'box') { my ($x, $y, $z) = @{ $params{"dim"} }; $vertices = [ [$x,$y,0], [$x,0,0], [0,0,0], [0,$y,0], [$x,$y,$z], [0,$y,$z], [0,0,$z], [$x,0,$z], ]; $facets = [ [0,1,2], [0,2,3], [4,5,6], [4,6,7], [0,4,7], [0,7,1], [1,7,6], [1,6,2], [2,6,5], [2,5,3], [4,0,3], [4,3,5], ], } elsif ($name eq 'cube_with_hole') { $vertices = [ [0,0,0],[0,0,10],[0,20,0],[0,20,10],[20,0,0],[20,0,10],[5,5,0],[15,5,0],[5,15,0],[20,20,0],[15,15,0],[20,20,10],[5,5,10],[5,15,10],[15,5,10],[15,15,10] ]; $facets = [ [0,1,2],[2,1,3],[1,0,4],[5,1,4],[6,7,4],[8,2,9],[0,2,8],[10,8,9],[0,8,6],[0,6,4],[4,7,9],[7,10,9],[2,3,9],[9,3,11],[12,1,5],[13,3,12],[14,12,5],[3,1,12],[11,3,13],[11,15,5],[11,13,15],[15,14,5],[5,4,9],[11,5,9],[8,13,12],[6,8,12],[10,15,13],[8,10,13],[15,10,14],[14,10,7],[14,7,12],[12,7,6] ], } elsif ($name eq 'cube_with_concave_hole') { $vertices = [ [-10,-10,-5],[-10,-10,5],[-10,10,-5],[-10,10,5],[10,-10,-5],[10,-10,5],[-5,-5,-5],[5,-5,-5],[5,5,-5],[5,10,-5],[-5,5,-5],[3.06161699911402e-16,5,-5],[5,0,-5],[0,0,-5],[10,5,-5],[5,10,5],[-5,-5,5],[5,0,5],[5,-5,5],[-5,5,5],[10,5,5],[5,5,5],[3.06161699911402e-16,5,5],[0,0,5] ]; $facets = [ [0,1,2],[2,1,3],[1,0,4],[5,1,4],[6,7,4],[8,2,9],[10,2,11],[11,12,13],[0,2,10],[0,10,6],[0,6,4],[11,2,8],[4,7,12],[4,12,8],[12,11,8],[14,4,8],[2,3,9],[9,3,15],[16,1,5],[17,18,5],[19,3,16],[20,21,5],[18,16,5],[3,1,16],[22,3,19],[21,3,22],[21,17,5],[21,22,17],[21,15,3],[23,17,22],[5,4,14],[20,5,14],[20,14,21],[21,14,8],[9,15,21],[8,9,21],[10,19,16],[6,10,16],[11,22,19],[10,11,19],[13,23,11],[11,23,22],[23,13,12],[17,23,12],[17,12,18],[18,12,7],[18,7,16],[16,7,6] ], } elsif ($name eq 'V') { $vertices = [ [-14,0,20],[-14,15,20],[0,0,0],[0,15,0],[-4,0,20],[-4,15,20],[5,0,7.14286],[10,0,0],[24,0,20],[14,0,20],[10,15,0],[5,15,7.14286],[14,15,20],[24,15,20] ]; $facets = [ [0,1,2],[2,1,3],[1,0,4],[5,1,4],[4,0,2],[6,4,2],[7,6,2],[8,9,7],[9,6,7],[2,3,7],[7,3,10],[1,5,3],[3,5,11],[11,12,13],[11,13,3],[3,13,10],[5,4,6],[11,5,6],[6,9,11],[11,9,12],[12,9,8],[13,12,8],[8,7,10],[13,8,10] ], } elsif ($name eq 'L') { $vertices = [ [0,10,0],[0,10,10],[0,20,0],[0,20,10],[10,10,0],[10,10,10],[20,20,0],[20,0,0],[10,0,0],[20,20,10],[10,0,10],[20,0,10] ]; $facets = [ [0,1,2],[2,1,3],[4,5,1],[0,4,1],[0,2,4],[4,2,6],[4,6,7],[4,7,8],[2,3,6],[6,3,9],[3,1,5],[9,3,5],[10,11,5],[11,9,5],[5,4,10],[10,4,8],[10,8,7],[11,10,7],[11,7,6],[9,11,6] ], } elsif ($name eq 'overhang') { $vertices = [ [1364.68505859375,614.398010253906,20.002498626709],[1389.68505859375,614.398010253906,20.002498626709],[1377.18505859375,589.398986816406,20.002498626709],[1389.68505859375,589.398986816406,20.002498626709],[1389.68505859375,564.398986816406,20.0014991760254],[1364.68505859375,589.398986816406,20.002498626709],[1364.68505859375,564.398986816406,20.0014991760254],[1360.93505859375,589.398986816406,17.0014991760254],[1360.93505859375,585.64697265625,17.0014991760254],[1357.18505859375,564.398986816406,17.0014991760254],[1364.68505859375,589.398986816406,17.0014991760254],[1364.68505859375,571.899963378906,17.0014991760254],[1364.68505859375,564.398986816406,17.0014991760254],[1348.43603515625,564.398986816406,17.0014991760254],[1352.80908203125,589.398986816406,17.0014991760254],[1357.18408203125,589.398986816406,17.0014991760254],[1357.18310546875,614.398010253906,17.0014991760254],[1364.68505859375,606.89599609375,17.0014991760254],[1364.68505859375,614.398010253906,17.0014991760254],[1352.18603515625,564.398986816406,20.0014991760254],[1363.65405273438,589.398986816406,23.3004989624023],[1359.46704101562,589.398986816406,23.3004989624023],[1358.37109375,564.398986816406,23.3004989624023],[1385.56103515625,564.398986816406,23.3004989624023],[1373.06311035156,589.398986816406,23.3004989624023],[1368.80810546875,564.398986816406,23.3004989624023],[1387.623046875,589.398986816406,23.3004989624023],[1387.623046875,585.276000976562,23.3004989624023],[1389.68505859375,589.398986816406,23.3004989624023],[1389.68505859375,572.64599609375,23.3004989624023],[1389.68505859375,564.398986816406,23.3004989624023],[1367.77709960938,589.398986816406,23.3004989624023],[1366.7470703125,564.398986816406,23.3004989624023],[1354.31201171875,589.398986816406,23.3004989624023],[1352.18603515625,564.398986816406,23.3004989624023],[1389.68505859375,614.398010253906,23.3004989624023],[1377.31701660156,614.398010253906,23.3004989624023],[1381.43908691406,589.398986816406,23.3004989624023],[1368.80700683594,614.398010253906,23.3004989624023],[1368.80810546875,589.398986816406,23.3004989624023],[1356.43908691406,614.398010253906,23.3004989624023],[1357.40502929688,589.398986816406,23.3004989624023],[1360.56201171875,614.398010253906,23.3004989624023],[1348.705078125,614.398010253906,23.3004989624023],[1350.44506835938,589.398986816406,23.3004989624023],[1389.68505859375,606.153015136719,23.3004989624023],[1347.35205078125,589.398986816406,23.3004989624023],[1346.56005859375,589.398986816406,23.3004989624023],[1346.56005859375,594.159912109375,17.0014991760254],[1346.56005859375,589.398986816406,17.0014991760254],[1346.56005859375,605.250427246094,23.3004989624023],[1346.56005859375,614.398010253906,23.3004989624023],[1346.56005859375,614.398010253906,20.8258285522461],[1346.56005859375,614.398010253906,17.0014991760254],[1346.56005859375,564.398986816406,19.10133934021],[1346.56005859375,567.548583984375,23.3004989624023],[1346.56005859375,564.398986816406,17.0020332336426],[1346.56005859375,564.398986816406,23.0018501281738],[1346.56005859375,564.398986816406,23.3004989624023],[1346.56005859375,575.118957519531,17.0014991760254],[1346.56005859375,574.754028320312,23.3004989624023] ]; $facets = [ [0,1,2],[2,3,4],[2,5,0],[4,6,2],[2,6,5],[2,1,3],[7,8,9],[10,9,8],[11,9,10],[12,9,11],[9,13,14],[7,15,16],[10,17,0],[10,0,5],[12,11,6],[18,16,0],[6,19,13],[6,13,9],[9,12,6],[17,18,0],[11,10,5],[11,5,6],[14,16,15],[17,7,18],[16,18,7],[14,15,9],[7,9,15],[7,17,8],[10,8,17],[20,21,22],[23,24,25],[26,23,27],[28,27,23],[29,28,23],[30,29,23],[25,31,32],[22,33,34],[35,36,37],[24,38,39],[21,40,41],[38,42,20],[33,43,44],[6,4,23],[6,23,25],[36,35,1],[1,0,38],[1,38,36],[29,30,4],[25,32,6],[40,42,0],[35,45,1],[4,3,28],[4,28,29],[3,1,45],[3,45,28],[22,34,19],[19,6,32],[19,32,22],[42,38,0],[30,23,4],[0,16,43],[0,43,40],[24,37,36],[38,24,36],[24,23,37],[37,23,26],[22,32,20],[20,32,31],[33,41,40],[43,33,40],[45,35,26],[37,26,35],[33,44,34],[44,43,46],[20,42,21],[40,21,42],[31,39,38],[20,31,38],[33,22,41],[21,41,22],[31,25,39],[24,39,25],[26,27,45],[28,45,27],[47,48,49],[47,50,48],[51,48,50],[52,48,51],[53,48,52],[54,55,56],[57,55,54],[58,55,57],[49,59,47],[60,56,55],[59,56,60],[60,47,59],[48,53,16],[56,13,19],[54,56,19],[56,59,13],[59,49,14],[59,14,13],[49,48,16],[49,16,14],[44,46,60],[44,60,55],[51,50,43],[19,34,58],[19,58,57],[53,52,16],[43,16,52],[43,52,51],[57,54,19],[47,60,46],[55,58,34],[55,34,44],[50,47,46],[50,46,43] ], } elsif ($name eq '40x10') { $vertices = [ [12.8680295944214,29.5799007415771,12],[11.7364797592163,29.8480796813965,12],[11.1571502685547,29.5300102233887,12],[10.5814504623413,29.9830799102783,12],[10,29.6000003814697,12],[9.41855144500732,29.9830799102783,12],[8.84284687042236,29.5300102233887,12],[8.26351833343506,29.8480796813965,12],[7.70256900787354,29.3210391998291,12],[7.13196802139282,29.5799007415771,12],[6.59579277038574,28.9761600494385,12],[6.03920221328735,29.1821594238281,12],[5.53865718841553,28.5003795623779,12],[5,28.6602592468262,12],[4.54657793045044,27.9006500244141,12],[4.02841377258301,28.0212306976318,12],[3.63402199745178,27.1856994628906,12],[3.13758301734924,27.2737407684326,12],[2.81429696083069,26.3659801483154,12],[2.33955597877502,26.4278793334961,12],[2.0993549823761,25.4534206390381,12],[1.64512205123901,25.4950904846191,12],[1.49962198734283,24.4613399505615,12],[1.0636739730835,24.4879894256592,12],[1.02384400367737,23.4042091369629,12],[0.603073298931122,23.4202003479004,12],[0.678958415985107,22.2974300384521,12],[0.269550800323486,22.3061599731445,12],[0.469994693994522,21.1571502685547,12],[0.067615881562233,21.1609306335449,12],[0.399999290704727,20,12],[0,20,12],[0.399999290704727,5,12],[0,5,12],[0.456633001565933,4.2804012298584,12],[0.0615576282143593,4.21782684326172,12],[0.625140011310577,3.5785219669342,12],[0.244717106223106,3.45491504669189,12],[0.901369392871857,2.91164398193359,12],[0.544967114925385,2.73004698753357,12],[1.27852201461792,2.29618692398071,12],[0.954914808273315,2.06107401847839,12],[1.74730801582336,1.74730801582336,12],[1.46446597576141,1.46446597576141,12],[2.29618692398071,1.27852201461792,12],[2.06107401847839,0.954914808273315,12],[2.91164398193359,0.901369392871857,12],[2.73004698753357,0.544967114925385,12],[3.5785219669342,0.625140011310577,12],[3.45491504669189,0.244717106223106,12],[4.2804012298584,0.456633001565933,12],[4.21782684326172,0.0615576282143593,12],[5,0.399999290704727,12],[5,0,12],[19.6000003814697,0.399999290704727,12],[20,0,12],[19.6000003814697,20,12],[20,20,12],[19.5300102233887,21.1571502685547,12],[19.9323806762695,21.1609306335449,12],[19.3210391998291,22.2974300384521,12],[19.7304496765137,22.3061599731445,12],[18.9761600494385,23.4042091369629,12],[19.3969306945801,23.4202003479004,12],[18.5003795623779,24.4613399505615,12],[18.9363307952881,24.4879894256592,12],[17.9006500244141,25.4534206390381,12],[18.3548793792725,25.4950904846191,12],[17.1856994628906,26.3659801483154,12],[17.6604404449463,26.4278793334961,12],[16.3659801483154,27.1856994628906,12],[16.862419128418,27.2737407684326,12],[15.4534196853638,27.9006500244141,12],[15.9715900421143,28.0212306976318,12],[14.4613399505615,28.5003795623779,12],[15,28.6602592468262,12],[13.4042100906372,28.9761600494385,12],[13.9608001708984,29.1821594238281,12],[12.2974300384521,29.3210391998291,12],[7.13196802139282,29.5799007415771,0],[8.26351833343506,29.8480796813965,0],[8.84284687042236,29.5300102233887,0],[9.41855144500732,29.9830799102783,0],[10,29.6000003814697,0],[10.5814504623413,29.9830799102783,0],[11.1571502685547,29.5300102233887,0],[11.7364797592163,29.8480796813965,0],[12.2974300384521,29.3210391998291,0],[12.8680295944214,29.5799007415771,0],[13.4042100906372,28.9761600494385,0],[13.9608001708984,29.1821594238281,0],[14.4613399505615,28.5003795623779,0],[15,28.6602592468262,0],[15.4534196853638,27.9006500244141,0],[15.9715900421143,28.0212306976318,0],[16.3659801483154,27.1856994628906,0],[16.862419128418,27.2737407684326,0],[17.1856994628906,26.3659801483154,0],[17.6604404449463,26.4278793334961,0],[17.9006500244141,25.4534206390381,0],[18.3548793792725,25.4950904846191,0],[18.5003795623779,24.4613399505615,0],[18.9363307952881,24.4879894256592,0],[18.9761600494385,23.4042091369629,0],[19.3969306945801,23.4202003479004,0],[19.3210391998291,22.2974300384521,0],[19.7304496765137,22.3061599731445,0],[19.5300102233887,21.1571502685547,0],[19.9323806762695,21.1609306335449,0],[19.6000003814697,20,0],[20,20,0],[19.6000003814697,0.399999290704727,0],[20,0,0],[5,0.399999290704727,0],[5,0,0],[4.2804012298584,0.456633001565933,0],[4.21782684326172,0.0615576282143593,0],[3.5785219669342,0.625140011310577,0],[3.45491504669189,0.244717106223106,0],[2.91164398193359,0.901369392871857,0],[2.73004698753357,0.544967114925385,0],[2.29618692398071,1.27852201461792,0],[2.06107401847839,0.954914808273315,0],[1.74730801582336,1.74730801582336,0],[1.46446597576141,1.46446597576141,0],[1.27852201461792,2.29618692398071,0],[0.954914808273315,2.06107401847839,0],[0.901369392871857,2.91164398193359,0],[0.544967114925385,2.73004698753357,0],[0.625140011310577,3.5785219669342,0],[0.244717106223106,3.45491504669189,0],[0.456633001565933,4.2804012298584,0],[0.0615576282143593,4.21782684326172,0],[0.399999290704727,5,0],[0,5,0],[0.399999290704727,20,0],[0,20,0],[0.469994693994522,21.1571502685547,0],[0.067615881562233,21.1609306335449,0],[0.678958415985107,22.2974300384521,0],[0.269550800323486,22.3061599731445,0],[1.02384400367737,23.4042091369629,0],[0.603073298931122,23.4202003479004,0],[1.49962198734283,24.4613399505615,0],[1.0636739730835,24.4879894256592,0],[2.0993549823761,25.4534206390381,0],[1.64512205123901,25.4950904846191,0],[2.81429696083069,26.3659801483154,0],[2.33955597877502,26.4278793334961,0],[3.63402199745178,27.1856994628906,0],[3.13758301734924,27.2737407684326,0],[4.54657793045044,27.9006500244141,0],[4.02841377258301,28.0212306976318,0],[5.53865718841553,28.5003795623779,0],[5,28.6602592468262,0],[6.59579277038574,28.9761600494385,0],[6.03920221328735,29.1821594238281,0],[7.70256900787354,29.3210391998291,0] ]; $facets = [ [0,1,2],[2,1,3],[2,3,4],[4,3,5],[4,5,6],[6,5,7],[6,7,8],[8,7,9],[8,9,10],[10,9,11],[10,11,12],[12,11,13],[12,13,14],[14,13,15],[14,15,16],[16,15,17],[16,17,18],[18,17,19],[18,19,20],[20,19,21],[20,21,22],[22,21,23],[22,23,24],[24,23,25],[24,25,26],[26,25,27],[26,27,28],[28,27,29],[28,29,30],[30,29,31],[30,31,32],[32,31,33],[32,33,34],[34,33,35],[34,35,36],[36,35,37],[36,37,38],[38,37,39],[38,39,40],[40,39,41],[40,41,42],[42,41,43],[42,43,44],[44,43,45],[44,45,46],[46,45,47],[46,47,48],[48,47,49],[48,49,50],[50,49,51],[50,51,52],[52,51,53],[52,53,54],[54,53,55],[54,55,56],[56,55,57],[56,57,58],[58,57,59],[58,59,60],[60,59,61],[60,61,62],[62,61,63],[62,63,64],[64,63,65],[64,65,66],[66,65,67],[66,67,68],[68,67,69],[68,69,70],[70,69,71],[70,71,72],[72,71,73],[72,73,74],[74,73,75],[74,75,76],[76,75,77],[76,77,78],[78,77,0],[78,0,2],[79,80,81],[81,80,82],[81,82,83],[83,82,84],[83,84,85],[85,84,86],[85,86,87],[87,86,88],[87,88,89],[89,88,90],[89,90,91],[91,90,92],[91,92,93],[93,92,94],[93,94,95],[95,94,96],[95,96,97],[97,96,98],[97,98,99],[99,98,100],[99,100,101],[101,100,102],[101,102,103],[103,102,104],[103,104,105],[105,104,106],[105,106,107],[107,106,108],[107,108,109],[109,108,110],[109,110,111],[111,110,112],[111,112,113],[113,112,114],[113,114,115],[115,114,116],[115,116,117],[117,116,118],[117,118,119],[119,118,120],[119,120,121],[121,120,122],[121,122,123],[123,122,124],[123,124,125],[125,124,126],[125,126,127],[127,126,128],[127,128,129],[129,128,130],[129,130,131],[131,130,132],[131,132,133],[133,132,134],[133,134,135],[135,134,136],[135,136,137],[137,136,138],[137,138,139],[139,138,140],[139,140,141],[141,140,142],[141,142,143],[143,142,144],[143,144,145],[145,144,146],[145,146,147],[147,146,148],[147,148,149],[149,148,150],[149,150,151],[151,150,152],[151,152,153],[153,152,154],[153,154,155],[155,154,156],[155,156,157],[157,156,79],[157,79,81],[57,110,108],[57,108,59],[59,108,106],[59,106,61],[61,106,104],[61,104,63],[63,104,102],[63,102,65],[65,102,100],[65,100,67],[67,100,98],[67,98,69],[69,98,96],[69,96,71],[71,96,94],[71,94,73],[73,94,92],[73,92,75],[75,92,90],[75,90,77],[77,90,88],[77,88,0],[0,88,86],[0,86,1],[1,86,84],[1,84,3],[3,84,82],[3,82,5],[5,82,80],[5,80,7],[7,80,79],[7,79,9],[9,79,156],[9,156,11],[11,156,154],[11,154,13],[13,154,152],[13,152,15],[15,152,150],[15,150,17],[17,150,148],[17,148,19],[19,148,146],[19,146,21],[21,146,144],[21,144,23],[23,144,142],[23,142,25],[25,142,140],[25,140,27],[27,140,138],[27,138,29],[29,138,136],[29,136,31],[33,31,134],[134,31,136],[33,134,132],[33,132,35],[35,132,130],[35,130,37],[37,130,128],[37,128,39],[39,128,126],[39,126,41],[41,126,124],[41,124,43],[43,124,122],[43,122,45],[45,122,120],[45,120,47],[47,120,118],[47,118,49],[49,118,116],[49,116,51],[51,116,114],[51,114,53],[55,53,112],[112,53,114],[57,55,110],[110,55,112],[30,135,137],[30,137,28],[28,137,139],[28,139,26],[26,139,141],[26,141,24],[24,141,143],[24,143,22],[22,143,145],[22,145,20],[20,145,147],[20,147,18],[18,147,149],[18,149,16],[16,149,151],[16,151,14],[14,151,153],[14,153,12],[12,153,155],[12,155,10],[10,155,157],[10,157,8],[8,157,81],[8,81,6],[6,81,83],[6,83,4],[4,83,85],[4,85,2],[2,85,87],[2,87,78],[78,87,89],[78,89,76],[76,89,91],[76,91,74],[74,91,93],[74,93,72],[72,93,95],[72,95,70],[70,95,97],[70,97,68],[68,97,99],[68,99,66],[66,99,101],[66,101,64],[64,101,103],[64,103,62],[62,103,105],[62,105,60],[60,105,107],[60,107,58],[58,107,109],[58,109,56],[30,32,135],[135,32,133],[52,113,115],[52,115,50],[50,115,117],[50,117,48],[48,117,119],[48,119,46],[46,119,121],[46,121,44],[44,121,123],[44,123,42],[42,123,125],[42,125,40],[40,125,127],[40,127,38],[38,127,129],[38,129,36],[36,129,131],[36,131,34],[34,131,133],[34,133,32],[52,54,113],[113,54,111],[54,56,111],[111,56,109] ], } elsif ($name eq 'sloping_hole') { $vertices = [ [-20,-20,-5],[-20,-20,5],[-20,20,-5],[-20,20,5],[20,-20,-5],[20,-20,5],[4.46294021606445,7.43144989013672,-5],[20,20,-5],[-19.1420993804932,0,-5],[-18.8330993652344,-2.07911992073059,-5],[-17.9195003509521,-4.06736993789673,-5],[-16.4412002563477,-5.87785005569458,-5],[-14.4629001617432,-7.43144989013672,-5],[-12.0711002349854,-8.66024971008301,-5],[-9.37016010284424,-9.51056003570557,-5],[-3.5217399597168,-9.94521999359131,-5],[-6.4782600402832,-9.94521999359131,-5],[-0.629840016365051,-9.51056003570557,-5],[2.07106995582581,-8.66024971008301,-5],[6.44122982025146,-5.87785005569458,-5],[4.46294021606445,-7.43144989013672,-5],[-12.0711002349854,8.66024971008301,-5],[-9.37016010284424,9.51056003570557,-5],[7.91947984695435,-4.06736993789673,-5],[8.83310031890869,-2.07911992073059,-5],[-6.4782600402832,9.94521999359131,-5],[-0.629840016365051,9.51056003570557,-5],[2.07106995582581,8.66024971008301,-5],[9.14214038848877,0,-5],[8.83310031890869,2.07911992073059,-5],[-3.5217399597168,9.94521999359131,-5],[7.91947984695435,4.06736993789673,-5],[6.44122982025146,5.87785005569458,-5],[-14.4629001617432,7.43144989013672,-5],[-16.4412002563477,5.87785005569458,-5],[-17.9195003509521,4.06736993789673,-5],[-18.8330993652344,2.07911992073059,-5],[20,20,5],[3.5217399597168,-9.94521999359131,5],[-8.83310031890869,-2.07911992073059,5],[-9.14214038848877,0,5],[-8.83310031890869,2.07911992073059,5],[6.4782600402832,-9.94521999359131,5],[-7.91947984695435,4.06736993789673,5],[-6.44122982025146,5.87785005569458,5],[-4.46294021606445,7.43144989013672,5],[-2.07106995582581,8.66024971008301,5],[0.629840016365051,9.51056003570557,5],[12.0711002349854,-8.66024971008301,5],[9.37016010284424,-9.51056003570557,5],[3.5217399597168,9.94521999359131,5],[6.4782600402832,9.94521999359131,5],[9.37016010284424,9.51056003570557,5],[12.0711002349854,8.66024971008301,5],[14.4629001617432,7.43144989013672,5],[16.4412002563477,-5.87785005569458,5],[14.4629001617432,-7.43144989013672,5],[16.4412002563477,5.87785005569458,5],[17.9195003509521,4.06736993789673,5],[18.8330993652344,-2.07911992073059,5],[17.9195003509521,-4.06736993789673,5],[18.8330993652344,2.07911992073059,5],[19.1420993804932,0,5],[0.629840016365051,-9.51056003570557,5],[-2.07106995582581,-8.66024971008301,5],[-4.46294021606445,-7.43144989013672,5],[-6.44122982025146,-5.87785005569458,5],[-7.91947984695435,-4.06736993789673,5] ]; $facets = [ [0,1,2],[2,1,3],[1,0,4],[5,1,4],[6,2,7],[0,2,8],[0,8,9],[0,9,10],[0,10,11],[0,11,12],[0,12,13],[0,13,4],[13,14,4],[15,4,16],[17,4,15],[18,4,17],[19,4,20],[18,20,4],[21,2,22],[4,19,23],[4,23,7],[23,24,7],[22,2,25],[26,2,27],[28,29,7],[25,2,30],[29,31,7],[30,2,26],[31,32,7],[27,2,6],[32,6,7],[28,7,24],[33,2,21],[34,2,33],[35,2,34],[36,2,35],[8,2,36],[16,4,14],[2,3,7],[7,3,37],[38,1,5],[3,1,39],[3,39,40],[3,40,41],[42,38,5],[3,41,43],[3,43,44],[37,3,45],[37,45,46],[37,46,47],[48,49,5],[37,47,50],[49,42,5],[37,50,51],[37,51,52],[37,52,53],[37,53,54],[55,56,5],[37,54,57],[37,57,58],[59,60,5],[37,58,61],[37,62,5],[37,61,62],[62,59,5],[60,55,5],[63,1,38],[64,1,63],[65,1,64],[66,1,65],[67,1,66],[39,1,67],[44,45,3],[56,48,5],[5,4,7],[37,5,7],[41,40,36],[36,40,8],[39,9,40],[40,9,8],[43,41,35],[35,41,36],[44,43,34],[34,43,35],[33,45,44],[34,33,44],[21,46,45],[33,21,45],[22,47,46],[21,22,46],[25,50,47],[22,25,47],[30,51,50],[25,30,50],[26,52,51],[30,26,51],[27,53,52],[26,27,52],[6,54,53],[27,6,53],[32,57,54],[6,32,54],[31,58,57],[32,31,57],[29,61,58],[31,29,58],[28,62,61],[29,28,61],[59,62,28],[24,59,28],[60,59,24],[23,60,24],[55,60,23],[19,55,23],[55,19,56],[56,19,20],[56,20,48],[48,20,18],[48,18,49],[49,18,17],[49,17,42],[42,17,15],[42,15,38],[38,15,16],[38,16,63],[63,16,14],[63,14,64],[64,14,13],[64,13,65],[65,13,12],[65,12,66],[66,12,11],[66,11,67],[67,11,10],[67,10,39],[39,10,9] ], } elsif ($name eq 'ipadstand') { $vertices = [ [17.4344673156738,-2.69879599481136e-16,9.5],[14.2814798355103,10,9.5],[0,0,9.5],[31.7159481048584,10,9.5],[62.2344741821289,2.06667568800577e-16,20],[31.7159481048584,10,20],[17.4344673156738,-2.69879599481136e-16,20],[62.2344741821289,10,20],[98.2079696655273,10,0],[98.2079696655273,8.56525380796383e-16,10],[98.2079696655273,0,0],[98.2079696655273,10,20],[98.2079696655273,0,20],[81.6609649658203,-4.39753856997999e-16,10],[90.0549850463867,10,10],[78.5079803466797,10,10],[93.2079696655273,8.56525380796383e-16,10],[14.2814798355103,10,20],[0,0,20],[87.4344711303711,2.81343962782118e-15,20],[84.2814788818359,10,20],[0,10,20],[0,0,0],[0,10,0],[62.2344741821289,2.06667568800577e-16,30],[66.9609756469727,10,30],[62.2344741821289,10,30],[70.1139602661133,8.5525763717214e-16,30],[67.7053375244141,10,28.7107200622559],[71.6787109375,1.24046736339707e-15,27.2897701263428] ]; $facets = [ [0,1,2],[1,0,3],[4,5,6],[5,4,7],[8,9,10],[9,11,12],[11,9,8],[13,14,15],[14,13,16],[17,2,1],[2,17,18],[19,11,20],[11,19,12],[17,21,18],[21,2,18],[2,21,22],[22,21,23],[8,22,23],[22,8,10],[24,25,26],[25,24,27],[23,1,8],[1,23,21],[1,21,17],[5,15,3],[15,5,7],[15,7,28],[28,7,26],[28,26,25],[8,14,11],[14,8,3],[3,8,1],[14,3,15],[11,14,20],[26,4,24],[4,26,7],[12,16,9],[16,12,19],[29,4,13],[4,29,24],[24,29,27],[9,22,10],[22,9,0],[0,9,16],[0,16,13],[0,13,6],[6,13,4],[2,22,0],[19,14,16],[14,19,20],[15,29,13],[29,25,27],[25,29,15],[25,15,28],[6,3,0],[3,6,5] ]; } elsif ($name eq 'A') { $vertices = [ [513.075988769531,51.6074333190918,36.0009002685547],[516.648803710938,51.7324333190918,36.0009002685547],[513.495178222656,51.7324333190918,36.0009002685547],[489.391204833984,51.4824333190918,24.0011005401611],[488.928588867188,51.7324333190918,24.0011005401611],[492.06201171875,51.7324333190918,24.0011005401611],[496.840393066406,51.2324333190918,24.0011005401611],[495.195404052734,51.7324333190918,24.0011005401611],[498.981994628906,51.7324333190918,24.0011005401611],[506.966613769531,51.6074333190918,24.0011005401611],[510.342010498047,51.7324333190918,24.0011005401611],[507.163818359375,51.6074333190918,24.0011005401611],[512.515380859375,54.7190322875977,36.0009002685547],[514.161987304688,54.5058326721191,36.0009002685547],[493.06201171875,54.7190322875977,36.0009002685547],[495.195404052734,51.7324333190918,36.0009002685547],[496.195404052734,54.7190322875977,36.0009002685547],[497.195404052734,57.7058334350586,36.0009002685547],[500.851989746094,60.2658309936523,36.0009002685547],[498.915405273438,62.8258323669434,36.0009002685547],[506.701995849609,62.8258323669434,36.0009002685547],[503.648590087891,60.2658309936523,36.0009002685547],[508.381805419922,57.7058334350586,36.0009002685547],[496.418792724609,60.052433013916,36.0009002685547],[506.515197753906,72.2124328613281,36.0009002685547],[502.808807373047,74.5324325561523,36.0009002685547],[503.781982421875,71.6058349609375,36.0009002685547],[515.358764648438,55.4658317565918,36.0009002685547],[499.375183105469,76.9058380126953,36.0009002685547],[501.168792724609,78.0658340454102,36.0009002685547],[504.568786621094,78.0658340454102,36.0009002685547],[506.32861328125,81.599235534668,36.0009002685547],[502.928588867188,81.599235534668,36.0009002685547],[499.528594970703,81.599235534668,36.0009002685547],[498.20361328125,77.8658294677734,36.0009002685547],[495.195404052734,51.7324333190918,30.0011005401611],[498.981994628906,51.7324333190918,27.0011005401611],[506.555206298828,51.7324333190918,33.0009002685547],[506.555206298828,51.7324333190918,36.0009002685547],[510.342010498047,51.7324333190918,36.0009002685547],[512.515380859375,54.7190322875977,24.0011005401611],[509.361999511719,54.7190322875977,24.0011005401611],[508.381805419922,57.7058334350586,24.0011005401611],[506.701995849609,62.8258323669434,24.0011005401611],[509.188812255859,60.052433013916,24.0011005401611],[493.06201171875,54.7190322875977,24.0011005401611],[503.648590087891,60.2658309936523,24.0011005401611],[500.851989746094,60.2658309936523,24.0011005401611],[498.915405273438,62.8258323669434,24.0011005401611],[502.808807373047,62.8258323669434,24.0011005401611],[491.425201416016,54.5058326721191,24.0011005401611],[506.421813964844,76.9058380126953,24.0011005401611],[502.808807373047,74.5324325561523,24.0011005401611],[504.568786621094,78.0658340454102,24.0011005401611],[506.32861328125,81.599235534668,24.0011005401611],[507.618804931641,77.8658294677734,24.0011005401611],[499.221801757812,72.2124328613281,24.0011005401611],[501.835388183594,71.6058349609375,24.0011005401611],[501.168792724609,78.0658340454102,24.0011005401611],[499.528594970703,81.599235534668,24.0011005401611],[502.048583984375,79.8324356079102,24.0011005401611],[490.253601074219,55.4658317565918,24.0011005401611],[488.928588867188,51.7324333190918,30.0011005401611],[488.928588867188,51.7324333190918,36.0009002685547],[490.253601074219,55.4658317565918,31.5009002685547],[498.20361328125,77.8658294677734,34.5009002685547],[508.381805419922,57.7058334350586,30.0011005401611],[505.585388183594,57.7058334350586,27.0011005401611],[502.788818359375,57.7058334350586,36.0009002685547],[499.992004394531,57.7058334350586,33.0009002685547],[509.851989746094,53.2258338928223,33.0009002685547],[509.361999511719,54.7190322875977,36.0009002685547],[508.871795654297,56.2124328613281,27.0011005401611],[496.695404052734,56.2124328613281,33.0009002685547],[495.695404052734,53.2258338928223,27.0011005401611],[506.32861328125,81.599235534668,30.0011005401611],[507.618804931641,77.8658294677734,25.5011005401611],[515.358764648438,55.4658317565918,34.5009002685547],[501.228607177734,81.599235534668,33.0009002685547],[504.628601074219,81.599235534668,27.0011005401611],[503.781982421875,71.6058349609375,33.0009002685547],[502.808807373047,74.5324325561523,30.0011005401611],[498.915405273438,62.8258323669434,30.0011005401611],[500.861999511719,62.8258323669434,27.0011005401611],[502.808807373047,62.8258323669434,36.0009002685547],[504.755187988281,62.8258323669434,33.0009002685547],[501.835388183594,71.6058349609375,33.0009002685547],[499.888793945312,65.7524337768555,33.0009002685547],[499.888793945312,65.7524337768555,36.0009002685547],[513.128601074219,51.4824333190918,36.0009002685547],[513.075988769531,51.6074333190918,24.0011005401611],[516.648803710938,51.7324333190918,24.0011005401611],[513.128601074219,51.4824333190918,24.0011005401611],[513.495178222656,51.7324333190918,24.0011005401611],[506.966613769531,51.6074333190918,36.0009002685547],[507.163818359375,51.6074333190918,36.0009002685547],[490.337799072266,51.4824333190918,24.0011005401611],[489.391204833984,51.4824333190918,36.0009002685547],[492.06201171875,51.7324333190918,36.0009002685547],[490.337799072266,51.4824333190918,36.0009002685547],[513.233764648438,51.2324333190918,24.0011005401611],[513.233764648438,51.2324333190918,36.0009002685547],[504.773803710938,51.4824333190918,36.0009002685547],[504.773803710938,51.4824333190918,24.0011005401611],[489.266998291016,51.2324333190918,24.0011005401611],[489.266998291016,51.2324333190918,36.0009002685547],[490.253601074219,55.4658317565918,25.5011005401611],[499.528594970703,81.599235534668,30.0011005401611],[498.20361328125,77.8658294677734,31.5009002685547],[515.358764648438,55.4658317565918,28.5011005401611],[515.358764648438,55.4658317565918,25.5011005401611],[495.246795654297,61.0124320983887,36.0009002685547],[490.253601074219,55.4658317565918,34.5009002685547],[490.253601074219,55.4658317565918,36.0009002685547],[494.228607177734,66.6658325195312,24.0011005401611],[499.068786621094,67.5192337036133,24.0011005401611],[498.20361328125,77.8658294677734,25.5011005401611],[498.20361328125,77.8658294677734,24.0011005401611],[506.608795166016,67.5192337036133,36.0009002685547],[509.09521484375,64.7458343505859,36.0009002685547],[507.618804931641,77.8658294677734,34.5009002685547],[507.618804931641,77.8658294677734,36.0009002685547],[510.385406494141,61.0124320983887,24.0011005401611],[515.358764648438,55.4658317565918,24.0011005401611],[489.32861328125,47.7324333190918,31.5009002685547],[492.95361328125,47.7324333190918,33.5634994506836],[489.32861328125,47.7324333190918,34.5009002685547],[489.32861328125,47.7324333190918,28.5011005401611],[489.32861328125,47.7324333190918,25.5011005401611],[492.95361328125,47.7324333190918,26.4385013580322],[492.95361328125,47.7324333190918,30.5635013580322],[492.95361328125,47.7324333190918,32.0634994506836],[492.95361328125,47.7324333190918,31.3135013580322],[492.95361328125,47.7324333190918,35.4384994506836],[489.32861328125,47.7324333190918,36.0009002685547],[492.95361328125,47.7324333190918,34.3134994506836],[492.95361328125,47.7324333190918,34.6884994506836],[492.95361328125,47.7324333190918,27.9385013580322],[492.95361328125,47.7324333190918,28.6885013580322],[492.95361328125,47.7324333190918,29.0635013580322],[489.32861328125,47.7324333190918,24.0011005401611],[492.95361328125,47.7324333190918,24.5635013580322],[492.95361328125,47.7324333190918,25.6885013580322],[492.95361328125,47.7324333190918,25.3135013580322],[492.95361328125,47.7324333190918,24.1885013580322],[492.95361328125,47.7324333190918,24.0011005401611],[513.443786621094,50.7324333190918,24.0011005401611],[492.95361328125,47.7324333190918,35.8134994506836],[492.95361328125,47.7324333190918,36.0009002685547],[513.443786621094,50.7324333190918,36.0009002685547],[506.350402832031,51.4824333190918,36.0009002685547],[506.350402832031,51.4824333190918,24.0011005401611],[492.743804931641,48.2324333190918,24.0011005401611],[492.638793945312,48.4824333190918,24.0011005401611],[492.743804931641,48.2324333190918,36.0009002685547],[492.638793945312,48.4824333190918,36.0009002685547],[490.089599609375,50.9824333190918,36.0009002685547],[490.089599609375,50.9824333190918,24.0011005401611],[510.342010498047,51.7324333190918,30.0011005401611],[499.068786621094,67.5192337036133,36.0009002685547],[494.228607177734,66.6658325195312,36.0009002685547],[499.375183105469,76.9058380126953,24.0011005401611],[506.421813964844,76.9058380126953,36.0009002685547],[506.608795166016,67.5192337036133,24.0011005401611],[505.728607177734,65.7524337768555,24.0011005401611],[509.09521484375,64.7458343505859,24.0011005401611],[506.701995849609,62.8258323669434,30.0011005401611],[505.728607177734,65.7524337768555,27.0011005401611],[501.835388183594,71.6058349609375,27.0011005401611],[499.888793945312,65.7524337768555,27.0011005401611],[494.228607177734,66.6658325195312,30.0011005401611],[495.553588867188,70.3992309570312,28.5011005401611],[492.903594970703,62.9324340820312,28.5011005401611],[495.553588867188,70.3992309570312,31.5009002685547],[492.903594970703,62.9324340820312,31.5009002685547],[511.488800048828,66.6658325195312,24.0011005401611],[511.488800048828,66.6658325195312,30.0011005401611],[512.778564453125,62.9324340820312,28.5011005401611],[515.358764648438,55.4658317565918,31.5009002685547],[507.618804931641,77.8658294677734,31.5009002685547],[510.198791503906,70.3992309570312,28.5011005401611],[511.488800048828,66.6658325195312,36.0009002685547],[512.778564453125,62.9324340820312,31.5009002685547],[510.198791503906,70.3992309570312,31.5009002685547],[502.788818359375,57.7058334350586,24.0011005401611],[497.195404052734,57.7058334350586,30.0011005401611],[492.903594970703,62.9324340820312,34.5009002685547],[492.903594970703,62.9324340820312,36.0009002685547],[495.553588867188,70.3992309570312,24.0011005401611],[496.725189208984,69.4392318725586,24.0011005401611],[495.553588867188,70.3992309570312,25.5011005401611],[495.246795654297,61.0124320983887,24.0011005401611],[492.903594970703,62.9324340820312,25.5011005401611],[492.903594970703,62.9324340820312,24.0011005401611],[495.553588867188,70.3992309570312,36.0009002685547],[496.725189208984,69.4392318725586,36.0009002685547],[495.553588867188,70.3992309570312,34.5009002685547],[510.198791503906,70.3992309570312,36.0009002685547],[509.002014160156,69.4392318725586,36.0009002685547],[510.198791503906,70.3992309570312,34.5009002685547],[512.778564453125,62.9324340820312,25.5011005401611],[512.778564453125,62.9324340820312,24.0011005401611],[510.198791503906,70.3992309570312,24.0011005401611],[509.002014160156,69.4392318725586,24.0011005401611],[510.198791503906,70.3992309570312,25.5011005401611],[510.385406494141,61.0124320983887,36.0009002685547],[512.778564453125,62.9324340820312,34.5009002685547],[512.778564453125,62.9324340820312,36.0009002685547],[496.840393066406,51.2324333190918,36.0009002685547],[498.981994628906,51.7324333190918,36.0009002685547],[498.981994628906,51.7324333190918,33.0009002685547],[506.555206298828,51.7324333190918,24.0011005401611],[506.555206298828,51.7324333190918,27.0011005401611],[503.82861328125,47.7324333190918,30.7509002685547],[507.45361328125,47.7324333190918,32.8134994506836],[503.82861328125,47.7324333190918,33.7509002685547],[503.82861328125,47.7324333190918,29.2511005401611],[503.82861328125,47.7324333190918,26.2511005401611],[507.45361328125,47.7324333190918,27.1885013580322],[493.921813964844,57.2792320251465,36.0009002685547],[491.425201416016,54.5058326721191,36.0009002685547],[497.195404052734,57.7058334350586,24.0011005401611],[496.418792724609,60.052433013916,24.0011005401611],[509.188812255859,60.052433013916,36.0009002685547],[511.675415039062,57.2792320251465,24.0011005401611],[514.161987304688,54.5058326721191,24.0011005401611],[507.45361328125,47.7324333190918,34.3134994506836],[503.82861328125,47.7324333190918,35.2509002685547],[507.45361328125,47.7324333190918,25.6885013580322],[503.82861328125,47.7324333190918,24.7511005401611],[500.20361328125,47.7324333190918,31.6885013580322],[500.20361328125,47.7324333190918,28.3135013580322],[500.20361328125,47.7324333190918,30.1885013580322],[507.45361328125,47.7324333190918,29.8135013580322],[507.45361328125,47.7324333190918,31.3135013580322],[507.45361328125,47.7324333190918,30.5635013580322],[503.82861328125,47.7324333190918,36.0009002685547],[507.45361328125,47.7324333190918,35.4384994506836],[507.45361328125,47.7324333190918,35.0634994506836],[507.45361328125,47.7324333190918,28.6885013580322],[507.45361328125,47.7324333190918,29.4385013580322],[503.82861328125,47.7324333190918,24.0011005401611],[507.45361328125,47.7324333190918,24.5635013580322],[507.45361328125,47.7324333190918,24.9385013580322],[500.20361328125,47.7324333190918,34.6884994506836],[500.20361328125,47.7324333190918,33.1884994506836],[500.20361328125,47.7324333190918,33.9384994506836],[500.20361328125,47.7324333190918,25.3135013580322],[500.20361328125,47.7324333190918,26.8135013580322],[500.20361328125,47.7324333190918,26.0635013580322],[500.20361328125,47.7324333190918,30.9385013580322],[500.20361328125,47.7324333190918,35.0634994506836],[500.20361328125,47.7324333190918,35.4384994506836],[500.20361328125,47.7324333190918,29.0635013580322],[500.20361328125,47.7324333190918,29.4385013580322],[500.20361328125,47.7324333190918,24.9385013580322],[500.20361328125,47.7324333190918,24.5635013580322],[507.45361328125,47.7324333190918,24.1885013580322],[507.45361328125,47.7324333190918,24.0011005401611],[513.86376953125,49.7324333190918,24.0011005401611],[507.45361328125,47.7324333190918,35.8134994506836],[507.45361328125,47.7324333190918,36.0009002685547],[513.86376953125,49.7324333190918,36.0009002685547],[500.20361328125,47.7324333190918,24.1885013580322],[500.20361328125,47.7324333190918,24.0011005401611],[502.988800048828,49.7324333190918,24.0011005401611],[500.20361328125,47.7324333190918,35.8134994506836],[500.20361328125,47.7324333190918,36.0009002685547],[502.988800048828,49.7324333190918,36.0009002685547],[504.755187988281,62.8258323669434,27.0011005401611],[499.205383300781,51.2324333190918,36.0009002685547],[498.786193847656,51.1074333190918,36.0009002685547],[502.358795166016,51.2324333190918,36.0009002685547],[499.205383300781,51.2324333190918,24.0011005401611],[502.358795166016,51.2324333190918,24.0011005401611],[498.786193847656,51.1074333190918,24.0011005401611],[502.568786621094,50.7324333190918,24.0011005401611],[505.931213378906,51.3574333190918,24.0011005401611],[509.503601074219,51.4824333190918,24.0011005401611],[502.568786621094,50.7324333190918,36.0009002685547],[505.931213378906,51.3574333190918,36.0009002685547],[509.503601074219,51.4824333190918,36.0009002685547],[499.048583984375,50.4824333190918,36.0009002685547],[492.428588867188,48.9824333190918,36.0009002685547],[499.048583984375,50.4824333190918,24.0011005401611],[492.428588867188,48.9824333190918,24.0011005401611],[506.088806152344,50.9824333190918,24.0011005401611],[506.036010742188,51.1074333190918,24.0011005401611],[506.088806152344,50.9824333190918,36.0009002685547],[506.036010742188,51.1074333190918,36.0009002685547],[498.891204833984,50.8574333190918,36.0009002685547],[498.943786621094,50.7324333190918,36.0009002685547],[498.891204833984,50.8574333190918,24.0011005401611],[498.943786621094,50.7324333190918,24.0011005401611],[499.573608398438,49.2324333190918,24.0011005401611],[499.783813476562,48.7324333190918,24.0011005401611],[499.573608398438,49.2324333190918,36.0009002685547],[499.783813476562,48.7324333190918,36.0009002685547],[506.403594970703,50.2324333190918,24.0011005401611],[506.298797607422,50.4824333190918,24.0011005401611],[506.403594970703,50.2324333190918,36.0009002685547],[506.298797607422,50.4824333190918,36.0009002685547],[501.228607177734,81.599235534668,27.0011005401611],[502.928588867188,81.599235534668,24.0011005401611],[499.2587890625,49.9824333190918,36.0009002685547],[499.363800048828,49.7324333190918,36.0009002685547],[499.2587890625,49.9824333190918,24.0011005401611],[499.363800048828,49.7324333190918,24.0011005401611],[496.695404052734,56.2124328613281,27.0011005401611],[496.195404052734,54.7190322875977,24.0011005401611],[509.851989746094,53.2258338928223,27.0011005401611],[493.464782714844,51.1074333190918,36.0009002685547],[493.464782714844,51.1074333190918,24.0011005401611],[502.768798828125,51.7324333190918,24.0011005401611],[500.215789794922,51.3574333190918,24.0011005401611],[497.628601074219,51.2324333190918,24.0011005401611],[502.768798828125,51.7324333190918,36.0009002685547],[500.215789794922,51.3574333190918,36.0009002685547],[497.628601074219,51.2324333190918,36.0009002685547],[507.033813476562,48.7324333190918,24.0011005401611],[506.823791503906,49.2324333190918,24.0011005401611],[507.033813476562,48.7324333190918,36.0009002685547],[506.823791503906,49.2324333190918,36.0009002685547],[494.4501953125,51.1074333190918,24.0011005401611],[494.4501953125,51.1074333190918,36.0009002685547],[500.807006835938,51.3574333190918,36.0009002685547],[503.591186523438,51.4824333190918,36.0009002685547],[503.591186523438,51.4824333190918,24.0011005401611],[500.807006835938,51.3574333190918,24.0011005401611],[505.728607177734,65.7524337768555,36.0009002685547],[505.728607177734,65.7524337768555,33.0009002685547],[499.221801757812,72.2124328613281,36.0009002685547],[501.835388183594,71.6058349609375,36.0009002685547],[506.515197753906,72.2124328613281,24.0011005401611],[503.781982421875,71.6058349609375,24.0011005401611],[503.781982421875,71.6058349609375,27.0011005401611],[499.888793945312,65.7524337768555,24.0011005401611],[495.695404052734,53.2258338928223,33.0009002685547],[516.648803710938,51.7324333190918,30.0011005401611],[498.20361328125,77.8658294677734,28.5011005401611],[505.585388183594,57.7058334350586,33.0009002685547],[508.871795654297,56.2124328613281,33.0009002685547],[499.992004394531,57.7058334350586,27.0011005401611],[504.628601074219,81.599235534668,33.0009002685547],[500.861999511719,62.8258323669434,33.0009002685547],[496.878601074219,74.1324310302734,27.0011005401611],[496.878601074219,74.1324310302734,33.0009002685547],[491.57861328125,59.199031829834,27.0011005401611],[490.253601074219,55.4658317565918,28.5011005401611],[491.57861328125,59.199031829834,33.0009002685547],[514.068786621094,59.199031829834,27.0011005401611],[514.068786621094,59.199031829834,33.0009002685547],[508.908813476562,74.1324310302734,27.0011005401611],[507.618804931641,77.8658294677734,28.5011005401611],[508.908813476562,74.1324310302734,33.0009002685547],[491.271789550781,50.9824333190918,36.0009002685547],[490.877807617188,50.9824333190918,36.0009002685547],[491.271789550781,50.9824333190918,24.0011005401611],[490.877807617188,50.9824333190918,24.0011005401611],[495.213806152344,50.9824333190918,36.0009002685547],[493.636993408203,50.9824333190918,36.0009002685547],[495.213806152344,50.9824333190918,24.0011005401611],[493.636993408203,50.9824333190918,24.0011005401611],[503.985412597656,51.4824333190918,36.0009002685547],[503.985412597656,51.4824333190918,24.0011005401611],[511.675415039062,57.2792320251465,36.0009002685547],[493.921813964844,57.2792320251465,24.0011005401611],[502.768798828125,51.7324333190918,30.0011005401611],[506.555206298828,51.7324333190918,30.0011005401611],[498.981994628906,51.7324333190918,30.0011005401611],[492.848815917969,50.9824333190918,24.0011005401611],[492.848815917969,50.9824333190918,36.0009002685547],[500.861999511719,68.6792297363281,36.0009002685547],[500.861999511719,68.6792297363281,24.0011005401611],[496.878601074219,74.1324310302734,24.0011005401611],[496.878601074219,74.1324310302734,36.0009002685547],[504.755187988281,68.6792297363281,24.0011005401611],[504.755187988281,68.6792297363281,36.0009002685547],[508.908813476562,74.1324310302734,36.0009002685547],[508.908813476562,74.1324310302734,24.0011005401611],[505.728607177734,65.7524337768555,30.0011005401611],[504.755187988281,68.6792297363281,30.0011005401611],[503.781982421875,71.6058349609375,30.0011005401611],[500.861999511719,68.6792297363281,30.0011005401611],[499.888793945312,65.7524337768555,30.0011005401611],[501.835388183594,71.6058349609375,30.0011005401611],[491.57861328125,59.199031829834,24.0011005401611],[491.57861328125,59.199031829834,36.0009002685547],[514.068786621094,59.199031829834,36.0009002685547],[514.068786621094,59.199031829834,24.0011005401611],[511.07861328125,47.7324333190918,34.8759002685547],[511.07861328125,47.7324333190918,31.8759002685547],[514.70361328125,47.7324333190918,33.9384994506836],[511.07861328125,47.7324333190918,25.1261005401611],[514.70361328125,47.7324333190918,26.0635013580322],[511.07861328125,47.7324333190918,28.1261005401611],[502.788818359375,57.7058334350586,30.0011005401611],[502.048583984375,79.8324356079102,36.0009002685547],[514.70361328125,47.7324333190918,30.9385013580322],[511.07861328125,47.7324333190918,30.3759002685547],[514.70361328125,47.7324333190918,29.0635013580322],[511.07861328125,47.7324333190918,29.6261005401611],[496.57861328125,47.7324333190918,31.1259002685547],[496.57861328125,47.7324333190918,32.6259002685547],[496.57861328125,47.7324333190918,34.1259002685547],[496.57861328125,47.7324333190918,28.8761005401611],[496.57861328125,47.7324333190918,27.3761005401611],[496.57861328125,47.7324333190918,25.8761005401611],[496.57861328125,47.7324333190918,29.6261005401611],[514.70361328125,47.7324333190918,35.4384994506836],[511.07861328125,47.7324333190918,35.6259002685547],[514.70361328125,47.7324333190918,24.5635013580322],[511.07861328125,47.7324333190918,24.3761005401611],[496.57861328125,47.7324333190918,34.8759002685547],[496.57861328125,47.7324333190918,25.1261005401611],[496.57861328125,47.7324333190918,35.6259002685547],[496.57861328125,47.7324333190918,24.3761005401611],[511.07861328125,47.7324333190918,36.0009002685547],[511.07861328125,47.7324333190918,24.0011005401611],[514.70361328125,47.7324333190918,30.1885013580322],[514.70361328125,47.7324333190918,35.8134994506836],[514.70361328125,47.7324333190918,29.8135013580322],[514.70361328125,47.7324333190918,24.1885013580322],[496.57861328125,47.7324333190918,36.0009002685547],[496.57861328125,47.7324333190918,24.0011005401611],[510.238800048828,49.7324333190918,24.0011005401611],[510.238800048828,49.7324333190918,36.0009002685547],[514.70361328125,47.7324333190918,24.0011005401611],[514.70361328125,47.7324333190918,36.0009002685547],[496.158813476562,48.7324333190918,36.0009002685547],[496.158813476562,48.7324333190918,24.0011005401611],[502.808807373047,62.8258323669434,30.0011005401611],[509.608795166016,51.2324333190918,24.0011005401611],[509.608795166016,51.2324333190918,36.0009002685547],[491.641204833984,50.8574333190918,24.0011005401611],[495.423797607422,50.4824333190918,36.0009002685547],[495.423797607422,50.4824333190918,24.0011005401611],[491.641204833984,50.8574333190918,36.0009002685547],[495.528594970703,50.2324333190918,24.0011005401611],[492.0087890625,49.9824333190918,24.0011005401611],[509.818786621094,50.7324333190918,24.0011005401611],[495.948608398438,49.2324333190918,36.0009002685547],[495.528594970703,50.2324333190918,36.0009002685547],[495.948608398438,49.2324333190918,24.0011005401611],[509.818786621094,50.7324333190918,36.0009002685547],[492.0087890625,49.9824333190918,36.0009002685547],[491.956207275391,50.1074333190918,24.0011005401611],[491.956207275391,50.1074333190918,36.0009002685547],[502.928588867188,81.599235534668,30.0011005401611],[491.851013183594,50.3574333190918,36.0009002685547],[491.851013183594,50.3574333190918,24.0011005401611],[496.195404052734,54.7190322875977,30.0011005401611],[509.361999511719,54.7190322875977,30.0011005401611],[488.632598876953,51.7256317138672,30.0011005401611],[488.632598876953,51.7256317138672,29.5091018676758],[488.632598876953,51.7188339233398,24.0011005401611],[488.632598876953,51.7256317138672,27.4929008483887],[488.632598876953,51.7324333190918,30.0011005401611],[488.632598876953,51.7324333190918,29.0175018310547],[488.632598876953,51.7324333190918,24.9847011566162],[488.632598876953,51.7324333190918,24.0011005401611],[488.632598876953,51.7188339233398,30.0011005401611],[488.632598876953,51.7176322937012,24.0011005401611],[488.632598876953,51.7182312011719,30.0011005401611],[488.632598876953,51.7176322937012,30.0011005401611],[488.632598876953,51.715030670166,24.0011005401611],[488.632598876953,51.7162322998047,30.0011005401611],[488.632598876953,50.761833190918,24.0011005401611],[488.632598876953,50.7578315734863,24.0011005401611],[488.632598876953,50.7598342895508,30.0011005401611],[488.632598876953,50.7522315979004,24.0011005401611],[488.632598876953,49.7838325500488,24.0011005401611],[488.632598876953,50.2680320739746,30.0011005401611],[488.632598876953,51.7046318054199,24.0011005401611],[488.632598876953,51.709831237793,30.0011005401611],[488.632598876953,50.9120330810547,24.0011005401611],[488.632598876953,50.8882331848145,24.0011005401611],[488.632598876953,50.9002304077148,30.0011005401611],[488.632598876953,47.7324333190918,24.0370998382568],[488.632598876953,48.5612335205078,30.0011005401611],[488.632598876953,47.7324333190918,24.0011005401611],[488.632598876953,47.7324333190918,24.1091003417969],[488.632598876953,48.5612335205078,30.0189018249512],[488.632598876953,47.7324333190918,25.3211002349854],[488.632598876953,48.5612335205078,30.0551013946533],[488.632598876953,47.7324333190918,25.4651012420654],[488.632598876953,48.5612335205078,30.6609001159668],[488.632598876953,47.7324333190918,25.5371017456055],[488.632598876953,48.5612335205078,30.7329006195068],[488.632598876953,47.7324333190918,25.6091003417969],[488.632598876953,48.5612335205078,30.7689018249512],[488.632598876953,47.7324333190918,25.8971004486084],[488.632598876953,48.5612335205078,30.8051013946533],[488.632598876953,47.7324333190918,28.321102142334],[488.632598876953,48.5612335205078,30.9491004943848],[488.632598876953,47.7324333190918,28.4651012420654],[488.632598876953,48.5612335205078,32.1609001159668],[488.632598876953,47.7324333190918,28.5371017456055],[488.632598876953,48.5612335205078,32.2329025268555],[488.632598876953,47.7324333190918,28.6811008453369],[488.632598876953,48.5612335205078,32.2689018249512],[488.632598876953,47.7324333190918,31.1049003601074],[488.632598876953,48.5612335205078,32.3411026000977],[488.632598876953,47.7324333190918,31.3929004669189],[488.632598876953,49.3900299072266,36.0009002685547],[488.632598876953,47.7324333190918,31.536901473999],[488.632598876953,47.7324333190918,31.6809005737305],[488.632598876953,47.7324333190918,34.1049003601074],[488.632598876953,47.7324333190918,34.3929023742676],[488.632598876953,47.7324333190918,34.464900970459],[488.632598876953,47.7324333190918,34.5369033813477],[488.632598876953,47.7324333190918,34.6809005737305],[488.632598876953,47.7324333190918,35.8929023742676],[488.632598876953,47.7324333190918,35.964900970459],[488.632598876953,47.7324333190918,36.0009002685547],[488.632598876953,50.8816299438477,24.0011005401611],[488.632598876953,50.8850326538086,30.0011005401611],[488.632598876953,49.7480316162109,24.0011005401611],[488.632598876953,49.7426300048828,24.0011005401611],[488.632598876953,49.745231628418,30.0011005401611],[488.632598876953,49.7592315673828,24.0011005401611],[488.632598876953,49.7536315917969,30.0011005401611],[488.632598876953,49.3900299072266,24.0011005401611],[488.632598876953,49.5664329528809,30.0011005401611],[488.632598876953,50.8786315917969,24.0011005401611],[488.632598876953,50.7764320373535,24.0011005401611],[488.632598876953,50.8274307250977,30.0011005401611],[488.632598876953,50.7550315856934,30.0011005401611],[488.632598876953,50.7692337036133,30.0011005401611],[488.632598876953,50.9284324645996,24.0011005401611],[488.632598876953,50.9202308654785,30.0011005401611],[488.632598876953,51.1788330078125,24.0011005401611],[488.632598876953,51.139232635498,24.0011005401611],[488.632598876953,51.1590309143066,30.0011005401611],[488.632598876953,51.2324333190918,24.0011005401611],[488.632598876953,51.2056312561035,30.0011005401611],[488.632598876953,51.4340324401855,24.0011005401611],[488.632598876953,51.3946304321289,24.0011005401611],[488.632598876953,51.4142303466797,30.0011005401611],[488.632598876953,51.4498329162598,24.0011005401611],[488.632598876953,51.5772323608398,30.0011005401611],[488.632598876953,51.4418334960938,30.0011005401611],[488.632598876953,51.3136329650879,30.0011005401611],[488.632598876953,49.7714309692383,30.0011005401611],[488.632598876953,51.0338325500488,30.0011005401611],[488.632598876953,50.8816299438477,30.0011005401611],[488.632598876953,50.8800315856934,30.0011005401611],[488.632598876953,51.7188339233398,36.0009002685547],[488.632598876953,51.7176322937012,36.0009002685547],[488.632598876953,49.3900299072266,30.0011005401611],[488.632598876953,50.7522315979004,30.0011005401611],[488.632598876953,50.7522315979004,36.0009002685547],[488.632598876953,49.7426300048828,30.0011005401611],[488.632598876953,49.7426300048828,36.0009002685547],[488.632598876953,49.7480316162109,30.0011005401611],[488.632598876953,49.7480316162109,36.0009002685547],[488.632598876953,51.715030670166,30.0011005401611],[488.632598876953,51.715030670166,36.0009002685547],[488.632598876953,50.7578315734863,30.0011005401611],[488.632598876953,50.7578315734863,36.0009002685547],[488.632598876953,50.761833190918,30.0011005401611],[488.632598876953,50.761833190918,36.0009002685547],[488.632598876953,50.8882331848145,30.0011005401611],[488.632598876953,50.8882331848145,36.0009002685547],[488.632598876953,49.7592315673828,30.0011005401611],[488.632598876953,49.7592315673828,36.0009002685547],[488.632598876953,51.1788330078125,30.0011005401611],[488.632598876953,51.1788330078125,36.0009002685547],[488.632598876953,50.9120330810547,30.0011005401611],[488.632598876953,50.9120330810547,36.0009002685547],[488.632598876953,51.4498329162598,30.0011005401611],[488.632598876953,51.4498329162598,36.0009002685547],[488.632598876953,51.7046318054199,30.0011005401611],[488.632598876953,51.7046318054199,36.0009002685547],[488.632598876953,51.2324333190918,30.0011005401611],[488.632598876953,51.2324333190918,36.0009002685547],[488.632598876953,51.3946304321289,30.0011005401611],[488.632598876953,51.3946304321289,36.0009002685547],[488.632598876953,51.4340324401855,30.0011005401611],[488.632598876953,51.4340324401855,36.0009002685547],[488.632598876953,49.7838325500488,30.0011005401611],[488.632598876953,49.7838325500488,36.0009002685547],[488.632598876953,50.7764320373535,30.0011005401611],[488.632598876953,50.7764320373535,36.0009002685547],[488.632598876953,51.139232635498,30.0011005401611],[488.632598876953,51.139232635498,36.0009002685547],[488.632598876953,50.9284324645996,30.0011005401611],[488.632598876953,50.9284324645996,36.0009002685547],[488.632598876953,50.8816299438477,36.0009002685547],[488.632598876953,50.8786315917969,30.0011005401611],[488.632598876953,50.8786315917969,36.0009002685547],[488.632598876953,51.7324333190918,35.0173034667969],[488.632598876953,51.7324333190918,36.0009002685547],[488.632598876953,51.7324333190918,30.9847011566162],[517.188415527344,51.7140884399414,24.0011005401611],[517.188415527344,51.7140884399414,36.0009002685547],[517.188415527344,50.4475173950195,24.0011005401611],[517.188415527344,51.7324333190918,35.3734130859375],[517.188415527344,51.7324333190918,36.0009002685547],[517.188415527344,51.7324333190918,34.1185760498047],[517.188415527344,51.7324333190918,31.88330078125],[517.188415527344,51.7324333190918,30.0011005401611],[517.188415527344,51.7324333190918,28.1187744140625],[517.188415527344,51.7324333190918,25.8834266662598],[517.188415527344,51.7324333190918,24.6285915374756],[517.188415527344,51.7324333190918,24.0011005401611],[517.188415527344,47.7324333190918,24.0600452423096],[517.188415527344,47.7324333190918,24.0011005401611],[517.188415527344,50.4475173950195,36.0009002685547],[517.188415527344,47.7324333190918,24.1779975891113],[517.188415527344,47.7324333190918,24.6498031616211],[517.188415527344,47.7324333190918,28.7625770568848],[517.188415527344,47.7324333190918,29.7061901092529],[517.188415527344,47.7324333190918,29.9420928955078],[517.188415527344,47.7324333190918,30.0600452423096],[517.188415527344,47.7324333190918,30.2959480285645],[517.188415527344,47.7324333190918,31.2395629882812],[517.188415527344,47.7324333190918,35.3521995544434],[517.188415527344,47.7324333190918,35.8240051269531],[517.188415527344,47.7324333190918,35.9419555664062],[517.188415527344,47.7324333190918,36.0009002685547] ]; $facets = [ [0,1,2],[3,4,5],[6,7,8],[9,10,11],[12,2,1],[12,1,13],[14,15,16],[17,18,19],[20,21,22],[17,19,23],[24,25,26],[27,13,1],[28,25,29],[30,31,32],[28,33,34],[35,36,7],[37,38,39],[40,10,41],[42,43,44],[45,5,4],[46,47,48],[46,48,49],[45,4,50],[51,52,53],[51,54,55],[56,52,57],[58,59,60],[61,50,4],[62,63,64],[65,34,33],[66,67,42],[68,17,69],[70,71,22],[66,42,72],[73,16,15],[35,7,74],[75,76,54],[77,27,1],[78,32,31],[75,54,79],[80,26,25],[81,80,25],[82,83,48],[84,20,85],[81,25,86],[87,88,19],[0,89,1],[90,91,92],[90,10,93],[38,94,39],[94,95,39],[3,7,96],[97,15,98],[97,99,15],[92,91,100],[89,101,1],[102,39,95],[103,11,10],[104,96,7],[105,15,99],[106,61,4],[107,108,33],[76,55,54],[109,91,110],[111,23,19],[112,63,113],[114,115,48],[116,59,117],[118,20,119],[120,31,121],[122,44,43],[110,91,123],[124,125,126],[127,128,129],[127,130,124],[131,124,132],[126,133,134],[135,136,126],[137,138,127],[139,127,138],[128,140,141],[142,128,143],[144,140,145],[100,91,146],[147,148,134],[101,149,1],[102,150,39],[103,10,151],[145,140,152],[152,140,153],[148,154,134],[154,155,134],[156,15,105],[157,104,7],[36,8,7],[158,37,39],[159,19,88],[160,19,159],[161,59,58],[161,117,59],[162,31,30],[162,121,31],[163,43,164],[163,165,43],[166,167,43],[167,164,43],[168,57,52],[82,48,169],[114,170,171],[108,65,33],[64,63,112],[114,172,170],[160,173,170],[171,170,173],[172,174,170],[160,170,174],[175,176,177],[178,77,1],[179,31,120],[175,180,176],[181,182,176],[177,176,182],[180,183,176],[181,176,183],[184,42,67],[185,69,17],[160,111,19],[186,187,160],[188,189,114],[190,188,114],[114,48,191],[192,114,193],[194,160,195],[196,160,194],[197,198,181],[199,197,181],[122,43,165],[200,201,175],[202,175,203],[204,175,202],[205,119,20],[206,181,207],[208,209,15],[210,15,209],[211,10,9],[212,10,211],[213,214,215],[216,217,218],[219,14,17],[113,63,220],[221,222,48],[191,48,222],[22,223,20],[205,20,223],[224,40,42],[123,91,225],[214,226,215],[227,215,226],[218,217,228],[229,228,217],[215,230,213],[125,135,126],[217,216,231],[129,128,142],[216,213,232],[130,132,124],[213,216,233],[234,213,235],[236,227,237],[238,237,227],[239,240,216],[233,216,240],[241,242,229],[243,229,242],[215,227,244],[245,215,246],[217,247,229],[248,249,217],[232,213,250],[230,250,213],[133,147,134],[244,227,251],[236,252,227],[251,227,252],[231,216,253],[254,253,216],[141,140,144],[247,255,229],[241,229,256],[255,256,229],[257,241,258],[259,146,91],[260,261,236],[262,1,149],[263,264,241],[265,241,264],[266,236,267],[268,267,236],[49,48,83],[166,43,269],[270,271,272],[273,274,275],[276,274,277],[278,151,10],[279,280,272],[281,39,150],[272,282,279],[155,283,134],[274,276,284],[153,140,285],[286,276,287],[265,276,286],[288,289,279],[268,288,279],[290,291,272],[271,290,272],[292,274,293],[275,274,292],[294,265,295],[276,265,294],[296,297,268],[279,296,268],[241,265,298],[298,265,299],[236,300,268],[300,301,268],[107,33,78],[302,303,59],[304,305,279],[282,304,279],[306,276,307],[284,276,306],[185,17,73],[308,309,221],[158,39,70],[310,41,10],[15,311,208],[7,6,312],[313,314,6],[315,6,314],[316,208,317],[318,317,208],[258,241,319],[319,241,320],[261,321,236],[321,322,236],[6,315,323],[208,324,318],[270,325,318],[326,318,325],[327,328,315],[273,315,328],[118,329,20],[330,20,329],[331,332,25],[86,25,332],[333,334,52],[335,52,334],[115,336,48],[169,48,336],[62,106,4],[35,15,210],[35,337,15],[158,10,212],[158,310,10],[338,178,1],[339,59,116],[107,302,59],[66,22,340],[66,341,22],[185,221,342],[185,308,221],[75,31,179],[75,343,31],[166,20,330],[166,85,20],[81,52,335],[81,168,52],[82,19,344],[82,87,19],[108,339,345],[346,108,345],[64,347,348],[349,347,64],[178,109,350],[351,178,350],[179,352,353],[354,352,179],[355,208,356],[356,208,311],[357,358,6],[358,312,6],[68,22,21],[68,340,22],[221,48,47],[184,342,221],[359,270,360],[318,360,270],[361,362,273],[315,273,362],[272,102,270],[363,270,102],[274,273,103],[364,103,273],[21,19,18],[21,20,84],[184,46,42],[43,42,46],[12,22,71],[365,22,12],[14,98,15],[14,220,63],[40,93,10],[40,225,91],[45,221,309],[366,221,45],[313,367,212],[212,367,368],[36,369,367],[313,36,367],[316,37,367],[37,368,367],[210,367,369],[316,367,210],[362,370,315],[370,323,315],[360,318,371],[371,318,324],[372,331,159],[159,195,160],[373,115,56],[115,114,189],[52,56,161],[374,161,56],[25,28,331],[375,331,28],[376,333,163],[163,203,175],[377,118,24],[118,181,198],[25,24,162],[378,162,24],[52,51,333],[379,333,51],[167,380,381],[376,167,381],[377,381,330],[330,381,380],[335,381,382],[376,381,335],[373,383,169],[169,383,384],[168,385,383],[373,168,383],[372,87,383],[87,384,383],[377,80,381],[80,382,381],[86,383,385],[372,383,86],[106,348,347],[386,106,347],[375,65,346],[108,346,65],[64,112,349],[387,349,112],[171,190,114],[346,345,171],[374,190,345],[171,345,190],[349,172,347],[172,114,192],[386,347,192],[172,192,347],[173,160,196],[171,173,346],[375,346,196],[173,196,346],[172,349,174],[174,186,160],[387,186,349],[174,349,186],[64,348,62],[106,62,348],[108,107,339],[59,339,107],[374,345,116],[339,116,345],[76,353,352],[379,76,352],[388,77,351],[178,351,77],[179,120,354],[378,354,120],[177,200,175],[351,350,177],[389,200,350],[177,350,200],[354,180,352],[180,175,204],[379,352,204],[180,204,352],[182,181,206],[177,182,351],[388,351,206],[182,206,351],[180,354,183],[183,199,181],[378,199,354],[183,354,199],[91,109,338],[178,338,109],[76,75,353],[179,353,75],[389,350,110],[109,110,350],[390,391,392],[393,394,395],[224,122,389],[122,175,201],[365,388,205],[205,207,181],[66,340,396],[68,396,340],[184,396,342],[185,342,396],[66,396,67],[184,67,396],[68,69,396],[185,396,69],[219,111,387],[111,160,187],[366,386,191],[191,193,114],[150,272,280],[102,272,150],[151,277,274],[103,151,274],[161,374,117],[116,117,374],[366,61,386],[106,386,61],[111,187,387],[186,387,187],[56,188,374],[190,374,188],[191,386,193],[192,193,386],[331,375,194],[196,194,375],[28,34,375],[65,375,34],[219,387,113],[112,113,387],[224,389,123],[110,123,389],[51,55,379],[76,379,55],[24,197,378],[199,378,197],[122,201,389],[200,389,201],[333,379,202],[204,202,379],[205,388,207],[206,207,388],[365,27,388],[77,388,27],[162,378,121],[120,121,378],[162,30,25],[30,29,25],[51,53,54],[303,60,59],[28,29,33],[29,397,33],[161,58,52],[53,52,58],[21,84,19],[84,344,19],[46,49,43],[49,269,43],[208,316,209],[210,209,316],[327,313,211],[212,211,313],[36,35,369],[210,369,35],[37,158,368],[212,368,158],[6,8,313],[36,313,8],[326,38,316],[37,316,38],[392,391,398],[399,398,391],[394,400,395],[401,395,400],[390,214,391],[214,213,234],[393,395,218],[218,239,216],[402,230,403],[230,215,245],[125,124,131],[404,125,403],[405,406,231],[231,248,217],[129,137,127],[407,406,129],[130,127,139],[402,130,408],[194,195,331],[159,331,195],[115,189,56],[188,56,189],[14,219,220],[113,220,219],[45,50,366],[61,366,50],[221,366,222],[191,222,366],[17,23,219],[111,219,23],[118,198,24],[197,24,198],[202,203,333],[163,333,203],[40,224,225],[123,225,224],[12,13,365],[27,365,13],[22,365,223],[205,223,365],[42,44,224],[122,224,44],[399,391,234],[214,234,391],[401,239,395],[218,395,239],[214,390,226],[226,238,227],[218,228,393],[228,229,243],[401,399,233],[233,235,213],[392,409,390],[410,390,409],[394,393,411],[412,411,393],[402,403,131],[125,131,403],[405,137,406],[129,406,137],[405,408,139],[130,139,408],[230,245,403],[404,403,245],[231,406,248],[407,248,406],[232,254,216],[402,408,232],[413,404,244],[244,246,215],[414,247,407],[247,217,249],[133,126,136],[415,133,413],[141,143,128],[416,414,141],[410,238,390],[226,390,238],[412,393,243],[228,243,393],[233,399,235],[234,235,399],[237,260,236],[238,410,237],[417,260,410],[237,410,260],[239,401,240],[233,240,401],[242,241,257],[243,242,412],[418,412,257],[242,257,412],[401,419,399],[398,399,419],[417,410,420],[409,420,410],[400,421,401],[419,401,421],[418,422,412],[411,412,422],[413,135,404],[125,404,135],[414,407,142],[129,142,407],[130,402,132],[131,132,402],[133,136,413],[135,413,136],[423,147,415],[133,415,147],[137,405,138],[139,138,405],[141,414,143],[142,143,414],[424,416,144],[141,144,416],[405,254,408],[232,408,254],[244,404,246],[245,246,404],[247,249,407],[248,407,249],[232,250,402],[230,402,250],[415,413,251],[244,251,413],[252,236,266],[251,252,415],[423,415,266],[252,266,415],[231,253,405],[254,405,253],[416,255,414],[247,414,255],[256,263,241],[255,416,256],[424,263,416],[256,416,263],[257,258,418],[425,418,258],[260,417,261],[426,261,417],[422,418,427],[427,259,91],[420,428,417],[428,1,262],[147,423,148],[429,148,423],[263,424,264],[264,295,265],[266,267,423],[267,268,297],[144,145,424],[430,424,145],[49,431,269],[166,269,431],[82,431,83],[49,83,431],[84,85,431],[166,431,85],[82,344,431],[84,431,344],[432,278,90],[10,90,278],[433,0,281],[39,281,0],[362,361,434],[435,271,359],[270,359,271],[436,361,275],[273,275,361],[360,437,359],[277,287,276],[151,278,277],[280,279,289],[150,280,281],[436,438,439],[439,285,140],[90,92,432],[440,432,92],[282,272,291],[441,282,442],[284,293,274],[443,438,284],[278,432,286],[286,299,265],[281,288,433],[288,268,301],[0,433,89],[444,89,433],[435,445,442],[445,134,283],[439,446,436],[361,436,446],[442,290,435],[271,435,290],[438,436,292],[275,292,436],[445,435,447],[359,447,435],[286,287,278],[277,278,287],[288,281,289],[280,289,281],[145,152,430],[443,430,152],[148,429,154],[441,154,429],[424,430,294],[294,307,276],[423,296,429],[296,279,305],[425,440,100],[92,100,440],[290,442,291],[282,291,442],[292,293,438],[284,438,293],[298,320,241],[432,440,298],[300,236,322],[433,300,444],[426,101,444],[89,444,101],[107,448,302],[302,79,54],[78,31,343],[107,78,448],[75,79,448],[302,448,79],[78,343,448],[75,448,343],[427,418,259],[425,259,418],[428,262,417],[426,417,262],[437,449,359],[447,359,449],[434,361,450],[446,450,361],[32,33,397],[78,33,32],[53,303,54],[302,54,303],[152,153,443],[438,443,153],[429,304,441],[282,441,304],[430,443,306],[284,306,443],[154,441,155],[442,155,441],[298,299,432],[286,432,299],[300,433,301],[288,301,433],[185,451,308],[308,74,7],[73,15,337],[185,73,451],[35,74,451],[308,451,74],[73,337,451],[35,451,337],[158,452,310],[310,72,42],[70,22,341],[158,70,452],[66,72,452],[310,452,72],[70,341,452],[66,452,341],[313,327,314],[315,314,327],[316,317,326],[318,326,317],[15,156,311],[356,311,156],[7,312,157],[358,157,312],[211,9,327],[364,327,9],[38,326,94],[363,94,326],[294,295,424],[264,424,295],[296,423,297],[267,297,423],[262,149,426],[101,426,149],[258,319,425],[440,425,319],[261,426,321],[444,321,426],[259,425,146],[100,146,425],[306,307,430],[294,430,307],[304,429,305],[296,305,429],[319,320,440],[298,440,320],[321,444,322],[300,322,444],[445,283,442],[155,442,283],[439,438,285],[153,285,438],[17,68,18],[21,18,68],[46,184,47],[221,47,184],[102,95,363],[94,363,95],[9,11,364],[103,364,11],[6,323,357],[370,357,323],[371,324,355],[208,355,324],[270,363,325],[326,325,363],[327,364,328],[273,328,364],[0,2,39],[12,39,2],[90,93,91],[40,91,93],[14,16,17],[73,17,16],[45,309,7],[308,7,309],[12,71,39],[70,39,71],[40,41,42],[310,42,41],[97,98,63],[14,63,98],[3,5,7],[45,7,5],[118,377,329],[330,329,377],[331,372,332],[86,332,372],[333,376,334],[335,334,376],[115,373,336],[169,336,373],[167,166,380],[330,380,166],[80,81,382],[335,382,81],[86,385,81],[168,81,385],[169,384,82],[87,82,384],[159,88,372],[87,372,88],[163,164,376],[167,376,164],[24,26,377],[80,377,26],[56,57,373],[168,373,57],[32,397,30],[29,30,397],[58,60,53],[303,53,60],[205,181,119],[118,119,181],[163,175,165],[122,165,175],[453,454,455],[454,456,455],[457,455,456],[458,455,457],[459,455,458],[460,455,459],[461,462,463],[464,465,466],[467,468,469],[470,471,472],[465,473,474],[475,476,477],[478,479,480],[481,482,478],[483,484,481],[485,486,483],[487,488,485],[489,490,487],[491,492,489],[493,494,491],[495,496,493],[497,498,495],[499,500,497],[501,502,499],[503,504,501],[505,504,503],[506,504,505],[507,504,506],[508,504,507],[509,504,508],[510,504,509],[511,504,510],[512,504,511],[513,504,512],[514,504,513],[476,515,516],[517,518,519],[520,517,521],[518,522,523],[522,480,479],[524,525,526],[468,470,527],[525,467,528],[529,475,530],[531,532,533],[534,531,535],[536,537,538],[473,539,540],[539,536,541],[537,534,542],[471,520,543],[532,529,544],[545,524,546],[453,461,547],[463,464,548],[523,549,504],[527,550,551],[519,552,553],[521,554,555],[466,556,557],[469,558,559],[528,560,561],[477,562,563],[543,564,565],[535,566,567],[530,568,569],[540,570,571],[474,572,573],[542,574,575],[538,576,577],[541,578,579],[472,580,581],[526,582,583],[533,584,585],[544,586,587],[516,545,588],[588,589,590],[455,460,4],[591,592,63],[462,455,4],[592,547,63],[547,548,63],[465,462,4],[548,557,63],[127,124,501],[127,501,499],[505,503,124],[124,126,507],[124,507,506],[509,508,126],[126,134,512],[126,512,511],[510,509,126],[128,127,493],[128,493,491],[497,495,127],[489,487,128],[140,128,483],[140,483,481],[487,485,128],[478,480,140],[480,522,140],[514,513,134],[504,514,134],[551,581,437],[471,470,434],[445,447,555],[445,555,553],[134,445,553],[134,553,504],[446,439,518],[446,518,517],[439,140,522],[439,522,518],[515,476,358],[563,588,356],[557,573,63],[473,465,4],[437,360,559],[437,559,551],[360,371,561],[360,561,559],[362,434,470],[362,470,468],[370,362,468],[370,468,467],[499,497,127],[506,505,124],[495,493,127],[513,512,134],[481,478,140],[447,449,565],[447,565,555],[450,446,517],[450,517,520],[356,156,569],[356,569,563],[157,358,476],[157,476,475],[357,370,467],[357,467,525],[371,355,583],[371,583,561],[460,459,4],[63,62,593],[63,593,591],[62,4,459],[62,459,458],[532,531,104],[531,534,104],[567,585,105],[575,567,105],[4,3,539],[4,539,473],[536,539,3],[97,63,573],[97,573,571],[571,579,97],[99,97,579],[99,579,577],[105,99,577],[105,577,575],[96,104,534],[96,534,537],[3,96,537],[3,537,536],[503,501,124],[508,507,126],[491,489,128],[511,510,126],[485,483,128],[434,450,520],[434,520,471],[449,437,581],[449,581,565],[156,105,585],[156,585,587],[587,569,156],[104,157,529],[104,529,532],[475,529,157],[590,583,355],[355,356,588],[355,588,590],[358,357,524],[358,524,515],[525,524,357],[458,457,62],[457,593,62],[479,478,482],[479,504,549],[479,482,504],[482,481,484],[472,551,550],[581,551,472],[482,484,504],[484,483,486],[523,553,552],[504,553,523],[540,573,572],[571,573,540],[544,585,584],[587,585,544],[542,577,576],[575,577,542],[526,590,589],[583,590,526],[535,575,574],[567,575,535],[533,567,566],[585,567,533],[538,579,578],[577,579,538],[543,581,580],[565,581,543],[477,569,568],[563,569,477],[530,587,586],[569,587,530],[541,571,570],[579,571,541],[528,583,582],[561,583,528],[591,453,592],[547,592,453],[521,565,564],[555,565,521],[474,557,556],[573,557,474],[516,563,562],[588,563,516],[519,555,554],[553,555,519],[527,559,558],[551,559,527],[469,561,560],[559,561,469],[462,461,455],[453,455,461],[461,463,547],[548,547,463],[465,464,462],[463,462,464],[464,466,548],[557,548,466],[469,560,467],[528,467,560],[472,550,470],[527,470,550],[474,556,465],[466,465,556],[477,568,475],[530,475,568],[516,562,476],[477,476,562],[519,554,517],[521,517,554],[521,564,520],[543,520,564],[523,552,518],[519,518,552],[479,549,522],[523,522,549],[526,589,524],[589,546,524],[527,558,468],[469,468,558],[528,582,525],[526,525,582],[530,586,529],[544,529,586],[533,566,531],[535,531,566],[535,574,534],[542,534,574],[538,578,536],[541,536,578],[540,572,473],[474,473,572],[541,570,539],[540,539,570],[542,576,537],[538,537,576],[543,580,471],[472,471,580],[544,584,532],[533,532,584],[524,545,515],[516,515,545],[545,546,588],[589,588,546],[453,591,454],[593,454,591],[484,486,504],[486,485,488],[486,488,504],[488,487,490],[488,490,504],[490,489,492],[490,492,504],[492,491,494],[492,494,504],[494,493,496],[494,496,504],[496,495,498],[496,498,504],[498,497,500],[498,500,504],[500,499,502],[500,502,504],[501,504,502],[454,593,456],[457,456,593],[594,595,596],[597,598,594],[599,597,594],[600,599,594],[601,600,594],[602,601,594],[603,602,594],[604,603,594],[605,604,594],[606,607,608],[609,606,608],[610,609,608],[611,610,608],[612,611,608],[613,612,608],[614,613,608],[615,614,608],[616,615,608],[617,616,608],[618,617,608],[619,618,608],[620,619,608],[596,608,607],[595,594,598],[608,596,595],[605,594,91],[91,338,602],[91,602,603],[598,597,1],[594,596,91],[608,595,1],[595,598,1],[616,617,392],[610,611,394],[419,421,613],[419,613,614],[422,427,607],[422,607,606],[427,91,596],[427,596,607],[428,420,619],[428,619,620],[1,428,620],[1,620,608],[420,409,618],[420,618,619],[411,422,606],[411,606,609],[398,419,614],[398,614,615],[421,400,612],[421,612,613],[409,392,617],[409,617,618],[394,411,609],[394,609,610],[604,605,91],[338,1,599],[338,599,600],[392,398,615],[392,615,616],[400,394,611],[400,611,612],[603,604,91],[601,602,338],[597,599,1],[600,601,338] ]; } elsif ($name eq 'gt2_teeth') { $vertices = [ [15.8899993896484,19.444055557251,2.67489433288574],[15.9129991531372,19.1590557098389,2.67489433288574],[15.9039993286133,19.1500549316406,2.67489433288574],[15.9489994049072,19.2490558624268,2.67489433288574],[15.9579992294312,19.3570556640625,2.67489433288574],[15.8819999694824,18.690055847168,2.67489433288574],[15.8319997787476,17.7460556030273,2.67489433288574],[15.8489999771118,18.819055557251,2.67489433288574],[15.8589992523193,17.7190551757812,2.67489433288574],[15.8769998550415,19.0490550994873,2.67489433288574],[15.7529993057251,17.8080558776855,2.67489433288574],[15.7869997024536,19.5010547637939,2.67489433288574],[14.0329990386963,18.7170543670654,2.67489433288574],[13.9599990844727,18.7460556030273,2.67489433288574],[13.9869995117188,20.2840557098389,2.67489433288574],[14.2029991149902,20.149055480957,2.67489433288574],[14.1939992904663,19.9560546875,2.67489433288574],[14.1939992904663,20.1670551300049,2.67489433288574],[14.2119998931885,20.0590553283691,2.67489433288574],[12.1899995803833,19.1840553283691,2.67489433288574],[12.096999168396,19.1950550079346,2.67489433288574],[12.1099996566772,20.6690559387207,2.67489433288574],[11.382999420166,19.9750556945801,2.67489433288574],[11.2599992752075,19.2490558624268,2.67489433288574],[11.2369995117188,19.9320545196533,2.67489433288574],[11.5349998474121,20.0640544891357,2.67489433288574],[11.6259994506836,20.1550559997559,2.67489433288574],[11.6829986572266,20.2390556335449,2.67489433288574],[11.7369995117188,20.3570556640625,2.67489433288574],[11.8449993133545,20.645055770874,2.67489433288574],[11.7729988098145,20.4640560150146,2.67489433288574],[11.7799987792969,20.5370559692383,9.41389465332031],[11.7639999389648,20.4470558166504,2.67489433288574],[11.9559993743896,20.6810550689697,2.67489433288574],[12.3079996109009,20.6020545959473,2.67489433288574],[12.1959991455078,19.1860542297363,2.67489433288574],[12.2059993743896,20.6540546417236,2.67489433288574],[12.3489990234375,20.3740558624268,2.67489433288574],[12.3579998016357,20.2750549316406,2.67489433288574],[12.3669996261597,20.266056060791,2.67489433288574],[12.3849992752075,20.1670551300049,2.67489433288574],[12.4269990921021,20.0680541992188,2.67489433288574],[12.5029993057251,19.9540557861328,2.67489433288574],[12.6169996261597,19.8550548553467,2.67489433288574],[12.7449989318848,19.7800559997559,2.67489433288574],[12.7629995346069,19.7800559997559,2.67489433288574],[12.8799991607666,19.7350559234619,2.67489433288574],[13.0369997024536,19.7250556945801,2.67489433288574],[13.0149993896484,19.0340557098389,2.67489433288574],[11.1699991226196,19.2580547332764,2.67489433288574],[11.0959987640381,19.2580547332764,2.67489433288574],[11.1209993362427,19.9230556488037,2.67489433288574],[13.0599994659424,19.024055480957,2.67489433288574],[14.9049997329712,18.3170547485352,2.67489433288574],[14.8779993057251,18.3400554656982,2.67489433288574],[14.8779993057251,19.149055480957,2.67489433288574],[13.3039989471436,19.77805519104,2.67489433288574],[13.1589994430542,18.9890556335449,2.67489433288574],[13.1559991836548,19.7350559234619,2.67489433288574],[13.4269990921021,19.8600559234619,2.67489433288574],[13.5339994430542,19.9700546264648,2.67389440536499],[13.6359996795654,20.1220550537109,2.67489433288574],[13.6359996795654,20.1400547027588,2.67489433288574],[13.6719989776611,20.2210559844971,2.67489433288574],[13.6899995803833,20.2300548553467,2.67489433288574],[13.7509994506836,20.3010559082031,2.67489433288574],[13.8539991378784,20.3180541992188,2.67489433288574],[14.8329992294312,18.3580551147461,2.67489433288574],[14.1849994659424,19.8530559539795,2.67489433288574],[14.0769996643066,18.7000541687012,2.67489433288574],[14.1099996566772,20.2400550842285,2.67489433288574],[14.2009992599487,19.6230545043945,2.67489433288574],[14.2729997634888,19.4670543670654,2.67489433288574],[14.3379993438721,19.3790550231934,2.67489433288574],[14.4549999237061,19.2770557403564,2.67489433288574],[14.5899991989136,19.2040557861328,2.67489433288574],[14.6079998016357,19.2040557861328,2.67489433288574],[14.7209997177124,19.1600551605225,2.67489433288574],[15.1379995346069,19.210054397583,2.67489433288574],[14.9949998855591,18.2680549621582,2.67489433288574],[15.0029993057251,19.1580543518066,2.67489433288574],[15.2369995117188,19.2760543823242,2.67489433288574],[15.3779993057251,19.4060554504395,2.67489433288574],[15.4539995193481,19.520055770874,2.67489433288574],[15.471999168396,19.52805519104,2.67489433288574],[15.5449991226196,19.5830554962158,2.67489433288574],[15.6529998779297,19.573055267334,2.67489433288574],[15.7059993743896,17.8360557556152,2.67489433288574],[15.9449996948242,18.5560550689697,2.67489433288574],[15.8589992523193,18.9380550384521,2.67489433288574],[14.9589996337891,18.2950553894043,2.67489433288574],[15.7779998779297,19.5100555419922,2.67489433288574],[14.0049991607666,20.2750549316406,2.67489433288574],[12.3489990234375,20.5000553131104,2.67489433288574],[13.0689992904663,19.0150547027588,2.67489433288574],[13.0999994277954,19.0100555419922,2.67489433288574],[15.9489994049072,19.3670558929443,9.41489505767822],[15.9489994049072,19.2490558624268,9.41489505767822],[15.75,17.8080558776855,9.41489505767822],[15.6639995574951,19.5710544586182,9.41489505767822],[15.5709991455078,17.9260559082031,9.41489505767822],[15.8769998550415,18.690055847168,9.41489505767822],[15.8499994277954,18.8170547485352,9.41489505767822],[15.9459991455078,18.5520553588867,9.41489505767822],[15.914999961853,17.6890544891357,9.41489505767822],[15.3999996185303,19.4290542602539,9.41489505767822],[15.3099994659424,19.339054107666,9.41489505767822],[15.3729991912842,18.0440559387207,9.41489505767822],[15.4579992294312,19.5170555114746,9.41489505767822],[15.5469999313354,19.5820541381836,9.41489505767822],[13.2309989929199,19.7610549926758,9.41489505767822],[13.168999671936,19.7360553741455,9.41489505767822],[13.096999168396,19.0140552520752,9.41489505767822],[13.1999988555908,18.9870548248291,9.41489505767822],[15.1399993896484,19.2080554962158,9.41489505767822],[15.0159997940063,19.1600551605225,9.41489505767822],[14.9859991073608,18.2770557403564,9.41489505767822],[15.1749992370605,18.1690559387207,9.41489505767822],[15.9039993286133,19.1320552825928,9.41489505767822],[15.8949995040894,19.4460544586182,9.41489505767822],[15.8769998550415,19.0420551300049,9.41489505767822],[12.2169990539551,20.6500549316406,9.41489505767822],[11.9379997253418,20.6810550689697,9.41489505767822],[11.8629989624023,19.2130546569824,9.41489505767822],[12.096999168396,19.1950550079346,9.41489505767822],[14.1669998168945,18.6640548706055,9.41489505767822],[14.1039991378784,20.2460556030273,9.41489505767822],[13.9849996566772,18.7360553741455,9.41489505767822],[14.7349996566772,19.1590557098389,9.41489505767822],[14.5849990844727,19.2050552368164,9.41489505767822],[14.5719995498657,18.4850559234619,9.41489505767822],[14.1939992904663,19.6760559082031,9.41489505767822],[14.1849994659424,19.9330558776855,9.41489505767822],[14.1759996414185,18.6640548706055,9.41489505767822],[14.261999130249,19.4890556335449,9.41489505767822],[14.3539991378784,19.3610553741455,9.41489505767822],[14.3559989929199,18.5830554962158,9.41489505767822],[11.6039991378784,20.1250553131104,9.41489505767822],[11.5209999084473,20.0520553588867,9.41489505767822],[11.4209995269775,19.2480545043945,9.41489505767822],[11.6989994049072,20.2690544128418,9.41389465332031],[11.7609996795654,20.4310550689697,9.41489505767822],[11.8359994888306,19.2130546569824,9.41489505767822],[14.1889991760254,20.1710548400879,9.41489505767822],[13.9689998626709,20.2840557098389,9.41489505767822],[13.8739995956421,20.315055847168,9.41489505767822],[13.7799997329712,18.8080558776855,9.41489505767822],[13.9869995117188,20.2750549316406,9.41489505767822],[12.3129997253418,20.5980548858643,9.41489505767822],[12.3399991989136,20.5090560913086,9.41489505767822],[12.3489990234375,20.3830547332764,9.41489505767822],[12.3599996566772,20.2680549621582,9.41489505767822],[12.3849992752075,20.1850547790527,9.41489505767822],[12.3849992752075,20.1670551300049,9.41489505767822],[12.4249992370605,20.065055847168,9.41489505767822],[12.4729995727539,19.1350555419922,9.41489505767822],[14.4399995803833,19.2900543212891,9.41489505767822],[14.3649997711182,18.5740547180176,9.41489505767822],[13.5729999542236,20.0310554504395,9.41489505767822],[13.4889993667603,19.9140548706055,9.41489505767822],[13.5639991760254,18.8710556030273,9.41489505767822],[13.6389999389648,20.1310558319092,9.41489505767822],[13.6719989776611,20.2130546569824,9.41489505767822],[13.75,20.3020553588867,9.41489505767822],[12.7399997711182,19.7810554504395,9.41489505767822],[12.6189994812012,19.8520545959473,9.41489505767822],[12.5799999237061,19.1200542449951,9.41489505767822],[12.8349990844727,19.069055557251,9.41489505767822],[11.2669992446899,19.9350547790527,9.41489505767822],[11.1029987335205,19.9230556488037,9.41489505767822],[11.0209999084473,19.2600555419922,9.41489505767822],[11.3819999694824,19.9710559844971,9.41489505767822],[13.418999671936,19.8530559539795,9.41489505767822],[13.4329996109009,18.9160556793213,9.41489505767822],[11.8399991989136,20.6430549621582,9.41489505767822],[13.3119993209839,19.7800559997559,9.41489505767822],[15.2189998626709,19.2600555419922,9.41489505767822],[15.1839990615845,18.1600551605225,9.41489505767822],[15.3639993667603,18.0520553588867,9.41489505767822],[13.0189990997314,19.7250556945801,9.41489505767822],[12.8949995040894,19.7350559234619,9.41489505767822],[15.9039993286133,19.1500549316406,9.41489505767822],[15.7699995040894,19.5140552520752,9.41489505767822],[15.8589992523193,18.9340553283691,9.41489505767822],[14.1939992904663,19.9510555267334,9.41489505767822],[14.2119998931885,20.0630550384521,9.41489505767822],[14.8589992523193,19.149055480957,9.41489505767822],[14.8159999847412,18.3670558929443,9.41489505767822],[14.8959999084473,18.3220558166504,9.41489505767822],[12.5189990997314,19.9360542297363,9.41489505767822],[11.0209999084473,19.9290542602539,9.41489505767822],[11.0209999084473,19.2530555725098,2.67489433288574],[11.0209999084473,19.9300556182861,2.67489433288574],[15.9799995422363,18.505931854248,5.58724021911621],[15.9799995422363,18.5044555664062,9.41489505767822],[15.9799995422363,18.5041732788086,2.67489433288574],[15.9799995422363,18.1684837341309,2.67489433288574],[15.9799995422363,18.1288299560547,9.41489505767822],[15.9799995422363,17.9876575469971,2.67489433288574],[15.9799995422363,17.6247596740723,3.91620373725891],[15.9799995422363,17.6247596740723,2.67489433288574],[15.9799995422363,17.6254329681396,4.32245063781738],[15.9799995422363,17.8920269012451,9.41489505767822],[15.9799995422363,17.8795108795166,2.67489433288574],[15.9799995422363,17.629810333252,4.58585262298584],[15.9799995422363,17.6336059570312,5.27938556671143],[15.9799995422363,17.8311748504639,2.67489433288574],[15.9799995422363,17.638355255127,9.41489505767822],[15.9799995422363,17.6346111297607,5.98653984069824],[15.9799995422363,17.8728256225586,2.67489433288574],[15.9799995422363,18.2221603393555,2.67489433288574] ]; $facets = [ [0,1,2],[0,3,1],[0,4,3],[5,6,7],[8,6,5],[2,9,0],[6,10,11],[12,13,14],[15,16,17],[18,16,15],[19,20,21],[22,23,24],[25,23,22],[26,23,25],[27,23,26],[28,23,27],[29,30,31],[29,32,30],[29,28,32],[33,28,29],[33,23,28],[21,23,33],[20,23,21],[34,35,36],[37,35,34],[38,35,37],[39,35,38],[40,35,39],[41,35,40],[42,35,41],[43,35,42],[44,35,43],[45,35,44],[46,35,45],[47,35,46],[48,35,47],[49,50,51],[52,48,47],[23,49,24],[53,54,55],[56,57,58],[59,57,56],[60,57,59],[61,57,60],[62,57,61],[63,57,62],[64,57,63],[65,57,64],[66,57,65],[13,57,66],[54,67,55],[68,69,70],[71,69,68],[72,69,71],[73,69,72],[74,69,73],[75,69,74],[76,69,75],[77,69,76],[67,69,77],[70,16,68],[70,17,16],[78,79,80],[81,79,78],[82,79,81],[83,79,82],[84,79,83],[85,79,84],[86,79,85],[87,79,86],[88,8,5],[11,7,6],[11,89,7],[11,9,89],[11,0,9],[55,90,53],[55,79,90],[55,80,79],[91,11,10],[92,69,12],[92,70,69],[34,93,37],[47,94,52],[47,95,94],[47,57,95],[47,58,57],[51,24,49],[21,35,19],[21,36,35],[14,92,12],[86,10,87],[86,91,10],[77,55,67],[66,14,13],[96,97,4],[98,99,100],[101,102,98],[103,101,98],[104,103,98],[105,106,107],[108,105,107],[109,108,107],[100,109,107],[110,111,112],[113,110,112],[114,115,116],[117,114,116],[118,119,120],[121,122,123],[124,121,123],[125,126,127],[128,129,130],[131,132,133],[71,131,133],[134,71,133],[135,134,133],[136,135,133],[137,138,139],[140,137,139],[141,140,139],[142,31,141],[142,141,139],[143,126,132],[144,145,146],[147,144,146],[127,147,146],[148,121,124],[149,148,124],[150,149,124],[151,150,124],[152,151,124],[153,152,124],[154,153,124],[155,154,124],[129,156,157],[130,129,157],[158,159,160],[161,158,160],[162,161,160],[163,162,160],[146,163,160],[164,165,166],[167,164,166],[168,169,170],[171,168,170],[139,171,170],[159,172,173],[123,174,142],[175,110,113],[173,175,113],[106,176,177],[178,106,177],[179,180,167],[112,179,167],[175,173,172],[119,118,181],[119,181,97],[119,97,96],[182,98,102],[182,102,183],[182,183,120],[182,120,119],[143,132,184],[184,185,143],[147,127,126],[174,123,122],[159,173,160],[126,125,133],[126,133,132],[186,187,188],[186,188,116],[186,116,115],[99,98,182],[109,100,99],[106,178,107],[114,117,177],[114,177,176],[128,130,187],[128,187,186],[135,136,157],[135,157,156],[163,146,145],[164,167,180],[179,112,111],[171,139,138],[189,155,166],[189,166,165],[149,150,93],[154,155,189],[31,142,174],[114,176,78],[81,78,176],[7,89,183],[89,9,120],[89,120,183],[78,80,114],[176,106,81],[88,5,103],[183,102,7],[118,120,9],[9,2,181],[9,181,118],[115,114,80],[82,81,106],[101,103,5],[102,101,5],[5,7,102],[97,181,2],[2,1,97],[1,3,97],[80,55,115],[172,159,59],[59,56,172],[3,4,97],[4,0,96],[105,108,82],[186,115,55],[82,106,105],[83,82,108],[60,59,159],[175,172,56],[119,96,0],[0,11,119],[108,109,84],[84,83,108],[55,77,186],[56,58,110],[56,110,175],[60,159,158],[11,91,182],[182,119,11],[91,86,182],[85,84,109],[86,85,99],[128,186,77],[58,111,110],[158,161,60],[26,25,137],[138,137,25],[99,182,86],[109,99,85],[77,76,128],[58,47,111],[61,60,161],[137,140,26],[27,26,140],[25,22,138],[129,128,76],[76,75,129],[75,74,129],[74,73,156],[73,72,135],[68,16,184],[68,184,132],[16,18,185],[161,162,62],[62,61,161],[179,111,47],[171,138,22],[156,129,74],[135,156,73],[134,135,72],[72,71,134],[68,132,131],[185,184,16],[18,15,185],[63,62,162],[28,27,140],[22,24,171],[71,68,131],[15,17,143],[15,143,185],[17,70,143],[70,92,126],[162,163,64],[64,63,162],[180,179,47],[47,46,180],[140,141,28],[168,171,24],[126,143,70],[92,14,147],[147,126,92],[14,66,144],[14,144,147],[65,64,163],[66,65,145],[46,45,180],[32,28,141],[24,51,168],[145,144,66],[163,145,65],[164,180,45],[45,44,164],[44,43,164],[43,42,165],[38,37,151],[150,151,37],[37,93,150],[141,31,30],[30,32,141],[169,168,51],[165,164,43],[189,165,42],[42,41,189],[40,39,152],[40,152,153],[151,152,39],[39,38,151],[93,34,149],[154,189,41],[153,154,41],[41,40,153],[148,149,34],[34,36,148],[36,21,121],[31,174,29],[121,148,36],[21,33,122],[21,122,121],[33,29,122],[174,122,29],[116,188,53],[104,98,10],[87,10,98],[98,100,87],[79,87,100],[79,100,107],[90,79,107],[90,107,178],[178,177,90],[53,90,177],[53,177,117],[117,116,53],[54,53,188],[54,188,187],[67,54,187],[67,187,130],[69,67,130],[69,130,157],[12,69,157],[12,157,136],[136,133,12],[12,133,125],[125,127,12],[13,12,127],[127,146,13],[57,13,146],[57,146,160],[95,57,160],[95,160,173],[173,113,95],[94,95,113],[113,112,94],[52,94,112],[48,52,112],[112,167,48],[35,48,167],[35,167,166],[19,35,166],[139,170,50],[50,49,139],[166,155,19],[20,19,155],[155,124,20],[23,20,124],[23,124,123],[49,23,123],[49,123,142],[142,139,49],[190,191,170],[192,191,190],[191,192,51],[191,51,50],[170,169,190],[169,51,192],[169,192,190],[170,191,50],[193,194,195],[196,197,198],[199,200,201],[198,202,203],[204,201,200],[205,204,200],[206,207,208],[206,208,205],[206,205,200],[207,206,209],[207,209,203],[207,203,202],[202,198,197],[197,196,210],[197,210,195],[197,195,194],[8,88,195],[8,195,210],[210,196,8],[196,198,8],[198,203,8],[203,209,8],[209,206,8],[206,200,8],[202,197,104],[207,202,104],[103,104,197],[103,197,194],[193,195,88],[88,103,194],[88,194,193],[200,199,8],[199,201,8],[204,205,6],[6,8,201],[6,201,204],[10,6,205],[10,205,208],[104,10,208],[104,208,207] ]; } elsif ($name eq 'pyramid') { $vertices = [ [10,10,40],[0,0,0],[20,0,0],[20,20,0],[0,20,0], ]; $facets = [ [0,1,2],[0,3,4],[3,1,4],[1,3,2],[3,0,2],[4,1,0], ]; } elsif ($name eq 'two_hollow_squares') { $vertices = [ [66.7133483886719,104.286666870117,0],[66.7133483886719,95.7133331298828,0],[65.6666870117188,94.6666717529297,0],[75.2866821289062,95.7133331298828,0],[76.3333435058594,105.333335876465,0],[76.3333435058594,94.6666717529297,0],[65.6666870117188,105.33332824707,0],[75.2866821289062,104.286666870117,0],[71.1066818237305,104.58666229248,2.79999995231628],[66.4133529663086,104.58666229248,2.79999995231628],[75.5866851806641,104.58666229248,2.79999995231628],[66.4133529663086,99.8933334350586,2.79999995231628],[66.4133529663086,95.4133377075195,2.79999995231628],[71.1066818237305,95.4133377075195,2.79999995231628],[75.5866851806641,95.4133377075195,2.79999995231628],[75.5866851806641,100.106666564941,2.79999995231628],[74.5400161743164,103.540000915527,2.79999995231628],[70.0320129394531,103.540000915527,2.79999995231628],[67.4600067138672,103.540000915527,2.79999995231628],[67.4600067138672,100.968002319336,2.79999995231628],[67.4600067138672,96.4599990844727,2.79999995231628],[74.5400161743164,99.0319976806641,2.79999995231628],[74.5400161743164,96.4599990844727,2.79999995231628],[70.0320129394531,96.4599990844727,2.79999995231628],[123.666717529297,94.6666717529297,0],[134.333312988281,94.6666717529297,0],[124.413360595703,95.4133377075195,2.79999995231628],[129.106674194336,95.4133377075195,2.79999995231628],[133.586669921875,95.4133377075195,2.79999995231628],[123.666717529297,105.33332824707,0],[124.413360595703,104.58666229248,2.79999995231628],[124.413360595703,99.8933334350586,2.79999995231628],[134.333312988281,105.33332824707,0],[129.106674194336,104.58666229248,2.79999995231628],[133.586669921875,104.58666229248,2.79999995231628],[133.586669921875,100.106666564941,2.79999995231628],[124.713317871094,104.286666870117,0],[124.713317871094,95.7133331298828,0],[133.286712646484,95.7133331298828,0],[133.286712646484,104.286666870117,0],[132.540023803711,103.540000915527,2.79999995231628],[128.032028198242,103.540008544922,2.79999995231628],[125.460006713867,103.540000915527,2.79999995231628],[125.460006713867,100.968002319336,2.79999995231628],[125.460006713867,96.4599990844727,2.79999995231628],[132.540023803711,99.0319976806641,2.79999995231628],[132.540023803711,96.4599990844727,2.79999995231628],[128.032028198242,96.4599990844727,2.79999995231628], ]; $facets = [ [0,1,2],[3,4,5],[6,4,0],[6,0,2],[2,1,5],[7,4,3],[1,3,5],[0,4,7],[4,6,8],[6,9,8],[4,8,10],[6,2,9],[2,11,9],[2,12,11],[2,5,12],[5,13,12],[5,14,13],[4,10,15],[5,4,14],[4,15,14],[7,16,17],[0,7,18],[7,17,18],[1,19,20],[1,0,19],[0,18,19],[7,3,21],[3,22,21],[7,21,16],[3,23,22],[3,1,23],[1,20,23],[24,25,26],[25,27,26],[25,28,27],[29,24,30],[24,31,30],[24,26,31],[32,29,33],[29,30,33],[32,33,34],[32,34,35],[25,32,28],[32,35,28],[36,37,24],[38,32,25],[29,32,36],[29,36,24],[24,37,25],[39,32,38],[37,38,25],[36,32,39],[39,40,41],[36,39,42],[39,41,42],[37,43,44],[37,36,43],[36,42,43],[39,38,45],[38,46,45],[39,45,40],[38,47,46],[38,37,47],[37,44,47],[16,8,9],[16,10,8],[10,16,15],[15,16,21],[22,15,21],[15,22,14],[22,23,14],[23,20,14],[17,16,9],[18,17,9],[19,18,9],[19,9,11],[19,11,20],[13,14,20],[20,11,12],[13,20,12],[41,40,30],[42,41,30],[43,42,30],[43,30,31],[43,31,44],[27,28,44],[44,31,26],[27,44,26],[40,33,30],[40,34,33],[34,40,35],[35,40,45],[46,35,45],[35,46,28],[46,47,28],[47,44,28], ]; } elsif ($name eq 'small_dorito') { $vertices = [ [6.00058937072754,-22.9982089996338,0],[22.0010242462158,-49.9998741149902,0],[-9.99957847595215,-49.999870300293,0],[6.00071382522583,-32.2371635437012,28.0019245147705],[11.1670551300049,-37.9727020263672,18.9601669311523],[6.00060224533081,-26.5392456054688,10.7321853637695] ]; $facets = [ [0,1,2],[3,4,5],[2,1,4],[2,4,3],[2,3,5],[2,5,0],[5,4,1],[5,1,0] ]; } elsif ($name eq 'bridge') { $vertices = [ [75,84.5,8],[125,84.5,8],[75,94.5,8],[120,84.5,5],[125,94.5,8],[75,84.5,0],[80,84.5,5],[125,84.5,0],[125,94.5,0],[80,94.5,5],[75,94.5,0],[120,94.5,5],[120,84.5,0],[80,94.5,0],[80,84.5,0],[120,94.5,0] ]; $facets = [ [0,1,2],[1,0,3],[2,1,4],[2,5,0],[0,6,3],[1,3,7],[1,8,4],[4,9,2],[10,5,2],[5,6,0],[6,11,3],[3,12,7],[7,8,1],[4,8,11],[4,11,9],[9,10,2],[10,13,5],[14,6,5],[9,11,6],[11,12,3],[12,8,7],[11,8,15],[13,10,9],[5,13,14],[14,13,6],[6,13,9],[15,12,11],[15,8,12] ]; } else { return undef; } my $mesh = Slic3r::TriangleMesh->new; $mesh->ReadFromPerl($vertices, $facets); $mesh->repair; $mesh->scale_xyz(Slic3r::Pointf3->new(@{$params{scale_xyz}})) if $params{scale_xyz}; $mesh->translate(@{$params{translate}}) if $params{translate}; return $mesh; } sub model { my ($model_name, %params) = @_; my $input_file = "${model_name}.stl"; my $mesh = mesh($model_name, %params); # $mesh->write_ascii("out/$input_file"); my $model = Slic3r::Model->new; my $object = $model->add_object(input_file => $input_file); $model->set_material($model_name); $object->add_volume(mesh => $mesh, material_id => $model_name); $object->add_instance( offset => Slic3r::Pointf->new(0,0), rotation => $params{rotation} // 0, scaling_factor => $params{scale} // 1, ); return $model; } sub init_print { my ($models, %params) = @_; my $config = Slic3r::Config->new; $config->apply($params{config}) if $params{config}; $config->set('gcode_comments', 1) if $ENV{SLIC3R_TESTS_GCODE}; my $print = Slic3r::Print->new; $print->apply_config($config); $models = [$models] if ref($models) ne 'ARRAY'; $models = [ map { ref($_) ? $_ : model($_, %params) } @$models ]; for my $model (@$models) { die "Unknown model in test" if !defined $model; if (defined $params{duplicate} && $params{duplicate} > 1) { $model->duplicate($params{duplicate} // 1, $print->config->min_object_distance); } $model->arrange_objects($print->config->min_object_distance); $model->center_instances_around_point($params{print_center} ? Slic3r::Pointf->new(@{$params{print_center}}) : Slic3r::Pointf->new(100,100)); foreach my $model_object (@{$model->objects}) { $print->auto_assign_extruders($model_object); $print->add_model_object($model_object); } } # Call apply_config one more time, so that the layer height profiles are updated over all PrintObjects. $print->apply_config($config); $print->validate; # We return a proxy object in order to keep $models alive as required by the Print API. return Slic3r::Test::Print->new( print => $print, models => $models, ); } sub gcode { my ($print) = @_; $print = $print->print if $print->isa('Slic3r::Test::Print'); # Write the resulting G-code into a temporary file. my $gcode_temp_path = abs_path($0) . '.gcode.temp'; # Remove the existing temp file. unlink $gcode_temp_path; $print->process; $print->export_gcode(output_file => $gcode_temp_path, quiet => 1); # Read the temoprary G-code file. my $gcode; { local $/; open my $fh, '<', $gcode_temp_path or die "Test.pm: can't open $gcode_temp_path: $!"; $gcode = <$fh>; } # Remove the temp file. unlink $gcode_temp_path; return $gcode; } sub _eq { my ($a, $b) = @_; return abs($a - $b) < epsilon; } sub add_facet { my ($facet, $vertices, $facets) = @_; push @$facets, []; for my $i (0..2) { my $v = first { $vertices->[$_][X] == $facet->[$i][X] && $vertices->[$_][Y] == $facet->[$i][Y] && $vertices->[$_][Z] == $facet->[$i][Z] } 0..$#$vertices; if (!defined $v) { push @$vertices, [ @{$facet->[$i]}[X,Y,Z] ]; $v = $#$vertices; } $facets->[-1][$i] = $v; } } package Slic3r::Test::Print; use Moo; has 'print' => (is => 'ro', required => 1, handles => [qw(process apply_config)]); has 'models' => (is => 'ro', required => 1); 1; Slic3r-version_1.39.1/lib/Slic3r/Test/ 0000775 0000000 0000000 00000000000 13243544447 0017347 5 ustar 00root root 0000000 0000000 Slic3r-version_1.39.1/lib/Slic3r/Test/SectionCut.pm 0000664 0000000 0000000 00000016372 13243544447 0021776 0 ustar 00root root 0000000 0000000 # 2D cut in the XZ plane through the toolpaths. # For debugging purposes. package Slic3r::Test::SectionCut; use Moo; use List::Util qw(first min max); use Slic3r::Geometry qw(unscale); use Slic3r::Geometry::Clipper qw(intersection_pl); use SVG; use Slic3r::SVG; has 'print' => (is => 'ro', required => 1); has 'scale' => (is => 'ro', default => sub { 30 }); has 'y_percent' => (is => 'ro', default => sub { 0.5 }); # Y coord of section line expressed as factor has 'line' => (is => 'rw'); has '_height' => (is => 'rw'); has '_svg' => (is => 'rw'); has '_svg_style' => (is => 'rw', default => sub { {} }); sub BUILD { my $self = shift; # calculate the Y coordinate of the section line my $bb = $self->print->bounding_box; my $y = ($bb->y_min + $bb->y_max) * $self->y_percent; # store our section line $self->line(Slic3r::Line->new([ $bb->x_min, $y ], [ $bb->x_max, $y ])); } sub export_svg { my $self = shift; my ($filename) = @_; # get bounding box of print and its height # (Print should return a BoundingBox3 object instead) my $bb = $self->print->bounding_box; my $print_size = $bb->size; $self->_height(max(map $_->print_z, map @{$_->layers}, @{$self->print->objects})); # initialize the SVG canvas $self->_svg(my $svg = SVG->new( width => $self->scale * unscale($print_size->x), height => $self->scale * $self->_height, )); # set default styles $self->_svg_style->{'stroke-width'} = 1; $self->_svg_style->{'fill-opacity'} = 0.5; $self->_svg_style->{'stroke-opacity'} = 0.2; # plot perimeters $self->_svg_style->{'stroke'} = '#EE0000'; $self->_svg_style->{'fill'} = '#FF0000'; $self->_plot_group(sub { map @{$_->perimeters}, @{$_[0]->regions} }); # plot infill $self->_svg_style->{'stroke'} = '#444444'; $self->_svg_style->{'fill'} = '#454545'; $self->_plot_group(sub { map @{$_->fills}, @{$_[0]->regions} }); # plot support material $self->_svg_style->{'stroke'} = '#12EF00'; $self->_svg_style->{'fill'} = '#22FF00'; $self->_plot_group(sub { $_[0]->isa('Slic3r::Layer::Support') ? ($_[0]->support_fills) : () }); Slic3r::open(\my $fh, '>', $filename); print $fh $svg->xmlify; close $fh; printf "Section cut SVG written to %s\n", $filename; } sub _plot_group { my $self = shift; my ($filter) = @_; my $bb = $self->print->bounding_box; my $g = $self->_svg->group(style => { %{$self->_svg_style} }); foreach my $object (@{$self->print->objects}) { foreach my $copy (@{$object->_shifted_copies}) { foreach my $layer (@{$object->layers}, @{$object->support_layers}) { # get all ExtrusionPath objects my @paths = map $_->clone, map { ($_->isa('Slic3r::ExtrusionLoop') || $_->isa('Slic3r::ExtrusionPath::Collection')) ? @$_ : $_ } grep defined $_, $filter->($layer); # move paths to location of copy $_->polyline->translate(@$copy) for @paths; if (0) { # export plan with section line and exit require "Slic3r/SVG.pm"; Slic3r::SVG::output( "line.svg", no_arrows => 1, lines => [ $self->line ], red_polylines => [ map $_->polyline, @paths ], ); exit; } foreach my $path (@paths) { foreach my $line (@{$path->lines}) { my @intersections = @{intersection_pl( [ $self->line->as_polyline ], $line->grow(Slic3r::Geometry::scale $path->width/2), )}; die "Intersection has more than two points!\n" if defined first { @$_ > 2 } @intersections; # turn intersections to lines my @lines = map Slic3r::Line->new(@$_), @intersections; # align intersections to canvas $_->translate(-$bb->x_min, 0) for @lines; # we want lines oriented from left to right in order to draw # rectangles correctly foreach my $line (@lines) { $line->reverse if $line->a->x > $line->b->x; } if ($path->is_bridge) { foreach my $line (@lines) { my $radius = $path->width / 2; my $width = unscale abs($line->b->x - $line->a->x); if ((10 * $radius) < $width) { # we're cutting the path in the longitudinal direction, so we've got a rectangle $g->rectangle( 'x' => $self->scale * unscale($line->a->x), 'y' => $self->scale * $self->_y($layer->print_z), 'width' => $self->scale * $width, 'height' => $self->scale * $radius * 2, 'rx' => $self->scale * $radius * 0.35, 'ry' => $self->scale * $radius * 0.35, ); } else { $g->circle( 'cx' => $self->scale * (unscale($line->a->x) + $radius), 'cy' => $self->scale * $self->_y($layer->print_z - $radius), 'r' => $self->scale * $radius, ); } } } else { foreach my $line (@lines) { my $height = $path->height; $height = $layer->height if $height == -1; $g->rectangle( 'x' => $self->scale * unscale($line->a->x), 'y' => $self->scale * $self->_y($layer->print_z), 'width' => $self->scale * unscale($line->b->x - $line->a->x), 'height' => $self->scale * $height, 'rx' => $self->scale * $height * 0.5, 'ry' => $self->scale * $height * 0.5, ); } } } } } } } } sub _y { my $self = shift; my ($y) = @_; return $self->_height - $y; } 1; Slic3r-version_1.39.1/resources/ 0000775 0000000 0000000 00000000000 13243544447 0016535 5 ustar 00root root 0000000 0000000 Slic3r-version_1.39.1/resources/icons/ 0000775 0000000 0000000 00000000000 13243544447 0017650 5 ustar 00root root 0000000 0000000 Slic3r-version_1.39.1/resources/icons/Slic3r-console.ico 0000664 0000000 0000000 00000042206 13243544447 0023147 0 ustar 00root root 0000000 0000000 00 ¨% F ¨ î% ˆ –6 h @ ( 0 ` "'+/3579 9 9 99753/,'" 6IXclsx}€‚„ … ‡ ˆ ˆ ˆ ˆ ˆ ˆ ˆ ‡ …„‚€}yslcXJ6 ¢ÿ Cu … Œ Œ Œ Œ ‘ 3r°V¿Ôhçínõ÷nõ÷nõ÷nõ÷nõ÷nõ÷nóöcÜåL¨È %Q£ Œ Œ Œ Œ Œ Œ Œ Œ Œ Œ Œ †vF ¢ÿ #4CO'bQ²«kíésÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsþþdÝà;‚§yvsnibYPD5# ¢ÿ ¢ÿvùYsý×sÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿnôÂRµG ¢ÿ ¢ÿŽÿ}ÿ«sÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿósÿh ¢ÿ ¢ÿ¢ÿ¢ÿ€ÿ«sÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿˆ¢ÿ ¢ÿ ¢ÿ¢ÿ Žÿ7{ÿäsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿŽ¢ÿ ¢ÿ ¢ÿ¢ÿ¢ÿ ‘ÿ,{ÿåtÿÿvÿÿzÿÿ}ÿÿ€ÿÿ€ÿÿ€ÿÿ€ÿÿ€ÿÿ€ÿÿ€ÿÿ€ÿÿÿÿ{ÿÿ wÿÿtÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿs¢ÿ¢ÿ ¢ÿ¢ÿ¢ÿ¢ÿ ÿ,„ÿçÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€ÿÿ{ÿÿuÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿøuÿ:¢ÿ¢ÿ ¢ÿ¢ÿ œÿ3(Žÿì1ÿÿ0ÿÿ0ÿÿ0ÿÿ0ÿÿ0ÿÿ/Œÿÿ*‰ÿÿ$†ÿÿ ƒÿÿÿÿÿÿÿÿÿÿÿÿÿÿ{ÿÿtÿÿsÿÿsÿÿsÿÿsÿÿsÿÐ~ÿ ¢ÿ¢ÿ ¢ÿ¢ÿ ¢ÿ¢ÿ ÿšÿ9,ÿî2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ.‹ÿÿ'‡ÿÿ ƒÿÿÿÿÿÿÿÿÿÿ€ÿÿ wÿÿsÿÿsÿÿsÿÿsÿÿtÿh¢ÿ¢ÿ ¢ÿ¢ÿ¢ÿ¢ÿ¢ÿ ÿšÿ—ÿM+ÿñ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ1ÿÿ+Šÿÿ!„ÿÿÿÿÿÿÿÿÿÿzÿÿsÿÿsÿÿsÿÿsÿÝ€ÿ¢ÿ¢ÿ ¢ÿ¢ÿ¢ÿ ¢ÿ ÿ šÿ˜ÿ –ÿ6 ”ÿ~)ÿö2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ+Šÿÿ ƒÿÿÿÿÿÿÿÿ{ÿÿsÿÿsÿÿsÿÿuÿT¢ÿ¢ÿ¢ÿ ¢ÿ¢ÿ¢ÿ¢ÿœÿ šÿ—ÿ-•ÿP–ÿ¦“ÿß)Žÿú2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ1ÿÿ'‡ÿÿ ÿÿÿÿÿÿ{ÿÿsÿÿsÿÿtÿ¦¢ÿ¢ÿ¢ÿ¢ÿ ¢ÿ¢ÿ™ÿ’ÿ’ÿ$’ÿBtÀ¤ÿg²íŠÿë)Œÿû2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ-‹ÿÿ ƒÿÿÿÿÿÿ xÿÿsÿÿsÿã¢ÿ¢ÿ¢ÿ¢ÿ ¢ÿšÿÿ †ÿ ˆÿ@ávýÿÿd´ïŠÿé)ÿú2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ0Œÿÿ „ÿÿÿÿ€ÿÿuÿÿsÿþ¢ÿ¢ÿ¢ÿ¢ÿ¢ÿ ¢ÿ¢ÿ…ÿ‚ÿÿ@€ýl '>áÿÿÿ"""ÿv½íœÿç)‘ÿú2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ0ÿÿ „ÿÿÿÿ|ÿÿsÿÿ¢ÿ ¢ÿ¢ÿ¢ÿ¢ÿ ¢ÿ‹ÿ~ÿzÿ2zÿh O‘ ÿ$$$ÿ'''ÿ***ÿ---ÿ000ÿŒÂëµÿç+”ÿû2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ0Œÿÿ ‚ÿÿÿÿvÿÿ¢ÿ ¢ÿ¢ÿ¢ÿ¢ÿ ¢ÿÿzÿ"xÿSoæ„&*0ô'''ÿ'''ÿ(((ÿ+++ÿ///ÿ111ÿ555ÿ¡ÆîÄÿí+•ÿû2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ,Šÿÿÿÿ|ÿÿ¢ÿ¢ÿ¢ÿ¢ÿ¢ÿ ¢ÿ|ÿwÿ6wÿtBsª'''ÿ'''ÿ'''ÿ***ÿ---ÿ000ÿ444ÿEEEÿNNNÿ(²ÏóÇÿî2—ÿû<“ÿÿ6ÿÿ3Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ%†ÿÿ€ÿÿ¢ÿ¢ÿ ¢ÿ¢ÿ¢ÿ¢ÿ ¢ÿ‹ÿxÿwÿJwþy *2Ý'''ÿ'''ÿ(((ÿ+++ÿ...ÿ222ÿDDDÿMMMÿRRRÿUUUÿ)²Ñï ¿ÿå<šÿúGšÿÿD˜ÿÿ<”ÿÿ4ÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ/Œÿÿ€ÿÿ¢ÿ¢ÿ ¢ÿ¢ÿ¢ÿ¢ÿ €ÿwÿ%vÿ\bÌ„''(ú'''ÿ'''ÿ(((ÿ+++ÿ///ÿAAAÿKKKÿOOOÿSSSÿWWWÿ\\\ÿ,¬Ôä µÿÛ=šÿúGšÿÿGšÿÿF™ÿÿ=”ÿÿ4ÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ!„ÿÿ¢ÿ¢ÿ ¢ÿ¢ÿ¢ÿ¢ÿ ¢ÿ|ÿ vÿ-vÿkH‡›'''ÿ'''ÿ'''ÿ)))ÿ,,,ÿ888ÿHHHÿLLLÿPPPÿTTTÿYYYÿ\\\ÿaaaÿ.§ÕÛ ¯ÿ×<™ÿúGšÿÿGšÿÿGšÿÿC—ÿÿ6ÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ+Šÿø¢ÿ¢ÿ ¢ÿ¢ÿ¢ÿ¢ÿ zÿvÿ4uÿt8Z²'''ÿ'''ÿ'''ÿ)))ÿ...ÿCCCÿIIIÿLLLÿQQQÿUUUÿZZZÿ]]]ÿcccÿfffÿ,«ÙÝ µÿß>›ÿûGšÿÿGšÿÿGšÿÿE™ÿÿ7‘ÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ0Žÿ×¢ÿ¢ÿ ¢ÿ¢ÿ¢ÿ¢ÿ yÿuÿ:uÿw0EÂ'''ÿ'''ÿ'''ÿ)))ÿ777ÿEEEÿIIIÿMMMÿQQQÿUUUÿZZZÿ^^^ÿcccÿfffÿkkkÿ+µÜæ ¾ÿê>œÿüGšÿÿGšÿÿGšÿÿD˜ÿÿ4ÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ,Žÿ•¢ÿ¢ÿ ¢ÿ¢ÿ¢ÿ¢ÿ xÿuÿ<uÿw +:Ì'''ÿ'''ÿ'''ÿ***ÿ???ÿEEEÿIIIÿLLLÿQQQÿUUUÿZZZÿ]]]ÿcccÿfffÿkkkÿnnnÿ*¾ßï Âÿð>œÿüGšÿÿGšÿÿGšÿÿ@–ÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿú ‘ÿB ÿ¢ÿ ¢ÿ¢ÿ¢ÿ¢ÿ vÿuÿ<uÿw +;Ë'''ÿ'''ÿ'''ÿ///ÿBBBÿEEEÿHHHÿLLLÿPPPÿTTTÿYYYÿ\\\ÿaaaÿeeeÿiiiÿmmmÿoooÿ)Ááñ¾ÿí>šÿüGšÿÿGšÿÿF™ÿÿ2Žÿÿ2Žÿÿ2Žÿÿ.Žÿ½™ÿÿ¡ÿ¢ÿ¢ÿ¢ÿ vÿuÿ9uÿv/DÀ'''ÿ'''ÿ'''ÿ222ÿAAAÿDDDÿGGGÿKKKÿOOOÿSSSÿWWWÿ\\\ÿ___ÿeeeÿkkkÿsssÿxxxÿ{{{ÿ3¼äì¯ÿèAšÿüGšÿÿE™ÿÿ2Žÿÿ2Žÿÿ2ŽÿúÿQ”ÿšÿ ÿ¢ÿ¢ÿ¢ÿ sÿ uÿ3tÿs6Z®'''ÿ'''ÿ'''ÿ666ÿAAAÿCCCÿFFFÿJJJÿMMMÿRRRÿUUUÿ]]]ÿfffÿpppÿuuuÿvvvÿxxxÿzzzÿzz{ÿ2ªäé—ÿéA˜ÿýGšÿÿ2Žÿÿ2Žÿÿ%Œÿ©ˆÿ)ÿ—ÿ žÿ¢ÿ¢ÿ¢ÿ sÿuÿ,tÿfI‰•'''ÿ'''ÿ'''ÿ777ÿ@@@ÿBBBÿEEEÿHHHÿLLLÿPPPÿ]]]ÿgggÿlllÿnnnÿqqqÿtttÿuuuÿvvvÿvvvÿuvwÿ/”ãìˆÿî?–ÿý2Žÿÿ'Œÿã€ÿE…ÿ'ÿ”ÿ ›ÿ¢ÿ¢ÿ sÿtÿ"tÿXdÑ'''ù'''ÿ'''ÿ888ÿ>>>ÿAAAÿDDDÿFFFÿLLLÿ\\\ÿcccÿeeeÿhhhÿlllÿmmmÿoooÿqqqÿsssÿsssÿsssÿprsÿ-Œæì‡ÿê$‹ÿì €ÿuÿ=„ÿ"‹ÿ’ÿ›ÿ¢ÿ¢ÿ sÿsÿtÿGtþu!'0Ø'''ÿ'''ÿ666ÿ===ÿ@@@ÿBBBÿGGGÿXXXÿ]]]ÿ```ÿcccÿeeeÿhhhÿkkkÿmmmÿmmmÿnnnÿnnnÿnnnÿmmmÿlmnþ-ŽäÝ€ÿ„{ÿMÿ0…ÿŒÿ’ÿŸÿ¢ÿ sÿ sÿ2tÿr;k¢'''ÿ'''ÿ222ÿ===ÿ>>>ÿAAAÿRRRÿXXXÿ\\\ÿ]]]ÿ```ÿcccÿeeeÿfffÿhhhÿjjjÿkkkÿkkkÿkkkÿjjjÿhhhÿfhjý:ØŸ}ÿ7ÿ!†ÿÿ “ÿ ÿ¢ÿ¢ÿ sÿsÿ tÿUiá{%&'ó'''ÿ...ÿ===ÿ===ÿEEEÿUUUÿVVVÿYYYÿ\\\ÿ]]]ÿ___ÿaaaÿdddÿeeeÿeeeÿfffÿfffÿfffÿeeeÿeeeÿdddÿ`cdýG˜Ñ€ƒÿˆÿ •ÿ›ÿ¢ÿ¢ÿ¢ÿ ¢ÿ sÿsÿsÿ8sÿu6Y¯'''ÿ)))ÿ<<<ÿ===ÿJJJÿSSSÿUUUÿVVVÿXXXÿ[[[ÿ\\\ÿ^^^ÿ___ÿaaaÿbbbÿcccÿcccÿcccÿbbbÿaaaÿ___ÿ^^^ÿ\^_üN›ÊrŒÿ—ÿ ÿ ¢ÿ¢ÿ¢ÿ sÿsÿ"sÿTkèz#%'é'''ÿ555ÿ===ÿNNNÿRRRÿSSSÿUUUÿVVVÿXXXÿYYYÿ[[[ÿ\\\ÿ]]]ÿ^^^ÿ^^^ÿ___ÿ^^^ÿ^^^ÿ]]]ÿ\\\ÿ[[[ÿYYYÿW[\ûKšÉmžÿ ¢ÿ¢ÿ sÿsÿsÿ4sÿlI'''þ+++ÿ===ÿOOOÿQQQÿQQQÿSSSÿTTTÿUUUÿWWWÿXXXÿYYYÿZZZÿ[[[ÿ\\\ÿ\\\ÿ\\\ÿ[[[ÿZZZÿYYYÿXXXÿWWWÿUUUÿZ[]ûV¢Îj ¢ÿ¢ÿ sÿsÿsÿBsÿt2S¯'''ÿ333ÿJJJÿQQQÿQQQÿQQQÿRRRÿSSSÿTTTÿUUUÿVVVÿWWWÿXXXÿXXXÿXXXÿXXXÿXXXÿWWWÿVVVÿUUUÿTTTÿVVVÿ[[[ÿ\_aúX Ïjsÿ sÿ ¢ÿ sÿsÿ sÿ"sÿMsÿt,@À(((ÿAAAÿQQQÿQQQÿQQQÿQQQÿQQQÿRRRÿSSSÿTTTÿTTTÿUUUÿUUUÿUUUÿUUUÿUUUÿTTTÿTTTÿSSSÿUUUÿZZZÿZZZÿZZZÿ@DFöx¾]sÿsÿ sÿsÿ sÿ)sÿVrüu,A¼,,,ÿKKKÿQQQÿQQQÿQQQÿQQQÿQQQÿQQQÿRRRÿRRRÿSSSÿSSSÿSSSÿSSSÿSSSÿRRRÿRRRÿTTTÿZZZÿZZZÿZZZÿEEEÿ'''ÿ'7C܃ÿ(ÿ sÿsÿsÿ+sÿTsÿt8a§///úLLLÿRRRÿQQQÿQQQÿQQQÿQQQÿQQQÿQQQÿQQQÿQQQÿQQQÿQQQÿQQQÿRRRÿVVVÿZZZÿZZZÿZZZÿCCCÿ'''ÿ#:TÓ{ëk‚ÿ2†ÿ sÿsÿsÿsÿ(sÿJsÿt P¦‰%*1ÚGGGÿTTTÿRRRÿQQQÿQQQÿQQQÿQQQÿQQQÿQQQÿQQQÿRRRÿUUUÿYYYÿZZZÿZZZÿVVVÿ;;;ÿ''(ú>k¬pövtÿHvÿ xÿ sÿsÿsÿ sÿ sÿ?sÿgpùu?wœ47<áMMMÿVVVÿUUUÿTTTÿTTTÿTTTÿUUUÿWWWÿYYYÿZZZÿZZZÿVVVÿCCCÿ--.ú *:É U¯†sÿqsÿIsÿ&sÿsÿ sÿsÿ sÿsÿ0sÿNsÿorüuOžŒ,=S¿@BFæMMMùSSSÿVVVÿWWWÿUUUÿRRRÿHHHÿ999ó)/6Ø4X« [¿‚sÿtsÿZsÿ8sÿ sÿ sÿ sÿsÿsÿsÿ sÿ2sÿJsÿcsÿthãz R§Š?vœ5Zª1N³2P±6_§D— W·„oówsÿtsÿZsÿ>sÿ&sÿsÿsÿ sÿsÿsÿ sÿsÿ*sÿ;sÿMsÿ]sÿhsÿosÿssÿssÿnsÿesÿYsÿIsÿ6sÿ$sÿsÿ sÿsÿ sÿsÿsÿ sÿsÿsÿ$sÿ,sÿ1sÿ3sÿ2sÿ0sÿ*sÿ"sÿsÿsÿsÿsÿ ÿ ÿ ø ? x ? x ? € ÿ ~ ÿÿ x ?ÿ y ÿ ±€ ÿ ÃÀ ÿ çà ÿ ü€ ÿ ü ÿ ü ü ? þ ? þ ü ü ü ü ø ü ø ü ü ü ü ü ü ü ? ü ? ü þ ? þ þ ÿ Ï ÿ Ï ÿ€ o ÿ€ ? ÿÀ ? ÿà ? ÿà ? ÿð ? ÿü ÿþ ÿ ÿÿ€ ÿ ÿÿà ÿ ( @ ¢ÿ <[iry}€ƒ„ … … ……„ƒ€}ysi[> ¢ÿ¢ÿ >[g&y/h•S¸ÃkììsÿÿsÿÿsÿÿsÿÿlïïU¼Ê2n¢ 'Š}zvpg[@ ¢ÿ ¢ÿ 9XyÚqáRqö³sÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿmòÅTº_9% ¢ÿ¢ÿ ¢ÿ„ÿuÿøsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿüsÿxsÿ ¢ÿ ¢ÿ¢ÿ~ÿuÿ÷sÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿÿsÿ‰sÿ ¢ÿ¢ÿ €ÿqyÿôzÿÿ|ÿÿÿÿÿÿ€ÿÿÿÿ}ÿÿ{ÿÿ xÿÿvÿÿtÿÿsÿÿsÿÿsÿÿsÿlsÿ .–ÿ{0ÿö.‹ÿÿ,Šÿÿ)‰ÿÿ&‡ÿÿ"…ÿÿ ƒÿÿ ‚ÿÿÿÿ€ÿÿ{ÿÿvÿÿsÿÿsÿÿsÿïuÿ4Šÿ ¢ÿ¢ÿ¢ÿMºÿ 2šÿ‰3‘ÿ÷2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ0Œÿÿ)‰ÿÿ#…ÿÿ ƒÿÿÿÿÿÿ xÿÿtÿÿsÿÿtÿzÿ¢ÿ ¢ÿ¢ÿ›ÿ –ÿ–ÿ4"—ÿÆ0ÿû2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ-‹ÿÿ%†ÿÿ ‚ÿÿÿÿ zÿÿtÿÿsÿôwÿ.¢ÿ sÿzÿ}ÿ#‡ÿ?•ÿ‰•ÿÙ ‘ÿó0ÿý2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ+Šÿÿ!„ÿÿÿÿ yÿÿsÿÿuÿd¢ÿ¢ÿ sÿsÿvÿ-yÿZ~÷… .Qã ÿWò ‘ýñ0ÿü2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ0Œÿÿ#…ÿÿÿÿvÿÿtÿš¢ÿ¢ÿ sÿvÿ"vÿ[vú§ T£Ì ÿÿ ÿr¦ï ¨ýï0“ÿü2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ0ÿÿ"…ÿÿ}ÿÿvÿ¹¢ÿ¢ÿ¢ÿ sÿ uÿ5uÿ‚cË´!+òÿ ÿ$$$ÿ000ÿ0™²ò+¼ýô7˜ÿü:’ÿÿ4ÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ/Œÿÿ ƒÿÿ yÿâÿ ¢ÿ¢ÿ sÿuÿFuÿ B|Âÿÿ ÿ'''ÿ999ÿJJKÿ4£¸ô+¸þï?šÿû>•ÿÿ7‘ÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ2Žÿÿ(ˆÿÿ€ÿ¼¢ÿ ¢ÿ¢ÿ sÿuÿRuÿ+DÖÿÿ!!!ÿ111ÿDDDÿLLLÿTUUÿ<œ»é1°þåGÿûD˜ÿÿ<”ÿÿ4ÿÿ2Žÿÿ2Žÿÿ2Žÿÿ1ÿÿ …ÿŸ¢ÿ ¢ÿ¢ÿ sÿuÿZuÿ",èÿÿ'''ÿ<<<ÿEEEÿMMMÿUUUÿ\__þ@˜ºã-´þèEÿüGšÿÿ@–ÿÿ4ÿÿ2Žÿÿ2Žÿÿ2Žÿÿ ‰ÿk¢ÿ ¢ÿ¢ÿ sÿtÿ^uÿ õÿÿ///ÿ===ÿDDDÿLLLÿTTTÿ\\\ÿdeeþ?¥Àí-¾þôEÿýGšÿÿ=”ÿÿ2Žÿÿ2Žÿÿ3ÿñÿ:¢ÿ ¢ÿ¢ÿ sÿ tÿatÿ ÷ÿÿ222ÿ<<<ÿBBBÿJJJÿRRRÿZZZÿaaaÿeijþ>¬Áô+ºþôGœÿýF™ÿÿ2Žÿÿ2Žÿÿ1’ÿ¦ “ÿ¡ÿ¢ÿ¢ÿ sÿ tÿ`tÿ¬ "ìÿÿ555ÿ:::ÿ@@@ÿGGGÿPPPÿ]]]ÿiiiÿpppÿqvvþO¥Åï1§þðG›ÿý2Žÿÿ2ÿí ÿS•ÿŸÿ¢ÿ¢ÿ sÿsÿYtÿ¬".Úÿÿ333ÿ888ÿ===ÿEEEÿUUUÿ```ÿfffÿkkkÿmmmÿlprýHŽÁï3–ÿõ4‘ÿø$ŒÿŸ…ÿ*ÿ›ÿ£ÿ sÿsÿMtÿ¬3ZÄÿÿ111ÿ555ÿ===ÿMMMÿWWWÿ\\\ÿ```ÿdddÿeeeÿfffÿdgkýD‚»î …ÿ¢}ÿH…ÿ Žÿ Ÿÿ¢ÿ sÿ sÿ;sÿ R¨´úÿ000ÿ222ÿCCCÿNNNÿSSSÿVVVÿZZZÿ\\\ÿ^^^ÿ___ÿ^^^ÿ\^aûF€®Ô“ÿK…ÿÿ ÿ¢ÿ ¢ÿ sÿsÿ'sÿmmì¬'=Ñÿ---ÿ111ÿGGGÿJJJÿMMMÿQQQÿSSSÿUUUÿWWWÿXXXÿWWWÿUUUÿSUWûG€¤Ç ¥ÿ2ÿ ¢ÿ¢ÿ sÿsÿsÿGsÿ U²² ñ'''ÿ111ÿFFFÿGGGÿJJJÿLLLÿNNNÿPPPÿQQQÿQQQÿQQQÿPPPÿNNNÿLNPûH€¡Ã"¤ÿ5sÿsÿ¢ÿ sÿsÿ(sÿiqû«?{¼ ÿ...ÿFFFÿFFFÿFFFÿHHHÿJJJÿJJJÿKKKÿKKKÿKKKÿJJJÿJJJÿIIIÿMQSûO€¢ÀŠû<sÿsÿ sÿsÿsÿ7sÿqø«7gÁ###ÿBBBÿFFFÿFFFÿFFFÿFFFÿFFFÿGGGÿGGGÿGGGÿFFFÿGGGÿMMMÿOOOÿ>@AýU‹žÿ(sÿ sÿsÿsÿBsÿ†qù«E‡º,-.óEEEÿFFFÿFFFÿFFFÿFFFÿFFFÿFFFÿFFFÿHHHÿNNNÿOOOÿ>>>ÿ 2Jç n߆vÿ4sÿ sÿsÿsÿBsÿ~rü«bЮ$9SÎ@@@ùIIIÿGGGÿGGGÿGGGÿJJJÿMMMÿOOOÿJJJÿ234ô
ô2@ÿö~ú¼M§2û”EËߧÊGiWh+T%}4ªÐ"b
]<Ò5ã.ÚØI×TX“:vQ3=’¬
¹cß¡@ 0Ë¿e?eà÷Ó6·ÖÜ yl¨³¦ã„†ýŸ´(¹Ÿ*ÿ9Íý«ÌηÀ¶Àz`°!˜ îÌ‘H7ôKìð͘`àcüì²M’mÏÒéF
Öîž´É U>ËQþåˆ1_©/ÒF& ßÓ/>ïoUöi›ª}>„¢Ü+µNªãložuˆTÊ &€ÄO™Ãx™†P½a^îC !éÿÇù6UëÎYL:Ùc”žÏõÛ.J{ÿlú<Á þš(+ø_ =—£¨Ø‚³M*¦ G
»66Ϧàÿ(5~…î±Ñ=q¾T¾M7gŠ£nÂǤ»~€"õ4ˆå×ÅdI¿Ü˜,*H²PÐt ‹ëïòHag¹!¥?·Âq~”
çúTÿÖì½&Ý5HÀ4`ymãÏlòuã8ü}Ç{vàõtíÏk©òÁ ð