[occt.git] / tests / bugs / modalg_7 / bug29807_i3002

puts "========"
puts "0029807: Impossible to cut cone from prism"
puts "========"
puts ""

restore [locate_data_file bug29807-obj.brep] b1
restore [locate_data_file bug29807-cone.brep] f2

trotate f2 +23.85857157145715500000 +12.00000000000000000000 +5.50000000000000000000 7 -7.14142842854285 0 5
removeloc f2 f2

explode b1 f
smallview
don b1_5 f2
fit

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

checkreal Tolerance $Toler 0.00039718358530349535 0.0 0.01

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

checkview -screenshot -2d -path ${imagedir}/${test_image}_3d.png
smallview -2D-
2dfit
checkview -screenshot -2d -path ${imagedir}/${test_image}_2d.png
Commit	Line	Data
3306fdd9	1	puts "========"
	2	puts "0029807: Impossible to cut cone from prism"
	3	puts "========"
	4	puts ""
	5
	6	restore [locate_data_file bug29807-obj.brep] b1
	7	restore [locate_data_file bug29807-cone.brep] f2
	8
	9	trotate f2 +23.85857157145715500000 +12.00000000000000000000 +5.50000000000000000000 7 -7.14142842854285 0 5
	10	removeloc f2 f2
	11
	12	explode b1 f
	13	smallview
	14	don b1_5 f2
	15	fit
	16
	17	regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b1_5 f2 -2d] full Toler NbCurv
	18
	19	checkreal Tolerance $Toler 0.00039718358530349535 0.0 0.01
	20
	21	if {$NbCurv != 2} {
	22	puts "Error: Please check NbCurves for intersector"
	23	}
	24
	25	checkview -screenshot -2d -path ${imagedir}/${test_image}_3d.png
	26	smallview -2D-
	27	2dfit
	28	checkview -screenshot -2d -path ${imagedir}/${test_image}_2d.png