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

puts "============"
puts "BUC60887"
puts "============"
puts ""                                                                                                                                                                        
############################################
## Shape hangs after command " vdisplay " in the Viewer3d. 
############################################

restore [locate_data_file BUC60887.brep] result

set nb_info [nbshapes result]
regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_v

puts [format "Shape res contains %s vertexes" $nb_v]
if { $nb_v == 0} {
   puts "Error : Result shape is NULL shape"
} else {
  set 3dviewer 1
}
Commit	Line	Data
352ffd73	1	puts "============"
	2	puts "BUC60887"
	3	puts "============"
	4	puts ""
	5	############################################
	6	## Shape hangs after command " vdisplay " in the Viewer3d.
	7	############################################
	8
	9	restore [locate_data_file BUC60887.brep] result
	10
	11	set nb_info [nbshapes result]
	12	regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_v
	13
	14	puts [format "Shape res contains %s vertexes" $nb_v]
	15	if { $nb_v == 0} {
	16	puts "Error : Result shape is NULL shape"
	17	} else {
	18	set 3dviewer 1
	19	}
	20