Adding test cases from chl grid
[occt.git] / tests / bugs / modalg / bug12507
1 puts "============"
2 puts "OCC12507"
3 puts "============"
4 puts ""
5 #######################################################################
6 # Wrong result of fuse operation
7 #######################################################################
8
9 puts "First shape ..."
10 pcylinder c 3 3
11 explode c e
12
13 puts "Second shape ..."
14 tcopy c_3 e3
15 ttranslate e3 0 6 0
16
17 bop c_3 e3
18 bopfuse result
19
20 set nb_v_good 3
21 set nb_e_good 4
22 set nb_w_good 1
23 set nb_f_good 0
24 set nb_sh_good 0
25 set nb_sol_good 0
26 set nb_compsol_good 0
27 set nb_compound_good 1
28 set nb_shape_good 9
29
30 set 2dviewer 0