113 lines
2.8 KiB
Perl
113 lines
2.8 KiB
Perl
|
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 expanded_output_filepath)],
|
||
|
|
);
|
||
|
|
|
||
|
|
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 'output_file' => (
|
||
|
|
is => 'rw',
|
||
|
|
);
|
||
|
|
|
||
|
|
sub set_model {
|
||
|
|
my ($self, $model) = @_;
|
||
|
|
|
||
|
|
# make method idempotent so that the object is reusable
|
||
|
|
$self->_print->delete_all_objects;
|
||
|
|
|
||
|
|
my $need_arrange = $model->has_objects_with_no_instances;
|
||
|
|
if ($need_arrange) {
|
||
|
|
# apply a default position to all objects not having one
|
||
|
|
foreach my $object (@{$model->objects}) {
|
||
|
|
$object->add_instance(offset => [0,0]) if !defined $object->instances;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# apply scaling and rotation supplied from command line if any
|
||
|
|
foreach my $instance (map @{$_->instances}, @{$model->objects}) {
|
||
|
|
$instance->scaling_factor($instance->scaling_factor * $self->scale);
|
||
|
|
$instance->rotation($instance->rotation + $self->rotate);
|
||
|
|
}
|
||
|
|
# TODO: --scale --rotate, --duplicate* shouldn't be stored in config
|
||
|
|
|
||
|
|
if ($self->duplicate_grid->[X] > 1 || $self->duplicate_grid->[Y] > 1) {
|
||
|
|
$model->duplicate_objects_grid($self->duplicate_grid, $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);
|
||
|
|
}
|
||
|
|
$model->center_instances_around_point($self->_print->config->print_center);
|
||
|
|
|
||
|
|
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->status_cb($self->status_cb);
|
||
|
|
$self->_print->validate;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _after_export {
|
||
|
|
my ($self) = @_;
|
||
|
|
|
||
|
|
$self->_print->status_cb(undef);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub export_gcode {
|
||
|
|
my ($self) = @_;
|
||
|
|
|
||
|
|
$self->_before_export;
|
||
|
|
|
||
|
|
$self->_print->process;
|
||
|
|
$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;
|