cec9bf70aee3226df6cf6bfd6d39facd628a999a
[occt.git] / tests / bugs / modalg_5 / bug24157_8
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
47 if { [regexp {Debug mode} [dversion]] } {
48   set check_time 25
49 } else {
50   set check_time 2.2
51 }
52 if { $tps_time > $check_time } {
53   puts "Error: low performance"
54 } else {
55   puts "OK: high performance"
56 }
57
58 set 2dviewer 1