25 lines
339 B
Perl
25 lines
339 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
BEGIN {
|
|
use FindBin;
|
|
use lib "$FindBin::Bin/lib";
|
|
}
|
|
|
|
use Slic3r;
|
|
use XXX;
|
|
|
|
my $stl_parser = Slic3r::STL->new;
|
|
my $print = $stl_parser->parse_file("testcube20mm.stl");
|
|
|
|
$print->extrude_perimeters;
|
|
$print->extrude_fills;
|
|
|
|
$print->export_gcode("testcube20mm.gcode");
|
|
|
|
#XXX $print;
|
|
|
|
__END__
|