[occt.git] / tests / bugs / moddata / bug15


puts "================"
puts "OCC15"
puts "================"
puts ""

restore [locate_data_file OCC15.brep] result

puts [checkshape result]

vinit
tclean result
vdisplay result
vsetdispmode result 1
vfit

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

#($tri != 5370,$nod != 2783)($tri != 5356,$nod != 2774)($tri != 5354,$nod != 2773),aki251103
if { ($tri != 5643 || $nod != 2915) }  {
   puts "Shady OCC15 : shading problem may be, nb tri & nod were changed"
}

set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "================"
	3	puts "OCC15"
	4	puts "================"
	5	puts ""
	6
	7	restore [locate_data_file OCC15.brep] result
	8
	9	puts [checkshape result]
	10
	11	vinit
	12	tclean result
	13	vdisplay result
	14	vsetdispmode result 1
	15	vfit
	16
	17	set info [trinfo result]
	18	regexp { +([-0-9.+eE]+) +triangles} $info full tri
	19	regexp { +([-0-9.+eE]+) +nodes} $info full nod
	20
	21	#($tri != 5370,$nod != 2783)($tri != 5356,$nod != 2774)($tri != 5354,$nod != 2773),aki251103
	22	if { ($tri != 5643 \|\| $nod != 2915) } {
	23	puts "Shady OCC15 : shading problem may be, nb tri & nod were changed"
	24	}
	25
	26	set 2dviewer 0
	27