3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-16 19:28:14 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

SVG export

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-03-26 17:57:54 +02:00
parent 5bd16ffed6
commit 32c46f0ea3
5 changed files with 79 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

63
lib/Slic3r/Skein.pm
View file

@ -3,7 +3,7 @@ use Moo;
use Config;
use File::Basename qw(basename fileparse);
use Slic3r::Geometry qw(PI);
use Slic3r::Geometry qw(PI unscale);
use Time::HiRes qw(gettimeofday tv_interval);
use XXX;
@ -17,14 +17,9 @@ has 'output_file' => (is => 'rw', required => 0);
has 'status_cb' => (is => 'rw', required => 0, default => sub { sub {} });
has 'processing_time' => (is => 'rw', required => 0);
sub go {
sub slice_input {
my $self = shift;
my $t0 = [gettimeofday];
# skein the STL into layers
# each layer has surfaces with holes
$self->status_cb->(5, "Processing input file " . $self->input_file);
$self->status_cb->(10, "Processing triangulated mesh");
my $print;
if ($self->input_file =~ /\.stl$/i) {
my $mesh = Slic3r::Format::STL->read_file($self->input_file);
@ -37,6 +32,17 @@ sub go {
} else {
die "Input file must have .stl or .amf(.xml) extension\n";
}
}
sub go {
my $self = shift;
my $t0 = [gettimeofday];
# skein the STL into layers
# each layer has surfaces with holes
$self->status_cb->(5, "Processing input file " . $self->input_file);
$self->status_cb->(10, "Processing triangulated mesh");
my $print = $self->slice_input;
# make perimeters
# this will add a set of extrusion loops to each layer
@ -152,6 +158,49 @@ sub go {
$print->total_extrusion_length, $print->total_extrusion_volume;
}
sub export_svg {
my $self = shift;
my $print = $self->slice_input;
my $output_file = $self->expanded_output_filepath;
$output_file =~ s/\.gcode$/.svg/i;
open my $fh, ">", $output_file or die "Failed to open $output_file for writing\n";
print "Exporting to $output_file...";
print $fh sprintf <<"EOF", unscale($print->total_x_length), unscale($print->total_y_length);
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.0//EN" "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">
<svg width="%s" height="%s" xmlns="http://www.w3.org/2000/svg" xmlns:svg="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
EOF
my $print_polygon = sub {
my ($polygon, $fill) = @_;
printf $fh qq{ <polygon points="%s" style="fill: %s" />},
(join ' ', map { join ',', map unscale $_, @$_ } @$polygon), $fill;
};
foreach my $layer (@{$print->layers}) {
printf $fh qq{ <g id="layer%d">\n}, $layer->id;
# sort slices so that the outermost ones come first
my @slices = sort { $a->expolygon->contour->encloses_point($b->expolygon->contour->[0]) ? 0 : 1 } @{$layer->slices};
foreach my $slice (@slices) {
$print_polygon->($slice->expolygon->contour, 'black');
$print_polygon->($_, 'white') for $slice->expolygon->holes;
}
print $fh qq{ </g>\n};
}
print $fh <<"EOF";
<!--
Generated using Slic3r $Slic3r::VERSION
http://slic3r.org/
-->
</svg>
EOF
close $fh;
print "Done.\n";
}
# this method will return the value of $self->output_file after expanding its
# format variables with their values
sub expanded_output_filepath {