juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-19 11:23:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

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}) {