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 vsetbg [locate_data_file OCC23102.bmp] 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 Color [QAGetPixelColor ${x1} ${y1}]
  21 set R [lindex ${Color} 2]
  22 set G [lindex ${Color} 5]
  23 set B [lindex ${Color} 8]
  24
  25 #Resume
  26 puts ""
  27 if { $R != ${R_bg} && $G != ${G_bg} && $B != ${B_bg} } {
  28    puts "OK ${BugNumber}"
  29 } else {
  30   puts "Faulty ${BugNumber}"
  31 }
  32
  33 set only_screen 1
  34