b55bd023 |
1 | puts "============" |
2 | puts "OCC27269" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Intersection algorithm produces null-length curve |
7 | ############################### |
8 | |
9 | |
10 | restore [locate_data_file bug27267_cmpd.brep] a |
11 | explode a f |
12 | |
13 | ############################# |
14 | set log [bopcurves a_1 a_7 -2d] |
15 | ############################# |
16 | |
17 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv |
18 | |
19 | for {set i 1} {$i <= ${NbCurv}} {incr i} { |
20 | bounds c_$i U1 U2 |
21 | |
22 | dump U1 U2 |
23 | |
24 | if {[dval U2-U1] < 1.0e-20} { |
25 | puts "Error: Wrong curve's range!" |
26 | } |
27 | |
28 | set le [length c_$i] |
29 | regexp "The length c_$i is +(\[-0-9.+eE\]+)" ${le} full ll |
30 | |
31 | if { $ll < 1.0e-7 } { |
32 | puts "Error: Curve c_$i is too small!" |
33 | } |
34 | } |
35 | |
36 | |