tests/lowalgos/intss/bug29807_i2001

   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-tool.brep] b2
   8
   9 explode b1 f
  10 explode b2 f
  11 nurbsconvert f1 b1_5
  12 smallview
  13 don f1 b2_2
  14 fit
  15
  16 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves f1 b2_2 -2d] full Toler NbCurv
  17
  18 checkreal Tolerance $Toler 2.693336906196208e-008 0.0 0.01
  19
  20 if {$NbCurv != 2} {
  21   puts "Error: Please check NbCurves for intersector"
  22 }
  23
  24 checkview -screenshot -2d -path ${imagedir}/${test_image}_3d.png
  25 smallview -2D-
  26 2dfit
  27 checkview -screenshot -2d -path ${imagedir}/${test_image}_2d.png