3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-11-02 20:51:23 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions 4

Ported some methods to XS

Browse source
This commit is contained in:
Alessandro Ranellucci 2014-08-03 18:41:09 +02:00
parent 1813a309a7
commit 380dd8adfc
13 changed files with 176 additions and 93 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/Slic3r/Layer.pm
View file

@ -39,24 +39,6 @@ sub regions {
return [ map $self->get_region($_), 0..($self->region_count-1) ];
}
# merge all regions' slices to get islands
sub make_slices {
my $self = shift;
my $slices;
if (@{$self->regions} == 1) {
$slices = [ map $_->expolygon->clone, @{$self->regions->[0]->slices} ];
} else {
$slices = union_ex([ map $_->p, map @{$_->slices}, @{$self->regions} ]);
}
# sort slices
$slices = [ @$slices[@{chained_path([ map $_->contour->first_point, @$slices ])}] ];
$self->slices->clear;
$self->slices->append(@$slices);
}
sub merge_slices {
my ($self) = @_;
$_->merge_slices for @{$self->regions};