| 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 | } |