tests/bugs/modalg_7/bug29807_i3001

   1 puts "========"
   2 puts "0029807: Impossible to cut cone from prism"
   3 puts "========"
   4 puts ""
   5
   6 restore [locate_data_file bug29807-obj.brep] b1
   7 restore [locate_data_file bug29807-cone.brep] f2
   8
   9 explode b1 f
  10 smallview
  11 don b1_5 f2
  12 fit
  13
  14 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b1_5 f2 -2d] full Toler NbCurv
  15
  16 checkreal Tolerance $Toler 0.00015253053837762444 0.0 0.01
  17
  18 if {$NbCurv != 2} {
  19   puts "Error: Please check NbCurves for intersector"
  20 }
  21
  22 checkview -screenshot -2d -path ${imagedir}/${test_image}_3d.png
  23 smallview -2D-
  24 2dfit
  25 checkview -screenshot -2d -path ${imagedir}/${test_image}_2d.png