5 #######################################################################
6 # Intersection operation
7 #######################################################################
17 for {set i 1} {$i < $N} {incr i} {
19 ttranslate f1_${i} [expr $i * 10] 0. 0.
23 for {set i 1} {$i < $N} {incr i} {
25 ttranslate f3_${i} 0. [expr $i * 10] 0.
29 for {set i 1} {$i < $N} {incr i} {
31 ttranslate f5_${i} 0. 0. [expr $i * 10]
36 for {set i 1} {$i < $N} {incr i} {
37 psphere s_${i} [expr $i * 5]
38 ttranslate s_${i} 50 50 50
57 set nb_compound_good 1
58 set nb_shape_good 10114