tests/bugs/modalg_5/bug24751_3

   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 250
  14   } else {
  15     set max_time 500
  16   }
  17 } else {
  18   if { [regexp {Windows} [dversion]] } {
  19     set max_time 100
  20   } else {
  21     set max_time 120
  22   }
  23 }
  24
  25 dchrono h reset
  26 dchrono h start
  27
  28 restore [locate_data_file bug24696_cx_e1200_nurbs.brep] cx
  29
  30 ###------------------####
  31 trotate cx 0 0 0 1 1 1 45
  32 ###------------------####
  33
  34 bclearobjects
  35 bcleartools
  36
  37 set edges [explode cx e]
  38 set nbe [llength $edges]
  39 for {set i 1} {$i <= $nbe} {incr i} {baddobjects cx_$i}
  40 bfillds
  41 bbuild result
  42
  43 dchrono h stop
  44 set q [dchrono h show]
  45
  46 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
  47 puts "$z"
  48
  49 if { $z > ${max_time} } {
  50     puts "Elapsed time is more than ${max_time} seconds - Faulty"
  51 } else {
  52     puts "Elapsed time is less than ${max_time} seconds - OK"
  53 }
  54
  55 set 2dviewer 1