0032237: Visualization, TKOpenGl - fix Gouraud shading within perspective camera...
[occt.git] / tests / bugs / vis / bug23102
1 puts "================"
2 puts "OCC23102"
3 puts "================"
4 puts ""
5 ###################################################################################################
6 # Change the algorithm of rendering the 3d viewer background using tiled texture
7 ###################################################################################################
8
9 set BugNumber OCC23102
10
11 vinit
12 vbackground -image [locate_data_file OCC23102.bmp] -imageMode TILED
13
14 set x1 58
15 set y1 4
16 set R_bg 0.70196002721786499
17 set G_bg 0.78039199113845825
18 set B_bg 0.86274499999999998
19
20 set WrongColor "$R_bg $G_bg $B_bg"
21
22 set Color [vreadpixel ${x1} ${y1} rgb]
23
24 #Resume
25 puts ""
26 if { "[vreadpixel ${x1} ${y1} rgb]" != "$WrongColor" } {
27    puts "OK ${BugNumber}"
28 } else {
29   puts "Faulty ${BugNumber}"
30 }
31
32 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
33