362dec17 |
1 | puts "=========" |
2 | puts "OCC24618" |
3 | puts "=========" |
4 | puts "" |
5 | ########################################################### |
6 | # Embedding vertex in BOP depends on the order of arguments |
7 | ########################################################### |
8 | |
9 | # Create a cylindrical face |
10 | cylinder c1 20 |
11 | trimv c1 c1 0 50 |
12 | mkface c1 c1 |
13 | |
14 | # Create a vertex |
15 | vertex v1 0 20 25 |
16 | |
17 | # Build partition |
18 | bclearobjects |
19 | bcleartools |
20 | #---------------# |
21 | baddobjects v1 c1 |
22 | #---------------# |
23 | bfillds |
24 | bbuild r |
25 | |
26 | # Explode the result compound |
27 | explode r |
28 | |
29 | # Check number of shapes |
30 | renamevar r_2 result |
31 | |
32 | set nb_v_good 3 |
33 | set nb_e_good 3 |
34 | set nb_w_good 1 |
35 | set nb_f_good 1 |
36 | set nb_sh_good 0 |
37 | set nb_sol_good 0 |
38 | set nb_compsol_good 0 |
39 | set nb_compound_good 0 |
40 | set nb_shape_good 8 |
41 | |
42 | set 2dviewer 1 |