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 vclear
  10 vclose ALL
  11 vinit View1
  12 vsetdispmode 1
  13 vdisplay b
  14 vfit
  15
  16 vlight clear
  17
  18 set color [vreadpixel 100 100 rgb]
  19 set black "0 0 0"
  20 if {[string equal $color $black] != 1} {error "Lights do not seems to be cleared!"}