tests/bugs/modalg_4/bug83_2

   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 "2 case: perform section with planar BSpline surface"
  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 puts "Info: perform section with planar BSpline surface"
  22 dchrono h2 reset
  23 dchrono h2 start
  24 bsection result sh pr
  25 dchrono h2 stop
  26 set q2 [ dchrono h2 show ]
  27 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
  28 puts "$z2"
  29 if { $z2 > 40 } {
  30     puts "Elapsed time is more then 40 seconds - Faulty"
  31 } else {
  32     puts "Elapsed time is less then 40 - OK"
  33 }
  34 checkprops result -l 42.879
  35 checkshape result
  36 checksection result
  37 checkview -display result -2d -path ${imagedir}/${test_image}.png
  38