7f3bf449 |
1 | puts "========" |
2 | puts "OCC25102" |
3 | puts "========" |
4 | puts "" |
5 | ################################################# |
6 | # A part of intersection cannot be found |
7 | ################################################# |
8 | |
9 | restore [locate_data_file bug25102.brep] c |
10 | |
11 | explode c |
12 | |
13 | bsection result c_1 c_2 |
14 | |
15 | regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv |
16 | |
17 | if { $nbv != 2 } { |
18 | puts "Error : Section is incorrect" |
19 | } else { |
20 | puts "Section is correct" |
21 | } |
22 | |
23 | checkprops result -l 49.734 |
24 | |
25 | checknbshapes result -edge 44 |
26 | |
27 | smallview |
28 | fit |
29 | |
30 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |
31 | |