tests/bugs/modalg_6/bug26447

   1 puts "============"
   2 puts "OCC26447"
   3 puts "============"
   4 puts ""
   5 ##############################################################
   6 # Performance degradation intersecting cylindrical surfaces
   7 #############################################################
   8
   9 cylinder c1 0 0 0 1 0 0 0 -1 0 100
  10 cylinder c2 0 0 0 0 1 0 1 0 0 100
  11 mkface f1 c1
  12 mkface f2 c2
  13
  14 dchrono cr reset
  15 dchrono cr start
  16
  17 for {set i 1} {$i <= 1000} {incr i} {
  18   bopcurves f1 f2
  19 }
  20
  21 dchrono cr stop
  22 if { [checkplatform -windows] } {
  23   set max_time 7.5
  24 } else {
  25   set max_time 4.5
  26 }
  27 set TimeList [dchrono cr show]
  28 regexp {Elapsed time: [-0-9.+eE]+ Hours [-0-9.+eE]+ Minutes ([-0-9.+eE]+) Seconds} $TimeList full ElapsedTime_sec
  29
  30 if { ${ElapsedTime_sec} > ${max_time} } {
  31   puts "Error: Elapsed time of intersecting is more than ${max_time} seconds"
  32 } else {
  33   puts "OK: Elapsed time of intersecting is less than ${max_time} seconds"
  34 }