0024157: Parallelization of assembly part of BO
[occt.git] / tests / bugs / modalg_5 / bug24157_6
CommitLineData
f1baf495 1puts "============"
2puts "OCC24157"
3puts "============"
4puts ""
5############################################
6# Parallelization of assembly part of BO
7############################################
8
9box b1 100 100 100
10set cx {}
11psphere sp 1.
12explode sp f
13copy sp_1 sp
14
15set ds 2.5
16set dS 10.
17set aNbGroups 3
18
19for {set N 0} {$N < ${aNbGroups}} {incr N} {
20 for {set K 0} {$K < ${aNbGroups}} {incr K} {
21 for {set M 0} {$M < ${aNbGroups}} {incr M} {
22 for {set n 0} {$n < 3} {incr n} {
23 for {set k 0} {$k < 3} {incr k} {
24 for {set m 0} {$m < 3} {incr m} {
25 tcopy sp sp_${N}_${K}_${M}_${n}_${k}_${m}
26 ttranslate sp_${N}_${K}_${M}_${n}_${k}_${m} 2.5 2.5 2.5
27 ttranslate sp_${N}_${K}_${M}_${n}_${k}_${m} [expr $k*${ds}] [expr $m*${ds}] [expr $n*${ds}]
28 ttranslate sp_${N}_${K}_${M}_${n}_${k}_${m} [expr $M*${dS}] [expr $K*${dS}] [expr $N*${dS}]
29 lappend cx sp_${N}_${K}_${M}_${n}_${k}_${m}
30 }
31 }
32 }
33 }
34 }
35}
36eval compound $cx b2
37
38bclearobjects
39bcleartools
40baddobjects b1
41baddcompound b2
42bfillds
43
44regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time
45
46if { $tps_time > 10 } {
47 puts "Error: low performance"
48} else {
49 puts "OK: high performance"
50}
51
52set 2dviewer 1