slic3r.pl

#!/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->export_gcode("testcube20mm.gcode");

#XXX $print;

__END__
Initial import 2011-09-01 21:06:28 +02: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");`

Extrusion of perimeters 2011-09-02 21:10:20 +02:00			`$print->extrude_perimeters;`

Generate GCODE 2011-09-03 20:47:38 +02:00			`$print->export_gcode("testcube20mm.gcode");`

Initial import 2011-09-01 21:06:28 +02:00			`#XXX $print;`

			`__END__`