a87752f3 |
1 | puts "========" |
2 | puts "OCC232" |
3 | puts "Pick filter does NOT work for TopAbs_COMPSOLID topology" |
4 | puts "========" |
5 | |
6 | vinit |
7 | OCC232 |
8 | vfit |
9 | |
10 | # selected point of first CompSolid |
11 | set x1 69 |
12 | set y1 204 |
13 | |
14 | set x2 116 |
15 | set y2 231 |
16 | |
17 | #set x3 160; set y3 257 - it's bad for lin,aki. |
18 | set x3 159 |
19 | set y3 256 |
20 | |
21 | # selected point of second CompSolid |
22 | set x4 298 |
23 | set y4 76 |
24 | |
25 | set x5 339 |
26 | set y5 100 |
27 | |
28 | set x6 381 |
29 | set y6 124 |
30 | |
31 | set Cyan_R 0 |
32 | set Cyan_G 1 |
33 | set Cyan_B 1 |
34 | |
35 | set Yellow_R 1 |
36 | set Yellow_G 1 |
37 | set Yellow_B 0 |
38 | |
39 | # There is not selection |
40 | puts "There is not selection" |
41 | catch {QAGetPixelColor $x1 $y1 $Yellow_R $Yellow_G $Yellow_B} result11 |
42 | catch {QAGetPixelColor $x2 $y2 $Yellow_R $Yellow_G $Yellow_B} result12 |
43 | catch {QAGetPixelColor $x3 $y3 $Yellow_R $Yellow_G $Yellow_B} result13 |
44 | catch {QAGetPixelColor $x4 $y4 $Yellow_R $Yellow_G $Yellow_B} result14 |
45 | catch {QAGetPixelColor $x5 $y5 $Yellow_R $Yellow_G $Yellow_B} result15 |
46 | catch {QAGetPixelColor $x6 $y6 $Yellow_R $Yellow_G $Yellow_B} result16 |
47 | |
48 | # Move a mouse |
49 | puts "Move a mouse" |
50 | QAMoveTo $x2 $y2 |
51 | QAMoveTo $x2 $y2 |
52 | |
53 | # Second box of first CompSolid is selected |
54 | puts "Second box of first CompSolid is selected" |
55 | catch {QAGetPixelColor $x1 $y1 $Yellow_R $Yellow_G $Yellow_B} result21 |
56 | catch {QAGetPixelColor $x3 $y3 $Yellow_R $Yellow_G $Yellow_B} result22 |
57 | catch {QAGetPixelColor $x4 $y4 $Yellow_R $Yellow_G $Yellow_B} result23 |
58 | catch {QAGetPixelColor $x5 $y5 $Yellow_R $Yellow_G $Yellow_B} result24 |
59 | catch {QAGetPixelColor $x6 $y6 $Yellow_R $Yellow_G $Yellow_B} result25 |
60 | |
d27ea0ef |
61 | if { [array get env os_type] != "" } { |
62 | set os $env(os_type) |
63 | } |
64 | if { [string compare $os "windows"] != 0 } { |
65 | QAUpdateLights |
66 | catch {QAGetPixelColor $x2 $y2 $Cyan_R $Cyan_G $Cyan_B} result31 |
67 | } |
a87752f3 |
68 | |
69 | set IsFaulty 0 |
70 | if { [regexp "Faulty" $result11] == 1 } { |
71 | set IsFaulty 1 |
72 | } |
73 | if { [regexp "Faulty" $result12] == 1 } { |
74 | set IsFaulty 1 |
75 | } |
76 | if { [regexp "Faulty" $result13] == 1 } { |
77 | set IsFaulty 1 |
78 | } |
79 | if { [regexp "Faulty" $result14] == 1 } { |
80 | set IsFaulty 1 |
81 | } |
82 | if { [regexp "Faulty" $result15] == 1 } { |
83 | set IsFaulty 1 |
84 | } |
85 | if { [regexp "Faulty" $result16] == 1 } { |
86 | set IsFaulty 1 |
87 | } |
88 | if { [regexp "Faulty" $result21] == 1 } { |
89 | set IsFaulty 1 |
90 | } |
91 | if { [regexp "Faulty" $result22] == 1 } { |
92 | set IsFaulty 1 |
93 | } |
94 | if { [regexp "Faulty" $result23] == 1 } { |
95 | set IsFaulty 1 |
96 | } |
97 | if { [regexp "Faulty" $result24] == 1 } { |
98 | set IsFaulty 1 |
99 | } |
100 | if { [regexp "Faulty" $result25] == 1 } { |
101 | set IsFaulty 1 |
102 | } |
d27ea0ef |
103 | |
104 | if { [string compare $os "windows"] != 0 } { |
105 | if { [regexp "Faulty" $result31] == 1 } { |
106 | set IsFaulty 1 |
107 | } |
a87752f3 |
108 | } |
109 | |
110 | if {$IsFaulty != 0} { |
111 | puts "Error : OCC232" |
112 | } |
113 | |
114 | set only_screen 1 |