0023161: Select publicly accessible data files for OCCT tests
[occt.git] / tests / xcaf / end
1 puts "Test includes comparing for $CompareDocumentsMode"
2 ############## INIZIALIZING OF VARIABLES #################################
3 # ========== variables for comparison ======================
4 # Checkshape
5 set Checkshape_Second **
6 # Nbshapes
7 set nbDocVertex_Second **
8 set nbDocEdge_Second **
9 set nbDocWire_Second **
10 set nbDocFace_Second **
11 set nbDocShell_Second **
12 set nbDocSolid_Second **
13 set nbDocCompsolid_Second **
14 set nbDocCompound_Second **
15 set nbDocShape_Second **
16 # Faces
17 set faces_list_Second **
18 # Volumes
19 set DocLabels_Second **
20 set DocVolume_Second **
21 set r_Second **
22 set nbClosedShells_Second **
23 set DocVolume_Second **
24 # Colors
25 set DocAllColors_Second **
26 set DocShapeLabels_Second **
27 # Layers
28 set DocLayers_Second **
29 set DocLayerLabels_Second **
30 set DocShapeLabels_Second **
31 ###################################
32 # Checkshape
33 set Checkshape_First 0
34 # Nbshapes
35 set nbDocVertex_First 0
36 set nbDocEdge_First 0
37 set nbDocWire_First 0
38 set nbDocFace_First 0
39 set nbDocShell_First 0
40 set nbDocSolid_First 0
41 set nbDocCompsolid_First 0
42 set nbDocCompound_First 0
43 set nbDocShape_First 0
44 # Faces
45 set faces_list_First 0
46 # Volumes
47 set DocLabels_First 0
48 set DocVolume_First 0
49 set r_First 0
50 set nbClosedShells_First 0
51 set DocVolume_First 0
52 # Colors
53 set DocAllColors_First 0
54 set DocShapeLabels_First 0
55 # Layers
56 set DocLayers_First 0
57 set DocLayerLabels_First 0
58 set DocShapeLabels_First 0
59
60 # If it needs, adding to document D_First "Assembly colors and layers" OR "colors and layers"
61 if { [regexp "ASSEMBLY_C_L" $AddToDocument] } {
62     if { [info exists D_First] == 0} {
63         puts "Creating new doc"
64         XNewDoc D_First
65     }
66     ### colors' RGB
67     set color1  "1 0 0" ;# RED
68     set color2  "0 1 0" ;# GREEN
69     set color3  "0 0 1" ;# BLUE1
70     set color4  "1 1 0" ;# YELLOW
71     set color1c "0 1 1" ;# CYAN1
72     set color2c "1 0 1" ;# MAGENTA1
73     set color3c "1 1 1" ;# WHITE
74     set color4c "0 0 0" ;# BLACK
75     
76     ### colors' name
77     set color1name  RED
78     set color2name  GREEN
79     set color3name  BLUE1
80     set color4name  YELLOW
81     set color1cname CYAN1
82     set color2cname MAGENTA1
83     set color3cname WHITE
84     set color4cname BLACK
85     
86     ### Add compound in document as ASSEMBLY (default behaviour of XAddShape function)
87     box b1 10 10 10 
88     box b2 10 10 10 20 20 20 
89     compound b1 b2 c
90     XAddShape D_First c 
91     
92     ### Add free shape in document 
93     box b3 30 30 30 30 30 30
94     XAddShape D_First b3
95     ######################### COLORS VERIFYING ##############################
96     ### Add some colors in document
97     eval XAddColor D_First $color1
98     eval XAddColor D_First $color2
99     
100     ### Verify whether the collors are in document
101     if {[eval XFindColor D_First $color1] == "" || [eval XFindColor D_First $color1] == ""} {
102         puts "Error : Color was not added in document or was not found in it after adding"
103         set ErrorCode 2
104     }
105     
106     ### Verify number of colors in document
107     if { [llength [XGetAllColors D_First]] != "2" } {
108         puts "Error : XGetAllColors function returns invalid value"
109         set ErrorCode 2
110     }
111     
112     ### Assign color to shapes (two existing colors and six new colors)
113     # surfaces' colors
114     eval XSetColor D_First b1 $color1 s 
115     eval XSetColor D_First b2 $color2 s
116     eval XSetColor D_First b3 $color3 s
117     eval XSetColor D_First c  $color4 s
118     # curves' colors
119     eval XSetColor D_First b1 $color1c c 
120     eval XSetColor D_First b2 $color2c c
121     eval XSetColor D_First b3 $color3c c
122     eval XSetColor D_First c  $color4c c
123     ### Verify number of colors in document
124     if { [llength [XGetAllColors D_First]] != "8" } {
125         puts "Error : XGetAllColors function returns invalid value after assigning colors to shapes in document"
126         set ErrorCode 2
127     }
128     ### Verify colors of all shapes
129     if {[XGetShapeColor D_First [XFindShape D_First b1] s] != $color1name} {
130         puts "Error : Shape b1 has invalid color of surface "
131         set ErrorCode 2
132     }
133     if {[XGetShapeColor D_First [XFindShape D_First b2] s] != $color2name} {
134         puts "Error : Shape b2 has invalid color of surface "
135         set ErrorCode 2
136     }
137     if {[XGetShapeColor D_First [XFindShape D_First b3] s] != $color3name} {
138         puts "Error : Shape b3 has invalid color of surface "
139         set ErrorCode 2
140     }
141     if {[XGetShapeColor D_First [XFindShape D_First c ] s] != $color4name} {
142         puts "Error : Shape c has invalid color of surface "
143         set ErrorCode 2
144     }
145     if {[XGetShapeColor D_First [XFindShape D_First b1] c] != $color1cname} {
146         puts "Error : Shape b1 has invalid color of surface "
147         set ErrorCode 2
148     }
149     if {[XGetShapeColor D_First [XFindShape D_First b2] c] != $color2cname} {
150         puts "Error : Shape b2 has invalid color of surface "
151         set ErrorCode 2
152     }
153     if {[XGetShapeColor D_First [XFindShape D_First b3] c] != $color3cname} {
154         puts "Error : Shape b3 has invalid color of surface "
155         set ErrorCode 2
156     }
157     if {[XGetShapeColor D_First [XFindShape D_First c ] c] != $color4cname} {
158         puts "Error : Shape c has invalid color of surface "
159         set ErrorCode 2
160     }
161     ### Remove some colors from document
162     # Remove colors of b1 surfaces 
163     XRemoveColor D_First [eval XFindColor D_First $color1]
164     # Remove colors of b2 curves 
165     XRemoveColor D_First [eval XFindColor D_First $color2c]
166     ### Verify number of colors in document
167     if { [llength [XGetAllColors D_First]] != "6" } {
168         puts "Error : XGetAllColors function returns invalid value after removing two colors from document"
169         set ErrorCode 2
170     }
171     ### Verify whether b1 and b2 have the removed colors 
172     if {[XGetShapeColor D_First [XFindShape D_First b1] s] != ""} {
173         puts "Error : Color of b1 surface was removed from document however XGetShapeColor function returns value "
174         set ErrorCode 2
175     }
176     if {[XGetShapeColor D_First [XFindShape D_First b2] c] != ""} {
177         puts "Error : Color of b2 curves was removed from document however XGetShapeColor function returns value "
178         set ErrorCode 2
179     }
180     ######################### LAYERS VERIFYING ##############################
181     ### Add three layers in document 
182     XAddLayer D_First L1
183     XAddLayer D_First L2
184     XAddLayer D_First L3
185     ### Verify amount layers in document
186     if { [llength [XGetAllLayers D_First]] != "3" } {
187         puts "Error : Error occurs during adding layers in document "
188         set ErrorCode 2
189     }
190     if { [llength [XGetLayerLabels D_First]] != "3" } {
191         puts "Error : XGetLayerLabels function works incorrectly  "
192         set ErrorCode 2
193     }
194     ### Verify whether the layers was added in document correctly
195     if { [XFindLayer D_First L1] == "" || [XFindLayer D_First L2] == "" || [XFindLayer D_First L3] == "" } {
196         puts "Error : Layers was not added in document correctly "
197         set ErrorCode 2
198     }
199     ### Verify XGetOneLayer function
200     if { [XGetOneLayer D_First [XFindLayer D_First L1]] != "\"L1\"" } {
201         puts "Error : XGetOneLayer function works incorrectly for L1 layer"
202         set ErrorCode 2
203     }
204     if { [XGetOneLayer D_First [XFindLayer D_First L2]] != "\"L2\"" } {
205         puts "Error : XGetOneLayer function works incorrectly for L2 layer"
206         set ErrorCode 2
207     }
208     if { [XGetOneLayer D_First [XFindLayer D_First L3]] != "\"L3\"" } {
209         puts "Error : XGetOneLayer function works incorrectly for L3 layer"
210         set ErrorCode 2
211     }
212     ### Verify removing layer from document 
213     XAddLayer D_First LtoRemove
214     if { [llength [XGetAllLayers D_First]] != "4" } {
215         puts "Error : Error occurs during adding layer in document "
216         set ErrorCode 2
217     }
218     XRemoveLayer D_First LtoRemove
219     if { [llength [XGetAllLayers D_First]] != "3" } {
220         puts "Error : Error occurs during removing layer from document "
221         set ErrorCode 2
222     }
223     ### Verify interconnection layers and shapes
224     XSetLayer D_First b1 L1
225     XSetLayer D_First b2 L2
226     XSetLayer D_First b3 L3
227     XSetLayer D_First c  L3
228     if {[XGetLayers D_First b1] != "\"L1\" "} {
229         puts "Error : Shape b1 is not on layer L1" 
230         set ErrorCode 2
231     }
232     if {[XGetLayers D_First b2] != "\"L2\" "} {
233         puts "Error : Shape b2 is not on layer L2" 
234         set ErrorCode 2
235     }
236     if {[XGetLayers D_First b3] != "\"L3\" "} {
237         puts "Error : Shape b3 is not on layer L3"
238         set ErrorCode 2
239     }
240     if {[XGetLayers D_First c ] != "\"L3\" "} {
241         puts "Error : Compound c is not on layer L3" 
242         set ErrorCode 2
243     }
244     XRemoveColor D_First [eval XFindColor D_First $color4]
245     XRemoveColor D_First [eval XFindColor D_First $color4c]
246     XUnSetLayer D_First c L3
247
248
249 #================== COLORS_LAYER ===============
250 } elseif { [regexp "COLORS_LAYERS" $AddToDocument] } {
251     if {[info exists D_First] == 0} {
252         XNewDoc D_First
253     }
254     ### colors' RGB
255     set color1  "1 0 0" ;# RED
256     set color2  "0 1 0" ;# GREEN
257     set color3  "0 0 1" ;# BLUE1
258     set color4  "1 1 0" ;# YELLOW
259     set color1c "0 1 1" ;# CYAN1
260     set color2c "1 0 1" ;# MAGENTA1
261     set color3c "1 1 1" ;# WHITE
262     set color4c "0 0 0" ;# BLACK
263     
264     ### colors' name
265     set color1name  RED
266     set color2name  GREEN
267     set color3name  BLUE1
268     set color4name  YELLOW
269     set color1cname CYAN1
270     set color2cname MAGENTA1
271     set color3cname WHITE
272     set color4cname BLACK
273     ######################### COLORS VERIFYING ##############################
274     ### Add some colors in document
275     eval XAddColor D_First $color1
276     eval XAddColor D_First $color2
277     ### Verify whether the collors are in document
278     if {[eval XFindColor D_First $color1] == "" || [eval XFindColor D_First $color1] == ""} {
279         puts "Error : Color was not added in document or was not found in it after adding"
280         set ErrorCode 2
281     }   
282     
283     ### Verify number of colors in document
284     if { [llength [XGetAllColors D_First]] != "2" } {
285         puts "Error : XGetAllColors function returns invalid value"
286         set ErrorCode 2
287     }
288     set list [XGetTopLevelShapes D_First]
289     foreach {i} $list {
290         eval XSetColor D_First $i $color1 s
291         eval XSetColor D_First $i $color1c c
292     }
293     foreach {i} $list {
294         if {[XGetShapeColor D_First $i s] != $color1name} {
295             puts [format "Error : Shape  located on label %s has invalid color of surface " $i]
296             set ErrorCode 2
297         }
298         if {[XGetShapeColor D_First $i c] != $color1cname} {
299             puts [format "Error : Shape  located on label %s has invalid color of curves " $i]
300             set ErrorCode 2
301         }
302     }
303     ### Remove some colors from document
304     XRemoveColor D_First [eval XFindColor D_First $color1c]
305     ### Verify number of colors in document
306     if { [llength [XGetAllColors D_First]] != "2" } {
307         puts "Error : XGetAllColors function returns invalid value after removing colors from document"
308         set ErrorCode 2
309     }
310     
311     ### Verify shapes have the removed colors of curves
312     foreach {i} $list {
313         if {[XGetShapeColor D_First $i c] != ""} {
314             puts "Error : Color of curves was removed from document however XGetShapeColor function returns value "
315             set ErrorCode 2
316         }
317     }
318     ######################### LAYERS VERIFYING ##############################
319     ### Add three layers in document 
320     XAddLayer D_First L1
321     XAddLayer D_First L2
322     XAddLayer D_First L3
323     ### Verify amount layers in document
324     if { [llength [XGetAllLayers D_First]] != "3" } {
325         puts "Error : Error occurs during adding layers in document  "
326         set ErrorCode 2
327     }
328     if { [llength [XGetLayerLabels D_First]] != "3" } {
329         puts "Error : XGetLayerLabels function works incorrectly  "
330         set ErrorCode 2
331     }
332     
333     ### Verify whether the layers was added in document correctly
334     if { [XFindLayer D_First L1] == "" || [XFindLayer D_First L2] == "" || [XFindLayer D_First L3] == "" } {
335         puts "Error : Layers was not added in document correctly "
336         set ErrorCode 2
337     }
338     
339     ### Verify XGetOneLayer function
340     if { [XGetOneLayer D_First [XFindLayer D_First L1]] != "\"L1\"" } {
341         puts "Error : XGetOneLayer function works incorrectly for L1 layer"
342         set ErrorCode 2
343     }
344     if { [XGetOneLayer D_First [XFindLayer D_First L2]] != "\"L2\"" } {
345         puts "Error : XGetOneLayer function works incorrectly for L2 layer"
346         set ErrorCode 2
347     }
348     if { [XGetOneLayer D_First [XFindLayer D_First L3]] != "\"L3\"" } {
349         puts "Error : XGetOneLayer function works incorrectly for L3 layer"
350         set ErrorCode 2
351     }
352     
353     ### Verify removing layer from document 
354     XAddLayer D_First LtoRemove
355     if { [llength [XGetAllLayers D_First]] != "4" } {
356         puts "Error : Error occurs during adding layer in document "
357         set ErrorCode 2
358     }
359     XRemoveLayer D_First LtoRemove
360     if { [llength [XGetAllLayers D_First]] != "3" } {
361         puts "Error : Error occurs during removing layer from document "
362         set ErrorCode 2
363     }
364     ### Verify interconnection layers and shapes
365     set aLen [llength $list]
366     for {set i 0} { $i < $aLen} {incr i} {
367         if { [expr $i / 2 == int ($i/2)] } { 
368             eval XSetLayer D_First [lindex $list $i] L1 
369         } else { 
370             eval XSetLayer D_First [lindex $list $i] L2
371         }
372     }
373     for {set i 0} { $i < $aLen} {incr i} {
374         if { [expr $i / 2 == int ($i/2)] } { 
375             set LLL "\"L1\" "
376         } else {
377             [set LLL "\"L2\" "]
378         }
379         if {[XGetLayers D_First [lindex $list $i]] != $LLL} {
380             puts [format "Error : Shape located on label %s  is not on layer %s" [lindex $list $i] $LLL]
381             set ErrorCode 2
382         }
383     }
384     XRemoveLayer D_First L2
385     XRemoveLayer D_First L3
386     XRemoveColor D_First [eval XFindColor D_First $color2]
387     set list [XGetTopLevelShapes D_First]
388     foreach {i} $list {
389         set str [XLabelInfo D_First $i]
390         if {[regexp "Assembly" $str] || [regexp "This Shape don't used" $str]} {
391             XUnSetLayer D_First $i L1
392             XUnsetColor D_First $i c
393             XUnsetColor D_First $i s
394         }
395     }
396     #erase all unused colors and layers
397     set list [XGetTopLevelShapes D_First]
398     set ColorIsUsed 0
399     set LayerIsUsed 0
400     foreach {i} $list {
401         set l [XGetShapeColor D_First $i c]
402         if {[expr [llength $l] != 0]} {
403             set ColorIsUsed 1
404         }
405         set l [XGetShapeColor D_First $i s]
406         if {[expr [llength $l] != 0]} {
407             set ColorIsUsed 1
408         }
409         set l [XGetLayers D_First $i]
410         if {[expr [llength $l] != 0]} {
411             set LayerIsUsed 1
412         }
413     }
414     if {$ColorIsUsed == 0} {
415         set label [XFindColor D_First 1 0 0 ]
416         XRemoveColor D_First $label
417     }
418     if {$LayerIsUsed == 0} {
419         XRemoveLayer D_First L1
420     }
421
422
423 # Get information for the first document
424 # Get shape for standard analysis
425 XGetOneShape res_First D_First
426 # Checkshape
427 if {[regexp "CHECKSHAPE" $CompareDocumentsMode]} {
428     set Checkshape_First [checkshape res_First]
429 }
430 # Nbshapes
431 if {[regexp "SHAPES" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
432     set Stat_First [nbshapes res_First]
433     regexp {VERTEX +: +([-0-9.+eE]+)} $Stat_First full nbDocVertex_First
434     regexp {EDGE +: +([-0-9.+eE]+)} $Stat_First full nbDocEdge_First
435     regexp {WIRE +: +([-0-9.+eE]+)} $Stat_First full nbDocWire_First
436     regexp {FACE +: +([-0-9.+eE]+)} $Stat_First full nbDocFace_First
437     regexp {SHELL +: +([-0-9.+eE]+)} $Stat_First full nbDocShell_First
438     regexp {SOLID +: +([-0-9.+eE]+)} $Stat_First full nbDocSolid_First
439     regexp {COMPSOLID +: +([-0-9.+eE]+)} $Stat_First full nbDocCompsolid_First
440     regexp {COMPOUND +: +([-0-9.+eE]+)} $Stat_First full nbDocCompound_First
441     regexp {SHAPE +: +([-0-9.+eE]+)} $Stat_First full nbDocShape_First
442 }
443 # Faces
444 if {[regexp "FACES" $CompareDocumentsMode]} {
445     set type_of [dtyp res_First]
446     if {[regexp "FACE" $type_of] } {
447         set faces_list_First "FACE"
448     } else {
449         set faces_list_First [explode res_First F]
450     }
451 }
452 # Volumes
453 if {[regexp "VOLUME_EXACTLY" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
454     set DocLabels_First [XGetFreeShapes D_First]
455     set DocVolume_First "0"
456     foreach {i} $DocLabels_First {
457         XSetProps D_First $i 1
458         set DocVolume_First [expr $DocVolume_First + abs([XGetVolume D_First $i])]
459     }
460 } elseif {[regexp "VOLUME" $CompareDocumentsMode]} {
461     set IsComp 0
462     XGetOneShape Shape_First D_First
463     set type [dtyp Shape_First]
464     puts $type
465     if {[regexp "SOLID" $type]} {
466         set IsComp 1
467     } elseif {[regexp "SHELL" $type] && [regexp "Orientable" $type] && [regexp "Closed" $type]} {
468         set IsComp 1
469     } elseif {[regexp "COMPOUND" $type]} {
470         set list [explode Shape_First So]
471         if {[llength $list] != 0} {
472             set IsComp 1
473         } 
474         set list [explode Shape_First Sh]
475         if {[llength $list] != 0} {
476             foreach {i} $list {
477                 set type [dtyp $i]
478                 if {[regexp "Orientable" $type] && [regexp "Closed" $type]} {
479                     set IsComp 1
480                 }
481             }
482         }
483     }
484     if {[expr $IsComp == 1]} {
485         XGetOneShape Shape_First D_First
486         catch { sewing r  0.00001 Shape_First}
487         set nbClosedShells_First 0
488         # Calculate amount of closed shells in initial shape
489         if {[regexp SHELL [whatis r]]} {
490             catch { fbclose r 0.001 0.00001 }
491             catch { if {[llength [explode r_o V]] == 0 && [llength [explode r_c V]] == 0}  {
492                 puts "nbClosedShells_First = 1"
493                 set nbClosedShells_First 1 } 
494             }
495         } else {
496             set shells [explode r Sh]
497             foreach {i} $shells { 
498                 catch { fbclose $i 0.001 0.00001}
499                 catch { 
500                     if { [llength [explode $i_o V]] == 0  && [llength [explode $i_c V]] == 0}  { 
501                         set nbClosedShells_First [expr $nbClosedShells_First + 1] 
502                     } 
503                 }
504             }
505         }
506         XNewDoc T_First
507         XAddShape T_First r
508         XSetProps T_First 0:1:1:1 1
509         set DocVolume_First [expr abs([XGetVolume T_First 0:1:1:1])]
510     } else {
511         puts "Volume of shape is equal 0"
512         set DocVolume_First 0
513         set nbClosedShells_First 0      
514     }
515 }
516 # Colors
517 if {[regexp "COLORS" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
518     set DocAllColors_First   [lsort [XGetAllColors D_First]]
519     set DocShapeLabels_First  [XGetTopLevelShapes D_First]
520 }
521 # Layers
522 if { [regexp "LAYERS" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode] || [regexp "LAYERS_EXACTLY" $CompareDocumentsMode] } {
523     set DocLayers_First [XGetAllLayers D_First] 
524     set DocLayerLabels_First [XGetLayerLabels D_First]
525     set DocShapeLabels_First [XGetTopLevelShapes D_First]
526 }
527 ################## WRITING FILE ##################"
528 ###Open temporary file
529 if { [string compare ${TypeOfFile} ""] == 0  } {
530     set saving [SaveAs D_First $WorkDirectory/${casename}_D_First.dxc]
531     set closing [Close D_First]
532     set opening [Open $WorkDirectory/${casename}_D_First.dxc D_Second]
533 } elseif {[string compare ${TypeOfFile} "igs"] == 0 } {
534     set writing [WriteIges D_First $WorkDirectory/${casename}_D_First.igs]
535     set reading [ReadIges D_Second $WorkDirectory/${casename}_D_First.igs]
536 } elseif {[string compare ${TypeOfFile} "stp"] == 0 } {
537     set writing [WriteStep D_First $WorkDirectory/${casename}_D_First.stp]
538     set reading [ReadStep D_Second $WorkDirectory/${casename}_D_First.stp]
539 } elseif {[string compare ${TypeOfFile} "brep"] == 0 } {
540     XGetOneShape Shape1 D_First
541     set saving [save Shape1 $WorkDirectory/${casename}_D_First.brep]
542     restore $WorkDirectory/${casename}_D_First.brep NewShape1 
543     XNewDoc D_Second
544     XAddShape D_Second NewShape1 
545 } else {
546     puts "Error : Wrong value of TypeOfFile"
547     set ErrorCode 2
548 }
549
550 if { [string compare ${TypeOfFile} ""] == 0  } {
551     catch {[file delete $WorkDirectory/${casename}_D_First.dxc]}
552 } elseif {[string compare ${TypeOfFile} "igs"] == 0 } {
553     catch {[file delete $WorkDirectory/${casename}_D_First.igs]}    
554 } elseif {[string compare ${TypeOfFile} "stp"] == 0} {
555     catch {[file delete $WorkDirectory/${casename}_D_First.stp]}
556 } elseif {[string compare ${TypeOfFile} "brep"] == 0} {
557     catch {[file delete $WorkDirectory/${casename}_D_First.brep]}
558 }
559 # Get information
560 # Get shape for standard analysis
561 XGetOneShape res_Second D_Second
562 # Checkshape
563 if {[regexp "CHECKSHAPE" $CompareDocumentsMode]} {
564     set Checkshape_Second [checkshape res_Second]
565 }
566 # Nbshapes
567 if {[regexp "SHAPES" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
568     set Stat_Second [nbshapes res_Second]
569     regexp {VERTEX +: +([-0-9.+eE]+)} $Stat_Second full nbDocVertex_Second
570     regexp {EDGE +: +([-0-9.+eE]+)} $Stat_Second full nbDocEdge_Second
571     regexp {WIRE +: +([-0-9.+eE]+)} $Stat_Second full nbDocWire_Second
572     regexp {FACE +: +([-0-9.+eE]+)} $Stat_Second full nbDocFace_Second
573     regexp {SHELL +: +([-0-9.+eE]+)} $Stat_Second full nbDocShell_Second
574     regexp {SOLID +: +([-0-9.+eE]+)} $Stat_Second full nbDocSolid_Second
575     regexp {COMPSOLID +: +([-0-9.+eE]+)} $Stat_Second full nbDocCompsolid_Second
576     regexp {COMPOUND +: +([-0-9.+eE]+)} $Stat_Second full nbDocCompound_Second
577     regexp {SHAPE +: +([-0-9.+eE]+)} $Stat_Second full nbDocShape_Second
578 }
579 # Faces
580 if {[regexp "FACES" $CompareDocumentsMode]} {
581     set type_of [dtyp res_Second]
582     if {[regexp "FACE" $type_of] } {
583         set faces_list_Second "FACE"
584     } else {
585         set faces_list_Second [explode res_Second F]
586     }
587 }
588 # Volumes
589 if {[regexp "VOLUME_EXACTLY" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
590     set DocLabels_Second [XGetFreeShapes D_Second]
591     set DocVolume_Second "0"
592     foreach {i} $DocLabels_Second {
593         XSetProps D_Second $i 1
594         set DocVolume_Second [expr $DocVolume_Second + abs([XGetVolume D_Second $i])]
595     }
596 } elseif {[regexp "VOLUME" $CompareDocumentsMode]} {
597     if {[expr $IsComp == 1]} {
598         # Perform sewing of resulting shape. If amount of closed shells of resulting shape is not equal to amount of 
599         # closed shells of initial shape increace tolerance and perform sewing again
600         set nbClosedShells_Second 0
601         set toler 0.00001
602         set IsSewingPerformedCorrectly 0
603         XGetOneShape Shape_Second D_Second
604         for {set k 0} {$k < 5} {incr k} {
605             # 1. Perform sewing
606             puts [format "PERFORM SEWING. TOLERANCE = %f" $toler]
607             catch { sewing res $toler Shape_Second }
608             # 2. Calculate amount of closed shells
609             set nbClosedShells_Second 0
610             if {[regexp SHELL [whatis res]]} {
611                 catch { fbclose res 0.001 $toler }
612                 catch { 
613                     if {[llength [explode res_o V]] == 0 && [llength [explode res_c V]] == 0 }  { 
614                         set nbClosedShells_Second 1 
615                     } 
616                 }
617             } else {
618                 set shells [explode res Sh]
619                 foreach i $shells { 
620                     catch { fbclose $i 0.001 0.000001 }
621                     catch { 
622                         if {[llength [explode $i_o V]] == 0 && [llength [explode $i_c V]] == 0}  { 
623                             set nbClosedShells_Second [expr $nbClosedShells_Second +1] 
624                         }  
625                     }
626                 }       
627             }
628             # 3. Verify amount of closed shells
629                 if { $nbClosedShells_Second >= $nbClosedShells_First} { 
630                     set IsSewingPerformedCorrectly 1 
631                     break
632                 }
633             # 4. Set new tolerance
634             set toler [expr $toler * 10]
635         }
636         XNewDoc T_Second
637         XAddShape T_Second res;
638         XSetProps T_Second 0:1:1:1 1;
639         set DocVolume_Second [expr abs([XGetVolume T_Second 0:1:1:1])]
640         if { $IsSewingPerformedCorrectly == 0 } {
641             puts "Error : SEWING IS NOT PERFORMED PROPERLY"
642         }
643     } else {
644         puts "Volume of shape is equal 0"
645         set DocVolume_Second 0
646         set nbClosedShells_Second 0
647     }
648 }
649 # Colors
650 if {[regexp "COLORS" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
651     set DocAllColors_Second   [lsort [XGetAllColors D_Second]]
652     set DocShapeLabels_Second  [XGetTopLevelShapes D_Second]
653 }
654 # Layers
655 if { [regexp "LAYERS" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode] || [regexp "LAYERS_EXACTLY" $CompareDocumentsMode] } {
656     set DocLayers_Second [XGetAllLayers D_Second]       
657     set DocLayerLabels_Second [XGetLayerLabels D_Second]
658     set DocShapeLabels_Second [XGetTopLevelShapes D_Second]
659 }
660 puts "====================RESULTS OF COMPARISON===================="
661 if {[regexp "CHECKSHAPE" $CompareDocumentsMode]} {
662     puts "====================CHECKSHAPE==============="
663     puts "First : $Checkshape_First"
664     puts "Second : $Checkshape_Second"
665     if {[string compare $Checkshape_First $Checkshape_Second] != 0} {
666         puts "Error : checkshape is wrong"
667         set ErrorCode 2
668     }
669 }
670 if {[regexp "SHAPES" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
671     puts "====================SHAPES==============="
672     puts "Vertex First: $nbDocVertex_First"
673     puts "Vertex Second: $nbDocVertex_Second"
674     if {[string compare $nbDocVertex_First $nbDocVertex_Second] != 0} {
675         puts "Error : nbshapes is wrong"
676         set ErrorCode 2
677     }
678     puts "Edge First: $nbDocEdge_First"
679     puts "Edge Second: $nbDocEdge_Second"
680     if {[string compare $nbDocEdge_First $nbDocEdge_Second] != 0} {
681         puts "Error : nbshapes is wrong"
682         set ErrorCode 2
683     }
684     puts "Wire First: $nbDocWire_First"
685     puts "Wire Second: $nbDocWire_Second"
686     if {[string compare $nbDocWire_First $nbDocWire_Second] != 0} {
687         puts "Error : nbshapes is wrong"
688         set ErrorCode 2
689     }
690     puts "Face First: $nbDocFace_First"
691     puts "Face Second: $nbDocFace_Second"
692     if {[string compare $nbDocFace_First $nbDocFace_Second] != 0} {
693         puts "Error : nbshapes is wrong"
694         set ErrorCode 2
695     }
696     puts "Shell First: $nbDocShell_First"
697     puts "Shell Second: $nbDocShell_Second"
698     if {[string compare $nbDocShell_First $nbDocShell_Second] != 0} {
699         puts "Error : nbshapes is wrong"
700         set ErrorCode 2
701     }
702     puts "Solid First: $nbDocSolid_First"
703     puts "Solid Second: $nbDocSolid_Second"
704     if {[string compare $nbDocSolid_First $nbDocSolid_Second] != 0} {
705         puts "Error : nbshapes is wrong"
706         set ErrorCode 2
707     }
708     puts "Compsolid First: $nbDocCompsolid_First"
709     puts "Compsolid Second: $nbDocCompsolid_Second"
710     if {[string compare $nbDocCompsolid_First $nbDocCompsolid_Second] != 0} {
711         puts "Error : nbshapes is wrong"
712         set ErrorCode 2
713     }
714     puts "Compound First: $nbDocCompound_First"
715     puts "Compound Second: $nbDocCompound_Second"
716     if {[string compare $nbDocCompound_First $nbDocCompound_Second] != 0} {
717         puts "Error : nbshapes is wrong"
718         set ErrorCode 2
719     }
720     puts "Shape First: $nbDocShape_First"
721     puts "Shape Second: $nbDocShape_Second"
722     if {[string compare $nbDocShape_First $nbDocShape_Second] != 0} {
723         puts "Error : nbshapes is wrong"
724         set ErrorCode 2
725     }
726 }
727 if {[regexp "FACES" $CompareDocumentsMode]} {
728     puts "================FACES==================="
729     puts "Faces First: [llength $faces_list_First]"
730     puts "Faces Second: [llength $faces_list_Second]"
731     if {[llength $faces_list_First] != [llength $faces_list_Second]} {
732         puts "Error : number of faces is wrong"
733         set ErrorCode 2
734     }
735 }
736 if {[regexp "VOLUME_EXACTLY" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
737     puts "===============VOLUME_EXACTLY===================="
738     puts "DocLabels First: $DocLabels_First"
739     puts "DocLabels Second: $DocLabels_Second"
740     if {[string compare $DocLabels_First $DocLabels_Second] != 0} {
741         puts "Error : DocLabels is wrong"
742         set ErrorCode 2
743     }
744     puts "DocVolume First: $DocVolume_First"
745     puts "DocVolume Second: $DocVolume_Second"
746     if {[string compare $DocVolume_First $DocVolume_Second] != 0} {
747         set MaxVolume [expr  $DocVolume_First> $DocVolume_Second ? $DocVolume_First : $DocVolume_Second]
748         if {[expr $MaxVolume > 0]} {
749             set diff [ expr abs($DocVolume_First-$DocVolume_Second)/ $MaxVolume * 100 ] 
750         } else {
751             set diff 0
752         }
753         if {[expr $diff > 5]} {
754             puts [format "Error : Volumes' difference is %f%s" $diff "%"]
755             set ErrorCode 2
756         } else {
757             puts [format "Volumes' difference is %f%s - OK" $diff "%"] 
758         }
759     }
760 } elseif {[regexp "VOLUME" $CompareDocumentsMode]} {
761     puts "===============VOLUME===================="
762     puts "DocVolume First: $DocVolume_First"
763     puts "DocVolume Second: $DocVolume_Second"
764     if {[string compare $DocVolume_First $DocVolume_Second] != 0} {
765         set MaxVolume [expr  $DocVolume_First> $DocVolume_Second ? $DocVolume_First : $DocVolume_Second]
766         if {[expr $MaxVolume > 0]} {
767             set diff [ expr abs($DocVolume_First-$DocVolume_Second)/ $MaxVolume * 100 ] 
768         } else {
769             set diff 0
770         }
771         if {[expr $diff > 5]} {
772             puts [format "Error : Volumes' difference is %f%s" $diff "%"]
773             set ErrorCode 2
774         } else {
775             puts [format "Volumes' difference is %f%s - OK" $diff "%"] 
776         }
777     }
778     puts "nbClosedShells First: $nbClosedShells_First"
779     puts "nbClosedShells Second: $nbClosedShells_Second"
780     if {[string compare $nbClosedShells_First $nbClosedShells_Second] != 0} {
781         puts "Error : nbClosedShells is wrong"
782         set ErrorCode 2
783     }
784 }
785 if {[regexp "COLORS" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
786     puts "==============COLORS====================="
787     puts "DocAllColors First: $DocAllColors_First"
788     puts "DocAllColors Second: $DocAllColors_Second"
789     if {[llength $DocAllColors_Second] == 0 && [llength $DocAllColors_First] != 0} {
790         puts "Warning : There are no colors in D_Second although in D_First they are present"
791         if {[expr $ErrorCode == 0]} { 
792             set ErrorCode 1     
793         }
794     }
795     if {[regexp "COLORS_EXACTLY" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
796         if {[string compare $DocAllColors_First $DocAllColors_Second] != 0} {
797             puts "Error : Compared documents have different set of colors"
798             set ErrorCode 2
799         }
800     }
801     puts "DocShapeLabels First: $DocShapeLabels_First"
802     puts "DocShapeLabels Second: $DocShapeLabels_Second"
803     if {[string compare $DocShapeLabels_First $DocShapeLabels_Second] != 0} {
804         if {[regexp "ALL" $CompareDocumentsMode]} {
805             set ErrorCode 2
806             puts "Error : Compared documents have different number of toplevel shape."
807         } else { 
808             puts "Warning : Compared documents have different number of toplevel shapes "
809             if {[expr $ErrorCode == 0]} { 
810                 set ErrorCode 1
811             }
812         }
813     }
814 }
815 if { [regexp "LAYERS" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode] || [regexp "LAYERS_EXACTLY" $CompareDocumentsMode] } {
816     puts "================LAYERS==================="
817     
818     puts "DocLayers First: $DocLayers_First"
819     puts "DocLayers Second: $DocLayers_Second"
820     if {[string compare $DocLayers_First $DocLayers_Second] != 0} {
821         if {[regexp "LAYERS_EXACTLY" $CompareDocumentsMode]} {
822             set ErrorCode 2
823             puts "Error : Compared documents have different set of LAYERS names"
824         } else { 
825             puts "Warning : Compared documents have different set of LAYERS names"
826             if {[expr $ErrorCode == 0]} { 
827                 set ErrorCode 1 
828             }
829         }
830     }
831     puts "DocLayerLabels First: $DocLayerLabels_First"
832     puts "DocLayerLabels Second: $DocLayerLabels_Second"
833     if {[string compare $DocLayerLabels_First $DocLayerLabels_Second] != 0} {
834         if {[regexp "LAYERS_EXACTLY" $CompareDocumentsMode]} {
835             puts [format "Error : Compared documents have different set of LAYERS labels"]
836             set ErrorCode 2
837         } else {
838             puts [format "Warning : Compared documents have different set of LAYERS labels"]
839             if {[expr $ErrorCode == 0]} { 
840                 set ErrorCode 1 
841             }
842         }
843     }
844     puts "DocShapeLabels First: $DocShapeLabels_First"
845     puts "DocShapeLabels Second: $DocShapeLabels_Second"
846     if {[string compare $DocShapeLabels_First $DocShapeLabels_Second] != 0} {
847         if {[regexp "ALL" $CompareDocumentsMode]} {
848             puts "Error : DocShapeLabels is wrong"
849             set ErrorCode 2
850         } else {
851             puts "Warning : DocShapeLabels is wrong"
852             set ErrorCode 1
853         }
854     }
855     if {[regexp "LAYERS_EXACTLY" $CompareDocumentsMode]} {
856         set DDD $DocLayers_First
857         if {$DocLayers_First > $DocLayers_Second} {
858             set DDD $DocLayers_Second
859         }
860         foreach {i} $DDD {
861             set DocLabel_First [XFindLayer D_First $i]
862             set DocLabel_Second [XFindLayer D_Second $i]
863
864             if {[string compare $DocLabel_First $DocLabel_Second] != 0} {
865                 puts [format "   DocLabel_First(%s) = %s " $i $DocLabel_First]
866                 puts [format "  DocLabel_Second(%s) = %s " $i $DocLabel_Second]
867                 puts [format "Error : Compared documents have different labels for one layer (%s)" $i]
868                 set ErrorCode 2
869             }
870         }
871         
872         set DocShapeLabels_First [XGetTopLevelShapes D_First]
873         set DocShapeLabels_Second [XGetTopLevelShapes D_Second]
874         
875         set DDD $DocShapeLabels_First
876         if {$DocShapeLabels_First > $DocShapeLabels_Second} {
877             set DDD $DocShapeLabels_Second
878         }
879         foreach {i} $DDD {
880             set DocLayer_First [XGetLayers D_First $i]
881             set DocLayer_Second [XGetLayers D_Second $i]
882
883             if {[string compare $DocLayer_First $DocLayer_Second] != 0} {
884                 set NewLabel "$i:1"
885                 set DocLayer_Second [XGetLayers D_Second $NewLabel]
886             }
887             
888             if {[string compare $DocLayer_Second $DocLayer_First] != 0} {
889                 puts [format " DocLayer_First(%s) = %s " $i $DocLayer_First]
890                 puts [format "DocLayer_Second(%s) = %s " $i $DocLayer_Second]
891                 puts [format "DocLayer_Second(%s) = %s " $NewLabel $DocLayer_Second]
892                 puts [format "Error : Compared documents have different LAYERS for shape located on %s label" $i]
893                 set ErrorCode 2
894             }
895         }
896         
897         set DDD $DocLayerLabels_First
898         if {$DocLayerLabels_First > $DocLayerLabels_Second} {
899             set DDD $DocLayerLabels_Second
900         }
901         foreach {i} $DDD {
902             set LayerName_First [XGetOneLayer D_First $i]
903             set LayerName_Second [XGetOneLayer D_Second $i]
904
905             if {[string compare $LayerName_First $LayerName_Second]!=0} {
906                 set NewLabel "$i:1"
907                 set LayerName_Second [XGetOneLayer D_Second $NewLabel]
908             }
909             if {[string compare $LayerName_Second $LayerName_First]!=0} {
910                 puts [format " LayerName_First(%s) = %s " $i $LayerName_First]
911                 puts [format "LayerName_Second(%s) = %s " $i $LayerName_Second]
912                 puts [format "LayerName_Second(%s) = %s " $NewLabel $LayerName_Second]
913                 puts [format "Error : Compared documents have different LAYERS names on %s label" $i]
914                 set ErrorCode 2
915             }
916         }
917     }
918 }    
919
920 XGetOneShape result D_Second
921 if {[isdraw result]} {
922     clear
923     smallview
924     donly result
925     fit
926     xwd $imagedir/${test_image}.png
927 }
928
929 if {[expr $ErrorCode == 2]} { 
930     puts "Error : errors occur during test"
931 } elseif {[expr $ErrorCode == 1]} { 
932     puts "WARNING OCCURS DURING TEST"
933 } elseif {[expr $ErrorCode != 0]} {
934     puts "Error : wrong value of ErrorCode."
935 }
936
937 puts "TEST COMPLETED"