juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-31 00:52:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix tests

Browse Source
This commit is contained in:
Alessandro Ranellucci
2013-09-02 22:10:52 +02:00
parent a1a33c2291
commit 0ffb0f6a58
5 changed files with 15 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/Slic3r/SVG.pm
View File

@@ -46,6 +46,7 @@ sub output {
$arrows = 0;
} elsif ($type =~ /^(?:(.+?)_)?expolygons$/) {
my $colour = $1;
@$value = map $_->pp, @$value;
my $g = $svg->group(
style => {
@@ -63,6 +64,7 @@ sub output {
}
} elsif ($type =~ /^(?:(.+?)_)?(polygon|polyline)s$/) {
my ($colour, $method) = ($1, $2);
@$value = map $_->pp, @$value;
my $g = $svg->group(
style => {
@@ -83,8 +85,9 @@ sub output {
);
}
} elsif ($type =~ /^(?:(.+?)_)?points$/) {
my $colour = $1;
my $colour = $1 // 'black';
my $r = $colour eq 'black' ? 5 : 3;
@$value = map $_->pp, @$value;
my $g = $svg->group(
style => {
@@ -102,6 +105,7 @@ sub output {
}
} elsif ($type =~ /^(?:(.+?)_)?lines$/) {
my $colour = $1;
@$value = map $_->pp, @$value;
my $g = $svg->group(
style => {