[occt.git] / tests / bugs / modalg_6 / bug25820_2

puts "========"
puts "OCC25820"
puts "========"
puts ""
###################################################################
# No Intersection Curves between surface of revolution and planes
###################################################################

restore [locate_data_file OCC25820-Revolution_5.brep] b1
explode b1 f
copy b1_4 b1

restore [locate_data_file OCC25820-Translation_2.brep] b2
explode b2 f
copy b2_4 b2

smallview
clear
display b1
display b2
fit

set info [bopcurves b1 b2]
regexp {Tolerance Reached=([-0-9.+eE]+)} $info full bug_info_tol
regexp {([0-9]+) curve\(s\) found.} $info full bug_info_cur

if {$bug_info_tol > 1.0e-7} {
  puts "ERROR: OCC25820 is reproduced. Tolerance is to large ($bug_info_tol)."
}

if {$bug_info_cur != 1} {
  puts "ERROR: OCC25820 is reproduced. Too many curves were found."
}

set only_screen_axo 1
Commit	Line	Data
c0e32b3c	1	puts "========"
	2	puts "OCC25820"
	3	puts "========"
	4	puts ""
	5	###################################################################
	6	# No Intersection Curves between surface of revolution and planes
	7	###################################################################
	8
	9	restore [locate_data_file OCC25820-Revolution_5.brep] b1
	10	explode b1 f
	11	copy b1_4 b1
	12
	13	restore [locate_data_file OCC25820-Translation_2.brep] b2
	14	explode b2 f
	15	copy b2_4 b2
	16
	17	smallview
	18	clear
	19	display b1
	20	display b2
	21	fit
	22
6d368502	23	set info [bopcurves b1 b2]
	24	regexp {Tolerance Reached=([-0-9.+eE]+)} $info full bug_info_tol
	25	regexp {([0-9]+) curve\(s\) found.} $info full bug_info_cur
c0e32b3c	26
	27	if {$bug_info_tol > 1.0e-7} {
	28	puts "ERROR: OCC25820 is reproduced. Tolerance is to large ($bug_info_tol)."
	29	}
	30
	31	if {$bug_info_cur != 1} {
	32	puts "ERROR: OCC25820 is reproduced. Too many curves were found."
	33	}
	34
	35	set only_screen_axo 1