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

puts "================"
puts "OCC306"
puts "================"
puts ""
#############################################################################
##After applying sewing on the model from the file TibTray_Size3.igs (see the attachment) one surface is not shaded.
#############################################################################

igesbrep [locate_data_file TibTray_Size3.igs] a *

tpcompound a
tclean a

sewing result a

checkshape result

vinit
vsetdispmode result 1
vdisplay result
vfit

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

if { ($tri != 6409 || $nod != 6195) } {
    puts "Shading problem may be, nb tri & nod"
} 

set 3dviewer 1
Commit	Line	Data
0e94a94e	1	puts "================"
	2	puts "OCC306"
	3	puts "================"
	4	puts ""
	5	#############################################################################
	6	##After applying sewing on the model from the file TibTray_Size3.igs (see the attachment) one surface is not shaded.
	7	#############################################################################
	8
	9	igesbrep [locate_data_file TibTray_Size3.igs] a *
	10
	11	tpcompound a
	12	tclean a
	13
	14	sewing result a
	15
352ffd73	16	checkshape result
0e94a94e	17
	18	vinit
	19	vsetdispmode result 1
	20	vdisplay result
	21	vfit
	22
	23	set info [trinfo result]
	24	regexp { +([-0-9.+eE]+) +triangles} $info full tri
	25	regexp { +([-0-9.+eE]+) +nodes} $info full nod
	26
	27	if { ($tri != 6409 \|\| $nod != 6195) } {
	28	puts "Shading problem may be, nb tri & nod"
	29	}
	30
	31	set 3dviewer 1
	32
	33
	34