← Back to branch summary

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

« back to all changes in this revision

Viewing changes to t/geometry.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/geometry.t
 
1
use Test::More;
 
2
use strict;
 
3
use warnings;
 
4
 
 
5
plan tests => 33;
 
6
 
 
7
BEGIN {
 
8
    use FindBin;
 
9
    use lib "$FindBin::Bin/../lib";
 
10
}
 
11
 
 
12
use Slic3r;
 
13
use Slic3r::Geometry qw(PI polygon_is_convex
 
14
    chained_path_from epsilon scale);
 
15
 
 
16
{
 
17
    # this test was failing on Windows (GH #1950)
 
18
    my $polygon = Slic3r::Polygon->new(
 
19
        [207802834,-57084522],[196528149,-37556190],[173626821,-25420928],[171285751,-21366123],
 
20
        [118673592,-21366123],[116332562,-25420928],[93431208,-37556191],[82156517,-57084523],
 
21
        [129714478,-84542120],[160244873,-84542120],
 
22
    );
 
23
    my $point = Slic3r::Point->new(95706562, -57294774);
 
24
    ok $polygon->contains_point($point), 'contains_point';
 
25
}
 
26
 
 
27
#==========================================================
 
28
 
 
29
my $line1 = [ [5, 15], [30, 15] ];
 
30
my $line2 = [ [10, 20], [10, 10] ];
 
31
is_deeply Slic3r::Geometry::line_intersection($line1, $line2, 1)->arrayref, [10, 15], 'line_intersection';
 
32
 
 
33
#==========================================================
 
34
 
 
35
$line1 = [ [73.6310778185108/0.0000001, 371.74239268924/0.0000001], [73.6310778185108/0.0000001, 501.74239268924/0.0000001] ];
 
36
$line2 = [ [75/0.0000001, 437.9853/0.0000001], [62.7484/0.0000001, 440.4223/0.0000001] ];
 
37
isnt Slic3r::Geometry::line_intersection($line1, $line2, 1), undef, 'line_intersection';
 
38
 
 
39
#==========================================================
 
40
 
 
41
{
 
42
    my $polygon = Slic3r::Polygon->new(
 
43
        [45919000, 515273900], [14726100, 461246400], [14726100, 348753500], [33988700, 315389800], 
 
44
        [43749700, 343843000], [45422300, 352251500], [52362100, 362637800], [62748400, 369577600], 
 
45
        [75000000, 372014700], [87251500, 369577600], [97637800, 362637800], [104577600, 352251500], 
 
46
        [107014700, 340000000], [104577600, 327748400], [97637800, 317362100], [87251500, 310422300], 
 
47
        [82789200, 309534700], [69846100, 294726100], [254081000, 294726100], [285273900, 348753500], 
 
48
        [285273900, 461246400], [254081000, 515273900],
 
49
    );
 
50
    
 
51
    # this points belongs to $polyline
 
52
    # note: it's actually a vertex, while we should better check an intermediate point
 
53
    my $point = Slic3r::Point->new(104577600, 327748400);
 
54
    
 
55
    local $Slic3r::Geometry::epsilon = 1E-5;
 
56
    is_deeply Slic3r::Geometry::polygon_segment_having_point($polygon, $point)->pp, 
 
57
        [ [107014700, 340000000], [104577600, 327748400] ],
 
58
        'polygon_segment_having_point';
 
59
}
 
60
 
 
61
#==========================================================
 
62
 
 
63
{
 
64
    my $point = Slic3r::Point->new(736310778.185108, 5017423926.8924);
 
65
    my $line = Slic3r::Line->new([627484000, 3695776000], [750000000, 3720147000]);
 
66
    is Slic3r::Geometry::point_in_segment($point, $line), 0, 'point_in_segment';
 
67
}
 
68
 
 
69
#==========================================================
 
70
 
 
71
{
 
72
    my $point = Slic3r::Point->new(736310778.185108, 5017423926.8924);
 
73
    my $line = Slic3r::Line->new([627484000, 3695776000], [750000000, 3720147000]);
 
74
    is Slic3r::Geometry::point_in_segment($point, $line), 0, 'point_in_segment';
 
75
}
 
76
 
 
77
#==========================================================
 
78
 
 
79
my $polygons = [
 
80
    Slic3r::Polygon->new( # contour, ccw
 
81
        [45919000, 515273900], [14726100, 461246400], [14726100, 348753500], [33988700, 315389800], 
 
82
        [43749700, 343843000], [45422300, 352251500], [52362100, 362637800], [62748400, 369577600], 
 
83
        [75000000, 372014700], [87251500, 369577600], [97637800, 362637800], [104577600, 352251500], 
 
84
        [107014700, 340000000], [104577600, 327748400], [97637800, 317362100], [87251500, 310422300], 
 
85
        [82789200, 309534700], [69846100, 294726100], [254081000, 294726100], [285273900, 348753500], 
 
86
        [285273900, 461246400], [254081000, 515273900],
 
87
 
 
88
    ),
 
89
    Slic3r::Polygon->new( # hole, cw
 
90
        [75000000, 502014700], [87251500, 499577600], [97637800, 492637800], [104577600, 482251500], 
 
91
        [107014700, 470000000], [104577600, 457748400], [97637800, 447362100], [87251500, 440422300], 
 
92
        [75000000, 437985300], [62748400, 440422300], [52362100, 447362100], [45422300, 457748400], 
 
93
        [42985300, 470000000], [45422300, 482251500], [52362100, 492637800], [62748400, 499577600],
 
94
    ),
 
95
];
 
96
 
 
97
#==========================================================
 
98
 
 
99
{
 
100
    my $p1 = [10, 10];
 
101
    my $p2 = [10, 20];
 
102
    my $p3 = [10, 30];
 
103
    my $p4 = [20, 20];
 
104
    my $p5 = [0,  20];
 
105
    
 
106
    is Slic3r::Geometry::angle3points($p2, $p3, $p1),  PI(),   'angle3points';
 
107
    is Slic3r::Geometry::angle3points($p2, $p1, $p3),  PI(),   'angle3points';
 
108
    is Slic3r::Geometry::angle3points($p2, $p3, $p4),  PI()/2*3, 'angle3points';
 
109
    is Slic3r::Geometry::angle3points($p2, $p4, $p3),  PI()/2, 'angle3points';
 
110
    is Slic3r::Geometry::angle3points($p2, $p1, $p4),  PI()/2, 'angle3points';
 
111
    is Slic3r::Geometry::angle3points($p2, $p1, $p5),  PI()/2*3, 'angle3points';
 
112
}
 
113
 
 
114
{
 
115
    my $p1 = [30, 30];
 
116
    my $p2 = [20, 20];
 
117
    my $p3 = [10, 10];
 
118
    my $p4 = [30, 10];
 
119
    
 
120
    is Slic3r::Geometry::angle3points($p2, $p1, $p3), PI(),       'angle3points';
 
121
    is Slic3r::Geometry::angle3points($p2, $p1, $p4), PI()/2*3,   'angle3points';
 
122
    is Slic3r::Geometry::angle3points($p2, $p1, $p1), 2*PI(),     'angle3points';
 
123
}
 
124
 
 
125
#==========================================================
 
126
 
 
127
{
 
128
    my $cw_square = [ [0,0], [0,10], [10,10], [10,0] ];
 
129
    is polygon_is_convex($cw_square), 0, 'cw square is not convex';
 
130
    is polygon_is_convex([ reverse @$cw_square ]), 1, 'ccw square is convex';
 
131
    
 
132
    my $convex1 = [ [0,0], [10,0], [10,10], [0,10], [0,6], [4,6], [4,4], [0,4] ];
 
133
    is polygon_is_convex($convex1), 0, 'concave polygon';
 
134
}
 
135
 
 
136
#==========================================================
 
137
 
 
138
{
 
139
    my $polyline = Slic3r::Polyline->new([0, 0], [10, 0], [20, 0]);
 
140
    is_deeply [ map $_->pp, @{$polyline->lines} ], [
 
141
        [ [0, 0], [10, 0] ],
 
142
        [ [10, 0], [20, 0] ],
 
143
    ], 'polyline_lines';
 
144
}
 
145
 
 
146
#==========================================================
 
147
 
 
148
{
 
149
    my $polygon = Slic3r::Polygon->new([0, 0], [10, 0], [5, 5]);
 
150
    my $result = $polygon->split_at_index(1);
 
151
    is ref($result), 'Slic3r::Polyline', 'split_at_index returns polyline';
 
152
    is_deeply $result->pp, [ [10, 0], [5, 5], [0, 0], [10, 0] ], 'split_at_index';
 
153
}
 
154
 
 
155
#==========================================================
 
156
 
 
157
{
 
158
    my $bb = Slic3r::Geometry::BoundingBox->new_from_points([ map Slic3r::Point->new(@$_), [0, 1], [10, 2], [20, 2] ]);
 
159
    $bb->scale(2);
 
160
    is_deeply [ $bb->min_point->pp, $bb->max_point->pp ], [ [0,2], [40,4] ], 'bounding box is scaled correctly';
 
161
}
 
162
 
 
163
#==========================================================
 
164
 
 
165
{
 
166
    my $line = Slic3r::Line->new([10,10], [20,10]);
 
167
    is $line->grow(5)->[0]->area, Slic3r::Polygon->new([10,5], [20,5], [20,15], [10,15])->area, 'grow line';
 
168
}
 
169
 
 
170
#==========================================================
 
171
 
 
172
{
 
173
    # if chained_path() works correctly, these points should be joined with no diagonal paths
 
174
    # (thus 26 units long)
 
175
    my @points = map Slic3r::Point->new_scale(@$_), [26,26],[52,26],[0,26],[26,52],[26,0],[0,52],[52,52],[52,0];
 
176
    my @ordered = @points[@{chained_path_from(\@points, $points[0])}];
 
177
    ok !(grep { abs($ordered[$_]->distance_to($ordered[$_+1]) - scale 26) > epsilon } 0..$#ordered-1), 'chained_path';
 
178
}
 
179
 
 
180
#==========================================================
 
181
 
 
182
{
 
183
    my $line = Slic3r::Line->new([0, 0], [20, 0]);
 
184
    is +Slic3r::Point->new(10, 10)->distance_to_line($line), 10, 'distance_to';
 
185
    is +Slic3r::Point->new(50, 10)->distance_to_line($line), 10, 'distance_to';
 
186
    is +Slic3r::Point->new(0, 0)->distance_to_line($line), 0, 'distance_to';
 
187
    is +Slic3r::Point->new(20, 0)->distance_to_line($line), 0, 'distance_to';
 
188
    is +Slic3r::Point->new(10, 0)->distance_to_line($line), 0, 'distance_to';
 
189
}
 
190
 
 
191
#==========================================================
 
192
 
 
193
{
 
194
    my $square = Slic3r::Polygon->new(
 
195
        [150,100],
 
196
        [200,100],
 
197
        [200,200],
 
198
        [100,200],
 
199
        [100,100],
 
200
    );
 
201
    is scalar(@{$square->concave_points(PI*4/3)}), 0, 'no concave vertices detected in convex polygon';
 
202
    is scalar(@{$square->convex_points(PI*2/3)}), 4, 'four convex vertices detected in square';
 
203
}
 
204
 
 
205
{
 
206
    my $square = Slic3r::Polygon->new(
 
207
        [200,200],
 
208
        [100,200],
 
209
        [100,100],
 
210
        [150,100],
 
211
        [200,100],
 
212
    );
 
213
    is scalar(@{$square->concave_points(PI*4/3)}), 0, 'no concave vertices detected in convex polygon';
 
214
    is scalar(@{$square->convex_points(PI*2/3)}), 4, 'four convex vertices detected in square';
 
215
}