4e14c88f |
1 | puts "============" |
2 | puts "OCC26431" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Can't cut a sphere from a cylinder |
7 | ############################### |
8 | |
9 | restore [locate_data_file bug26431_Body.brep] b1 |
10 | restore [locate_data_file bug26431_Sphere.brep] b2 |
11 | |
12 | explode b1 f |
13 | explode b2 f |
14 | |
15 | bsection result b1_3 b2_1 |
16 | |
17 | set log [checksection result] |
18 | |
19 | if { [string compare -nocase $log " nb alone Vertices : 0\n\n"] } { |
20 | puts "ERROR: the section is not closed" |
21 | } else { |
22 | puts "The section is OK" |
23 | } |
24 | |
25 | smallview |
26 | donly result |
27 | fit |
5747059b |
28 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |