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