90a94855 |
1 | puts "============" |
2 | puts "OCC25354" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Intersection operation |
7 | ####################################################################### |
8 | |
9 | # Case 50 |
10 | |
11 | set aLS {} |
12 | |
13 | box b 10 10 10 |
14 | ttranslate b -5 -5 -5 |
15 | |
16 | set N 41 |
17 | |
18 | for {set i 0} {$i < $N} {incr i} { |
19 | psphere b{$i} [expr $i * 0.1 + 5.] |
20 | explode b{$i} f |
21 | lappend aLS b{$i}_1 |
22 | } |
23 | eval compound $aLS q |
24 | |
25 | |
26 | bclearobjects |
27 | bcleartools |
28 | baddobjects b |
29 | baddtools q |
30 | bfillds -t |
31 | bbop result 4 -t |
32 | |
33 | set nb_v_good 530 |
34 | set nb_e_good 524 |
35 | set nb_w_good 0 |
36 | set nb_f_good 0 |
37 | set nb_sh_good 0 |
38 | set nb_sol_good 0 |
39 | set nb_compsol_good 0 |
40 | set nb_compound_good 1 |
41 | set nb_shape_good 1055 |
42 | |
43 | set 2dviewer 1 |