GitHub-Proxy/PrusaSlicer
1
0
Fork 0
mirror of https://git.mirrors.martin98.com/https://github.com/prusa3d/PrusaSlicer.git synced 2025-05-21 20:18:17 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

External motion was crossing still too much

Browse Source
This commit is contained in:
Alessandro Ranellucci 2012-08-23 21:19:10 +02:00
parent c98e9515ed
commit 56a118986f
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lib/Slic3r/GCode/MotionPlanner.pm
View File

@ -12,7 +12,7 @@ has '_edges' => (is => 'rw', default => sub { {} }); # node_idx => { nod
has '_crossing_edges' => (is => 'rw', default => sub { {} }); # edge_idx => bool has '_crossing_edges' => (is => 'rw', default => sub { {} }); # edge_idx => bool
use List::Util qw(first); use List::Util qw(first);
use Slic3r::Geometry qw(scale epsilon nearest_point); use Slic3r::Geometry qw(A B scale epsilon nearest_point);
use Slic3r::Geometry::Clipper qw(diff_ex JT_MITER); use Slic3r::Geometry::Clipper qw(diff_ex JT_MITER);
# clearance (in mm) from the perimeters # clearance (in mm) from the perimeters
@ -98,9 +98,19 @@ sub BUILD {
)} > 0; )} > 0;
}; };
# lines connecting outer polygons are visible
{ {
my @outer = (map @$_, @{$self->_outer}); my @outer = (map @$_, @{$self->_outer});
# lines of outer polygons connect visible points
for my $i (0 .. $#outer) {
foreach my $line ($outer[$i]->lines) {
my $dist = $line->length;
$edges->{$line->[A]}{$line->[B]} = $dist;
$edges->{$line->[B]}{$line->[A]} = $dist;
}
}
# lines connecting outer polygons are visible
for my $i (0 .. $#outer) { for my $i (0 .. $#outer) {
for my $j (($i+1) .. $#outer) { for my $j (($i+1) .. $#outer) {
for my $m (0 .. $#{$outer[$i]}) { for my $m (0 .. $#{$outer[$i]}) {
@ -163,7 +173,7 @@ sub BUILD {
lines => \@lines, lines => \@lines,
points => [ values %{$self->_pointmap} ], points => [ values %{$self->_pointmap} ],
no_arrows => 1, no_arrows => 1,
#polygons => [ map @$_, @{$self->islands} ], polygons => [ map @$_, @{$self->islands} ],
#red_polygons => [ map $_->holes, map @$_, @{$self->_inner} ], #red_polygons => [ map $_->holes, map @$_, @{$self->_inner} ],
#white_polygons => [ map @$_, @{$self->_outer} ], #white_polygons => [ map @$_, @{$self->_outer} ],
); );