tests/bugs/modalg_7/bug30194

   1 puts "========"
   2 puts "0030194: Modeling Algorithms - Intersection points between line and torus are not found"
   3 puts "========"
   4 puts ""
   5
   6 restore [locate_data_file bug30194_HA-8579.brep] a
   7 line l 18000 2000 4000 0 0 -1
   8 explode a f
   9 mksurface s1 a_1
  10 intersect result l s1
  11
  12 set full1 ""
  13 regexp "Point\\s*:\\s*(\[-0-9.+eE\]+)\\s*,\\s*(\[-0-9.+eE\]+)\\s*,\\s*(\[-0-9.+eE\]+)\\s*" [dump result_1] full1 px1 py1 pz1
  14
  15 if {$full1 != ""} {
  16   checkreal PointX $px1 1.8e4 1.0e-7 0
  17   checkreal PointY $py1 2.0e3 1.0e-7 0
  18   checkreal PointZ $pz1 7.898712797729002e+003 1.0e-7 0
  19 } else {
  20  puts "Error : no intersection point"
  21 }
  22
  23 set full2 ""
  24 regexp "Point\\s*:\\s*(\[-0-9.+eE\]+)\\s*,\\s*(\[-0-9.+eE\]+)\\s*,\\s*(\[-0-9.+eE\]+)\\s*" [dump result_2] full2 px2 py2 pz2
  25
  26 if {$full2 != ""} {
  27   checkreal PointX $px2 1.8e4 1.0e-7 0
  28   checkreal PointY $py2 2.0e3 1.0e-7 0
  29   checkreal PointZ $pz2 1.012872022709980e+002 1.0e-7 0
  30 } else {
  31   puts "Error : no intersection point"
  32 }
  33