tests/bugs/modalg_5/bug24157_4

   1 puts "============"
   2 puts "OCC24157"
   3 puts "============"
   4 puts ""
   5 ############################################
   6 # Parallelization of assembly part of BO
   7 ############################################
   8
   9 set aN 5
  10 set aR1 10.
  11 set aR2 4.
  12
  13 set aZ 0.
  14 for {set i 0} {$i < $aN} {incr i} {
  15   set aA ${i}*2.*pi/${aN}
  16   set aX ${aR1}*cos(${aA})
  17   set aY ${aR1}*sin(${aA})
  18   vertex v1_${i} ${aX} ${aY} ${aZ}
  19
  20   set aA ${aA}+pi/${aN}
  21   set aX ${aR2}*cos(${aA})
  22   set aY ${aR2}*sin(${aA})
  23   vertex v2_${i} ${aX} ${aY} ${aZ}
  24 }
  25 copy v1_0  v1_${aN}
  26
  27 set q {}
  28 for {set i 0} {$i < $aN} {incr i} {
  29   set j [expr $i + 1]
  30   edge e1_${i} v1_${i} v2_${i}
  31   lappend q  e1_${i}
  32   edge e2_${i} v2_${i} v1_${j}
  33   lappend q e2_${i}
  34 }
  35
  36 eval wire w $q
  37 mkplane bs w
  38 #----------------------------
  39 box b 700 820 1
  40 explode b f
  41 copy b_5 b1
  42
  43 set N 41
  44 set q {}
  45 for {set i 1} {$i < $N} {incr i} {
  46     for {set j 1} {$j < $N} {incr j} {
  47         tcopy bs bs_${i}_{$j}
  48         ttranslate bs_${i}_{$j} [expr $i * 17.] [expr $j * 20.] 0.
  49         lappend q bs_${i}_{$j}
  50     }
  51 }
  52 eval compound $q b2
  53
  54 bclearobjects
  55 bcleartools
  56 baddobjects b1
  57 baddcompound b2
  58 bfillds
  59
  60 regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time
  61
  62 if { [regexp {Debug mode} [dversion]] } {
  63   set check_time 60
  64 } else {
  65   set check_time 43
  66 }
  67 if { $tps_time > $check_time } {
  68   puts "Error: low performance"
  69 } else {
  70   puts "OK: high performance"
  71 }
  72
  73 checkview -display result -2d -path ${imagedir}/${test_image}.png