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

Export STL

Browse Source
This commit is contained in:
Alessandro Ranellucci
2012-04-30 17:10:54 +02:00
parent d03925a18d
commit 2a067ae41f
2 changed files with 52 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/Slic3r/TriangleMesh.pm
View File

@@ -58,6 +58,14 @@ sub BUILD {
}
}
sub clone {
my $self = shift;
return (ref $self)->new(
vertices => [ map [ @$_ ], @{$self->vertices} ],
facets => [ map [ @$_ ], @{$self->facets} ],
);
}
sub _facet_edges {
my $self = shift;
my ($facet_id) = @_;
@@ -284,7 +292,7 @@ sub move {
# transform vertex coordinates
foreach my $vertex (@{$self->vertices}) {
$vertex->[$_] += $shift[$_] for X,Y,Z;
$vertex->[$_] += $shift[$_] || 0 for X,Y,Z;
}
}