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

puts "========"
puts "OCC27766"
puts "========"
puts ""
#################################################
# Incorrect section curves between attached cylinders
#################################################

set ExpTol 1.0e-7
set GoodNbCurv 3

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

set log [bopcurves c1 c2 -2d]

regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv

if {${NbCurv} != ${GoodNbCurv}} {
  puts "Error: Number of curves is bad!"
}

checkreal TolReached $Toler $ExpTol 0.0 0.1

smallview
don c_*
fit
disp c1 c2

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
ae541252	1	puts "========"
	2	puts "OCC27766"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# Incorrect section curves between attached cylinders
	7	#################################################
	8
	9	set ExpTol 1.0e-7
d30895f5	10	set GoodNbCurv 3
ae541252	11
	12	restore [locate_data_file bug27761_c1.brep] c1
	13	restore [locate_data_file bug27761_c2.brep] c2
	14
	15	set log [bopcurves c1 c2 -2d]
	16
	17	regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
	18
	19	if {${NbCurv} != ${GoodNbCurv}} {
	20	puts "Error: Number of curves is bad!"
	21	}
	22
	23	checkreal TolReached $Toler $ExpTol 0.0 0.1
	24
	25	smallview
	26	don c_*
	27	fit
	28	disp c1 c2
	29
	30	checkview -screenshot -2d -path ${imagedir}/${test_image}.png