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

puts "========"
puts "OCC27761"
puts "========"
puts ""
#################################################
# Intersection loops infinitely
#################################################

restore [locate_data_file bug27761_c1.brep] c1
restore [locate_data_file bug27761_c2.brep] c2

bsection result c1 c2

checkshape result
# approximate theoretical length of the result
checkprops result -l 0.00192624

regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
if { $nbv != 0 } { puts "Error : Section is incorrect" }

smallview
don result
fit
clear
disp c1 c2
disp result

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
7cb2f409	1	puts "========"
	2	puts "OCC27761"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# Intersection loops infinitely
	7	#################################################
	8
	9	restore [locate_data_file bug27761_c1.brep] c1
	10	restore [locate_data_file bug27761_c2.brep] c2
	11
	12	bsection result c1 c2
	13
	14	checkshape result
	15	# approximate theoretical length of the result
ae541252	16	checkprops result -l 0.00192624
	17
	18	regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
	19	if { $nbv != 0 } { puts "Error : Section is incorrect" }
	20
	21	smallview
	22	don result
	23	fit
	24	clear
	25	disp c1 c2
	26	disp result
	27
	28	checkview -screenshot -2d -path ${imagedir}/${test_image}.png