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