tests/bugs/modalg_5/bug24157_5

   1 puts "============"
   2 puts "OCC24157"
   3 puts "============"
   4 puts ""
   5 ############################################
   6 # Parallelization of assembly part of BO
   7 ############################################
   8
   9 set L 300
  10 set dL 10
  11 set dS 10
  12
  13 box b $L $L 20
  14 explode b f
  15 copy b_5 b1
  16
  17 vertex v1 ${dS} -${dL} 0
  18 vertex v2 ${dS} [expr ${L}+${dL}] 0
  19 edge ex v1 v2
  20
  21 vertex v1 -${dL} $dS 0
  22 vertex v2 [expr ${L}+${dL}] ${dS} 0
  23 edge ey v1 v2
  24
  25 #--------------------------------------------
  26 set cx {}
  27 set N 29
  28 set N1 [expr $N+1]
  29
  30 for {set i 0} {$i < $N} {incr i} {
  31   tcopy ex ex$i
  32   ttranslate ex$i [expr $i*${dS}] 0 0
  33   lappend cx ex$i
  34 }
  35
  36 for {set i 0} {$i < $N} {incr i} {
  37   tcopy ey ey$i
  38   ttranslate ey$i 0 [expr $i*${dS}] 0
  39   lappend cx ey$i
  40 }
  41
  42 pcylinder x 1 2
  43 explode x e
  44 tcopy x_3 ex
  45
  46 for {set i 0} {$i < $N1} {incr i} {
  47   for {set j 0} {$j < $N1} {incr j} {
  48     for {set k 0} {$k < 3} {incr k} {
  49       for {set m 0} {$m < 3} {incr m} {
  50         tcopy ex ex_${i}_${j}_${k}_${m}
  51         ttranslate  ex_${i}_${j}_${k}_${m} [expr $i*${dS}] [expr $j*${dS}] 0
  52         ttranslate  ex_${i}_${j}_${k}_${m} [expr 2+${k}*3] [expr 2+${m}*3] 0
  53         lappend cx  ex_${i}_${j}_${k}_${m}
  54       }
  55     }
  56   }
  57 }
  58
  59 eval compound $cx b2
  60 bclearobjects
  61 bcleartools
  62 baddobjects b1
  63 baddcompound b2
  64 bfillds
  65
  66 regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time
  67
  68 if { [regexp {Debug mode} [dversion]] } {
  69   set check_time 50
  70 } else {
  71   set check_time 20
  72 }
  73 if { $tps_time > $check_time } {
  74   puts "Error: low performance"
  75 } else {
  76   puts "OK: high performance"
  77 }
  78
  79 set 2dviewer 1