9026dea8 |
1 | puts "========" |
2 | puts "OCC28694" |
3 | puts "========" |
4 | puts "" |
5 | ############################################################### |
6 | # IGES reader produces too small edge covered by its vertices |
7 | ############################################################### |
8 | |
9 | igesbrep [locate_data_file bug26671.igs] r * |
10 | |
11 | foreach e [explode r e] { |
12 | if {[lsearch [dump $e] degenerated] == -1 && [validrange $e] == "edge has no valid range"} { |
13 | regexp {Mass : *([0-9\-+.eE]+)} [lprops $e] dummy len |
14 | regexp {Tolerance MAX=([0-9\-+.eE]+)} [tolerance $e] dummy tol |
15 | puts "ERROR: OCC28694 is reproduced. Edge $e (length=$len, tolerance=$tol) is too small" |
16 | } |
17 | } |