puts "============"
puts "OCC23363"
puts "============"
puts ""
####################################################################################
# [Regression] Lost gradient background when switching to the hollow interior style
####################################################################################

set BugNumber OCC23363

vinit
vsetgradientbg 250 0 0 0 255 0 2
pcylinder p 100 200
vdisplay p
vsetdispmode p 1
vsetinteriorstyle p 1

set color [QAGetPixelColor 10 0]
regexp {RED +: +([-0-9.+eE]+)} $color full R_check

puts ""
if { ${R_check} == 0 } {
  puts "Faulty ${BugNumber}"
} else {
  puts "OK ${BugNumber}"
}

set only_screen 1
