2011-09-01 23:06:28 +04:00
|
|
|
#!/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");
|
|
|
|
|
|
2011-09-02 23:10:20 +04:00
|
|
|
$print->extrude_perimeters;
|
2011-09-05 14:21:27 +04:00
|
|
|
$print->extrude_fills;
|
2011-09-02 23:10:20 +04:00
|
|
|
|
2011-09-03 22:47:38 +04:00
|
|
|
$print->export_gcode("testcube20mm.gcode");
|
|
|
|
|
|
2011-09-01 23:06:28 +04:00
|
|
|
#XXX $print;
|
|
|
|
|
|
|
|
|
|
__END__
|
