0024837: Visualization - revise design and implementation of connected Interactive...
[occt.git] / tests / bugs / vis / bug12121
1 puts "TODO ?OCC11111 ALL: Faulty OCC12121"
2
3 puts "================"
4 puts "OCC12121"
5 puts "================"
6 puts ""
7 #######################################################################################
8 # Optimization of existing selection classes
9 ######################################################################################
10
11 set BugNumber OCC12121
12 set x1 226
13 set y1 154
14
15 set x2 300
16 set y2 187
17
18 set x3 183
19 set y3 269
20
21 set x_vertex_obj 330
22 set y_vertex_obj 212
23 set x_vertex_new 184
24 set y_vertex_new 268
25
26 set x_edge_obj 296
27 set y_edge_obj 155
28 set x_edge_new 205
29 set y_edge_new 240
30
31 set x_wire_obj 298
32 set y_wire_obj 209
33 set x_wire_new 55
34 set y_wire_new 236
35
36 set x_face_obj 169
37 set y_face_obj 146
38 set x_face_new 204
39 set y_face_new 238
40
41 set x_shell_obj 224
42 set y_shell_obj 148
43 set x_shell_new 230
44 set y_shell_new 268
45
46 set x_solid_obj 329
47 set y_solid_obj 218
48 set x_solid_new 168
49 set y_solid_new 256
50
51 set R_check 0
52 set G_check 1
53 set B_check 1
54
55 set x_refresh 10
56 set y_refresh 10
57
58 restore [locate_data_file OCC12121-CrankArm.brep] obj 
59 vinit
60 vdisplay obj
61 vconnect new 50 50 50 obj
62 vfit
63 vmoveto $x1 $y1
64 set ColorObj1 [QAGetPixelColor ${x2} ${y2}]
65 set ColorNew1 [QAGetPixelColor ${x3} ${y3}]
66
67 vselect $x1 $y1
68 set ColorObj2 [QAGetPixelColor ${x2} ${y2}]
69 set ColorNew2 [QAGetPixelColor ${x3} ${y3}]
70
71 puts "Check vconnect command"
72 set status_vconnect 0
73 if { ${ColorObj1} == ${ColorNew1} && ${ColorObj2} == ${ColorNew2} } {   
74     set status_vconnect 0
75 } else {
76     set status_vconnect 1
77 }
78
79 vselect ${x_refresh} ${y_refresh}
80 vselmode 1 1
81 vmoveto ${x_vertex_obj} ${y_vertex_obj}
82 checkcolor ${x_vertex_obj} ${y_vertex_obj} ${R_check} ${G_check} ${B_check}
83 vmoveto ${x_vertex_new} ${y_vertex_new}
84 checkcolor ${x_vertex_new} ${y_vertex_new} ${R_check} ${G_check} ${B_check}
85
86 vselmode 1 0
87 vselmode 2 1
88 vmoveto ${x_edge_obj} ${y_edge_obj}
89 checkcolor ${x_edge_obj} ${y_edge_obj} ${R_check} ${G_check} ${B_check}
90 vmoveto ${x_edge_new} ${y_edge_new}
91 checkcolor ${x_edge_new} ${y_edge_new} ${R_check} ${G_check} ${B_check}
92
93 vselmode 2 0
94 vselmode 3 1
95 vmoveto ${x_wire_obj} ${y_wire_obj}
96 checkcolor ${x_wire_obj} ${y_wire_obj} ${R_check} ${G_check} ${B_check}
97 vmoveto ${x_wire_new} ${y_wire_new}
98 checkcolor ${x_wire_new} ${y_wire_new} ${R_check} ${G_check} ${B_check}
99
100 vselmode 3 0
101 vselmode 4 1
102 vmoveto ${x_face_obj} ${y_face_obj}
103 checkcolor ${x_face_obj} ${y_face_obj} ${R_check} ${G_check} ${B_check}
104 vmoveto ${x_face_new} ${y_face_new}
105 checkcolor ${x_face_new} ${y_face_new} ${R_check} ${G_check} ${B_check}
106
107 vselmode 4 0
108 vselmode 5 1
109 vmoveto ${x_shell_obj} ${y_shell_obj}
110 checkcolor ${x_shell_obj} ${y_shell_obj} ${R_check} ${G_check} ${B_check}
111 vmoveto ${x_shell_new} ${y_shell_new}
112 checkcolor ${x_shell_new} ${y_shell_new} ${R_check} ${G_check} ${B_check}
113
114 vselmode 5 0
115 vselmode 6 1
116 vmoveto ${x_solid_obj} ${y_solid_obj}
117 checkcolor ${x_solid_obj} ${y_solid_obj} ${R_check} ${G_check} ${B_check}
118 vmoveto ${x_solid_new} ${y_solid_new}
119 checkcolor ${x_solid_new} ${y_solid_new} ${R_check} ${G_check} ${B_check}
120
121 vselmode 6 0
122 vselmode obj 1
123 vselect ${x_refresh} ${y_refresh}
124
125 ##Resume
126 puts ""
127 if { ${status_vconnect} == 1 } {
128    puts "OK ${BugNumber}"
129 } else {
130    puts "Faulty ${BugNumber}"
131 }
132
133 set only_screen 1