0023434: Generate images in lossless format (PNG) instead of lossy GIF currently...
[occt.git] / tests / mesh / end
1 # Get name of shape
2
3 if { [string compare ${TheFileName} ""] != 0 } {
4     set is_brep [regexp "\.brep" $TheFileName]
5         if {$is_brep == 0} {
6                 set is_brep [regexp "\.rle" $TheFileName]
7         }
8     if {$is_brep == 1} {
9         puts [brestore [locate_data_file ${TheFileName}] res]
10     } else {
11         if { [array get Draw_Groups "DE: STEP"] == "" } {
12             pload XDE
13         }
14         
15         stepread [locate_data_file ${TheFileName}] a *
16         tpcompound res
17     }
18 }
19
20 puts [checkshape res]
21
22 tclean res
23
24 if { [string compare $command "shading"] == 0 } {
25     vinit
26     vdisplay res
27     vsetdispmode res 1
28     vfit
29 }
30
31 if { [string compare $command "incmesh"] == 0 } {
32     set os "ALL"
33     if {[array get env os_type] != ""} {
34         set os $env(os_type)
35     }
36     if { $parallel != 1 || [info exists count_parallel] == 0 } {
37        set count_parallel 1
38     }
39     for {set i 1} {$i <= $count_parallel} {incr i} {
40         tclean res
41         puts "i = $i"
42         incmesh res ${Deflection} ${parallel}
43     }
44 }
45
46 if { [string compare $command "mesh"] == 0 } {
47     set ResultList [mesh res_mesh res ${Deflection}]
48 }
49
50 # Collect TODO for area
51 if { [string compare $bug_area ""] != 0 } {
52 # The difference between square of geometry surface and square of mesh triangles should be less rel_tol value.
53 # If rel_tol is 100 we suppose the mesh con not be created.
54     if { $rel_tol == 100 } {
55         puts "TODO $bug_area All:^\\s*Error  : Meshing algo cannot create mesh.\\s*$"
56     } else {
57         puts "TODO $bug_area All:^\\s*Error   : area by triangles differs from true area by \[-.0-9\]+ %\\s*$"
58     }
59 }
60
61 # Collect TODO for number of triangles without mesh
62 if { [string compare $bug_withouttri ""] != 0 } {
63 # It may be different for different OS
64     foreach os_withouttri [array names nbwithouttri] {
65         if { $nbwithouttri($os_withouttri) != 0 } { 
66             puts "TODO $bug_withouttri $os_withouttri:^\\s*Error: Faces without triangulation: $nbwithouttri($os_withouttri)\\b\\s*"
67         }
68     }
69 }
70
71 # Collect TODO for number of free links
72 if { [string compare $bug_freelinks ""] != 0 } {
73 # It may be different for different OS
74     foreach os_freelinks [array names nbfree] {
75         if { $nbfree($os_freelinks) != 0 } { 
76             puts "TODO $bug_freelinks $os_freelinks:^\\s*Error: Free links: $nbfree($os_freelinks)\\b\\s*"
77         }
78     }
79 }
80
81 # Collect TODO for number of cross faces
82 if { [string compare $bug_cross ""] != 0 } {
83 # It may be different for different OS
84     foreach os_cross [array names nbcross] {
85         if { $nbcross($os_cross) != 0 } { 
86             puts "TODO $bug_cross $os_cross:^\\s*Error: Cross face errors: $nbcross($os_cross)\\b\\s*"
87         }
88     }
89 }
90
91 # Collect TODO for number of async edges
92 if { [string compare $bug_async ""] != 0 } {
93 # It may be different for different OS
94     foreach os_async [array names nbasync] {
95         if { $nbasync($os_async) != 0 } { 
96             puts "TODO $bug_async $os_async:^\\s*Error: Async edges: $nbasync($os_async)\\b\\s*"
97         }
98     }
99 }
100
101 # Collect TODO for number of free nodes
102 if { [string compare $bug_freenodes ""] != 0 } {
103 # It may be different for different OS
104     foreach os_freenodes [array names nbfreenodes] {
105         if { $nbfreenodes($os_freenodes) != 0 } { 
106             puts "TODO $bug_freenodes $os_freenodes:^\\s*Error: Free nodes: $nbfreenodes($os_freenodes)\\b\\s*"
107         }
108     }
109 }
110
111 # Number of triangles
112 set tri 0
113 # Number of nodes
114 set nod 0
115 # Deflection
116 set def 0
117
118 # Collect number of triangles, number ofof nodes and deflection.
119 if { [string compare $command "mesh"] != 0 } {
120     set full [trinfo res]
121     regexp "(\[0-9\]+) +triangles.*\[^0-9]\(\[0-9\]+) +nodes.*deflection +(\[0-9\]|\.+)" $full reg_out tri nod def
122 } else {
123     set full [split $ResultList "()"]
124     set tri [lindex [lindex $full 2] 0]
125     set lin [lindex [lindex $full 4] 0]
126     set nod [lindex [lindex $full 6] 0]
127 }
128
129 if { $tri == 0 || $nod == 0 } {                                                                     
130     puts " "
131     puts "Error  : Meshing algo cannot create mesh."    
132 }             
133
134 puts " "
135 puts "XML property: triangles $tri"
136 puts "XML property: nodes $nod"
137 puts " "
138
139 # Check if area of triangles is valid
140 proc CheckTriArea {shape {eps 0}} {
141   upvar #0 $shape a
142   set area [triarea a $eps]
143   set t_area [lindex $area 0]
144   set g_area [expr abs([lindex $area 1])]
145   puts "area by triangles: $t_area"
146   puts "area by geometry:  $g_area"
147   expr ($t_area - $g_area) / $g_area * 100
148 }
149
150 puts "\nChecking triangulation area (triarea command)..."
151 set rel_err [expr abs([CheckTriArea res $area_eps])]
152 if { $rel_err > $rel_tol } {
153     puts "Error   : area by triangles differs from true area by $rel_err %"
154 } else {
155     if { $rel_tol > 1 && $rel_tol < 100 } {
156         puts "Error: Improvement: The current area difference is $rel_err instead of $rel_tol"
157     }
158 }
159
160 # Check if topology of mesh is valid
161 puts "\nChecking mesh topology (tricheck command)..."
162 set l [tricheck res]
163 if {$l != ""} {
164     puts $l
165     set withouttri [regsub -all "face \[0-9\]+ has no triangulation" $l "FOUND" ll]
166     if { $withouttri != 0 } {
167         puts "Error: Faces without triangulation: $withouttri"
168     }
169     if { [regexp "Free_links +(\[0-9\]+) +Cross_face_errors +(\[0-9\]+) +Async_edges +(\[0-9\]+) +Free_nodes +(\[0-9\]+)" $l full freelinks crossfaces asyncedges freenodes] } {
170         if { $freelinks != 0 } {
171             puts "Error: Free links: $freelinks"
172         }
173         if { $crossfaces != 0 } {
174             puts "Error: Cross face errors: $crossfaces"
175         }
176         if { $asyncedges != 0 } {
177             puts "Error: Async edges: $asyncedges"
178         }
179         if { $freenodes != 0 } {
180             puts "Error: Free nodes: $freenodes"
181         }
182     }
183 }
184
185 if { [info exists imagedir] == 0 } {
186    set imagedir .
187 }
188 if { [info exists test_image ] == 0 } {
189    set test_image photo
190 }
191
192 if { [string compare $command "shading"] == 0 } {
193     vdump $imagedir/${test_image}.png
194 } else {
195     isos 0
196     smallview
197     donly res
198     fit
199     triangles res
200     xwd $imagedir/${test_image}.png
201 }
202
203 puts ""
204 puts "TEST COMPLETED" 
205 puts ""