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

puts "========================"
puts " OCC288 "
puts "(case 2)"
puts "========================"

restore [locate_data_file shading_105.brep] result 
checkshape result

tclean result
vinit
vdisplay result
vsetdispmode result 1
isos result 0
triangles result
vfit

set tri 0
set nod 0
set info [trinfo result]
regexp { +([-0-9.+eE]+) +triangles} $info full tri
regexp { +([-0-9.+eE]+) +nodes} $info full nod
puts [format " tri= %s  nod= %s " $tri $nod]

if { $tri != 1170 && $nod != 647} {
   puts " Warning:  OCC288 (case 2)  looks like OK, but visual checking is required !!!!"
} else {
   puts " OCC288 (case 2) : Faulty"
}

set only_screen 1
Commit	Line	Data
a87752f3	1	puts "========================"
	2	puts " OCC288 "
	3	puts "(case 2)"
	4	puts "========================"
	5
	6	restore [locate_data_file shading_105.brep] result
352ffd73	7	checkshape result
a87752f3	8
	9	tclean result
	10	vinit
	11	vdisplay result
	12	vsetdispmode result 1
	13	isos result 0
	14	triangles result
	15	vfit
	16
	17	set tri 0
	18	set nod 0
	19	set info [trinfo result]
	20	regexp { +([-0-9.+eE]+) +triangles} $info full tri
	21	regexp { +([-0-9.+eE]+) +nodes} $info full nod
	22	puts [format " tri= %s nod= %s " $tri $nod]
	23
	24	if { $tri != 1170 && $nod != 647} {
	25	puts " Warning: OCC288 (case 2) looks like OK, but visual checking is required !!!!"
	26	} else {
	27	puts " OCC288 (case 2) : Faulty"
	28	}
	29
	30	set only_screen 1