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