00302ba4 |
1 | puts "=========" |
2 | puts "CR24472" |
3 | puts "=========" |
4 | puts "" |
5 | ############################### |
6 | ## Wrong section curves |
7 | ############################### |
8 | |
8dc56d0f |
9 | puts "TODO OCC29501 ALL: Error in ii12_22" |
10 | |
11 | set MaxToler 1.5e-4 |
12 | |
00302ba4 |
13 | restore [locate_data_file bug24472_Pipe_1.brep] b1 |
14 | |
15 | explode b1 f |
16 | copy b1_2 f1 |
17 | copy b1_3 f2 |
18 | copy b1_6 f3 |
19 | mksurface s1 f1 |
20 | mksurface s2 f2 |
21 | mksurface s3 f3 |
22 | |
23 | puts "" |
24 | puts "First test" |
25 | # 1.1 geometry |
8dc56d0f |
26 | intersect ii12 s1 s2 |
00302ba4 |
27 | |
8dc56d0f |
28 | foreach c [directory ii12*] { |
29 | bounds $c U1 U2 |
30 | |
31 | if {[dval U2-U1] < 1.0e-9} { |
32 | puts "Error: Wrong curve's range!" |
33 | } |
34 | |
35 | xdistcs $c s1 U1 U2 10 $MaxToler |
36 | xdistcs $c s2 U1 U2 10 $MaxToler |
37 | } |
00302ba4 |
38 | |
39 | puts "" |
40 | puts "Second test" |
41 | # 1.2 topology |
8dc56d0f |
42 | bsection r12 f1 f2 |
43 | bopcheck r12 |
44 | # OK |
00302ba4 |
45 | |
8dc56d0f |
46 | regexp {Tolerance MAX=([-0-9.+eE]+)} [tolerance r12] full toler |
47 | if { $toler > $MaxToler } { puts "Error: Tolerance of the section r12 is too large" } |
00302ba4 |
48 | |
49 | puts "" |
50 | puts "Third test" |
51 | # 2.1 geometry |
8dc56d0f |
52 | intersect ii13 s1 s3 |
00302ba4 |
53 | |
8dc56d0f |
54 | foreach c [directory ii13*] { |
55 | bounds $c U1 U2 |
56 | |
57 | if {[dval U2-U1] < 1.0e-9} { |
58 | puts "Error: Wrong curve's range!" |
59 | } |
60 | |
61 | xdistcs $c s1 U1 U2 10 $MaxToler |
62 | xdistcs $c s2 U1 U2 10 $MaxToler |
63 | } |
00302ba4 |
64 | |
65 | puts "" |
66 | puts "Fourth test" |
67 | # 2.2 topology |
8dc56d0f |
68 | bsection r13 f1 f3 |
69 | bopcheck r13 |
70 | # OK |
00302ba4 |
71 | |
8dc56d0f |
72 | regexp {Tolerance MAX=([-0-9.+eE]+)} [tolerance r13] full toler |
73 | if { $toler > $MaxToler } { puts "Error: Tolerance of the section r13 is too large" } |