tests/bugs/modalg_5/bug24157_9

   1 puts "============"
   2 puts "OCC24157"
   3 puts "============"
   4 puts ""
   5 ############################################
   6 # Parallelization of assembly part of BO
   7 ############################################
   8
   9 restore [locate_data_file bug24157_fstar] b1
  10 set qs {}
  11
  12 set N 24
  13 for {set i 0} {$i < $N} {incr i} {
  14   tcopy b1 b1_${i}
  15   trotate b1_${i} 0. 0. 0. 0. 0. 1. [expr $i * 15.]
  16   lappend qs b1_${i}
  17 }
  18 eval compound $qs q
  19
  20 bclearobjects
  21 bcleartools
  22 baddcompound q
  23 bfillds
  24
  25 regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time
  26
  27 if { $tps_time > 15.7 } {
  28   puts "Error: low performance"
  29 } else {
  30   puts "OK: high performance"
  31 }
  32
  33 set 2dviewer 1