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


puts "=========="
puts "FRA62476"
puts ""                                                                                  
puts "=================================="                                                
puts "It takes visual check for this BUG"                                                
puts "=================================="                                                
puts ""

restore [locate_data_file fra62476b.brep] result 
puts [checkshape result]

tclean result
incmesh result .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 !=239 && $nod != 145 } {
   puts "Shady FRA62476: here may be shading problem, number tri & nod
   are changed"
}

set 3dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "=========="
	3	puts "FRA62476"
	4	puts ""
	5	puts "=================================="
	6	puts "It takes visual check for this BUG"
	7	puts "=================================="
	8	puts ""
	9
	10	restore [locate_data_file fra62476b.brep] result
	11	puts [checkshape result]
	12
	13	tclean result
	14	incmesh result .1
	15	triangles result
	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	if { $tri !=239 && $nod != 145 } {
	22	puts "Shady FRA62476: here may be shading problem, number tri & nod
	23	are changed"
	24	}
	25
	26	set 3dviewer 0
	27
	28