package Slic3r::Fill::Rectilinear; use Moo; extends 'Slic3r::Fill::Base'; use Slic3r::Geometry qw(X1 Y1 X2 Y2 A B X Y scale unscale epsilon); sub fill_surface { my $self = shift; my ($surface, %params) = @_; # rotate polygons so that we can work with vertical lines here my $expolygon = $surface->expolygon->clone; my $rotate_vector = $self->infill_direction($surface); $self->rotate_points($expolygon, $rotate_vector); my ($expolygon_off) = $expolygon->offset_ex(scale 0.3); return {} if !$expolygon_off; # skip some very small polygons (which shouldn't arrive here) my ($expolygon_epsilon_off) = $expolygon->offset_ex(scale epsilon); my $bounding_box = [ $expolygon->bounding_box ]; my $min_spacing = scale $params{flow_spacing}; my $distance_between_lines = $min_spacing / $params{density}; my $line_oscillation = $distance_between_lines - $min_spacing; my $flow_spacing; if ($params{density} == 1) { $distance_between_lines = $self->adjust_solid_spacing( width => $bounding_box->[X2] - $bounding_box->[X1], distance => $distance_between_lines, ); $flow_spacing = unscale $distance_between_lines; } my $overlap_distance = scale($self->layer ? $self->layer->flow->width : $Slic3r::flow->width) * 0.4; my $x = $bounding_box->[X1]; my $is_line_pattern = $self->isa('Slic3r::Fill::Line'); my @vertical_lines = (); for (my $i = 0; $x <= $bounding_box->[X2] + scale epsilon; $i++) { my $vertical_line = Slic3r::Line->new([$x, $bounding_box->[Y2]], [$x, $bounding_box->[Y1]]); if ($is_line_pattern && $i % 2) { $vertical_line->[A][X] += $line_oscillation; $vertical_line->[B][X] -= $line_oscillation; } push @vertical_lines, $vertical_line; $x += $distance_between_lines; } my @paths = @{ Boost::Geometry::Utils::polygon_linestring_intersection( $expolygon_epsilon_off->boost_polygon, Boost::Geometry::Utils::linestring(@vertical_lines), ) }; for (@paths) { $_->[0][Y] += $overlap_distance; $_->[-1][Y] -= $overlap_distance; } # connect lines { my $collection = Slic3r::ExtrusionPath::Collection->new( paths => [ map Slic3r::ExtrusionPath->new(polyline => Slic3r::Polyline->new(@$_), role => -1), @paths ], ); @paths = (); my $tolerance = 10 * scale epsilon; my $diagonal_distance = $distance_between_lines * 5; my $can_connect = $is_line_pattern ? sub { ($_[X] >= ($distance_between_lines - $line_oscillation) - $tolerance) && ($_[X] <= ($distance_between_lines + $line_oscillation) + $tolerance) && $_[Y] <= $diagonal_distance } : sub { abs($_[X]) - $distance_between_lines <= $tolerance && $_[Y] <= $diagonal_distance }; foreach my $path ($collection->shortest_path) { if (@paths) { my @distance = map abs($path->points->[0][$_] - $paths[-1][-1][$_]), (X,Y); # TODO: we should also check that both points are on a fill_boundary to avoid # connecting paths on the boundaries of internal regions if ($can_connect->(@distance, $paths[-1][-1], $path->points->[0]) && $expolygon_off->encloses_line(Slic3r::Line->new($paths[-1][-1], $path->points->[0]))) { push @{$paths[-1]}, @{$path->points}; next; } } push @paths, $path->points; } } # paths must be rotated back $self->rotate_points_back(\@paths, $rotate_vector); return { flow_spacing => $flow_spacing }, @paths; } 1;