Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug204_2
1 puts "========"
2 puts "OCC204"
3 puts "========"
4
5 vinit
6 OCC204 1
7 vfit
8
9 set rd_ch 80000
10 set gr_ch 80000
11 set bl_ch 80000
12
13 set color [QAGetPixelColor 150 200]
14 regexp {RED +: +([-0-9.+eE]+)} $color full rd
15 regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
16 regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
17
18 set rd_int [expr int($rd * 1.e+05)]
19 set gr_int [expr int($gr * 1.e+05)]
20 set bl_int [expr int($bl * 1.e+05)]
21
22 if { ${rd_int} == ${rd_ch} || ${gr_int} == ${gr_ch} || ${bl_int} == ${bl_ch} } {
23     puts "Error : colors are not equal"
24     puts "Error : There are 3 boxes in the viewer!"
25 }
26
27 set only_screen 1