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

New utility script to split STL plates into individual STL files

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-01-28 15:05:42 +01:00
parent 7305b6da88
commit 669341cd11
3 changed files with 128 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

38
lib/Slic3r/STL.pm
View file

@ -83,4 +83,42 @@ sub _read_binary {
}
}
sub write_file {
my $self = shift;
my ($file, $mesh, $binary) = @_;
open my $fh, '>', $file;
$binary
? _write_binary($fh, $mesh->facets)
: _write_ascii($fh, $mesh->facets);
close $fh;
}
sub _write_binary {
my ($fh, $facets) = @_;
die "bigfloat" unless length(pack "f", 1) == 4;
binmode $fh;
print $fh pack 'x80';
print $fh pack 'L', ($#$facets + 1);
print $fh pack '(f<3)4S', (map @$_, @$_), 0 for @$facets;
}
sub _write_ascii {
my ($fh, $facets) = @_;
printf $fh "solid\n";
foreach my $facet (@$facets) {
printf $fh " facet normal %f %f %f\n", @{$facet->[0]};
printf $fh " outer loop\n";
printf $fh " vertex %f %f %f\n", @$_ for @$facet[1,2,3];
printf $fh " endloop\n";
printf $fh " endfacet\n";
}
printf $fh "endsolid\n";
}
1;

16
lib/Slic3r/TriangleMesh.pm
View file

@ -457,4 +457,20 @@ sub edge_id {
return join "-", sort @point_ids;
}
sub get_connected_facets {
my $self = shift;
my ($facet_id) = @_;
my @facets = ();
foreach my $edge_facets (values %{$self->edge_facets}) {
if (grep $_ == $facet_id, @$edge_facets) {
# this edge belongs to the current facet, so let's get
# the other facet(s)
push @facets, grep $_ != $facet_id, @$edge_facets;
}
}
return @facets;
}
1;