tests/bugs/modalg_6/bug28690_2

   1 puts "========"
   2 puts "OCC28690"
   3 puts "========"
   4 puts ""
   5 ##########################################
   6 ##  Section algorithm produces micro edge
   7 ##########################################
   8
   9 restore [locate_data_file bug28690_m9_faces.brep] a
  10 plane f 0 0 0 0 1 0
  11 mkface f f
  12 bsection r a f
  13 checknbshapes r -edge 3 -vertex 4
  14 checkshape r
  15 checkprops r -l 7976.14
  16
  17 # check that all edges have enough length
  18 foreach e [explode r] {
  19   if {[validrange $e] == "edge has no valid range"} {
  20     regexp {Mass : *([0-9\-+.eE]+)} [lprops $e] dummy len
  21     regexp {Tolerance MAX=([0-9\-+.eE]+)} [tolerance $e] dummy tol
  22     puts "Error: edge $e (length=$len, tolerance=$tol) is too small"
  23   }
  24 }