Modified TPS in test cases bugs/modalg_5/bug24157_8 bug24157_9
[occt.git] / tests / bugs / modalg_5 / bug24157_9
CommitLineData
f1baf495 1puts "============"
2puts "OCC24157"
3puts "============"
4puts ""
5############################################
6# Parallelization of assembly part of BO
7############################################
8
9restore [locate_data_file bug24157_fstar] b1
10set qs {}
11
12set N 24
13for {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}
18eval compound $qs q
19
20bclearobjects
21bcleartools
22baddcompound q
23bfillds
24
25regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time
26
f49c3109 27if { [regexp {Debug mode} [dversion]] } {
7bbe90f2 28 set check_time 280
f49c3109 29} else {
7bbe90f2 30 set check_time 70
f49c3109 31}
32if { $tps_time > $check_time } {
f1baf495 33 puts "Error: low performance"
34} else {
35 puts "OK: high performance"
36}
37
38set 2dviewer 1