0029076: Visualization - implement element shrinking Shader
[occt.git] / tests / bugs / vis / bug23363
1 puts "============"
2 puts "0023363: Lost gradient background when switching to the hollow interior style"
3 puts "============"
4 puts ""
5
6 vclear
7 vinit View1
8 vaxo
9 vsetgradientbg 250 0 0 0 255 0 2
10 pcylinder p 100 200
11 vdisplay -dispMode 1 p
12 vaspects p -setInteriorStyle HOLLOW -setDrawEdges 1
13
14 set color1 [vreadpixel 10 0 rgb]
15 set rd1 [lindex $color1 0]
16 if { $rd1 == 0 } { puts "Faulty ${BugNumber}" }
17
18 checkview -screenshot -3d -path ${imagedir}/${test_image}.png