[occt.git] / tests / bugs / modalg_5 / bug24347

puts "============"
puts "OCC24347"
puts "============"
puts ""
###########################################################
# Problem by tolerance of the distance of Face and Vertex
###########################################################

pload XDE
set checkvalue 2.72742879238428e-14

restore [locate_data_file bug24347_face.brep] f
vertex v 34.265509314637 0.1 0.73361964922719

settolerance f 4.e-6
distmini d1 f v

regexp {([-0-9.+eE]+)$} [dump d1_val] full distvalue
if { $distvalue != $checkvalue } {
  puts "Error: distance is incorrect"
} else {
  puts "OK: distance is correct"
}
Commit	Line	Data
21761b6f	1	puts "============"
	2	puts "OCC24347"
	3	puts "============"
	4	puts ""
	5	###########################################################
	6	# Problem by tolerance of the distance of Face and Vertex
	7	###########################################################
	8
	9	pload XDE
	10	set checkvalue 2.72742879238428e-14
	11
	12	restore [locate_data_file bug24347_face.brep] f
	13	vertex v 34.265509314637 0.1 0.73361964922719
	14
	15	settolerance f 4.e-6
	16	distmini d1 f v
	17
	18	regexp {([-0-9.+eE]+)$} [dump d1_val] full distvalue
	19	if { $distvalue != $checkvalue } {
	20	puts "Error: distance is incorrect"
	21	} else {
	22	puts "OK: distance is correct"
	23	}