| 1 | puts "TODO OCC12345 ALL: Faulty OCC264_1: here is shading problem" |
| 2 | puts "TODO OCC12345 ALL: Error : The square of result shape is" |
| 3 | |
| 4 | puts "========" |
| 5 | puts "OCC264" |
| 6 | puts " (case 1)" |
| 7 | puts "========" |
| 8 | |
| 9 | restore [locate_data_file OCC264_01.brep] result |
| 10 | checkshape result |
| 11 | |
| 12 | tclean result |
| 13 | vinit |
| 14 | vdisplay result |
| 15 | vclear |
| 16 | |
| 17 | isos result 0 |
| 18 | triangles result |
| 19 | |
| 20 | set tri_info [trinfo result] |
| 21 | regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri |
| 22 | regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod |
| 23 | |
| 24 | if { $tri != 26 && $nod != 28 } { |
| 25 | puts "Faulty OCC264_1: here is shading problem" |
| 26 | } else { |
| 27 | puts "Shading of OCC264_1 is OK" |
| 28 | } |
| 29 | |
| 30 | set square 0 |
| 31 | set 3dviewer 0 |