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

Refactoring: moved direction-specific methods to new role class Slic3r::Fill::WithDirection

Browse source
This commit is contained in:
Alessandro Ranellucci 2014-07-26 16:28:38 +02:00
parent c4d70bcb85
commit d508be5ae8
4 changed files with 20 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

30
lib/Slic3r/Fill/Base.pm
View file

@ -1,12 +1,27 @@
package Slic3r::Fill::Base;
use Moo;
use Slic3r::Geometry qw(PI rad2deg);
has 'layer_id' => (is => 'rw');
has 'angle' => (is => 'rw'); # in radians, ccw, 0 = East
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);
}
package Slic3r::Fill::WithDirection;
use Moo::Role;
use Slic3r::Geometry qw(PI rad2deg);
sub angles () { [0, PI/2] }
sub infill_direction {
@ -67,15 +82,4 @@ sub rotate_points_back {
$_->rotate(@$rotate) for @$paths;
}
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);
}
1;