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

Bugfix: duplicate options did not work correctly for copies > 2. #113

Browse Source
This commit is contained in:
Alessandro Ranellucci
2011-12-12 17:32:45 +01:00
parent 9a610395ce
commit 3c2b2cfef2
2 changed files with 9 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/Slic3r/TriangleMesh.pm
View File

@@ -279,15 +279,17 @@ sub move {
sub duplicate {
my $self = shift;
my (@shift) = @_;
my (@shifts) = @_;
my @new_facets = ();
foreach my $facet (@{$self->facets}) {
# transform vertex coordinates
my ($normal, @vertices) = @$facet;
push @new_facets, [ $normal ];
foreach my $vertex (@vertices) {
push @{$new_facets[-1]}, [ map $vertex->[$_] + ($shift[$_] || 0), (X,Y,Z) ];
foreach my $shift (@shifts) {
push @new_facets, [ $normal ];
foreach my $vertex (@vertices) {
push @{$new_facets[-1]}, [ map $vertex->[$_] + ($shift->[$_] || 0), (X,Y,Z) ];
}
}
}
push @{$self->facets}, @new_facets;