7dcac1df |
1 | puts "==========" |
2 | puts "OCC23766" |
3 | puts "==========" |
4 | puts "" |
5 | ######################################################## |
6 | # Shape orientation processing mechanis, redesign |
7 | ######################################################## |
8 | |
9 | ## test for keeping Orientation (cbf) |
10 | |
11 | erase |
12 | NewDocument D BinOcaf |
13 | |
14 | #1 - create box |
15 | NewCommand D |
16 | set B2 [AddObject D]; ## add object |
17 | set F2 [AddFunction D $B2 Box]; ## add function |
18 | BoxDX D $B2 190; ## set argumets of this function |
19 | BoxDY D $B2 290 |
20 | BoxDZ D $B2 390 |
21 | InitLogBook D; ## initialize (clean) internal maps of labels |
22 | AddDriver D Box Attach |
23 | ComputeFun D $F2; ## compute the function |
24 | GetShape D $F2:2 Box2; ## check result |
25 | |
26 | #2 - make selections keeping orientation |
27 | explode Box2 F |
28 | explode Box2_1 E |
29 | explode Box2_3 E |
30 | don Box2_1_1 Box2_3_4 |
31 | set Sel1 [AttachShape D Box2_1_1 ${B2} ${B2} 1]; ## set attachment |
32 | set Sel2 [AttachShape D Box2_3_4 ${B2} ${B2} 1]; ## set attachment |
33 | |
34 | #3 - check orientation of the selected shapes |
35 | GetShape D 0:1:2:1:2 E1 |
36 | set info1 [whatis E1] |
37 | ## to be: E1 is a shape EDGE FORWARD Modified Orientable |
38 | if { [regexp "FORWARD" $info1] != 1 } { |
39 | puts "Error: orientation of E1 is incorrect" |
40 | } else { |
41 | puts "OK: orientation of E1 is correct" |
42 | } |
43 | |
44 | GetShape D 0:1:3:1:2 E2 |
45 | set info2 [whatis E2] |
46 | ## to be: E2 is a shape EDGE REVERSED Modified Orientable |
47 | if { [regexp "REVERSED" $info2] != 1 } { |
48 | puts "Error: orientation of E2 is incorrect" |
49 | } else { |
50 | puts "OK: orientation of E2 is correct" |
51 | } |
52 | |
53 | #4 - test persistence: check orientation after retrieving (to be the same as before) |
54 | file delete -force ${imagedir}/bug23766_ttt1.cbf |
55 | NewCommand D |
56 | SaveAs D ${imagedir}/bug23766_ttt1.cbf |
57 | Close D |
58 | ##unset D |
59 | Open ${imagedir}/bug23766_ttt1.cbf D |
60 | GetShape D 0:1:2:1:2 E1 |
61 | set info3 [whatis E1] |
62 | ## to be: E1 is a shape EDGE FORWARD Modified Orientable |
63 | if { [regexp "FORWARD" $info3] != 1 } { |
64 | puts "Error: orientation of E1 is incorrect" |
65 | } else { |
66 | puts "OK: orientation of E1 is correct" |
67 | } |
68 | |
69 | GetShape D 0:1:3:1:2 E2 |
70 | set info4 [whatis E2] |
71 | ## to be: E2 is a shape EDGE REVERSED Modified Orientable |
72 | if { [regexp "REVERSED" $info4] != 1 } { |
73 | puts "Error: orientation of E2 is incorrect" |
74 | } else { |
75 | puts "OK: orientation of E2 is correct" |
76 | } |
77 | |