a87752f3 |
1 | puts "================" |
2 | puts "BUC61018" |
3 | puts "OCC64" |
4 | puts "================" |
5 | puts "" |
6 | |
7 | set rd_ch 0 |
8 | set gr_ch 1 |
9 | set bl_ch 1 |
10 | |
d27ea0ef |
11 | if { [array get env os_type] != "" } { |
12 | set os $env(os_type) |
13 | } |
14 | if { [string compare $os "windows"] == 0 } { |
15 | set x1 204 |
16 | set y1 204 |
17 | } else { |
18 | set x1 205 |
19 | set y1 205 |
20 | } |
21 | |
a87752f3 |
22 | vinit |
23 | vtrihedron tri |
24 | vtri_orig tri |
25 | |
26 | QAMoveTo 205 205 |
27 | QAUpdateLights |
28 | |
d27ea0ef |
29 | set color [QAGetPixelColor ${x1} ${y1}] |
a87752f3 |
30 | regexp {RED +: +([-0-9.+eE]+)} $color full rd_int |
31 | regexp {GREEN +: +([-0-9.+eE]+)} $color full gr_int |
32 | regexp {BLUE +: +([-0-9.+eE]+)} $color full bl_int |
33 | |
34 | if { ${rd_int} != ${rd_ch} || ${gr_int} != ${gr_ch} || ${bl_int} != ${bl_ch} } { |
35 | puts "Error : colors are not equal" |
36 | } |
37 | |
38 | set only_screen 1 |