0031014: Inspectors - variables for Qt in CMake
[occt.git] / tests / bugs / modalg_5 / bug24157_6
1 puts "============"
2 puts "OCC24157"
3 puts "============"
4 puts ""
5 ############################################
6 # Parallelization of assembly part of BO
7 ############################################
8
9 box b1 100 100 100
10 set cx {}
11 psphere sp 1.
12 explode sp f
13 copy sp_1 sp
14
15 set ds 2.5
16 set dS 10.
17 set aNbGroups 3
18
19 for {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 }
36 eval compound $cx b2 
37
38 bclearobjects
39 bcleartools
40 baddobjects b1
41 baddcompound b2
42 bfillds
43
44 regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time
45
46 if { [regexp {Debug mode} [dversion]] } {
47   set check_time 40
48 } else {
49   set check_time 24
50 }
51 if { $tps_time > $check_time } {
52   puts "Error: low performance"
53 } else {
54   puts "OK: high performance"
55 }
56
57 checkview -display result -2d -path ${imagedir}/${test_image}.png