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 | |
58cf74e0 |
28 | checkprops result -s 33136.3 |
29 | checkshape result |
50ba108c |
30 | |
a4eba920 |
31 | checknbshapes result -vertex 13 -edge 19 -wire 13 -face 11 -shell 2 -solid 2 -compsolid 0 -compound 1 -shape 61 |
5747059b |
32 | checkview -display result -2d -path ${imagedir}/${test_image}.png |