0031682: Visualization - Prs3d_ShadingAspect::SetTransparency() has no effect with...
[occt.git] / tests / v3d / glsl / light_off
1 puts "========"
2 puts "Test to verify the lights are turned off after 'vlight clear' (and scene is black)"
3 puts "========"
4
5 # create box
6 box b 1 2 3
7
8 # draw box
9 vclear
10 vclose ALL
11 vinit View1
12 vsetdispmode 1
13 vdisplay b
14 vfit
15
16 vlight clear
17
18 set color [vreadpixel 100 100 rgb]
19 set black "0 0 0"
20 if {[string equal $color $black] != 1} {error "Lights do not seems to be cleared!"}