Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug232
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
61 QAUpdateLights
62 catch {QAGetPixelColor $x2 $y2 $Cyan_R $Cyan_G $Cyan_B} result31
63
64 set IsFaulty 0
65 if { [regexp "Faulty" $result11] == 1 } {
66    set IsFaulty 1
67 }
68 if { [regexp "Faulty" $result12] == 1 } {
69    set IsFaulty 1
70 }
71 if { [regexp "Faulty" $result13] == 1 } {
72    set IsFaulty 1
73 }
74 if { [regexp "Faulty" $result14] == 1 } {
75    set IsFaulty 1
76 }
77 if { [regexp "Faulty" $result15] == 1 } {
78    set IsFaulty 1
79 }
80 if { [regexp "Faulty" $result16] == 1 } {
81    set IsFaulty 1
82 }
83 if { [regexp "Faulty" $result21] == 1 } {
84    set IsFaulty 1
85 }
86 if { [regexp "Faulty" $result22] == 1 } {
87    set IsFaulty 1
88 }
89 if { [regexp "Faulty" $result23] == 1 } {
90    set IsFaulty 1
91 }
92 if { [regexp "Faulty" $result24] == 1 } {
93    set IsFaulty 1
94 }
95 if { [regexp "Faulty" $result25] == 1 } {
96    set IsFaulty 1
97 }
98 if { [regexp "Faulty" $result31] == 1 } {
99    set IsFaulty 1
100 }
101
102 if {$IsFaulty != 0} {
103    puts "Error : OCC232"
104 }
105
106 set only_screen 1