127 lines
4.6 KiB
Perl
127 lines
4.6 KiB
Perl
use Test::More tests => 14;
|
|
use strict;
|
|
use warnings;
|
|
|
|
BEGIN {
|
|
use FindBin;
|
|
use lib "$FindBin::Bin/../lib";
|
|
}
|
|
|
|
use List::Util qw(first);
|
|
use Slic3r;
|
|
use Slic3r::Geometry qw(epsilon scale);
|
|
use Slic3r::Geometry::Clipper qw(diff);
|
|
use Slic3r::Test;
|
|
|
|
{
|
|
my $config = Slic3r::Config->new_from_defaults;
|
|
$config->set('support_material', 1);
|
|
my @contact_z = my @top_z = ();
|
|
|
|
my $test = sub {
|
|
my $print = Slic3r::Test::init_print('20mm_cube', config => $config);
|
|
$print->init_extruders;
|
|
my $flow = $print->objects->[0]->support_material_flow;
|
|
my $support_z = Slic3r::Print::SupportMaterial
|
|
->new(object_config => $print->objects->[0]->config, print_config => $print->config, flow => $flow)
|
|
->support_layers_z(\@contact_z, \@top_z, $config->layer_height);
|
|
|
|
is $support_z->[0], $config->first_layer_height,
|
|
'first layer height is honored';
|
|
is scalar(grep { $support_z->[$_]-$support_z->[$_-1] <= 0 } 1..$#$support_z), 0,
|
|
'no null or negative support layers';
|
|
is scalar(grep { $support_z->[$_]-$support_z->[$_-1] > $config->nozzle_diameter->[0] + epsilon } 1..$#$support_z), 0,
|
|
'no layers thicker than nozzle diameter';
|
|
|
|
my $wrong_top_spacing = 0;
|
|
foreach my $top_z (@top_z) {
|
|
# find layer index of this top surface
|
|
my $layer_id = first { abs($support_z->[$_] - $top_z) < epsilon } 0..$#$support_z;
|
|
|
|
# check that first support layer above this top surface is spaced with nozzle diameter
|
|
$wrong_top_spacing = 1
|
|
if ($support_z->[$layer_id+1] - $support_z->[$layer_id]) != $config->nozzle_diameter->[0];
|
|
}
|
|
ok !$wrong_top_spacing, 'layers above top surfaces are spaced correctly';
|
|
};
|
|
|
|
$config->set('layer_height', 0.2);
|
|
$config->set('first_layer_height', 0.3);
|
|
@contact_z = (1.9);
|
|
@top_z = (1.1);
|
|
$test->();
|
|
|
|
$config->set('first_layer_height', 0.4);
|
|
$test->();
|
|
|
|
$config->set('layer_height', $config->nozzle_diameter->[0]);
|
|
$test->();
|
|
}
|
|
|
|
{
|
|
my $config = Slic3r::Config->new_from_defaults;
|
|
$config->set('raft_layers', 3);
|
|
$config->set('brim_width', 6);
|
|
$config->set('skirts', 0);
|
|
$config->set('support_material_extruder', 2);
|
|
$config->set('support_material_interface_extruder', 2);
|
|
$config->set('layer_height', 0.4);
|
|
$config->set('first_layer_height', '100%');
|
|
my $print = Slic3r::Test::init_print('overhang', config => $config);
|
|
ok my $gcode = Slic3r::Test::gcode($print), 'no conflict between raft/support and brim';
|
|
|
|
my $tool = 0;
|
|
Slic3r::GCode::Reader->new->parse($gcode, sub {
|
|
my ($self, $cmd, $args, $info) = @_;
|
|
|
|
if ($cmd =~ /^T(\d+)/) {
|
|
$tool = $1;
|
|
} elsif ($info->{extruding}) {
|
|
if ($self->Z <= ($config->raft_layers * $config->layer_height)) {
|
|
fail 'not extruding raft/brim with support material extruder'
|
|
if $tool != ($config->support_material_extruder-1);
|
|
} else {
|
|
fail 'support material exceeds raft layers'
|
|
if $tool == $config->support_material_extruder-1;
|
|
# TODO: we should test that full support is generated when we use raft too
|
|
}
|
|
}
|
|
});
|
|
}
|
|
|
|
{
|
|
my $config = Slic3r::Config->new_from_defaults;
|
|
$config->set('skirts', 0);
|
|
$config->set('raft_layers', 3);
|
|
$config->set('support_material_extrusion_width', 0.6);
|
|
$config->set('first_layer_extrusion_width', '100%');
|
|
my $print = Slic3r::Test::init_print('20mm_cube', config => $config);
|
|
|
|
my $layer_id = 0;
|
|
my @raft = my @first_object_layer = ();
|
|
Slic3r::GCode::Reader->new->parse(Slic3r::Test::gcode($print), sub {
|
|
my ($self, $cmd, $args, $info) = @_;
|
|
|
|
if ($info->{extruding} && $info->{dist_XY} > 0) {
|
|
if ($layer_id <= $config->raft_layers) {
|
|
# this is a raft layer or the first object layer
|
|
my $line = Slic3r::Line->new_scale([ $self->X, $self->Y ], [ $info->{new_X}, $info->{new_Y} ]);
|
|
my @path = $line->grow(scale($config->support_material_extrusion_width/2));
|
|
if ($layer_id < $config->raft_layers) {
|
|
# this is a raft layer
|
|
push @raft, @path;
|
|
} else {
|
|
push @first_object_layer, @path;
|
|
}
|
|
}
|
|
} elsif ($cmd eq 'G1' && $info->{dist_Z} > 0) {
|
|
$layer_id++;
|
|
}
|
|
});
|
|
|
|
ok !@{diff(\@first_object_layer, \@raft)},
|
|
'first object layer is completely supported by raft';
|
|
}
|
|
|
|
__END__
|