50ba108c |
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 |