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