diff options
author | Alessandro Ranellucci <aar@cpan.org> | 2014-03-23 20:55:36 +0400 |
---|---|---|
committer | Alessandro Ranellucci <aar@cpan.org> | 2014-03-23 20:55:36 +0400 |
commit | f93c34ec250956356f06a7610b2089ab31518773 (patch) | |
tree | 368b9840d7173a6ea3691c12b8bf41e83b88036a /utils/pdf-slices.pl | |
parent | 9f8b5f80d1bc4716e667ab8ef138ae1cda58590c (diff) |
New utility for exporting STL slices to a PDF file
Diffstat (limited to 'utils/pdf-slices.pl')
-rwxr-xr-x | utils/pdf-slices.pl | 92 |
1 files changed, 92 insertions, 0 deletions
diff --git a/utils/pdf-slices.pl b/utils/pdf-slices.pl new file mode 100755 index 000000000..7bace695e --- /dev/null +++ b/utils/pdf-slices.pl @@ -0,0 +1,92 @@ +#!/usr/bin/perl +# This script exports model slices to a PDF file as solid fills, one per page + +use strict; +use warnings; + +BEGIN { + use FindBin; + use lib "$FindBin::Bin/../lib"; +} + +use Getopt::Long qw(:config no_auto_abbrev); +use PDF::API2; +use Slic3r; +use Slic3r::Geometry qw(unscale X Y); + +use constant mm => 25.4 / 72; + +my %opt = (); +{ + my %options = ( + 'help' => sub { usage() }, + 'output|o=s' => \$opt{output_file}, + 'layer-height|h=f' => \$opt{layer_height}, + ); + GetOptions(%options) or usage(1); + $ARGV[0] or usage(1); +} + +{ + # prepare config + my $config = Slic3r::Config->new; + $config->set('layer_height', $opt{layer_height}) if $opt{layer_height}; + + # init print object + my $sprint = Slic3r::Print::Simple->new; + $sprint->apply_config($config); + $sprint->set_model(Slic3r::Model->read_from_file(my $input_file = $ARGV[0])); + my $print = $sprint->_print; + + # compute sizes + my $bb = $print->bounding_box; + my $mediabox = [ map unscale($_)/mm, @{$bb->size} ]; + + # init PDF + my $pdf = PDF::API2->new(); + my $color = $pdf->colorspace_separation('RDG_GLOSS', 'darkblue'); + + # slice and build output geometry + $_->slice for @{$print->objects}; + foreach my $layer (@{ $print->objects->[0]->layers }) { + my $page = $pdf->page(); + $page->mediabox(@$mediabox); + my $content = $page->gfx; + $content->fillcolor($color, 1); + + foreach my $expolygon (@{$layer->slices}) { + $content->poly(map { unscale($_->x)/mm, unscale($_->y)/mm } @{$expolygon->contour}); #) + $content->close; + foreach my $hole (@{$expolygon->holes}) { + $content->poly(map { unscale($_->x)/mm, unscale($_->y)/mm } @$hole); #) + $content->close; + } + $content->fill; # non-zero by default + } + } + + # write output file + my $output_file = $opt{output_file}; + if (!defined $output_file) { + $output_file = $input_file; + $output_file =~ s/\.(?:stl)$/.pdf/i; + } + $pdf->saveas($output_file); + printf "PDF file written to %s\n", $output_file; +} + +sub usage { + my ($exit_code) = @_; + + print <<"EOF"; +Usage: pdf-slices.pl [ OPTIONS ] file.stl + + --help Output this usage screen and exit + --output, -o Write to the specified file + --layer-height, -h Use the specified layer height + +EOF + exit ($exit_code || 0); +} + +__END__ |