PublicCodeMirror/OrcaSlicer-bambulab
1
0
Fork 0
mirror of https://github.com/FULU-Foundation/OrcaSlicer-bambulab.git synced 2026-05-21 17:39:10 -07:00
Code Issues Packages Projects Releases Wiki Activity

New AMF-to-STL and STL-to-AMF converters

Browse Source
This commit is contained in:
Alessandro Ranellucci
2012-02-19 15:45:27 +01:00
parent 79ebb13bdb
commit 776d985b26
6 changed files with 170 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/Slic3r/STL.pm
View File

@@ -1,7 +1,7 @@
package Slic3r::STL;
use Moo;
use Slic3r::Geometry qw(X Y Z);
use Slic3r::Geometry qw(X Y Z triangle_normal);
use XXX;
sub read_file {
@@ -181,7 +181,10 @@ sub _write_binary {
print $fh pack 'x80';
print $fh pack 'L', scalar(@{$mesh->facets});
foreach my $facet (@{$mesh->facets}) {
print $fh pack '(f<3)4S', @{$facet->[0]}, (map @{$mesh->vertices->[$_]}, @$facet[1,2,3]), 0;
print $fh pack '(f<3)4S',
@{_facet_normal($mesh, $facet)},
(map @{$mesh->vertices->[$_]}, @$facet[1,2,3]),
0;
}
}
@@ -190,7 +193,7 @@ sub _write_ascii {
printf $fh "solid\n";
foreach my $facet (@{$mesh->facets}) {
printf $fh " facet normal %f %f %f\n", @{$facet->[0]};
printf $fh " facet normal %f %f %f\n", @{_facet_normal($mesh, $facet)};
printf $fh " outer loop\n";
printf $fh " vertex %f %f %f\n", @{$mesh->vertices->[$_]} for @$facet[1,2,3];
printf $fh " endloop\n";
@@ -199,4 +202,9 @@ sub _write_ascii {
printf $fh "endsolid\n";
}
sub _facet_normal {
my ($mesh, $facet) = @_;
return triangle_normal(map $mesh->vertices->[$_], @$facet[1,2,3]);
}
1;