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