tests/bugs/modalg_5/bug24157_8

   1 puts "============"
   2 puts "OCC24157"
   3 puts "============"
   4 puts ""
   5 ############################################
   6 # Parallelization of assembly part of BO
   7 ############################################
   8
   9 set N 19
  10 set dX 2.
  11
  12 box b 100 100 100
  13
  14 explode b f
  15 copy b_1 fx
  16 copy b_3 fy
  17 copy b_5 fz
  18
  19 set q {}
  20 for {set j 1} {$j < $N} {incr j} {
  21  tcopy fx fx_${j}
  22  ttranslate fx_${j} [expr $j*$dX] 0. 0.
  23  lappend q fx_${j}
  24 }
  25
  26 for {set j 1} {$j < $N} {incr j} {
  27  tcopy fy fy_${j}
  28  ttranslate fy_${j} 0. [expr $j*$dX] 0.
  29  lappend q fy_${j}
  30 }
  31
  32 for {set j 1} {$j < $N} {incr j} {
  33  tcopy fz fz_${j}
  34  ttranslate fz_${j} 0. 0. [expr $j*$dX]
  35  lappend q fz_${j}
  36 }
  37
  38 eval compound $q b1
  39
  40 bclearobjects
  41 bcleartools
  42 baddcompound b1
  43 bfillds -t
  44
  45 regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time
  46
  47 if { [regexp {Debug mode} [dversion]] } {
  48   set check_time 25
  49 } else {
  50   set check_time 8.2
  51 }
  52 if { $tps_time > $check_time } {
  53   puts "Error: low performance"
  54 } else {
  55   puts "OK: high performance"
  56 }
  57
  58 set 2dviewer 1