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

puts "========"
puts "OCC28102"
puts "========"
puts ""
#######################################################
# Problem cutting a plate with several holes (670)
#######################################################

restore [locate_data_file bug28102_plate.brep] pl0
restore [locate_data_file bug28102_holes.brep] hl

# Incomplete section
bsection result pl0 hl

regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
if { $nbv != 0 } { puts "Error : Section is incorrect" }

checknbshapes result -vertex 268 -edge 268

checkprops result -l 11.5694

regexp {Tolerance MAX=([-0-9.+eE]+)} [tolerance result] full toler

if {$toler > 1.0e-5} {
  puts "Error: Tolerance of section is too large"
}

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
779d6bc6	1	puts "========"
	2	puts "OCC28102"
	3	puts "========"
	4	puts ""
	5	#######################################################
	6	# Problem cutting a plate with several holes (670)
	7	#######################################################
	8
	9	restore [locate_data_file bug28102_plate.brep] pl0
	10	restore [locate_data_file bug28102_holes.brep] hl
	11
	12	# Incomplete section
	13	bsection result pl0 hl
	14
	15	regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
	16	if { $nbv != 0 } { puts "Error : Section is incorrect" }
	17
	18	checknbshapes result -vertex 268 -edge 268
	19
	20	checkprops result -l 11.5694
	21
	22	regexp {Tolerance MAX=([-0-9.+eE]+)} [tolerance result] full toler
	23
	24	if {$toler > 1.0e-5} {
	25	puts "Error: Tolerance of section is too large"
	26	}
	27
	28	checkview -display result -2d -path ${imagedir}/${test_image}.png