3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-10-31 04:31:15 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Fix SVG/DLP support material. #673

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-09-28 16:32:53 +02:00
parent c68862582c
commit 22b312395a
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/Slic3r/Print.pm
View file

@ -453,6 +453,10 @@ sub export_svg {
my $self = shift; my $self = shift;
my %params = @_; my %params = @_;
# this shouldn't be needed, but we're currently relying on ->make_surfaces() which
# calls ->perimeter_flow
$self->init_extruders;
$_->slice(keep_meshes => $params{keep_meshes}) for @{$self->objects}; $_->slice(keep_meshes => $params{keep_meshes}) for @{$self->objects};
$self->arrange_objects; $self->arrange_objects;
@ -489,10 +493,10 @@ EOF
my $layer = $self->objects->[$obj_idx]->layers->[$layer_id] or next; my $layer = $self->objects->[$obj_idx]->layers->[$layer_id] or next;
# sort slices so that the outermost ones come first # sort slices so that the outermost ones come first
my @slices = sort { $a->expolygon->contour->encloses_point($b->expolygon->contour->[0]) ? 0 : 1 } @{$layer->slices}; my @slices = sort { $a->contour->encloses_point($b->contour->[0]) ? 0 : 1 } @{$layer->slices};
foreach my $copy (@{$self->objects->[$obj_idx]->copies}) { foreach my $copy (@{$self->objects->[$obj_idx]->copies}) {
foreach my $slice (@slices) { foreach my $slice (@slices) {
my $expolygon = $slice->expolygon->clone; my $expolygon = $slice->clone;
$expolygon->translate(@$copy); $expolygon->translate(@$copy);
$print_polygon->($expolygon->contour, 'contour'); $print_polygon->($expolygon->contour, 'contour');
$print_polygon->($_, 'hole') for $expolygon->holes; $print_polygon->($_, 'hole') for $expolygon->holes;
@ -518,7 +522,7 @@ EOF
# supported points # supported points
my $support_point = nearest_point($expolygon->contour->[0], \@supported_points) my $support_point = nearest_point($expolygon->contour->[0], \@supported_points)
or next; or next;
my $anchor_point = nearest_point($support_point, $expolygon->contour->[0]); my $anchor_point = nearest_point($support_point, $expolygon->contour);
printf $fh qq{ <line x1="%s" y1="%s" x2="%s" y2="%s" style="stroke-width: 2; stroke: white" />\n}, printf $fh qq{ <line x1="%s" y1="%s" x2="%s" y2="%s" style="stroke-width: 2; stroke: white" />\n},
map @$_, $support_point, $anchor_point; map @$_, $support_point, $anchor_point;
} }