tests/bugs/modalg_5/bug25270

   1 puts "========="
   2 puts "OCC25270"
   3 puts "========="
   4 puts ""
   5 #####################################################################
   6 # OCCT fails to calculate extrema between extruded surface and line
   7 #####################################################################
   8
   9 restore [locate_data_file bug25270_face.brep] f
  10 restore [locate_data_file bug25270_edge.brep] e
  11
  12 distmini result f e
  13 regexp {([-0-9.+eE]+)} [dval result_val] full ddist
  14 if { $ddist > 1.e-7 } {
  15   puts "Error: Extrema between extruded surface and line is incorrect $ddist"
  16 } else {
  17   puts "OK: Extrema between extruded surface and line is correct $ddist"
  18 }