60b1a085 |
1 | puts "========" |
2 | puts "0030154: Modeling Algorithms - Boolean Operation on planar geometry hangs inside BRepLib::FindValidRange()" |
3 | puts "========" |
4 | puts "" |
5 | |
6 | set toler 3.e-7 |
7 | |
8 | box b -94190864 -46229000 -17178478.4 519231048 93653000 120025348.8 |
9 | |
10 | foreach e [explode b e] { |
11 | mkcurve c $e |
12 | regexp {Parameters : ([-0-9.+eE]*) ([-0-9.+eE]*)} [dump c] full t1 t2 |
13 | set range [validrange $e] |
14 | set ts1 [lindex $range 0] |
15 | set ts2 [lindex $range 1] |
16 | |
17 | set delta1 [expr $ts1 - $t1] |
18 | set delta2 [expr $t2 - $ts2] |
19 | |
20 | if {$delta1 < 1.e-7 || $delta1 > $toler || $delta2 < 1.e-7 || $delta2 > $toler} { |
21 | puts "Error: incorrect computation of the valid range" |
22 | } |
23 | } |