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 | |
ccadc126 |
35 | set Cyan "$Cyan_R $Cyan_G $Cyan_B" |
36 | |
a87752f3 |
37 | set Yellow_R 1 |
38 | set Yellow_G 1 |
39 | set Yellow_B 0 |
40 | |
ccadc126 |
41 | set Yellow "$Yellow_R $Yellow_G $Yellow_B" |
42 | |
a87752f3 |
43 | # There is not selection |
44 | puts "There is not selection" |
ccadc126 |
45 | set result11 [regexp "$Yellow" [vreadpixel $x1 $y1 rgb]] |
46 | set result12 [regexp "$Yellow" [vreadpixel $x2 $y2 rgb]] |
47 | set result13 [regexp "$Yellow" [vreadpixel $x3 $y3 rgb]] |
48 | set result14 [regexp "$Yellow" [vreadpixel $x4 $y4 rgb]] |
49 | set result15 [regexp "$Yellow" [vreadpixel $x5 $y5 rgb]] |
50 | set result16 [regexp "$Yellow" [vreadpixel $x6 $y6 rgb]] |
a87752f3 |
51 | |
52 | # Move a mouse |
53 | puts "Move a mouse" |
4754e164 |
54 | vmoveto $x2 $y2 |
a87752f3 |
55 | |
56 | # Second box of first CompSolid is selected |
57 | puts "Second box of first CompSolid is selected" |
ccadc126 |
58 | set result21 [regexp "$Yellow" [vreadpixel $x1 $y1 rgb]] |
59 | set result22 [regexp "$Yellow" [vreadpixel $x3 $y3 rgb]] |
60 | set result23 [regexp "$Yellow" [vreadpixel $x4 $y4 rgb]] |
61 | set result24 [regexp "$Yellow" [vreadpixel $x5 $y5 rgb]] |
62 | set result25 [regexp "$Yellow" [vreadpixel $x6 $y6 rgb]] |
a87752f3 |
63 | |
37d6975c |
64 | set env(os_type) $tcl_platform(platform) |
65 | if { [string compare $env(os_type) "windows"] != 0 } { |
ccadc126 |
66 | set result31 [regexp "$Cyan" [vreadpixel $x2 $y2 rgb]] |
67 | if { $result31 == 0 } { |
68 | set IsFaulty 1 |
69 | } |
d27ea0ef |
70 | } |
a87752f3 |
71 | |
72 | set IsFaulty 0 |
ccadc126 |
73 | if { !($result11 && $result12 && $result13 && $result14 && $result15 && $result16) |
74 | || !($result21 && $result22 && $result23 && $result24 && $result25) } { |
a87752f3 |
75 | set IsFaulty 1 |
76 | } |
a87752f3 |
77 | |
78 | if {$IsFaulty != 0} { |
79 | puts "Error : OCC232" |
80 | } |
81 | |
82 | set only_screen 1 |