← Back to branch summary

~ubuntu-branches/ubuntu/utopic/slic3r/utopic

« back to all changes in this revision

Viewing changes to t/flow.t

  • Committer: Package Import Robot
  • Author(s): Chow Loong Jin
  • Date: 2014-06-17 01:27:26 UTC
  • Revision ID: package-import@ubuntu.com-20140617012726-2wrs4zdo251nr4vg
Tags: upstream-1.1.4+dfsg
Import upstream version 1.1.4+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/flow.t
 
1
use Test::More tests => 6;
 
2
use strict;
 
3
use warnings;
 
4
 
 
5
BEGIN {
 
6
    use FindBin;
 
7
    use lib "$FindBin::Bin/../lib";
 
8
}
 
9
 
 
10
use List::Util qw(first sum);
 
11
use Slic3r;
 
12
use Slic3r::Geometry qw(scale PI);
 
13
use Slic3r::Test;
 
14
 
 
15
{
 
16
    my $config = Slic3r::Config->new_from_defaults;
 
17
    $config->set('skirts', 1);
 
18
    $config->set('brim_width', 2);
 
19
    $config->set('perimeters', 3);
 
20
    $config->set('fill_density', 0.4);
 
21
    $config->set('bottom_solid_layers', 1);
 
22
    $config->set('first_layer_extrusion_width', 2);
 
23
    $config->set('first_layer_height', '100%');
 
24
    
 
25
    my $print = Slic3r::Test::init_print('20mm_cube', config => $config);
 
26
    my @E_per_mm = ();
 
27
    Slic3r::GCode::Reader->new->parse(my $gcode = Slic3r::Test::gcode($print), sub {
 
28
        my ($self, $cmd, $args, $info) = @_;
 
29
        
 
30
        if ($self->Z == $config->layer_height) {  # only consider first layer
 
31
            if ($info->{extruding} && $info->{dist_XY} > 0) {
 
32
                push @E_per_mm, $info->{dist_E} / $info->{dist_XY};
 
33
            }
 
34
        }
 
35
    });
 
36
    my $E_per_mm_avg = sum(@E_per_mm) / @E_per_mm;
 
37
    ok !(defined first { abs($_ - $E_per_mm_avg) > 0.01 } @E_per_mm),
 
38
        'first_layer_extrusion_width applies to everything on first layer';
 
39
}
 
40
 
 
41
{
 
42
    my $config = Slic3r::Config->new_from_defaults;
 
43
    $config->set('bridge_speed', 99);
 
44
    $config->set('bridge_flow_ratio', 1);
 
45
    $config->set('cooling', 0);                 # to prevent speeds from being altered
 
46
    $config->set('first_layer_speed', '100%');  # to prevent speeds from being altered
 
47
    
 
48
    my $test = sub {
 
49
        my $print = Slic3r::Test::init_print('overhang', config => $config);
 
50
        my @E_per_mm = ();
 
51
        Slic3r::GCode::Reader->new->parse(my $gcode = Slic3r::Test::gcode($print), sub {
 
52
            my ($self, $cmd, $args, $info) = @_;
 
53
        
 
54
            if ($info->{extruding} && $info->{dist_XY} > 0) {
 
55
                if (($args->{F} // $self->F) == $config->bridge_speed*60) {
 
56
                    push @E_per_mm, $info->{dist_E} / $info->{dist_XY};
 
57
                }
 
58
            }
 
59
        });
 
60
        my $expected_mm3_per_mm = ($config->nozzle_diameter->[0]**2) * PI/4 * $config->bridge_flow_ratio;
 
61
        my $expected_E_per_mm = $expected_mm3_per_mm / ((($config->filament_diameter->[0]/2)**2)*PI);
 
62
        ok !(defined first { abs($_ - $expected_E_per_mm) > 0.01 } @E_per_mm),
 
63
            'expected flow when using bridge_flow_ratio = ' . $config->bridge_flow_ratio;
 
64
    };
 
65
    
 
66
    $config->set('bridge_flow_ratio', 0.5);
 
67
    $test->();
 
68
    $config->set('bridge_flow_ratio', 2);
 
69
    $test->();
 
70
    $config->set('extrusion_width', 0.4);
 
71
    $config->set('bridge_flow_ratio', 1);
 
72
    $test->();
 
73
    $config->set('bridge_flow_ratio', 0.5);
 
74
    $test->();
 
75
    $config->set('bridge_flow_ratio', 2);
 
76
    $test->();
 
77
}
 
78
 
 
79
__END__