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