Files
OrcaSlicer-bambulab/lib/Slic3r/Format/STL.pm
2017-02-27 00:38:30 +01:00

20 lines
363 B
Perl

package Slic3r::Format::STL;
use Moo;
use File::Basename qw(basename);
sub write_file {
my $self = shift;
my ($file, $mesh, %params) = @_;
$mesh = $mesh->mesh if $mesh->isa('Slic3r::Model');
my $path = Slic3r::encode_path($file);
$params{binary}
? $mesh->write_binary($path)
: $mesh->write_ascii($path);
}
1;