tests/bugs/modalg_5/bug24751_4

   1 puts "========="
   2 puts "OCC24751"
   3 puts "========="
   4 puts ""
   5 ###########################################################
   6 # Performance improvements in the Edge/Edge intersection algorithm
   7 ###########################################################
   8
   9 pload QAcommands
  10
  11 if { [regexp {Debug mode} [dversion]] } {
  12   if { [regexp {Windows} [dversion]] } {
  13     set max_time 350
  14   } else {
  15     set max_time 550
  16   }
  17 } else {
  18   if { [regexp {Windows} [dversion]] } {
  19     set max_time 110
  20   } else {
  21     set max_time 150
  22   }
  23 }
  24
  25 if { [regexp {Mac OS X} [dversion]] } {
  26   set max_time 260
  27 }
  28
  29 dchrono h reset
  30 dchrono h start
  31
  32 restore [locate_data_file bug24696_cx_e1200_nurbs.brep] cx
  33
  34 ###------------------####
  35 trotate cx 0 0 0 0 1 1 90
  36 ###------------------####
  37
  38 bclearobjects
  39 bcleartools
  40
  41 set edges [explode cx e]
  42 set nbe [llength $edges]
  43 for {set i 1} {$i <= $nbe} {incr i} {baddobjects cx_$i}
  44 bfillds
  45 bbuild result
  46
  47 dchrono h stop
  48 set q [dchrono h show]
  49
  50 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
  51 puts "$z"
  52
  53 if { $z > ${max_time} } {
  54     puts "Elapsed time is more than ${max_time} seconds - Faulty"
  55 } else {
  56     puts "Elapsed time is less than ${max_time} seconds - OK"
  57 }
  58
  59 set 2dviewer 1