0024157: Parallelization of assembly part of BO
[occt.git] / tests / bugs / modalg_5 / bug24157_4
1 puts "============"
2 puts "OCC24157"
3 puts "============"
4 puts ""
5 ############################################
6 # Parallelization of assembly part of BO
7 ############################################
8
9 set aN 5
10 set aR1 10.
11 set aR2 4.
12
13 set aZ 0.
14 for {set i 0} {$i < $aN} {incr i} {
15   set aA ${i}*2.*pi/${aN}
16   set aX ${aR1}*cos(${aA})
17   set aY ${aR1}*sin(${aA})
18   vertex v1_${i} ${aX} ${aY} ${aZ}
19
20   set aA ${aA}+pi/${aN}
21   set aX ${aR2}*cos(${aA})
22   set aY ${aR2}*sin(${aA})
23   vertex v2_${i} ${aX} ${aY} ${aZ}
24 }
25 copy v1_0  v1_${aN} 
26
27 set q {}
28 for {set i 0} {$i < $aN} {incr i} {
29   set j [expr $i + 1]
30   edge e1_${i} v1_${i} v2_${i}
31   lappend q  e1_${i} 
32   edge e2_${i} v2_${i} v1_${j} 
33   lappend q e2_${i} 
34 }
35
36 eval wire w $q
37 mkplane bs w
38 #----------------------------
39 box b 700 820 1
40 explode b f
41 copy b_5 b1
42
43 set N 41
44 set q {}
45 for {set i 1} {$i < $N} {incr i} {
46     for {set j 1} {$j < $N} {incr j} {
47         tcopy bs bs_${i}_{$j}
48         ttranslate bs_${i}_{$j} [expr $i * 17.] [expr $j * 20.] 0.  
49         lappend q bs_${i}_{$j}
50     }
51 }
52 eval compound $q b2
53
54 bclearobjects
55 bcleartools
56 baddobjects b1
57 baddcompound b2
58 bfillds
59
60 regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time
61
62 if { $tps_time > 30 } {
63   puts "Error: low performance"
64 } else {
65   puts "OK: high performance"
66 }
67
68 set 2dviewer 1