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

Incomplete work to store TriangleMesh objects in Model objects instead of extracting vertices and facets

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-09-11 09:49:28 +02:00
parent 78ee6e5d6d
commit 11e18f681d
8 changed files with 45 additions and 100 deletions
Download patch file Download diff file Expand all files Collapse all files

56
lib/Slic3r/Format/STL.pm
View file

@ -1,20 +1,17 @@
package Slic3r::Format::STL;
use Moo;
use Slic3r::Geometry qw(X Y Z triangle_normal);
sub read_file {
my $self = shift;
my ($file) = @_;
my $tmesh = Slic3r::TriangleMesh->new;
$tmesh->ReadSTLFile(Slic3r::encode_path($file));
$tmesh->repair;
my ($vertices, $facets) = ($tmesh->vertices, $tmesh->facets);
my $mesh = Slic3r::TriangleMesh->new;
$mesh->ReadSTLFile(Slic3r::encode_path($file));
$mesh->repair;
my $model = Slic3r::Model->new;
my $object = $model->add_object(vertices => $vertices, mesh_stats => $tmesh->stats);
my $volume = $object->add_volume(facets => $facets);
my $object = $model->add_object;
my $volume = $object->add_volume(mesh => $mesh);
return $model;
}
@ -22,48 +19,11 @@ sub write_file {
my $self = shift;
my ($file, $model, %params) = @_;
Slic3r::open(\my $fh, '>', $file);
my $path = Slic3r::encode_path($file);
$params{binary}
? _write_binary($fh, $model->mesh)
: _write_ascii($fh, $model->mesh);
close $fh;
}
sub _write_binary {
my ($fh, $mesh) = @_;
die "bigfloat" unless length(pack "f", 1) == 4;
binmode $fh;
print $fh pack 'x80';
print $fh pack 'L', scalar(@{$mesh->facets});
foreach my $facet (@{$mesh->facets}) {
print $fh pack '(f<3)4S',
@{_facet_normal($mesh, $facet)},
(map @{$mesh->vertices->[$_]}, @$facet[-3..-1]),
0;
}
}
sub _write_ascii {
my ($fh, $mesh) = @_;
printf $fh "solid\n";
foreach my $facet (@{$mesh->facets}) {
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[-3..-1];
printf $fh " endloop\n";
printf $fh " endfacet\n";
}
printf $fh "endsolid\n";
}
sub _facet_normal {
my ($mesh, $facet) = @_;
return triangle_normal(map $mesh->vertices->[$_], @$facet[-3..-1]);
? $model->mesh->write_binary($path)
: $model->mesh->write_ascii($path);
}
1;