diff options
author | Alessandro Ranellucci <aar@cpan.org> | 2013-08-28 18:51:58 +0400 |
---|---|---|
committer | Alessandro Ranellucci <aar@cpan.org> | 2013-08-28 22:37:56 +0400 |
commit | 73c05a60921961248f3da547d3bef69921d8600b (patch) | |
tree | 783a9786588f7068cd3c30492d398250b5913a0d /t/shells.t | |
parent | fb763b01879f6943bf8f601f37e03947ccbf7511 (diff) |
Moved vibration limit to its own G-code filter
Diffstat (limited to 't/shells.t')
-rw-r--r-- | t/shells.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/shells.t b/t/shells.t index 7120c0e7c..4ef1f9f12 100644 --- a/t/shells.t +++ b/t/shells.t @@ -27,7 +27,7 @@ use Slic3r::Test; my $print = Slic3r::Test::init_print('20mm_cube', config => $config); my %layers_with_shells = (); # Z => $count - Slic3r::GCode::Reader->new(gcode => Slic3r::Test::gcode($print))->parse(sub { + Slic3r::GCode::Reader->new->parse(Slic3r::Test::gcode($print), sub { my ($self, $cmd, $args, $info) = @_; if ($self->Z > 0) { @@ -74,7 +74,7 @@ use Slic3r::Test; my $print = Slic3r::Test::init_print('V', config => $config); my %layers_with_solid_infill = (); # Z => 1 - Slic3r::GCode::Reader->new(gcode => Slic3r::Test::gcode($print))->parse(sub { + Slic3r::GCode::Reader->new->parse(Slic3r::Test::gcode($print), sub { my ($self, $cmd, $args, $info) = @_; $layers_with_solid_infill{$self->Z} = 1 @@ -106,7 +106,7 @@ use Slic3r::Test; my $print = Slic3r::Test::init_print('V', config => $config); my %layers = (); # Z => 1 - Slic3r::GCode::Reader->new(gcode => Slic3r::Test::gcode($print))->parse(sub { + Slic3r::GCode::Reader->new->parse(Slic3r::Test::gcode($print), sub { my ($self, $cmd, $args, $info) = @_; $layers{$self->Z} = 1 if $info->{extruding} && ($args->{F} // $self->F) == $config->solid_infill_speed*60; @@ -132,7 +132,7 @@ use Slic3r::Test; my $travel_moves_after_first_extrusion = 0; my $started_extruding = 0; my @z_steps = (); - Slic3r::GCode::Reader->new(gcode => Slic3r::Test::gcode($print))->parse(sub { + Slic3r::GCode::Reader->new->parse(Slic3r::Test::gcode($print), sub { my ($self, $cmd, $args, $info) = @_; $started_extruding = 1 if $info->{extruding}; |