3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-10-30 12:11:15 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

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;