1 puts "TODO OCC24156 MacOS: Error: orientation of E2 is incorrect"
7 ########################################################
8 # Shape orientation processing mechanis, redesign
9 ########################################################
11 ## test for keeping Orientation (xml)
18 set B2 [AddObject D]; ## add object
19 set F2 [AddFunction D $B2 Box]; ## add function
20 BoxDX D $B2 190; ## set argumets of this function
23 InitLogBook D; ## initialize (clean) internal maps of labels
24 AddDriver D Box Attach
25 ComputeFun D $F2; ## compute the function
26 GetShape D $F2:2 Box2; ## check result
28 #2 - make selections keeping orientation
33 set Sel1 [AttachShape D Box2_1_1 ${B2} ${B2} 1]; ## set attachment
34 set Sel2 [AttachShape D Box2_3_4 ${B2} ${B2} 1]; ## set attachment
36 #3 - check orientation of the selected shapes
37 GetShape D 0:1:2:1:2 E1
39 ## to be: E1 is a shape EDGE FORWARD Modified Orientable
40 if { [regexp "FORWARD" $info1] != 1 } {
41 puts "Error: orientation of E1 is incorrect"
43 puts "OK: orientation of E1 is correct"
46 GetShape D 0:1:3:1:2 E2
48 ## to be: E2 is a shape EDGE REVERSED Modified Orientable
49 if { [regexp "REVERSED" $info2] != 1 } {
50 puts "Error: orientation of E2 is incorrect"
52 puts "OK: orientation of E2 is correct"
55 #4 - test persistence: check orientation after retrieving (to be the same as before)
56 file delete -force ${imagedir}/bug23766_ttt1.xml
58 SaveAs D ${imagedir}/bug23766_ttt1.xml
61 Open ${imagedir}/bug23766_ttt1.xml D
62 GetShape D 0:1:2:1:2 E1
64 ## to be: E1 is a shape EDGE FORWARD Modified Orientable
65 if { [regexp "FORWARD" $info3] != 1 } {
66 puts "Error: orientation of E1 is incorrect"
68 puts "OK: orientation of E1 is correct"
71 GetShape D 0:1:3:1:2 E2
73 ## to be: E2 is a shape EDGE REVERSED Modified Orientable
74 if { [regexp "REVERSED" $info4] != 1 } {
75 puts "Error: orientation of E2 is incorrect"
77 puts "OK: orientation of E2 is correct"