3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-08-06 13:34:05 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Implemented a new "line" fill pattern. #20

Browse source
This commit is contained in:
Alessandro Ranellucci 2011-11-14 10:31:07 +01:00
parent d47a7bebbc
commit 86f3e4fcd2
4 changed files with 21 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/Slic3r/Fill/Rectilinear.pm
View file

@ -3,7 +3,7 @@ use Moo;
extends 'Slic3r::Fill::Base';
use Slic3r::Geometry qw(X1 Y1 X2 Y2);
use Slic3r::Geometry qw(X1 Y1 X2 Y2 A B X);
use XXX;
sub fill_surface {
@ -16,14 +16,22 @@ sub fill_surface {
$self->rotate_points($expolygon, $rotate_vector);
my $bounding_box = [ $expolygon->bounding_box ];
my $distance_between_lines = $params{flow_width} / $Slic3r::resolution / $params{density};
my $flow_width_res = $params{flow_width} / $Slic3r::resolution;
my $distance_between_lines = $flow_width_res / $params{density};
my @paths = ();
my $x = $bounding_box->[X1];
my $is_line_pattern = $self->isa('Slic3r::Fill::Line');
my $i = 0;
while ($x < $bounding_box->[X2]) {
my $vertical_line = [ [$x, $bounding_box->[Y2]], [$x, $bounding_box->[Y1]] ];
if ($is_line_pattern && $i % 2) {
$vertical_line->[A][X] -= ($distance_between_lines - $flow_width_res);
$vertical_line->[B][X] += ($distance_between_lines - $flow_width_res);
}
push @paths, @{ $expolygon->clip_line($vertical_line) };
$x += int($distance_between_lines);
$i++;
}
# paths must be rotated back