cf5d81bb217380512ce8fc957b145d1ffc878ed6
[occt.git] / tests / bugs / modalg_5 / bug24157_9
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
27 if { [regexp {Debug mode} [dversion]] } {
28   set check_time 220
29 } else {
30   set check_time 16
31 }
32 if { $tps_time > $check_time } {
33   puts "Error: low performance"
34 } else {
35   puts "OK: high performance"
36 }
37
38 set 2dviewer 1