8ae442a8 |
1 | puts "========" |
2 | puts "OCC28690" |
3 | puts "========" |
4 | puts "" |
5 | ########################################## |
6 | ## Section algorithm produces micro edge |
7 | ########################################## |
8 | |
9 | restore [locate_data_file bug28690_m8_faces_1.brep] a |
10 | ttranslate a -20000 -2597.4029071873542 -8.9312813979176155 |
11 | plane f 0 0 0 1 0 0 |
12 | mkface f f |
13 | bsection r a f |
14 | checknbshapes r -edge 2 -vertex 3 |
15 | checkshape r |
16 | checkprops r -l 3896.32 |
17 | |
18 | # check that all edges have enough length |
19 | foreach 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 (lenth=$len, tolerance=$tol) is too small" |
24 | } |
25 | } |