61c421bf |
1 | puts "============" |
2 | puts "OCC1416" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Shading mode doesn't work on a face of the model |
7 | ###################################################### |
8 | |
9 | restore [locate_data_file OCC1416.brep] result |
10 | |
11 | # Clean mesh |
12 | isos result 0 |
13 | tclean result |
14 | |
15 | #Creating mesh |
16 | incmesh result 0.01 |
17 | |
18 | #View the result of mesh |
19 | triangles result |
20 | |
21 | ############################################## |
22 | if { [catch { set tri_info [trinfo result] } catch_result] } { |
23 | ############################################## |
24 | puts "Faulty OCC1416" |
25 | } else { |
26 | set ll [ llength ${tri_info} ] |
27 | if {${ll} < 6} { |
28 | puts "Faulty OCC1416" |
29 | } else { |
30 | regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri |
31 | regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod |
32 | if { $tri == 0 || $nod == 0 } { |
33 | puts "Faulty OCC1416" |
34 | } else { |
35 | puts "Warning: OCC1416 looks like OK, but visual checking is required !!!!" |
36 | } |
37 | } |
38 | } |
39 | |
40 | set square 863.938 |
41 | set 3dviewer 1 |