[occt.git] / tests / lowalgos / intss / bug26509_3

puts "========"
puts "0026509: Wrong intersection curve(s) obtained for pair of faces."
puts "========"
puts ""

circle c1 0 0 0 0 -1 0 75
circle c2 0 0 0 0 -1 0 65
mkedge c1 c1
mkedge c2 c2
wire c1 c1
wire c2 c2
orientation c2 R
mkplane f1 c1 1
add c2 f1
prism p1 f1 0 1000 0
trotate p1 0 0 0 0 0 1 180
circle c3 50 500 -2000 0 0 1 50
mkedge c3 c3
wire c3 c3
mkplane f2 c3 1
prism p2 f2 0 0 4000
explode p1 f
explode p2 f
trotate p2_1 0 500 0 1 0 0 -77
trotate p2_1 0 0 0 0 0 1 180
trotate p1_2 0 0 0 1.22464679914735e-16 1 0 1.57079632679489655800*180/pi

regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves p1_2 p2_1 -2d] full Toler NbCurv

checkreal Tolerance $Toler 3.6430300265667996e-07 0.0 0.1

if {$NbCurv != 2} {
  puts "Error: Please check NbCurves for intersector"
}

puts "Check whether the intersection result is closed in 3D"
bsection result p1_2 p2_1

checksection result -r 0
checkmaxtol result -ref 4.0e-7
checkprops result -l 1881.92

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
cdcf6fc2	1	puts "========"
	2	puts "0026509: Wrong intersection curve(s) obtained for pair of faces."
	3	puts "========"
	4	puts ""
	5
	6	circle c1 0 0 0 0 -1 0 75
	7	circle c2 0 0 0 0 -1 0 65
	8	mkedge c1 c1
	9	mkedge c2 c2
	10	wire c1 c1
	11	wire c2 c2
	12	orientation c2 R
	13	mkplane f1 c1 1
	14	add c2 f1
	15	prism p1 f1 0 1000 0
	16	trotate p1 0 0 0 0 0 1 180
	17	circle c3 50 500 -2000 0 0 1 50
	18	mkedge c3 c3
	19	wire c3 c3
	20	mkplane f2 c3 1
	21	prism p2 f2 0 0 4000
	22	explode p1 f
	23	explode p2 f
	24	trotate p2_1 0 500 0 1 0 0 -77
	25	trotate p2_1 0 0 0 0 0 1 180
	26	trotate p1_2 0 0 0 1.22464679914735e-16 1 0 1.57079632679489655800*180/pi
	27
	28	regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves p1_2 p2_1 -2d] full Toler NbCurv
	29
	30	checkreal Tolerance $Toler 3.6430300265667996e-07 0.0 0.1
	31
	32	if {$NbCurv != 2} {
	33	puts "Error: Please check NbCurves for intersector"
	34	}
	35
	36	puts "Check whether the intersection result is closed in 3D"
	37	bsection result p1_2 p2_1
	38
	39	checksection result -r 0
	40	checkmaxtol result -ref 4.0e-7
	41	checkprops result -l 1881.92
	42
	43	checkview -display result -2d -path ${imagedir}/${test_image}.png