tests/lowalgos/intss/bug29807_i3004

   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 trotate f2 +23.85857157145715500000 +12.00000000000000000000 +5.50000000000000000000 7 -7.14142842854285 0 -5
  10 trotate f2 +23.85857157145715500000 +12.00000000000000000000 +5.50000000000000000000 7.1414284285428495 7.0000000000000009 -0 20
  11 ttranslate f2 0 0 0.3
  12
  13 explode b1 f
  14 smallview
  15 don b1_5 f2
  16 fit
  17
  18 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b1_5 f2 -2d] full Toler NbCurv
  19
  20 if { ${Toler} > 0.000113} {
  21    puts "Error: bad tolerance of result"
  22 }
  23
  24 if {$NbCurv != 2} {
  25   puts "Error: Please check NbCurves for intersector"
  26 }
  27
  28 checkview -screenshot -2d -path ${imagedir}/${test_image}_3d.png
  29 smallview -2D-
  30 2dfit
  31 checkview -screenshot -2d -path ${imagedir}/${test_image}_2d.png