tests/lowalgos/intss/bug28085_2

   1 puts "============"
   2 puts "OCC28085: Incorrect result of CUT operation"
   3 puts "============"
   4 puts ""
   5
   6 foreach a [directory c_*] {unset $a}
   7
   8 # enable FPE signals
   9 dsetsignal 1
  10
  11 restore [locate_data_file bug28883_Prism.brep] b1
  12 restore [locate_data_file bug28883_LES_2d_shell.brep] b2
  13
  14 explode b1 f
  15 explode b2 f
  16
  17
  18 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b1_74 b2_13 -2d] full Toler NbCurv
  19
  20 checkreal Tolerance $Toler 0.0 1.0e-7 0.0
  21
  22 if {$NbCurv != 1} {
  23   puts "Error: Please check NbCurves for intersector"
  24 } else {
  25   puts "OK: good number of curves!"
  26   checklength c_1 -l 0.036019405388914391 -eps 1.0e-3
  27 }
  28
  29 don c_*
  30 smallview; fit;
  31 disp b1_74 b2_13
  32
  33 checkview -screenshot -2d -path ${imagedir}/${test_image}.png