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

puts "=========="
puts "OCC24504"
puts "=========="
puts ""
################################################
# Wrong result obtained by Extrema Curve/Curve
################################################

restore [locate_data_file bug24504_c1] c1
restore [locate_data_file bug24504_c2] c2

trim c1t c1 1435.4903148955743 1484.9899809123547
trim c2t c2 2590.8671336821694 4503.5062290971819

if { [llength [extrema c1t c2t]] != 1 } {
  puts "Error: expected only one line as result of extrema!"
}

# Distance check
set info [dump ext_1]
regexp "Parameters : 0 +(\[-0-9*\.+eE\]+)" $info full extLength
if {$extLength > 1e-12 } {
  puts "Error: bad distance points obtained"
} else {
  puts "OK: good distance between obtained points "
}
Commit	Line	Data
963532f8	1	puts "=========="
	2	puts "OCC24504"
	3	puts "=========="
	4	puts ""
	5	################################################
	6	# Wrong result obtained by Extrema Curve/Curve
	7	################################################
	8
	9	restore [locate_data_file bug24504_c1] c1
	10	restore [locate_data_file bug24504_c2] c2
	11
	12	trim c1t c1 1435.4903148955743 1484.9899809123547
	13	trim c2t c2 2590.8671336821694 4503.5062290971819
	14
	15	if { [llength [extrema c1t c2t]] != 1 } {
	16	puts "Error: expected only one line as result of extrema!"
	17	}
	18
	19	# Distance check
	20	set info [dump ext_1]
	21	regexp "Parameters : 0 +(\[-0-9*\.+eE\]+)" $info full extLength
	22	if {$extLength > 1e-12 } {
	23	puts "Error: bad distance points obtained"
	24	} else {
	25	puts "OK: good distance between obtained points "
	26	}