92 lines
2.5 KiB
Perl
92 lines
2.5 KiB
Perl
|
package Slic3r::Fill::Base;
|
|||
|
|
use Moo;
|
|||
|
|
|
|||
|
|
has 'layer_id' => (is => 'rw');
|
|||
|
|
has 'z' => (is => 'rw'); # in unscaled coordinates
|
|||
|
|
has 'angle' => (is => 'rw'); # in radians, ccw, 0 = East
|
|||
|
|
has 'spacing' => (is => 'rw'); # in unscaled coordinates
|
|||
|
|
has 'loop_clipping' => (is => 'rw', default => sub { 0 }); # in scaled coordinates
|
|||
|
|
has 'bounding_box' => (is => 'ro', required => 0); # Slic3r::Geometry::BoundingBox object
|
|||
|
|
|
|||
|
|
sub adjust_solid_spacing {
|
|||
|
|
my $self = shift;
|
|||
|
|
my %params = @_;
|
|||
|
|
|
|||
|
|
my $number_of_lines = int($params{width} / $params{distance}) + 1;
|
|||
|
|
return $params{distance} if $number_of_lines <= 1;
|
|||
|
|
|
|||
|
|
my $extra_space = $params{width} % $params{distance};
|
|||
|
|
return $params{distance} + $extra_space / ($number_of_lines - 1);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
sub no_sort { 0 }
|
|||
|
|
sub use_bridge_flow { 0 }
|
|||
|
|
|
|||
|
|
|
|||
|
|
package Slic3r::Fill::WithDirection;
|
|||
|
|
use Moo::Role;
|
|||
|
|
|
|||
|
|
use Slic3r::Geometry qw(PI rad2deg);
|
|||
|
|
|
|||
|
|
sub angles () { [0, PI/2] }
|
|||
|
|
|
|||
|
|
sub infill_direction {
|
|||
|
|
my $self = shift;
|
|||
|
|
my ($surface) = @_;
|
|||
|
|
|
|||
|
|
if (!defined $self->angle) {
|
|||
|
|
warn "Using undefined infill angle";
|
|||
|
|
$self->angle(0);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
# set infill angle
|
|||
|
|
my (@rotate);
|
|||
|
|
$rotate[0] = $self->angle;
|
|||
|
|
$rotate[1] = $self->bounding_box
|
|||
|
|
? $self->bounding_box->center
|
|||
|
|
: $surface->expolygon->bounding_box->center;
|
|||
|
|
my $shift = $rotate[1]->clone;
|
|||
|
|
|
|||
|
|
if (defined $self->layer_id) {
|
|||
|
|
# alternate fill direction
|
|||
|
|
my $layer_num = $self->layer_id / $surface->thickness_layers;
|
|||
|
|
my $angle = $self->angles->[$layer_num % @{$self->angles}];
|
|||
|
|
$rotate[0] = $self->angle + $angle if $angle;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
# use bridge angle
|
|||
|
|
if ($surface->bridge_angle >= 0) {
|
|||
|
|
Slic3r::debugf "Filling bridge with angle %d\n", rad2deg($surface->bridge_angle);
|
|||
|
|
$rotate[0] = $surface->bridge_angle;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$rotate[0] += PI/2;
|
|||
|
|
$shift->rotate(@rotate);
|
|||
|
|
return [\@rotate, $shift];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
# this method accepts any object that implements rotate() and translate()
|
|||
|
|
sub rotate_points {
|
|||
|
|
my $self = shift;
|
|||
|
|
my ($expolygon, $rotate_vector) = @_;
|
|||
|
|
|
|||
|
|
# rotate points
|
|||
|
|
my ($rotate, $shift) = @$rotate_vector;
|
|||
|
|
$rotate = [ -$rotate->[0], $rotate->[1] ];
|
|||
|
|
$expolygon->rotate(@$rotate);
|
|||
|
|
$expolygon->translate(@$shift);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
sub rotate_points_back {
|
|||
|
|
my $self = shift;
|
|||
|
|
my ($paths, $rotate_vector) = @_;
|
|||
|
|
|
|||
|
|
my ($rotate, $shift) = @$rotate_vector;
|
|||
|
|
$shift = [ map -$_, @$shift ];
|
|||
|
|
|
|||
|
|
$_->translate(@$shift) for @$paths;
|
|||
|
|
$_->rotate(@$rotate) for @$paths;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
1;
|