[occt.git] / tests / bugs / mesh / bug23631

puts "========"
puts "OCC23631"
puts "========"
puts ""
###########################################
## Infinite memory consumption in BRepMesh
###########################################

set BugNumber 23631

restore [locate_data_file OCC396_f2903.brep] result

incmesh result 0.01
triangles result 

set tri 0
set nod 0

set good_tri 31
set good_nod 33

set tri_info [trinfo result]
regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod

if { ${tri} == ${good_tri} && ${nod} == ${good_nod} } {
    puts "Bug ${BugNumber} shading: OK"
} else {
    puts "Bug ${BugNumber} shading: Faulty"
}

vinit
vdisplay result
vfit
vsetdispmode 1
set only_screen 1
Commit	Line	Data
9bdafcbe	1	puts "========"
	2	puts "OCC23631"
	3	puts "========"
	4	puts ""
	5	###########################################
	6	## Infinite memory consumption in BRepMesh
	7	###########################################
	8
	9	set BugNumber 23631
	10
	11	restore [locate_data_file OCC396_f2903.brep] result
	12
	13	incmesh result 0.01
	14	triangles result
	15
	16	set tri 0
	17	set nod 0
	18
	19	set good_tri 31
	20	set good_nod 33
	21
	22	set tri_info [trinfo result]
	23	regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
	24	regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
	25
	26	if { ${tri} == ${good_tri} && ${nod} == ${good_nod} } {
	27	puts "Bug ${BugNumber} shading: OK"
	28	} else {
	29	puts "Bug ${BugNumber} shading: Faulty"
	30	}
	31
	32	vinit
	33	vdisplay result
	34	vfit
	35	vsetdispmode 1
	36	set only_screen 1
	37