1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
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
trim st s -0.168011130695572 0. -16.5 0.
trim ct c 1.1167213545471877e-008 0.033333343614041021
extrema ct st
if { [isdraw ext_1] } {
mkedge result ext_1
set length 1.00005e-07
} else {
puts "Error: invalid result"
}
set 2dviewer 1
|
