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 | bfillds |
18 | |
19 | bbuild r |
20 | |
21 | explode r so |
22 | shape b1 CS |
23 | add r_1 b1 |
24 | add r_2 b1 |
25 | add r_3 b1 |
26 | add r_4 b1 |
27 | |
28 | box b2 5 0 2 10 10 5 |
29 | box b3 5 0 7 10 10 5 |
30 | bclearobjects |
31 | bcleartools |
32 | baddobjects b2 b3 |
33 | |
34 | bfillds |
35 | bbuild r |
36 | |
37 | explode r so |
38 | shape b2 CS |
39 | add r_1 b2 |
40 | add r_2 b2 |
41 | |
42 | box b3 -5 2 3 30 6 4 |
43 | |
44 | bclearobjects |
45 | bcleartools |
46 | baddobjects b1 b2 |
47 | baddtools b3 |
48 | |
49 | bfillds |
50 | bbop r 2 |
51 | |
52 | explode r |
53 | |
54 | # should be two compsolids |
55 | |
56 | set ShapeType "COMPSOLID" |
57 | if { [regexp $ShapeType [whatis r_1]] == 1 } { |
58 | puts "OK : There is $ShapeType; Compsolid is good" |
59 | } else { |
60 | puts "Error : There is not $ShapeType; Compsolid is bad" |
61 | } |
62 | |
63 | set ShapeType "COMPSOLID" |
64 | if { [regexp $ShapeType [whatis r_2]] == 1 } { |
65 | puts "OK : There is $ShapeType; Compsolid is good" |
66 | } else { |
67 | puts "Error : There is not $ShapeType; Compsolid is bad" |
68 | } |