Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug280_2
1 puts "========"
2 puts "OCC280"
3 puts "2. Hilighting the object, by moving mouse cursor on it does not hilight the object"
4 puts "========"
5
6 vinit
7 box b 100 900 300
8 vdisplay b
9 vfit
10
11 OCC280 0 0
12
13 # selected point
14 set x1 218
15 set y1 196
16
17 set Cyan_R 0
18 set Cyan_G 1
19 set Cyan_B 1
20
21 set Yellow_R 1
22 set Yellow_G 1
23 set Yellow_B 0
24
25 # There is not selection
26 puts "There is not selection"
27 QAGetPixelColor $x1 $y1 $Yellow_R $Yellow_G $Yellow_B
28
29 # Move a mouse
30 puts "Move a mouse"
31 QAMoveTo $x1 $y1
32 QAMoveTo $x1 $y1
33
34 QAUpdateLights
35
36 # There is a selection
37 puts "There is a selection"
38 QAGetPixelColor $x1 $y1 $Cyan_R $Cyan_G $Cyan_B
39
40 set only_screen 1
41