f1baf495 |
1 | puts "============" |
2 | puts "OCC24157" |
3 | puts "============" |
4 | puts "" |
5 | ############################################ |
6 | # Parallelization of assembly part of BO |
7 | ############################################ |
8 | |
9 | restore [locate_data_file bug24157_fstar] b1 |
10 | set qs {} |
11 | |
12 | set N 24 |
13 | for {set i 0} {$i < $N} {incr i} { |
14 | tcopy b1 b1_${i} |
15 | trotate b1_${i} 0. 0. 0. 0. 0. 1. [expr $i * 15.] |
16 | lappend qs b1_${i} |
17 | } |
18 | eval compound $qs q |
19 | |
20 | bclearobjects |
21 | bcleartools |
22 | baddcompound q |
23 | bfillds |
24 | |
25 | regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time |
26 | |
f49c3109 |
27 | if { [regexp {Debug mode} [dversion]] } { |
7bbe90f2 |
28 | set check_time 280 |
f49c3109 |
29 | } else { |
c9fb8529 |
30 | set check_time 100 |
f49c3109 |
31 | } |
32 | if { $tps_time > $check_time } { |
f1baf495 |
33 | puts "Error: low performance" |
34 | } else { |
35 | puts "OK: high performance" |
36 | } |
37 | |
5747059b |
38 | checkview -display result -2d -path ${imagedir}/${test_image}.png |