3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-23 22:54:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

Do not pass the Print object to SVG::output anymore

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-11-01 11:34:53 +01:00
parent 554d10c854
commit cb4ede7f9e
5 changed files with 8 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/Slic3r/SVG.pm
View file

@ -12,10 +12,7 @@ sub factor {
}
sub svg {
my ($print) = @_;
$print ||= Slic3r::Print->new(x_length => 200 / &Slic3r::SCALING_FACTOR, y_length => 200 / &Slic3r::SCALING_FACTOR);
my $svg = SVG->new(width => 200 * 10, height => 200 * 10);
my $marker_end = $svg->marker(
id => "endArrow",
viewBox => "0 0 10 10",
@ -35,9 +32,9 @@ sub svg {
}
sub output {
my ($print, $filename, %things) = @_;
my ($filename, %things) = @_;
my $svg = svg($print);
my $svg = svg();
foreach my $type (qw(polygons polylines white_polygons green_polygons red_polygons red_polylines)) {
if ($things{$type}) {