0e94a94e |
1 | |
2 | puts "======== OCC269 ========" |
3 | |
4 | restore [locate_data_file OCC269-3.brep] result |
352ffd73 |
5 | checkshape result |
0e94a94e |
6 | isos result 0 |
7 | tclean result |
8 | |
9 | #Creating mesh |
10 | incmesh result 0.01 |
11 | |
12 | #View the result of mesh |
13 | triangles result |
14 | |
15 | set tri_info [trinfo result] |
16 | regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri |
17 | regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod |
18 | |
19 | # $tri != 7524 && $nod != 3840,aki251103 |
20 | if { $tri != 6302 && $nod != 3226 } { |
21 | puts "Shady OCC269: shading problem may be, nb tri & nod changed" |
22 | } else { |
23 | puts "Shading of OCC269 is OK" |
24 | } |
25 | set square 36.4284 |
26 | set 2dviewer 0 |
27 | |