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

puts "========"
puts "OCC28118"
puts "========"
puts ""
###########################################
# Mesh generation hangs then crashes
###########################################

pload DATAEXCHANGEKERNEL

testreadstep [locate_data_file bug28118_18547.stp] result
vclear
vinit View1
vdefaults -autoTriang off
vdisplay result
vfit
incmesh result 0.1 -relative
vsetdispmode 1
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 > 0 && $nod > 0 } {
  puts "OK: mesh was created correctly"
} else {
  puts "Error: mesh was not built"
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
cde381c4	1	puts "========"
	2	puts "OCC28118"
	3	puts "========"
	4	puts ""
	5	###########################################
	6	# Mesh generation hangs then crashes
	7	###########################################
	8
7dd37838	9	pload DATAEXCHANGEKERNEL
7dd37838	10
cde381c4	11	testreadstep [locate_data_file bug28118_18547.stp] result
	12	vclear
	13	vinit View1
	14	vdefaults -autoTriang off
	15	vdisplay result
	16	vfit
	17	incmesh result 0.1 -relative
	18	vsetdispmode 1
	19	set tri_info [trinfo result]
	20
	21	regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
	22	regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
	23
	24	if { $tri > 0 && $nod > 0 } {
	25	puts "OK: mesh was created correctly"
	26	} else {
	27	puts "Error: mesh was not built"
7dd37838	28	}
cde381c4	29
cde381c4	30	checkview -screenshot -3d -path ${imagedir}/${test_image}.png