Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug136
1 puts "TODO OCC12345 ALL: Error : colors are not equal"
2 puts "TODO OCC12345 ALL: Error : 3D Viewer is empty"
3
4 puts "================"
5 puts "OCC136"
6 puts "================"
7
8 vinit
9 OCC136
10 vfit
11 set rd_ch 0.8
12 set gr_ch 0.8
13 set bl_ch 0.8
14
15 set color [QAGetPixelColor 211 215]
16 regexp {RED +: +([-0-9.+eE]+)} $color full rd
17 regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
18 regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
19
20 if { ${rd} != ${rd_ch} || ${gr} != ${gr_ch} || ${bl} != ${bl_ch} } {
21     puts "Error : colors are not equal"
22     puts "Error : 3D Viewer is empty"
23 }
24
25 set only_screen 1
26