3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Replaced Moose with Moo => big performance boost and easier packaging

Browse source
This commit is contained in:
Alessandro Ranellucci 2011-09-06 11:50:43 +02:00
parent bf5824781d
commit 26b05ab155
13 changed files with 67 additions and 75 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lib/Slic3r/Print.pm
View file

@ -1,5 +1,5 @@
package Slic3r::Print;
use Moose;
use Moo;
use constant PI => 4 * atan2(1, 1);
use constant X => 0;
@ -7,37 +7,39 @@ use constant Y => 1;
has 'x_length' => (
is => 'ro',
isa => 'Slic3r::Line::Length',
#isa => 'Slic3r::Line::Length',
required => 1,
coerce => 1,
coerce => sub { sprintf '%.0f', $_[0] },
);
has 'y_length' => (
is => 'ro',
isa => 'Slic3r::Line::Length',
#isa => 'Slic3r::Line::Length',
required => 1,
coerce => 1,
coerce => sub { sprintf '%.0f', $_[0] },
);
has 'layers' => (
traits => ['Array'],
is => 'rw',
isa => 'ArrayRef[Slic3r::Layer]',
#isa => 'ArrayRef[Slic3r::Layer]',
default => sub { [] },
handles => {
layer_count => 'count',
add_layer => 'push',
},
);
sub layer_count {
my $self = shift;
return scalar @{ $self->layers };
}
sub layer {
my $self = shift;
my ($layer_id) = @_;
# extend our print by creating all necessary layers
if ($self->layer_count < $layer_id + 1) {
for (my $i = $self->layer_count; $i <= $layer_id; $i++) {
$self->add_layer(Slic3r::Layer->new(id => $i));
push @{ $self->layers }, Slic3r::Layer->new(id => $i);
}
}