| 1 | puts "================" |
| 2 | puts "OCC25407" |
| 3 | puts "================" |
| 4 | puts "" |
| 5 | ####################################################################### |
| 6 | # Exception in extrema operation. |
| 7 | ####################################################################### |
| 8 | |
| 9 | restore [locate_data_file bug25407_e2.brep] e |
| 10 | restore [locate_data_file bug25407_f2.brep] f |
| 11 | |
| 12 | mkcurve c e |
| 13 | mksurface s f |
| 14 | |
| 15 | extrema c s |
| 16 | |
| 17 | if { [isdraw ext_1] } { |
| 18 | set len [lindex [length ext_1] end] |
| 19 | checkreal "Extrema min distance" $len 1.88322e-11 1.e-7 1.e-7 |
| 20 | } else { |
| 21 | puts "Error: invalid result" |
| 22 | } |