Commit | Line | Data |
---|---|---|
4fe9ad57 | 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] | |
64c759f8 | 18 | set black "0 0 0" |
4fe9ad57 | 19 | if {[string equal $color $black] != 1} {error "Lights do not seems to be cleared!"} |