1 puts "========================"
4 puts "========================"
6 restore [locate_data_file shading_151.brep] result
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]
24 if { $tri != 4176 && $nod != 2857} {
25 puts "Warning: OCC288 (case 4) looks like OK, but visual checking is required !!!!"
27 puts " OCC288 (case 4) : Faulty"