61c421bf |
1 | puts "TODO ?OCC12345 ALL: An exception was caught" |
2 | puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*" |
3 | puts "TODO ?OCC12345 ALL: TEST INCOMPLETE" |
746bb46a |
4 | puts "TODO ?OCC12345 ALL: Colors are not equal in default coordinate and in the near coordinates too" |
61c421bf |
5 | |
6 | puts "================" |
7 | puts "OCC74" |
8 | puts "BUC61051" |
9 | puts "================" |
10 | puts "" |
11 | |
12 | # Data |
13 | set Shape_X 100 |
14 | set Shape_Y 346 |
15 | |
16 | set Vertex_X 29 |
17 | set Vertex_Y 305 |
18 | |
19 | set Edge_X ${Shape_X} |
20 | set Edge_Y ${Shape_Y} |
21 | |
22 | set Wire_X ${Shape_X} |
23 | set Wire_Y ${Shape_Y} |
24 | |
25 | set Face_X ${Shape_X} |
26 | set Face_Y ${Shape_Y} |
27 | |
28 | set Shell_X ${Shape_X} |
29 | set Shell_Y ${Shape_Y} |
30 | |
31 | set Solid_X ${Shape_X} |
32 | set Solid_Y ${Shape_Y} |
33 | |
34 | # Display box |
35 | vinit |
36 | box b 10 10 10 |
37 | vdisplay b |
38 | vfit |
39 | |
61c421bf |
40 | ### FIRST PART |
41 | |
42 | # Check Shape color |
43 | checkcolor ${Shape_X} ${Shape_Y} 1 1 0 |
44 | |
45 | # Check Vertex color |
46 | checkcolor ${Vertex_X} ${Vertex_Y} 1 1 0 |
47 | |
48 | # Check Edge color |
49 | checkcolor ${Edge_X} ${Edge_Y} 1 1 0 |
50 | |
51 | # Check Wire color |
52 | checkcolor ${Wire_X} ${Wire_Y} 1 1 0 |
53 | |
54 | # Check Face color |
55 | checkcolor ${Face_X} ${Face_Y} 1 1 0 |
56 | |
57 | # Check Shell color |
58 | checkcolor ${Shell_X} ${Shell_Y} 1 1 0 |
59 | |
60 | # Check Solid color |
61 | checkcolor ${Solid_X} ${Solid_Y} 1 1 0 |
62 | |
63 | ### SECOND PART |
64 | |
65 | # Check Shape color |
4754e164 |
66 | vmoveto 1 1 |
61c421bf |
67 | set SetSelectMode 0 |
68 | OCC74_set b ${SetSelectMode} |
69 | set GetSelectMode [OCC74_get b] |
70 | if { ${GetSelectMode} != ${SetSelectMode} } { |
71 | puts "Select Mode = ${GetSelectMode}" |
72 | puts "OCC74: Get Select Mode Error " |
73 | } |
4754e164 |
74 | vmoveto ${Shape_X} ${Shape_Y} |
61c421bf |
75 | |
61c421bf |
76 | checkcolor ${Shape_X} ${Shape_Y} 0 1 1 |
77 | |
78 | # Check Vertex color |
4754e164 |
79 | vmoveto 1 1 |
61c421bf |
80 | set SetSelectMode 1 |
81 | OCC74_set b ${SetSelectMode} |
82 | set GetSelectMode [OCC74_get b] |
83 | if { ${GetSelectMode} != ${SetSelectMode} } then { |
84 | puts "Select Mode = ${GetSelectMode}" |
85 | puts "OCC74: Get Select Mode Error " |
86 | } |
4754e164 |
87 | vmoveto ${Vertex_X} ${Vertex_Y} |
61c421bf |
88 | |
61c421bf |
89 | checkcolor ${Vertex_X} ${Vertex_Y} 0 1 1 |
90 | |
91 | # Check Edge color |
4754e164 |
92 | vmoveto 1 1 |
61c421bf |
93 | set SetSelectMode 2 |
94 | OCC74_set b ${SetSelectMode} |
95 | set GetSelectMode [OCC74_get b] |
96 | if { ${GetSelectMode} != ${SetSelectMode} } then { |
97 | puts "Select Mode = ${GetSelectMode}" |
98 | puts "OCC74: Get Select Mode Error " |
99 | } |
4754e164 |
100 | vmoveto ${Edge_X} ${Edge_Y} |
61c421bf |
101 | |
61c421bf |
102 | checkcolor ${Edge_X} ${Edge_Y} 0 1 1 |
103 | |
104 | # Check Wire color |
4754e164 |
105 | vmoveto 1 1 |
61c421bf |
106 | set SetSelectMode 3 |
107 | OCC74_set b ${SetSelectMode} |
108 | set GetSelectMode [OCC74_get b] |
109 | if { ${GetSelectMode} != ${SetSelectMode} } then { |
110 | puts "Select Mode = ${GetSelectMode}" |
111 | puts "OCC74: Get Select Mode Error " |
112 | } |
4754e164 |
113 | vmoveto ${Wire_X} ${Wire_Y} |
61c421bf |
114 | |
61c421bf |
115 | checkcolor ${Wire_X} ${Wire_Y} 0 1 1 |
116 | |
117 | # Check Face color |
4754e164 |
118 | vmoveto 1 1 |
61c421bf |
119 | set SetSelectMode 4 |
120 | OCC74_set b ${SetSelectMode} |
121 | set GetSelectMode [OCC74_get b] |
122 | if { ${GetSelectMode} != ${SetSelectMode} } then { |
123 | puts "Select Mode = ${GetSelectMode}" |
124 | puts "OCC74: Get Select Mode Error " |
125 | } |
4754e164 |
126 | vmoveto ${Face_X} ${Face_Y} |
61c421bf |
127 | |
61c421bf |
128 | checkcolor ${Face_X} ${Face_Y} 0 1 1 |
129 | |
130 | # Check Shell color |
4754e164 |
131 | vmoveto 1 1 |
61c421bf |
132 | set SetSelectMode 5 |
133 | OCC74_set b ${SetSelectMode} |
134 | set GetSelectMode [OCC74_get b] |
135 | if { ${GetSelectMode} != ${SetSelectMode} } then { |
136 | puts "Select Mode = ${GetSelectMode}" |
137 | puts "OCC74: Get Select Mode Error " |
138 | } |
4754e164 |
139 | vmoveto ${Shell_X} ${Shell_Y} |
61c421bf |
140 | |
61c421bf |
141 | checkcolor ${Shell_X} ${Shell_Y} 0 1 1 |
142 | |
143 | # Check Solid color |
4754e164 |
144 | vmoveto 1 1 |
61c421bf |
145 | set SetSelectMode 6 |
146 | OCC74_set b ${SetSelectMode} |
147 | set GetSelectMode [OCC74_get b] |
148 | if { ${GetSelectMode} != ${SetSelectMode} } then { |
149 | puts "Select Mode = ${GetSelectMode}" |
150 | puts "OCC74: Get Select Mode Error " |
151 | } |
4754e164 |
152 | vmoveto ${Solid_X} ${Solid_Y} |
61c421bf |
153 | |
61c421bf |
154 | checkcolor ${Solid_X} ${Solid_Y} 0 1 1 |
155 | |
156 | ### THIRD PART |
157 | |
158 | set SetSelectMode -1 |
159 | OCC74_set b ${SetSelectMode} |
160 | set GetSelectMode [OCC74_get b] |
161 | if { ${GetSelectMode} != ${SetSelectMode} } then { |
162 | puts "Select Mode = ${GetSelectMode}" |
163 | puts "OCC74: Get Select Mode Error " |
164 | } |
165 | |
166 | # Check Shape color |
4754e164 |
167 | vmoveto 1 1 |
168 | vmoveto ${Shape_X} ${Shape_Y} |
61c421bf |
169 | |
61c421bf |
170 | checkcolor ${Shape_X} ${Shape_Y} 1 1 0 |
171 | |
172 | # Check Vertex color |
4754e164 |
173 | vmoveto 1 1 |
174 | vmoveto ${Vertex_X} ${Vertex_Y} |
61c421bf |
175 | |
61c421bf |
176 | checkcolor ${Vertex_X} ${Vertex_Y} 1 1 0 |
177 | |
178 | # Check Edge color |
4754e164 |
179 | vmoveto 1 1 |
180 | vmoveto ${Edge_X} ${Edge_Y} |
61c421bf |
181 | |
61c421bf |
182 | checkcolor ${Edge_X} ${Edge_Y} 1 1 0 |
183 | |
184 | # Check Wire color |
4754e164 |
185 | vmoveto 1 1 |
186 | vmoveto ${Wire_X} ${Wire_Y} |
61c421bf |
187 | |
61c421bf |
188 | checkcolor ${Wire_X} ${Wire_Y} 1 1 0 |
189 | |
190 | # Check Face color |
4754e164 |
191 | vmoveto 1 1 |
192 | vmoveto ${Face_X} ${Face_Y} |
61c421bf |
193 | |
61c421bf |
194 | checkcolor ${Face_X} ${Face_Y} 1 1 0 |
195 | |
196 | # Check Shell color |
4754e164 |
197 | vmoveto 1 1 |
198 | vmoveto ${Shell_X} ${Shell_Y} |
61c421bf |
199 | |
61c421bf |
200 | checkcolor ${Shell_X} ${Shell_Y} 1 1 0 |
201 | |
202 | # Check Solid color |
4754e164 |
203 | vmoveto 1 1 |
204 | vmoveto ${Solid_X} ${Solid_Y} |
61c421bf |
205 | |
61c421bf |
206 | checkcolor ${Solid_X} ${Solid_Y} 1 1 0 |
207 | |
208 | set only_screen 1 |