tests/bugs/modalg_7/bug83

   1 puts "====="
   2 puts "OCC83"
   3 puts "====="
   4 puts ""
   5 #####################################################################
   6 # BUC60912. Section of simple BSpline surfaces is performed too slow.
   7 #####################################################################
   8
   9 restore [locate_data_file BUC60912_sec_slow.brep] c
  10
  11 explode c
  12 renamevar c_1 sh
  13 renamevar c_2 pr
  14
  15 plane f 0 0 0 1 0 0
  16 mkface f f -11 11 -11 11
  17
  18 puts "Info: perform section with plane"
  19 chrono h1 reset; chrono h1 start
  20 section r1 f pr
  21 chrono h1 stop counter "CPU section r1"
  22
  23 puts "Info: perform section with planar BSpline surface"
  24 chrono h2 reset; chrono h2 start
  25 section r2 sh pr
  26 chrono h2 stop counter "CPU section r2"
  27
  28 regexp {Elapsed time: +([-0-9.+eE]+) Hours +([-0-9.+eE]+) Minutes +([-0-9.+eE]+) Seconds} [dchrono h1 show] full h1_Hours h1_Minutes h1_Seconds
  29 regexp {Elapsed time: +([-0-9.+eE]+) Hours +([-0-9.+eE]+) Minutes +([-0-9.+eE]+) Seconds} [dchrono h2 show] full h2_Hours h2_Minutes h2_Seconds
  30
  31 set h1_Time [expr ${h1_Hours}*60.*60. + ${h1_Minutes}*60. + ${h1_Seconds} ]
  32 set h2_Time [expr ${h2_Hours}*60.*60. + ${h2_Minutes}*60. + ${h2_Seconds} ]
  33
  34 if { ${h1_Time} > 0.1 } {
  35    puts "Error: Section of simple BSpline surfaces_1 is performed too slow"
  36 }
  37
  38 if { ${h2_Time} > 0.1 } {
  39    puts "Error: Section of simple BSpline surfaces_2 is performed too slow"
  40 }