tests/bugs/modalg_4/bug83_1

   1 puts "============"
   2 puts "BUC60912"
   3 puts "OCC83"
   4 puts "============"
   5 puts ""
   6 ###############################
   7 ## Section of simple BSpline surfaces is performed too slow
   8 ###############################
   9
  10 puts "1 case: perform section with plane"
  11 restore [locate_data_file BUC60912_sec_slow.brep] c
  12 explode c
  13 checkshape c_1
  14 checkshape c_2
  15
  16 renamevar c_1 sh
  17 renamevar c_2 pr
  18 plane f 0 0 0 1 0 0
  19 mkface f f -11 11 -11 11
  20
  21 dchrono h reset
  22 dchrono h start
  23 bsection result f pr
  24
  25 dchrono h stop
  26 set q2 [dchrono h show]
  27 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z
  28 puts "$z"
  29 if { $z > 5 } {
  30     puts "Elapsed time is more then 5 seconds - Faulty"
  31 } else {
  32     puts "Elapsed time is less then 5 - OK"
  33 }
  34
  35 checkprops result -l 42.879
  36 checkshape result
  37 checksection result
  38 checkview -display result -2d -path ${imagedir}/${test_image}.png
  39
  40