Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug64
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
11 vinit
12 vtrihedron tri
13 vtri_orig tri
14
15 QAMoveTo 205 205
16 QAUpdateLights
17
18 set color [QAGetPixelColor 205 205]
19 regexp {RED +: +([-0-9.+eE]+)} $color full rd_int
20 regexp {GREEN +: +([-0-9.+eE]+)} $color full gr_int
21 regexp {BLUE +: +([-0-9.+eE]+)} $color full bl_int
22
23 if { ${rd_int} != ${rd_ch} || ${gr_int} != ${gr_ch} || ${bl_int} != ${bl_ch} } {
24     puts "Error : colors are not equal"
25 }
26
27 set only_screen 1