0024348: TKOpenGl - the same GLSL program can not be re-assigned
[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
9vinit View1
10vclear
11vsetdispmode 1
12vdisplay b
13vfit
14
15vlight clear
16
17set color [vreadpixel 100 100 rgb]
18set black "0 0 0\n"
19if {[string equal $color $black] != 1} {error "Lights do not seems to be cleared!"}