0032121: Draw Harness, ViewerTest - implement -reset option for vlight command
[occt.git] / tests / opengl / data / general / 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 pload MODELING VISUALIZATION
6
7 # create box
8 box b 1 2 3
9
10 # draw box
11 vclear
12 vclose ALL
13 vinit View1
14 vsetdispmode 1
15 vdisplay b
16 vfit
17
18 vlight -clear
19
20 set color [vreadpixel 100 100 rgb]
21 set black "0 0 0"
22 if {[string equal $color $black] != 1} {error "Lights do not seems to be cleared!"}