Modified TPS in test cases bugs/modalg_5/bug24157_8 bug24157_9
[occt.git] / tests / bugs / modalg_5 / bug24157_8
CommitLineData
f1baf495 1puts "============"
2puts "OCC24157"
3puts "============"
4puts ""
5############################################
6# Parallelization of assembly part of BO
7############################################
8
9set N 19
10set dX 2.
11
12box b 100 100 100
13
14explode b f
15copy b_1 fx
16copy b_3 fy
17copy b_5 fz
18
19set q {}
20for {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
26for {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
32for {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
38eval compound $q b1
39
40bclearobjects
41bcleartools
42baddcompound b1
43bfillds -t
44
45regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time
46
f49c3109 47if { [regexp {Debug mode} [dversion]] } {
48 set check_time 25
49} else {
7bbe90f2 50 set check_time 8.2
f49c3109 51}
52if { $tps_time > $check_time } {
f1baf495 53 puts "Error: low performance"
54} else {
55 puts "OK: high performance"
56}
57
58set 2dviewer 1