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

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

igesbrep [locate_data_file buc60820.igs] a *

tpcompound result
checkshape result r

tclean result
vinit
vdisplay result
vsetdispmode result 1
vfit

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


if { $tri != 1655 || $nod != 1143 } {
    puts "Shading problem may be, nb tri & nod were changed"
}

set 2dviewer 0
Commit	Line	Data
0e94a94e	1	puts "========================"
	2	puts "BUC60820"
	3	puts "========================"
	4
	5	igesbrep [locate_data_file buc60820.igs] a *
	6
	7	tpcompound result
352ffd73	8	checkshape result r
0e94a94e	9
	10	tclean result
	11	vinit
	12	vdisplay result
	13	vsetdispmode result 1
	14	vfit
	15
	16	set info [trinfo result]
	17	regexp { +([-0-9.+eE]+) +triangles} $info full tri
	18	regexp { +([-0-9.+eE]+) +nod} $info full nod
	19
	20
	21	if { $tri != 1655 \|\| $nod != 1143 } {
	22	puts "Shading problem may be, nb tri & nod were changed"
	23	}
	24
	25	set 2dviewer 0
	26