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