0026431: Can't cut a sphere from a cylinder
[occt.git] / tests / bugs / modalg_6 / bug26431_2
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
28 set only_screen_axo 1