90a94855 |
1 | puts "============" |
2 | puts "OCC25354" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Intersection operation |
7 | ####################################################################### |
8 | |
9 | #Case 49 |
10 | |
11 | box b 100 100 100 |
12 | explode b f |
13 | |
14 | set aLF {} |
15 | set N 10 |
16 | |
17 | for {set i 1} {$i < $N} {incr i} { |
18 | tcopy b_1 f1_${i} |
19 | ttranslate f1_${i} [expr $i * 10] 0. 0. |
20 | lappend aLF f1_${i} |
21 | } |
22 | |
23 | for {set i 1} {$i < $N} {incr i} { |
24 | tcopy b_3 f3_${i} |
25 | ttranslate f3_${i} 0. [expr $i * 10] 0. |
26 | lappend aLF f3_${i} |
27 | } |
28 | |
29 | for {set i 1} {$i < $N} {incr i} { |
30 | tcopy b_5 f5_${i} |
31 | ttranslate f5_${i} 0. 0. [expr $i * 10] |
32 | lappend aLF f5_${i} |
33 | } |
34 | # |
35 | set N 11 |
36 | for {set i 1} {$i < $N} {incr i} { |
37 | psphere s_${i} [expr $i * 5] |
38 | ttranslate s_${i} 50 50 50 |
39 | lappend aLF s_${i} |
40 | } |
41 | |
42 | eval compound $aLF q |
43 | |
44 | bclearobjects |
45 | bcleartools |
46 | baddcompound q |
47 | bfillds -t |
48 | bbop result 4 -t |
49 | |
a4eba920 |
50 | checknbshapes result -vertex 2781 -edge 7332 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 10114 |
5747059b |
51 | checkview -display result -2d -path ${imagedir}/${test_image}.png |