[occt.git] / tests / bugs / vis / buc60858

puts "============"
puts "BUC60858"
puts "============"
puts ""                                                                                                                                                                        
######################################################################
## When I gave command "vdisplay a" , where a is shape restored from attached file.DRAW crashes
## with segmentation fault. Exception is raised in the file BRepMesh/triangle.cxx.
######################################################################

restore [locate_data_file BUC60858.brep] result

tclean result
isos 0
vinit
incmesh result 0.01
vdisplay result
vfit

vclear
vdisplay result
vsetdispmode result 1

isos result 0
triangles result

set info [trinfo result]
regexp { +([-0-9.+eE]+) +triangles} $info full tr
regexp { +([-0-9.+eE]+) +nodes} $info full nd

if { $tr == 0 || $nd == 0 }  {
   puts "Error : here is shading problem"
}

set 3dviewer 1
Commit	Line	Data
352ffd73	1	puts "============"
	2	puts "BUC60858"
	3	puts "============"
	4	puts ""
	5	######################################################################
	6	## When I gave command "vdisplay a" , where a is shape restored from attached file.DRAW crashes
	7	## with segmentation fault. Exception is raised in the file BRepMesh/triangle.cxx.
	8	######################################################################
	9
	10	restore [locate_data_file BUC60858.brep] result
	11
	12	tclean result
	13	isos 0
	14	vinit
	15	incmesh result 0.01
	16	vdisplay result
	17	vfit
	18
	19	vclear
	20	vdisplay result
	21	vsetdispmode result 1
	22
	23	isos result 0
	24	triangles result
	25
	26	set info [trinfo result]
	27	regexp { +([-0-9.+eE]+) +triangles} $info full tr
	28	regexp { +([-0-9.+eE]+) +nodes} $info full nd
	29
	30	if { $tr == 0 \|\| $nd == 0 } {
	31	puts "Error : here is shading problem"
	32	}
	33
	34	set 3dviewer 1
	35
	36
	37