Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug2172_1
1 puts "============"
2 puts "OCC2172"
3 puts "============"
4 puts ""
5 ######################################################
6 # Fuse operation produces invalid shape
7 ######################################################
8 ## (new topology)
9 ## (bfuse)
10 ######################################################
11
12 restore [locate_data_file OCC2172-torus.brep] torus 
13 restore [locate_data_file OCC2172-cylinder.brep] cylinder 
14
15 checkshape torus
16 checkshape cylinder
17
18 bfuse result torus cylinder
19
20 set square 28603.8
21 set 3dviewer 1
22