juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-18 19:12:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

Finish porting Print classes to XS

Browse Source
This commit is contained in:
Alessandro Ranellucci
2014-06-10 16:01:57 +02:00
parent ba8148f4ad
commit 3f6360ee8f
10 changed files with 78 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Slic3r/Print/Object.pm
View File

@@ -1,4 +1,6 @@
package Slic3r::Print::Object;
use strict;
use warnings;
use List::Util qw(min max sum first);
use Slic3r::Flow ':roles';
@@ -54,7 +56,7 @@ sub _trigger_copies {
# in unscaled coordinates
sub add_copy {
my ($self, $x, $y) = @_;
my @copies = $self->copies;
my @copies = @{$self->copies};
push @copies, Slic3r::Point->new_scale($x, $y);
$self->set_copies(\@copies);
$self->_trigger_copies;

6
lib/Slic3r/Print/Region.pm
View File

@@ -1,4 +1,6 @@
package Slic3r::Print::Region;
use strict;
use warnings;
use Slic3r::Extruder ':roles';
use Slic3r::Flow ':roles';
@@ -47,14 +49,14 @@ sub flow {
} else {
die "Unknown role $role";
}
my $nozzle_diameter = $self->print_config->get_at('nozzle_diameter', $extruder-1);
my $nozzle_diameter = $self->print->config->get_at('nozzle_diameter', $extruder-1);
return Slic3r::Flow->new_from_width(
width => $config_width,
role => $role,
nozzle_diameter => $nozzle_diameter,
layer_height => $layer_height,
bridge_flow_ratio => ($bridge ? $self->print_config->bridge_flow_ratio : 0),
bridge_flow_ratio => ($bridge ? $self->print->config->bridge_flow_ratio : 0),
);
}