9526aa6a |
1 | puts "============" |
2 | puts "OCC26565" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Compsolid after cut becomes compound of solids |
7 | ############################### |
8 | |
9 | box b1 10 10 10 |
10 | box b2 10 0 0 10 5 5 |
11 | box b3 10 5 0 10 5 5 |
12 | box b4 10 0 5 10 10 5 |
13 | |
14 | bclearobjects |
15 | bcleartools |
16 | baddobjects b1 b2 b3 b4 |
17 | |
18 | bfillds |
19 | bbuild r |
20 | |
21 | explode r so |
22 | |
23 | shape b1 CS |
24 | add r_1 b1 |
25 | add r_2 b1 |
26 | add r_3 b1 |
27 | add r_4 b1 |
28 | |
29 | box b2 5 0 2 10 10 10 |
30 | bclearobjects |
31 | bcleartools |
32 | baddobjects b1 |
33 | baddtools b2 |
34 | |
35 | bfillds |
36 | bbop r 2 |
37 | |
38 | explode r |
39 | |
40 | # should be compsolid |
41 | |
42 | set ShapeType "COMPSOLID" |
43 | if { [regexp $ShapeType [whatis r_1]] == 1 } { |
44 | puts "OK : There is $ShapeType; Compsolid is good" |
45 | } else { |
46 | puts "Error : There is not $ShapeType; Compsolid is bad" |
47 | } |