29 lines
619 B
Perl
29 lines
619 B
Perl
|
package Slic3r::AMF;
|
||
|
|
use Moo;
|
||
|
|
use XXX;
|
||
|
|
|
||
|
|
sub read_file {
|
||
|
|
my $self = shift;
|
||
|
|
my ($file) = @_;
|
||
|
|
|
||
|
|
eval "require Slic3r::AMF::Parser; 1"
|
||
|
|
or die "AMF parsing requires XML::SAX::ExpatXS\n";
|
||
|
|
|
||
|
|
open my $fh, '<', $file or die "Failed to open $file\n";
|
||
|
|
|
||
|
|
my $vertices = [];
|
||
|
|
my $facets = [];
|
||
|
|
XML::SAX::ExpatXS
|
||
|
|
->new(Handler => Slic3r::AMF::Parser->new(
|
||
|
|
_vertices => $vertices,
|
||
|
|
_facets => $facets,
|
||
|
|
))
|
||
|
|
->parse_file($fh);
|
||
|
|
|
||
|
|
close $fh;
|
||
|
|
|
||
|
|
return Slic3r::TriangleMesh->new(vertices => $vertices, facets => $facets);
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|