[occt.git] / tests / lowalgos / intss / bug28984

puts "======="
puts "0028984"
puts "======="
puts ""
##################################################
# Huge intersection tolerance obtained by Face/Face intersection algorithm
##################################################

binrestore [locate_data_file bug28984_faces.bin] f

explode f

set log [bopcurves f_1 f_2 -2d]
regexp {Tolerance Reached=([-0-9.+eE]+)} $log full tol_reached
regexp {([1-9]) curve} $log full nb_curves

if {$nb_curves != 2} {
  puts "Error: Invalid number of curves"
}

if {$tol_reached > 0.01} {
  puts "Error: Too big intersection tolerance"
}
Commit	Line	Data
73375359	1	puts "======="
	2	puts "0028984"
	3	puts "======="
	4	puts ""
	5	##################################################
	6	# Huge intersection tolerance obtained by Face/Face intersection algorithm
	7	##################################################
	8
	9	binrestore [locate_data_file bug28984_faces.bin] f
	10
	11	explode f
	12
	13	set log [bopcurves f_1 f_2 -2d]
	14	regexp {Tolerance Reached=([-0-9.+eE]+)} $log full tol_reached
	15	regexp {([1-9]) curve} $log full nb_curves
	16
	17	if {$nb_curves != 2} {
	18	puts "Error: Invalid number of curves"
	19	}
	20
faaa95cb	21	if {$tol_reached > 0.01} {
73375359	22	puts "Error: Too big intersection tolerance"
73375359	23	}