[occt.git] / tests / bugs / iges / buc60820_1

puts "========================"
puts "BUC60820"
puts "========================"

igesbrep [locate_data_file buc60820.igs] a *

tpcompound result

checkshape result r

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

if { $tri <= 0 || $nod <= 0 } {
    puts "Error : Problems with shading"
}

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
0e94a94e	1	puts "========================"
	2	puts "BUC60820"
	3	puts "========================"
	4
	5	igesbrep [locate_data_file buc60820.igs] a *
	6
	7	tpcompound result
	8
352ffd73	9	checkshape result r
0e94a94e	10
	11	tclean result
	12	incmesh result 0.1
	13	triangles result
	14	set info [trinfo result]
	15	regexp { +([-0-9.+eE]+) +triangles} $info full tri
	16	regexp { +([-0-9.+eE]+) +nodes} $info full nod
	17
	18	if { $tri <= 0 \|\| $nod <= 0 } {
	19	puts "Error : Problems with shading"
	20	}
	21
5747059b	22	checkview -display result -2d -path ${imagedir}/${test_image}.png