puts "================"
puts "OCC23102"
puts "================"
puts ""
###################################################################################################
# Change the algorithm of rendering the 3d viewer background using tiled texture
###################################################################################################

set BugNumber OCC23102

vinit
vsetbg [locate_data_file OCC23102.bmp] TILED

set x1 58
set y1 4
set R_bg 0.70196002721786499
set G_bg 0.78039199113845825
set B_bg 0.86274499999999998

set WrongColor "$R_bg $G_bg $B_bg"

set Color [vreadpixel ${x1} ${y1} rgb]

#Resume
puts ""
if { "[vreadpixel ${x1} ${y1} rgb]" != "$WrongColor" } {
   puts "OK ${BugNumber}"
} else {
  puts "Faulty ${BugNumber}"
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png