0030592: Draw Harness, ViewerTest - provide vbackground command unifying vsetbg,...
[occt.git] / tests / bugs / vis / bug26404
1 puts "========"
2 puts "OCC26404"
3 puts "========"
4 puts ""
5 ###########################################################################################
6 # Visualization, Ray Tracing - use solid background color when gradient color is disabled
7 ###########################################################################################
8
9 box b 1 2 3
10 vinit View1
11 vclear
12 vaxo
13 vsetdispmode 1
14 vbackground -color GRAY4
15 vdisplay b
16 vfit
17 vraytrace 1
18 set bug_info_1 [vreadpixel 50 50 rgb name]
19 if {$bug_info_1 != "GRAY4"} {
20   puts "ERROR: OCC26404 is reproduced. Background color is invalid (case #1)."
21 }
22 vbackground -gradient RED BLUE1 -gradientMode HORIZONTAL
23 vbackground -gradient RED BLUE1 -gradientMode NONE
24 set bug_info_2 [vreadpixel 50 50 rgb name]
25 if {$bug_info_2 != "GRAY4"} {
26   puts "ERROR: OCC26404 is reproduced. Background color is invalid (case #2)."
27 }