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

Fixes and improvements after testing with more complex objects

Browse source
This commit is contained in:
Alessandro Ranellucci 2011-09-26 14:48:22 +02:00
parent bfad101c8c
commit 478047fad3
5 changed files with 70 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

41
lib/Slic3r/SVG.pm
View file

@ -8,7 +8,7 @@ use constant X => 0;
use constant Y => 1;
sub factor {
return $Slic3r::resolution * 100;
return $Slic3r::resolution * 10;
}
sub svg {
@ -17,6 +17,44 @@ sub svg {
return SVG->new(width => $print->max_length * factor(), height => $print->max_length * factor());
}
sub output_points {
my ($print, $filename, $points, $red_points) = @_;
$red_points ||= [];
my $svg = svg($print);
my $g = $svg->group(
style => {
'stroke-width' => 2,
'stroke' => 'black',
'fill' => 'black',
},
);
foreach my $point (@$points) {
$g->circle(
cx => $point->[X] * factor(),
cy => $point->[Y] * factor(),
r => 2,
);
}
my $g2 = $svg->group(
style => {
'stroke-width' => 2,
'stroke' => 'red',
'fill' => 'red',
},
);
foreach my $point (@$red_points) {
$g2->circle(
cx => $point->[X] * factor(),
cy => $point->[Y] * factor(),
r => 3,
);
}
write_svg($svg, $filename);
}
sub output_polygons {
my ($print, $filename, $polygons) = @_;
@ -25,6 +63,7 @@ sub output_polygons {
style => {
'stroke-width' => 2,
'stroke' => 'black',
'fill' => 'none',
},
);
foreach my $polygon (@$polygons) {