f1baf495 |
1 | puts "============" |
2 | puts "OCC24157" |
3 | puts "============" |
4 | puts "" |
5 | ############################################ |
6 | # Parallelization of assembly part of BO |
7 | ############################################ |
8 | |
9 | box b1 100 100 100 |
10 | set cx {} |
11 | psphere sp 1. |
12 | explode sp f |
13 | copy sp_1 sp |
14 | |
15 | set ds 2.5 |
16 | set dS 10. |
17 | set aNbGroups 3 |
18 | |
19 | for {set N 0} {$N < ${aNbGroups}} {incr N} { |
20 | for {set K 0} {$K < ${aNbGroups}} {incr K} { |
21 | for {set M 0} {$M < ${aNbGroups}} {incr M} { |
22 | for {set n 0} {$n < 3} {incr n} { |
23 | for {set k 0} {$k < 3} {incr k} { |
24 | for {set m 0} {$m < 3} {incr m} { |
25 | tcopy sp sp_${N}_${K}_${M}_${n}_${k}_${m} |
26 | ttranslate sp_${N}_${K}_${M}_${n}_${k}_${m} 2.5 2.5 2.5 |
27 | ttranslate sp_${N}_${K}_${M}_${n}_${k}_${m} [expr $k*${ds}] [expr $m*${ds}] [expr $n*${ds}] |
28 | ttranslate sp_${N}_${K}_${M}_${n}_${k}_${m} [expr $M*${dS}] [expr $K*${dS}] [expr $N*${dS}] |
29 | lappend cx sp_${N}_${K}_${M}_${n}_${k}_${m} |
30 | } |
31 | } |
32 | } |
33 | } |
34 | } |
35 | } |
36 | eval compound $cx b2 |
37 | |
38 | bclearobjects |
39 | bcleartools |
40 | baddobjects b1 |
41 | baddcompound b2 |
42 | bfillds |
43 | |
44 | regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time |
45 | |
f49c3109 |
46 | if { [regexp {Debug mode} [dversion]] } { |
c9fb8529 |
47 | set check_time 40 |
f49c3109 |
48 | } else { |
49 | set check_time 24 |
50 | } |
51 | if { $tps_time > $check_time } { |
f1baf495 |
52 | puts "Error: low performance" |
53 | } else { |
54 | puts "OK: high performance" |
55 | } |
56 | |
5747059b |
57 | checkview -display result -2d -path ${imagedir}/${test_image}.png |