3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-13 01:37:53 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

Ported three PrintObject methods to XS

Browse source
This commit is contained in:
Alessandro Ranellucci 2014-11-13 00:34:56 +01:00
parent f8986d0ef5
commit 33fe53fd7c
5 changed files with 31 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lib/Slic3r/Print/Object.pm
View file

@ -32,26 +32,6 @@ sub support_layers {
return [ map $self->get_support_layer($_), 0..($self->support_layer_count - 1) ];
}
# in unscaled coordinates
sub add_copy {
my ($self, $x, $y) = @_;
my @copies = @{$self->copies};
push @copies, Slic3r::Point->new_scale($x, $y);
return $self->set_copies(\@copies);
}
sub delete_last_copy {
my ($self) = @_;
my @copies = $self->copies;
pop @copies;
return $self->set_copies(\@copies);
}
sub delete_all_copies {
my ($self) = @_;
return $self->set_copies([]);
}
# this is the *total* layer count (including support layers)
# this value is not supposed to be compared with $layer->id
# since they have different semantics