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

puts "================"
puts "OCC19"
puts "================"
puts ""

restore [locate_data_file OCC19.brep] result
checkshape result

tclean result
incmesh result .9
triangles result

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

if { $tri != 88 && $nod != 90 }  {
  puts "Faulty OCC19: here is shading problem"
}

set 3dviewer 0
Commit	Line	Data
a87752f3	1	puts "================"
	2	puts "OCC19"
	3	puts "================"
	4	puts ""
	5
	6	restore [locate_data_file OCC19.brep] result
352ffd73	7	checkshape result
a87752f3	8
	9	tclean result
	10	incmesh result .9
	11	triangles result
	12
	13	set info [trinfo result]
	14	regexp { +([-0-9.+eE]+) +triangles} $info full tri
	15	regexp { +([-0-9.+eE]+) +nodes} $info full nod
	16
	17	if { $tri != 88 && $nod != 90 } {
	18	puts "Faulty OCC19: here is shading problem"
	19	}
	20
	21	set 3dviewer 0
	22