puts "========"
puts "Test to verify the lights are turned off after 'vlight -clear' (and scene is black)"
puts "========"

pload MODELING VISUALIZATION

# create box
box b 1 2 3

# draw box
vclear
vclose ALL
vinit View1
vsetdispmode 1
vdisplay b
vfit

vlight -clear

set color [vreadpixel 100 100 rgb]
set black "0 0 0"
if {[string equal $color $black] != 1} {error "Lights do not seems to be cleared!"}