963532f8 |
1 | puts "==========" |
2 | puts "OCC24504" |
3 | puts "==========" |
4 | puts "" |
5 | ################################################ |
6 | # Wrong result obtained by Extrema Curve/Curve |
7 | ################################################ |
8 | |
9 | restore [locate_data_file bug24504_c1] c1 |
10 | restore [locate_data_file bug24504_c2] c2 |
11 | |
12 | trim c1t c1 1435.4903148955743 1484.9899809123547 |
13 | trim c2t c2 2590.8671336821694 4503.5062290971819 |
14 | |
15 | if { [llength [extrema c1t c2t]] != 1 } { |
16 | puts "Error: expected only one line as result of extrema!" |
17 | } |
18 | |
19 | # Distance check |
20 | set info [dump ext_1] |
21 | regexp "Parameters : 0 +(\[-0-9*\.+eE\]+)" $info full extLength |
22 | if {$extLength > 1e-12 } { |
23 | puts "Error: bad distance points obtained" |
24 | } else { |
25 | puts "OK: good distance between obtained points " |
26 | } |