c1fe53c6 |
1 | puts "============" |
2 | puts "OCC24029" |
3 | puts "============" |
4 | puts "" |
5 | ############################################################################################ |
6 | # Add a flag to bopcheck command to provide possibility to disable Face/Face intersection |
7 | ############################################################################################ |
8 | |
9 | box b1 10 10 10 |
10 | box b2 5 5 5 10 10 10 |
11 | compound b1 b2 c |
12 | |
13 | set info1 [bopcheck c] |
14 | set info2 [bopcheck c 4] |
15 | set info3 [bopcheck c 3] |
16 | |
63def8e6 |
17 | if { [regexp "x35" $info1] != 1 } { |
c1fe53c6 |
18 | puts "Error : bopcheck c works wrong" |
19 | } else { |
20 | puts "OK: bopcheck c works properly" |
21 | } |
22 | |
63def8e6 |
23 | if { [regexp "x13" $info2] != 1 || [regexp "x39" $info2] != 1 } { |
c1fe53c6 |
24 | puts "Error : bopcheck c 4 works wrong" |
25 | } else { |
26 | puts "OK: bopcheck c 4 works properly" |
27 | } |
28 | |
29 | if { [regexp "This shape seems to be OK" $info3] != 1 } { |
30 | puts "Error : bopcheck c 3 works wrong" |
31 | } else { |
32 | puts "OK: bopcheck c 3 works properly" |
33 | } |