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 puts ""
  19 set color1 [vreadpixel 10 0 rgb]
  20 set rd1 [lindex $color1 0]
  21 if { $rd1 == 0 } {
  22   puts "Faulty ${BugNumber}"
  23 } else {
  24   puts "OK ${BugNumber}"
  25 }
  26
  27 set only_screen 1