27 lines
644 B
Perl
27 lines
644 B
Perl
package Slic3r::Format::OBJ;
|
|
use Moo;
|
|
|
|
sub read_file {
|
|
my $self = shift;
|
|
my ($file) = @_;
|
|
|
|
Slic3r::open(\my $fh, '<', $file) or die "Failed to open $file\n";
|
|
my $vertices = [];
|
|
my $facets = [];
|
|
while (<$fh>) {
|
|
if (/^v ([^ ]+)\s+([^ ]+)\s+([^ ]+)/) {
|
|
push @$vertices, [$1, $2, $3];
|
|
} elsif (/^f (\d+).*? (\d+).*? (\d+).*?/) {
|
|
push @$facets, [ $1-1, $2-1, $3-1 ];
|
|
}
|
|
}
|
|
close $fh;
|
|
|
|
my $model = Slic3r::Model->new;
|
|
my $object = $model->add_object(vertices => $vertices);
|
|
my $volume = $object->add_volume(facets => $facets);
|
|
return $model;
|
|
}
|
|
|
|
1;
|