Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug22771
1 puts "============"
2 puts "OCC22771"
3 puts "============"
4 puts ""
5 #######################################################################
6 # An extra vertex produced in result of Boolean section for the cases of closed intersection curves.
7 #######################################################################
8
9 set BugNumber OCC22771
10
11 puts "Load first shape ..."
12 restore [locate_data_file bug22771_Box_1.brep] b1 
13
14 puts "Load second shape ..."
15 restore [locate_data_file bug22771_Cylinder_1.brep] b2 
16
17 puts "Prepare boolean operation ..."
18 explode b1 f
19 copy b1_5 b1
20 copy b2_1 b2
21
22 bop b1 b2
23
24 puts "Start boolean operation ..."
25 bopsection result
26 puts "Finish boolean operation ..."
27
28 set length 314.159
29
30 set nb_v_good 1
31 set nb_e_good 1
32 set nb_w_good 0
33 set nb_f_good 0
34 set nb_sh_good 0
35 set nb_sol_good 0
36 set nb_compsol_good 0
37 set nb_compound_good 1
38 set nb_shape_good 3
39
40 set 3dviewer 1