f1baf495 |
1 | puts "============" |
2 | puts "OCC24157" |
3 | puts "============" |
4 | puts "" |
5 | ############################################ |
6 | # Parallelization of assembly part of BO |
7 | ############################################ |
8 | |
9 | set N 19 |
10 | set dX 2. |
11 | |
12 | box b 100 100 100 |
13 | |
14 | explode b f |
15 | copy b_1 fx |
16 | copy b_3 fy |
17 | copy b_5 fz |
18 | |
19 | set q {} |
20 | for {set j 1} {$j < $N} {incr j} { |
21 | tcopy fx fx_${j} |
22 | ttranslate fx_${j} [expr $j*$dX] 0. 0. |
23 | lappend q fx_${j} |
24 | } |
25 | |
26 | for {set j 1} {$j < $N} {incr j} { |
27 | tcopy fy fy_${j} |
28 | ttranslate fy_${j} 0. [expr $j*$dX] 0. |
29 | lappend q fy_${j} |
30 | } |
31 | |
32 | for {set j 1} {$j < $N} {incr j} { |
33 | tcopy fz fz_${j} |
34 | ttranslate fz_${j} 0. 0. [expr $j*$dX] |
35 | lappend q fz_${j} |
36 | } |
37 | |
38 | eval compound $q b1 |
39 | |
40 | bclearobjects |
41 | bcleartools |
42 | baddcompound b1 |
43 | bfillds -t |
44 | |
45 | regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time |
46 | |
f49c3109 |
47 | if { [regexp {Debug mode} [dversion]] } { |
48 | set check_time 25 |
49 | } else { |
9cc773b5 |
50 | set check_time 15 |
f49c3109 |
51 | } |
52 | if { $tps_time > $check_time } { |
f1baf495 |
53 | puts "Error: low performance" |
54 | } else { |
55 | puts "OK: high performance" |
56 | } |
57 | |
58 | set 2dviewer 1 |