Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug2986_2
CommitLineData
61c421bf 1puts "============"
2puts "OCC2986"
3puts "============"
4puts ""
5######################################################
6# Cut&fuse oprs. for 2 toroidal faces, sharing the same domain give invalid result
7######################################################
8## (old topology)
9## (cut)
10## (fuse)
11######################################################
12
13############# data #############
14ptorus p1 10 4
15explode p1 f
16mksurface gs p1_1
17trim trgs gs 1 2 1 2
18mkface ff trgs
19
20bcut rcut1 p1_1 ff
21checkshape rcut1
22
23bfuse result rcut1 ff
24
25set square 1579.81
26set 3dviewer 1