New utility for exporting STL slices to a PDF file

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__