0025890: Intersection algorithm produces curves overlaped
[occt.git] / tests / bugs / moddata_3 / bug25407_1
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    mkedge result ext_1
19    set length 1.88322e-11
20 } else {
21    puts "Error: invalid result"
22 }
23
24 set 2dviewer 1