5 ############################################
6 # Parallelization of assembly part of BO
7 ############################################
13 #--------------------------
19 for {set i 1} {$i < 5} {incr i} {
21 ttranslate fx_$i [expr ($i*2)] 0. 0.
27 #--------------------------
33 for {set i 1} {$i < 5} {incr i} {
35 ttranslate fy_$i 0. [expr ($i*2)] 0.
41 #--------------------------
47 for {set i 1} {$i < 5} {incr i} {
49 ttranslate fz_$i 0. 0. [expr ($i*2)]
54 #--------------------------
56 box bx .2 .2 .2 1.6 1.6 1.6
60 for {set i 0} {$i < 5} {incr i} {
61 for {set j 0} {$j < 5} {incr j} {
62 for {set k 0} {$k < 5} {incr k} {
63 for {set m 1} {$m < 6} {incr m} {
64 tcopy bx_${m} sx1_${i}_${j}_${k}_${m}
65 ttranslate sx1_${i}_${j}_${k}_${m} [expr ($i)*2] [expr ($j)*2] [expr ($k)*2].
66 lappend q4 sx1_${i}_${j}_${k}_${m}
73 #--------------------------
74 bclearobjects; bcleartools;
83 regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time
85 if { [regexp {Debug mode} [dversion]] } {
90 if { $tps_time > $check_time } {
91 puts "Error: low performance"
93 puts "OK: high performance"