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

puts "TODO OCC27687 ALL: ERROR: OCC27687 is reproduced."

puts "========"
puts "OCC27687"
puts "========"
puts ""
#########################################################
# Section between shells of hull and deck is not closed
#########################################################

restore [locate_data_file bug27746_first.brep] f
restore [locate_data_file bug27746_second.brep] s

bsection result f s

smallview
clear
display result
fit

set bug_info [string trim [checksection result]]
set bug_info [string trim [string range $bug_info [expr {[string last ":" $bug_info] + 1}] [expr {[string length $bug_info] - 1}]]]
if {$bug_info != 0} {
  puts "ERROR: OCC27687 is reproduced. Section is not closed: Number of alone Vertices: ${bug_info}."
}

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
340054e1	1	puts "TODO OCC27687 ALL: ERROR: OCC27687 is reproduced."
	2
	3	puts "========"
	4	puts "OCC27687"
	5	puts "========"
	6	puts ""
	7	#########################################################
	8	# Section between shells of hull and deck is not closed
	9	#########################################################
	10
	11	restore [locate_data_file bug27746_first.brep] f
	12	restore [locate_data_file bug27746_second.brep] s
	13
	14	bsection result f s
	15
	16	smallview
	17	clear
	18	display result
	19	fit
	20
	21	set bug_info [string trim [checksection result]]
	22	set bug_info [string trim [string range $bug_info [expr {[string last ":" $bug_info] + 1}] [expr {[string length $bug_info] - 1}]]]
	23	if {$bug_info != 0} {
	24	puts "ERROR: OCC27687 is reproduced. Section is not closed: Number of alone Vertices: ${bug_info}."
	25	}
	26
	27	checkview -screenshot -2d -path ${imagedir}/${test_image}.png