mirror of
https://git.mirrors.martin98.com/https://github.com/slic3r/Slic3r.git
synced 2025-07-30 14:02:01 +08:00
19ea7a596a
* For reprap (really Marlin) or Repetier flavors and a toolchange retract, produce G10 S1 instead of G10. Also refactored comments (were getting eaten by fw retract) * Fixed tests to check for correct retract gcode output. * Better reference to scalar. * Added config checks for if fw tool retracts are in place and firmware is repetier/marlin, disable the advanced option. * Disable z lift if firmware retraction is enabled. * With gcode comments on, indicates which extruder Slic3r thinks it is retracting/unretracting.
61 lines
1.9 KiB
Perl
61 lines
1.9 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Slic3r::XS;
|
|
use Test::More tests => 5;
|
|
|
|
{
|
|
my $gcodegen = Slic3r::GCode->new;
|
|
$gcodegen->set_origin(Slic3r::Pointf->new(10,0));
|
|
is_deeply $gcodegen->origin->pp, [10,0], 'set_origin';
|
|
$gcodegen->origin->translate(5,5);
|
|
is_deeply $gcodegen->origin->pp, [15,5], 'origin returns reference to point';
|
|
}
|
|
|
|
{
|
|
my $config = Slic3r::Config::Static::new_FullPrintConfig;
|
|
my $gcodegen = Slic3r::GCode->new;
|
|
$config->set('use_firmware_retraction', 1);
|
|
$config->set('gcode_flavor', "reprap");
|
|
$config->set('gcode_comments', 1);
|
|
$gcodegen->apply_print_config($config);
|
|
$gcodegen->writer->set_extruders([0]);
|
|
$gcodegen->writer->set_extruder(0);
|
|
my @output = split(/\n/, $gcodegen->retract(1));
|
|
is $output[0], "G10 S1 ; retract for toolchange extruder 0", 'Produces long retract for fw marlin retract';
|
|
}
|
|
|
|
{
|
|
my $config = Slic3r::Config::Static::new_FullPrintConfig;
|
|
$config->set('use_firmware_retraction', 1);
|
|
$config->set('gcode_flavor', "repetier");
|
|
$config->set('gcode_comments', 1);
|
|
|
|
my $gcodegen = Slic3r::GCode->new;
|
|
$gcodegen->apply_print_config($config);
|
|
$gcodegen->writer->set_extruders([0]);
|
|
$gcodegen->writer->set_extruder(0);
|
|
my @output = split(/\n/, $gcodegen->retract(1));
|
|
is $output[0], "G10 S1 ; retract for toolchange extruder 0", 'Produces long retract for fw repetier retract';
|
|
|
|
}
|
|
{
|
|
my $config = Slic3r::Config::Static::new_FullPrintConfig;
|
|
$config->set('gcode_flavor', "smoothie");
|
|
$config->set('use_firmware_retraction', 1);
|
|
$config->set('gcode_comments', 1);
|
|
|
|
my $gcodegen = Slic3r::GCode->new;
|
|
$gcodegen->apply_print_config($config);
|
|
|
|
$gcodegen->writer->set_extruders([0]);
|
|
$gcodegen->writer->set_extruder(0);
|
|
my @output = split(/\n/, $gcodegen->retract(1));
|
|
ok($output[0] eq "G10 ; retract for toolchange extruder 0", 'Produces regular retract for flavors that are not Marlin or Repetier');
|
|
|
|
}
|
|
|
|
__END__
|