amd/orcaslicer
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Added unit testing to prevent regression about disconnected infill paths

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-08-25 14:59:34 +02:00
parent 65b11fa850
commit af1b64a086
2 changed files with 30 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/Slic3r/Polyline.pm
View file

@ -144,6 +144,7 @@ sub rotate {
my $self = shift; my $self = shift;
my ($angle, $center) = @_; my ($angle, $center) = @_;
@$self = Slic3r::Geometry::rotate_points($angle, $center, @$self); @$self = Slic3r::Geometry::rotate_points($angle, $center, @$self);
bless $_, 'Slic3r::Point' for @$self;
return $self; return $self;
} }
@ -151,6 +152,7 @@ sub translate {
my $self = shift; my $self = shift;
my ($x, $y) = @_; my ($x, $y) = @_;
@$self = Slic3r::Geometry::move_points([$x, $y], @$self); @$self = Slic3r::Geometry::move_points([$x, $y], @$self);
bless $_, 'Slic3r::Point' for @$self;
return $self; return $self;
} }

33
t/fill.t
View file

@ -2,7 +2,7 @@ use Test::More;
use strict; use strict;
use warnings; use warnings;
plan tests => 2; plan tests => 4;
BEGIN { BEGIN {
use FindBin; use FindBin;
@ -10,13 +10,16 @@ BEGIN {
} }
use Slic3r; use Slic3r;
use Slic3r::Geometry qw(scale X Y);
use Slic3r::Surface qw(:types);
my $print = Slic3r::Print->new( sub scale_points (@) { map [scale $_->[X], scale $_->[Y]], @_ }
x_length => 50,
y_length => 50,
);
{ {
my $print = Slic3r::Print->new(
x_length => 50,
y_length => 50,
);
my $filler = Slic3r::Fill::Rectilinear->new(print => $print); my $filler = Slic3r::Fill::Rectilinear->new(print => $print);
my $surface_width = 250; my $surface_width = 250;
my $distance = $filler->adjust_solid_spacing( my $distance = $filler->adjust_solid_spacing(
@ -27,4 +30,24 @@ my $print = Slic3r::Print->new(
is $surface_width % $distance, 0, 'adjusted solid distance'; is $surface_width % $distance, 0, 'adjusted solid distance';
} }
{
my $print = Slic3r::Print->new(
x_length => scale 100,
y_length => scale 100,
);
my $filler = Slic3r::Fill::Rectilinear->new(
print => $print,
max_print_dimension => scale 100,
);
my $surface = Slic3r::Surface->new(
surface_type => S_TYPE_TOP,
expolygon => Slic3r::ExPolygon->new([ scale_points [0,0], [50,0], [50,50], [0,50] ]),
);
foreach my $angle (0, 45) {
$surface->expolygon->rotate($angle, [0,0]);
my ($params, @paths) = $filler->fill_surface($surface, flow_spacing => 0.69, density => 0.4);
is scalar @paths, 1, 'one continuous path';
}
}
__END__ __END__