1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
puts "========"
puts "OCC60"
puts "SAM723"
puts "BUC60916"
puts "========"
vinit
box b 10 10 10
vdisplay b
vfit
vaspects -setwidth 5
set x_coord 83
set y_coord 337
if { [vreadpixel ${x_coord} ${y_coord} rgb name] != "YELLOW" } {
puts "Error : color is not yellow"
}
set xmin 1
set ymin 1
set xmax 409
set ymax 300
# Select part of box
OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
set Selection_R 0.8
set Selection_G 0.8
set Selection_B 0.8
if { [vreadpixel ${x_coord} ${y_coord} rgb name] != "GRAY80" } {
puts "Error : color is not gray"
}
set only_screen 1
|
