1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
puts "========="
puts "OCC25270"
puts "========="
puts ""
#####################################################################
# OCCT fails to calculate extrema between extruded surface and line
#####################################################################
restore [locate_data_file bug25270_face.brep] f
restore [locate_data_file bug25270_edge.brep] e
distmini result f e
regexp {([-0-9.+eE]+)} [dval result_val] full ddist
if { $ddist > 1.e-7 } {
puts "Error: Extrema between extruded surface and line is incorrect $ddist"
} else {
puts "OK: Extrema between extruded surface and line is correct $ddist"
}
|
