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

More refactoring to clean up the Print object API

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-12-16 00:54:59 +01:00
parent d3171b1eea
commit 02df73c94b
5 changed files with 47 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

28
slic3r.pl
View file

@ -13,6 +13,7 @@ use List::Util qw(first);
use POSIX qw(setlocale LC_NUMERIC);
use Slic3r;
use Slic3r::Geometry qw(X Y);
use Time::HiRes qw(gettimeofday tv_interval);
$|++;
our %opt = ();
@ -151,21 +152,32 @@ if (@ARGV) { # slicing from command line
next;
}
my $print = Slic3r::Print->new(config => $config);
$print->add_model_object($_) for @{$model->objects};
undef $model; # free memory
$print->validate;
my %params = (
output_file => $opt{output},
my $print = Slic3r::Print->new(
config => $config,
status_cb => sub {
my ($percent, $message) = @_;
printf "=> %s\n", $message;
},
);
$print->add_model_object($_) for @{$model->objects};
undef $model; # free memory
$print->validate;
if ($opt{export_svg}) {
$print->export_svg(%params);
$print->export_svg(output_file => $opt{output});
} else {
$print->export_gcode(%params);
my $t0 = [gettimeofday];
$print->process;
$print->export_gcode(output_file => $opt{output});
# output some statistics
{
my $duration = tv_interval($t0);
printf "Done. Process took %d minutes and %.3f seconds\n",
int($duration/60), ($duration - int($duration/60)*60); # % truncates to integer
}
print map sprintf("Filament required: %.1fmm (%.1fcm3)\n",
$_->absolute_E, $_->extruded_volume/1000),
@{$print->extruders};
}
}
} else {