tests/bugs/vis/bug23363

   1 puts "============"
   2 puts "OCC23363"
   3 puts "============"
   4 puts ""
   5 ####################################################################################
   6 # [Regression] Lost gradient background when switching to the hollow interior style
   7 ####################################################################################
   8
   9 set BugNumber OCC23363
  10
  11 vinit
  12 vsetgradientbg 250 0 0 0 255 0 2
  13 pcylinder p 100 200
  14 vdisplay p
  15 vsetdispmode p 1
  16 vsetinteriorstyle p 1
  17
  18 set color [QAGetPixelColor 10 0]
  19 regexp {RED +: +([-0-9.+eE]+)} $color full R_check
  20
  21 puts ""
  22 if { ${R_check} == 0 } {
  23   puts "Faulty ${BugNumber}"
  24 } else {
  25   puts "OK ${BugNumber}"
  26 }
  27
  28 set only_screen 1