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_1 result |
31 | |
a4eba920 |
32 | checknbshapes result -vertex 1 -edge 0 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 1 |
362dec17 |
33 | set 2dviewer 1 |