[occt.git] / tests / bugs / fclasses / bug24137

puts "================"
puts "OCC24137"
puts "================"
puts ""
#######################################################################
# math_FunctionSetRoot returns too rough solution
#######################################################################

pload QAcommands

vertex v 6.65634 -0.201746 2.51477
restore [locate_data_file bug24137_face.brep] f 

OCC24137 f v 508.326 77.6999
distmini d v result

regexp {([-0-9.+eE]+)$} [dump d_val] full dist
set good_dist 0
set toler 2.0e-06
if { [expr abs( ${dist} - ${good_dist} )] > ${toler} } {
    puts "Faulty : the distanse is ${dist}. It is bad value"
}
Commit	Line	Data
89d8607f	1	puts "================"
	2	puts "OCC24137"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# math_FunctionSetRoot returns too rough solution
	7	#######################################################################
	8
	9	pload QAcommands
	10
	11	vertex v 6.65634 -0.201746 2.51477
	12	restore [locate_data_file bug24137_face.brep] f
	13
	14	OCC24137 f v 508.326 77.6999
	15	distmini d v result
	16
	17	regexp {([-0-9.+eE]+)$} [dump d_val] full dist
	18	set good_dist 0
	19	set toler 2.0e-06
	20	if { [expr abs( ${dist} - ${good_dist} )] > ${toler} } {
	21	puts "Faulty : the distanse is ${dist}. It is bad value"
	22	}