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

puts "============"
puts "OCC28085: Incorrect result of CUT operation"
puts "============"
puts ""

foreach a [directory c_*] {unset $a}

# enable FPE signals
dsetsignal 1

restore [locate_data_file bug28883_Prism.brep] b1
restore [locate_data_file bug28883_LES_2d_shell.brep] b2

explode b1 f
explode b2 f


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

checkreal Tolerance $Toler 0.0 1.0e-7 0.0

if {$NbCurv != 1} {
  puts "Error: Please check NbCurves for intersector"
} else {
  puts "OK: good number of curves!"
  checklength c_1 -l 0.036019405388914391 -eps 1.0e-3
}

don c_*
smallview; fit;
disp b1_74 b2_13

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
94783b51	1	puts "============"
	2	puts "OCC28085: Incorrect result of CUT operation"
	3	puts "============"
	4	puts ""
	5
	6	foreach a [directory c_*] {unset $a}
	7
	8	# enable FPE signals
	9	dsetsignal 1
	10
	11	restore [locate_data_file bug28883_Prism.brep] b1
	12	restore [locate_data_file bug28883_LES_2d_shell.brep] b2
	13
	14	explode b1 f
	15	explode b2 f
	16
	17
	18	regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b1_74 b2_13 -2d] full Toler NbCurv
	19
	20	checkreal Tolerance $Toler 0.0 1.0e-7 0.0
	21
	22	if {$NbCurv != 1} {
	23	puts "Error: Please check NbCurves for intersector"
	24	} else {
	25	puts "OK: good number of curves!"
	26	checklength c_1 -l 0.036019405388914391 -eps 1.0e-3
	27	}
	28
	29	don c_*
	30	smallview; fit;
	31	disp b1_74 b2_13
	32
	33	checkview -screenshot -2d -path ${imagedir}/${test_image}.png