7faaccfd |
1 | puts "TODO OCC11111 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too" |
2 | |
3 | puts "================" |
4 | puts "OCC1629" |
5 | puts "OCC2707" |
6 | puts "================" |
7 | puts "" |
8 | ####################################################################################### |
9 | # Viewer is always updated on closing local contexts |
10 | ####################################################################################### |
7faaccfd |
11 | |
12 | box b1 10 10 10 |
13 | box b2 50 50 50 10 10 10 |
14 | vinit |
15 | vdisplay b1 b2 |
16 | vfit |
17 | |
18 | # box b2 |
19 | set x1 321 |
20 | set y1 120 |
21 | |
22 | set x2 336 |
23 | set y2 145 |
24 | |
25 | set x3 367 |
26 | set y3 144 |
27 | |
28 | # box b1 |
29 | set x4 44 |
30 | set y4 314 |
31 | |
32 | set x5 72 |
33 | set y5 314 |
34 | |
35 | set Selection_R 0.8 |
36 | set Selection_G 0.8 |
37 | set Selection_B 0.8 |
38 | |
39 | #QASetChoiceMode EDGE ON |
40 | vselmode 2 1 |
41 | |
42 | set BeforeNbSelected [vnbselected] |
43 | |
44 | vselect 0 0 1 |
45 | |
46 | vselect ${x1} ${y1} 1 |
47 | vselect ${x2} ${y2} 1 |
48 | vselect ${x3} ${y3} 1 |
49 | vselect ${x4} ${y4} 1 |
50 | vselect ${x5} ${y5} 1 |
51 | |
52 | set AfterNbSelected [vnbselected] |
53 | |
54 | checkcolor ${x1} ${y1} ${Selection_R} ${Selection_G} ${Selection_B} |
55 | checkcolor ${x2} ${y2} ${Selection_R} ${Selection_G} ${Selection_B} |
56 | checkcolor ${x3} ${y3} ${Selection_R} ${Selection_G} ${Selection_B} |
57 | checkcolor ${x4} ${y4} ${Selection_R} ${Selection_G} ${Selection_B} |
58 | checkcolor ${x5} ${y5} ${Selection_R} ${Selection_G} ${Selection_B} |
59 | |
60 | if {${BeforeNbSelected} == 0} { |
61 | puts "OCC1629: OK (case 6: before selection)" |
62 | } else { |
63 | puts "OCC1629: Error (case 6: before selection)" |
64 | } |
65 | |
66 | if {${AfterNbSelected} == 5} { |
67 | puts "OCC1629: OK (case 7: after selection)" |
68 | } else { |
69 | puts "OCC1629: Error (case 7: after selection)" |
70 | } |
71 | |
72 | vselmode 0 1 |
73 | |
74 | # |
75 | puts "NOTES:" |
76 | puts "" |
77 | puts "Viewer is not updated on closing local context," |
78 | puts "but we can not check it by automatic test!" |
79 | puts "" |
80 | puts "5 edges must be selected on the viewer," |
81 | puts "but must be CloseNbSelected = 0 !" |
82 | puts "" |
83 | # |
84 | |
85 | set CloseNbSelected [vnbselected] |
86 | |
87 | checkcolor ${x1} ${y1} ${Selection_R} ${Selection_G} ${Selection_B} |
88 | checkcolor ${x2} ${y2} ${Selection_R} ${Selection_G} ${Selection_B} |
89 | checkcolor ${x3} ${y3} ${Selection_R} ${Selection_G} ${Selection_B} |
90 | checkcolor ${x4} ${y4} ${Selection_R} ${Selection_G} ${Selection_B} |
91 | checkcolor ${x5} ${y5} ${Selection_R} ${Selection_G} ${Selection_B} |
92 | |
93 | if {${CloseNbSelected} == 0} { |
94 | puts "OCC1629: OK (case 13: after close local context)" |
95 | } else { |
96 | puts "OCC1629: Error (case 13: after close local context)" |
97 | } |
98 | |
99 | set only_screen 1 |