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