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

puts "============"
puts "OCC27252"
puts "============"
puts ""
#######################################################################
# Implicit-implicit intersection (Cylinder-Plane) loses intersection curve
#######################################################################

set GoodNbCurv 1
set MaxTol 1.0e-7

restore [locate_data_file bug27221.brep] a
explode a
mkplane f a_2
prism p f -25 0 0 
explode a_1 f
explode p f
don a_1_7 p_3

set log [bopcurves a_1_7 p_3 -2d]

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

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

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

smallview
don c_*
fit
display a_1_7 p_3

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
f542b7bb	1	puts "============"
	2	puts "OCC27252"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Implicit-implicit intersection (Cylinder-Plane) loses intersection curve
	7	#######################################################################
	8
	9	set GoodNbCurv 1
	10	set MaxTol 1.0e-7
	11
	12	restore [locate_data_file bug27221.brep] a
	13	explode a
	14	mkplane f a_2
	15	prism p f -25 0 0
	16	explode a_1 f
	17	explode p f
	18	don a_1_7 p_3
	19
	20	set log [bopcurves a_1_7 p_3 -2d]
	21
	22	regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
	23
	24	if {${NbCurv} != ${GoodNbCurv}} {
	25	puts "Error: Curve Number is bad!"
	26	}
	27
	28	if {${Toler} > ${MaxTol}} {
	29	puts "Error: Tolerance is too big!"
	30	}
	31
	32	smallview
	33	don c_*
	34	fit
	35	display a_1_7 p_3
	36
	37	checkview -screenshot -2d -path ${imagedir}/${test_image}.png