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

Clean medial axis code and gap fill

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-09-16 17:44:30 +02:00
parent 98ad345e42
commit 9a51964e98
5 changed files with 108 additions and 146 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/Slic3r/SVG.pm
View file

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