0024597: Missing internal vertex in the result of General Fuse Operation
[occt.git] / tests / bugs / modalg_5 / bug24597
1 puts "========="
2 puts "OCC24597"
3 puts "========="
4 puts ""
5 ###########################################################
6 # Missing internal vertex in the result of General Fuse Operation
7 ###########################################################
8
9 cylinder c1 20
10 trimv c1 c1 0 50
11 mkface b1 c1
12 vertex v1 0 20 25
13 orientation v1 I
14 add v1 b1
15 box b2 -30 -30 5 60 60 40
16
17 # add the arguments
18 bclearobjects
19 bcleartools
20 baddobjects b1 b2
21
22 # intersection step 
23 bfillds
24
25 # building step
26 bbuild result
27
28 set square 33136.3
29
30 set nb_v_good 13
31 set nb_e_good 19
32 set nb_w_good 13
33 set nb_f_good 11
34 set nb_sh_good 2
35 set nb_sol_good 2
36 set nb_compsol_good 0
37 set nb_compound_good 1
38 set nb_shape_good 61
39
40 set 2dviewer 1