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

puts "================"
puts "OCC26699"
puts "================"
puts ""
#######################################################################
# Wrong section curves
#######################################################################

set MaxTol 1.e-7
set GoodNbCurv 2

restore [locate_data_file bug26699_f1.brep] f1
restore [locate_data_file bug26699_f2.brep] f2

set log [bopcurves f1 f2 -2d]

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

if {${Toler} > ${MaxTol}} {
  puts "Error: Tolerance is too big!"
}

if {${NbCurv} != ${GoodNbCurv}} {
  puts "Error: Curve Number is bad!"
}
checklength c_1 -l 3.0
checklength c_2 -l 3.0

axo
donly f* c_*
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
71958f7d	1	puts "================"
	2	puts "OCC26699"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# Wrong section curves
	7	#######################################################################
	8
	9	set MaxTol 1.e-7
	10	set GoodNbCurv 2
	11
	12	restore [locate_data_file bug26699_f1.brep] f1
	13	restore [locate_data_file bug26699_f2.brep] f2
	14
	15	set log [bopcurves f1 f2 -2d]
	16
	17	regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
	18
	19	if {${Toler} > ${MaxTol}} {
	20	puts "Error: Tolerance is too big!"
	21	}
	22
	23	if {${NbCurv} != ${GoodNbCurv}} {
	24	puts "Error: Curve Number is bad!"
	25	}
3ad6d001	26	checklength c_1 -l 3.0
3ad6d001	27	checklength c_2 -l 3.0
71958f7d	28
	29	axo
	30	donly f* c_*
	31	fit
5747059b	32	checkview -screenshot -2d -path ${imagedir}/${test_image}.png