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" |
4754e164 |
50 | vmoveto $x2 $y2 |
a87752f3 |
51 | |
52 | # Second box of first CompSolid is selected |
53 | puts "Second box of first CompSolid is selected" |
54 | catch {QAGetPixelColor $x1 $y1 $Yellow_R $Yellow_G $Yellow_B} result21 |
55 | catch {QAGetPixelColor $x3 $y3 $Yellow_R $Yellow_G $Yellow_B} result22 |
56 | catch {QAGetPixelColor $x4 $y4 $Yellow_R $Yellow_G $Yellow_B} result23 |
57 | catch {QAGetPixelColor $x5 $y5 $Yellow_R $Yellow_G $Yellow_B} result24 |
58 | catch {QAGetPixelColor $x6 $y6 $Yellow_R $Yellow_G $Yellow_B} result25 |
59 | |
d27ea0ef |
60 | if { [array get env os_type] != "" } { |
61 | set os $env(os_type) |
62 | } |
63 | if { [string compare $os "windows"] != 0 } { |
d27ea0ef |
64 | catch {QAGetPixelColor $x2 $y2 $Cyan_R $Cyan_G $Cyan_B} result31 |
65 | } |
a87752f3 |
66 | |
67 | set IsFaulty 0 |
68 | if { [regexp "Faulty" $result11] == 1 } { |
69 | set IsFaulty 1 |
70 | } |
71 | if { [regexp "Faulty" $result12] == 1 } { |
72 | set IsFaulty 1 |
73 | } |
74 | if { [regexp "Faulty" $result13] == 1 } { |
75 | set IsFaulty 1 |
76 | } |
77 | if { [regexp "Faulty" $result14] == 1 } { |
78 | set IsFaulty 1 |
79 | } |
80 | if { [regexp "Faulty" $result15] == 1 } { |
81 | set IsFaulty 1 |
82 | } |
83 | if { [regexp "Faulty" $result16] == 1 } { |
84 | set IsFaulty 1 |
85 | } |
86 | if { [regexp "Faulty" $result21] == 1 } { |
87 | set IsFaulty 1 |
88 | } |
89 | if { [regexp "Faulty" $result22] == 1 } { |
90 | set IsFaulty 1 |
91 | } |
92 | if { [regexp "Faulty" $result23] == 1 } { |
93 | set IsFaulty 1 |
94 | } |
95 | if { [regexp "Faulty" $result24] == 1 } { |
96 | set IsFaulty 1 |
97 | } |
98 | if { [regexp "Faulty" $result25] == 1 } { |
99 | set IsFaulty 1 |
100 | } |
d27ea0ef |
101 | |
102 | if { [string compare $os "windows"] != 0 } { |
103 | if { [regexp "Faulty" $result31] == 1 } { |
104 | set IsFaulty 1 |
105 | } |
a87752f3 |
106 | } |
107 | |
108 | if {$IsFaulty != 0} { |
109 | puts "Error : OCC232" |
110 | } |
111 | |
112 | set only_screen 1 |