tests/bugs/moddata_3/bug24065

   1 puts "========"
   2 puts "OCC24065"
   3 puts "========"
   4 puts ""
   5 #######################################################################
   6 # Wrong intersection point
   7 #######################################################################
   8
   9 restore [locate_data_file bug24065_f.brep] f
  10 restore [locate_data_file bug24065_e.brep] e
  11
  12 # 1
  13 set CMP_TOL 1.e-7
  14
  15 checkmaxtol f -min_tol ${CMP_TOL}
  16
  17 mksurface s f
  18 mkcurve c e
  19 intersect i c s
  20
  21 # 2
  22 set CMP_DIST 1.86835288e-8
  23 set distmax [projponf f i_2]
  24 regexp {proj dist = ([-0-9.+eE]+)} ${distmax} full MaxDist
  25 if { [expr abs(${MaxDist} - ${CMP_DIST})] > ${CMP_TOL} } {
  26    puts "Error: Wrong intersection point"
  27 }