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