3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Some cleanup for the Voronoi code

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-09-16 19:15:30 +02:00
parent a88ce0cb5e
commit 78167f56ee
1 changed files with 18 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
lib/Slic3r/ExPolygon.pm
View file

@ -105,29 +105,30 @@ sub medial_axis {
my $self = shift;
my ($width) = @_;
my @points = ();
foreach my $polygon (@$self) {
{
my $p = $polygon->pp;
Slic3r::Geometry::polyline_remove_short_segments($p, $width / 2);
$polygon = Slic3r::Polygon->new(@$p);
my $voronoi;
{
my @points = ();
foreach my $polygon (@$self) {
{
my $p = $polygon->pp;
Slic3r::Geometry::polyline_remove_short_segments($p, $width / 2);
$polygon = Slic3r::Polygon->new(@$p);
}
# subdivide polygon segments so that we don't have anyone of them
# being longer than $width / 2
$polygon = $polygon->subdivide($width/2);
push @points, map $_->pp, @$polygon;
}
# subdivide polygon segments so that we don't have anyone of them
# being longer than $width / 2
$polygon = $polygon->subdivide($width/2);
push @points, map $_->clone, @$polygon;
$voronoi = Math::Geometry::Voronoi->new(points => \@points);
}
my $voronoi = Math::Geometry::Voronoi->new(points => [ map $_->pp, @points ]);
$voronoi->compute;
my $vertices = $voronoi->vertices;
my @skeleton_lines = ();
my $vertices = $voronoi->vertices;
my $edges = $voronoi->edges;
foreach my $edge (@$edges) {
foreach my $edge (@{ $voronoi->edges }) {
# ignore lines going to infinite
next if $edge->[1] == -1 || $edge->[2] == -1;