Satisfy test suite

This commit is contained in:
Alessandro Ranellucci 2013-12-24 12:03:30 +01:00
parent 2956c1a2e5
commit 1a690589a8
4 changed files with 8 additions and 1 deletions

View file

@ -43,7 +43,7 @@ sub _build_retract_speed_mm_min {
}
sub scaled_wipe_distance {
my ($self, $travel_speed) = shift;
my ($self, $travel_speed) = @_;
# how far do we move in XY at travel_speed for the time needed to consume
# retract_length at retract_speed?

View file

@ -13,6 +13,11 @@ 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, @shift);
$rotate[0] = Slic3r::Geometry::deg2rad($self->angle);

View file

@ -333,6 +333,7 @@ sub _fill_gaps {
return unless @$gaps;
my $filler = Slic3r::Fill->new->filler('rectilinear');
$filler->angle($self->config->fill_angle);
$filler->layer_id($self->layer->id);
# we should probably use this code to handle thin walls and remove that logic from