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