tests/lowalgos/intss/bug21494_1

   1 puts "========"
   2 puts "OCC21494: Intersection between cone and sphere fails"
   3 puts "========"
   4 puts ""
   5
   6 pcone bc 15 0 10
   7 psphere bs 10
   8 explode bc f
   9 explode bs f
  10
  11 set log [bopcurves bc_1 bs_1 -2d]
  12
  13 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} $log full Toler NbCurv
  14
  15 if { ![regexp {1 point\(s\) found} $log full] } {
  16   puts "Error: Cone apex and Pole of sphere are excluded from the intersection result"
  17 }
  18
  19 if {$NbCurv != 1} {
  20   puts "Error: Please check NbCurves for intersector"
  21 }
  22
  23 if { $Toler > 2.0e-7} {
  24   puts "Error: Big tolerance value"
  25 }
  26
  27 smallview
  28 don c_* p_*
  29 fit
  30 disp bc bs
  31
  32 checkview -screenshot -2d -path ${imagedir}/${test_image}_3d.png