Adding test cases from chl grid
[occt.git] / 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