3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-11-02 20:51:23 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions 4

Experimental hole compensation

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-02-24 20:13:17 +01:00
parent 21c99c0953
commit 79aead7c9d
1 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/Slic3r/Perimeter.pm
View file

@ -2,10 +2,12 @@ package Slic3r::Perimeter;
use Moo;
use Math::Clipper ':all';
use Slic3r::Geometry qw(X Y shortest_path scale);
use Slic3r::Geometry qw(X Y PI shortest_path scale unscale);
use Slic3r::Geometry::Clipper qw(diff_ex);
use XXX;
my $HOLE_COMPENSATION_THRESHOLD;
sub make_perimeter {
my $self = shift;
my ($layer) = @_;
@ -34,11 +36,22 @@ sub make_perimeter {
map [ $_->contour->[0], $_ ], @{$layer->slices},
])};
$HOLE_COMPENSATION_THRESHOLD ||= ((scale 6.5)**2)*PI;
# for each island:
foreach my $surface (@surfaces) {
my @last_offsets = ($surface->expolygon);
my $distance = 0;
# experimental hole compensation (see ArcCompensation in the RepRap wiki)
foreach my $hole ($last_offsets[0]->holes) {
my $area = abs($hole->area);last;
next unless $area <= $HOLE_COMPENSATION_THRESHOLD;
my $radius = sqrt($area / PI);
my $new_radius = (scale($Slic3r::flow_width) + sqrt((scale($Slic3r::flow_width)**2) + (4*($radius**2)))) / 2;
@$hole = map Slic3r::Point->new($_), @{ +($hole->offset(+ ($new_radius - $radius)))[0] };
}
# create other offsets
push @perimeters, [];
for (my $loop = 0; $loop < $Slic3r::perimeters; $loop++) {