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