[occt.git] / tests / v3d / glsl / light_off

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

# create box
box b 1 2 3

# draw box
vinit View1
vclear
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!"}
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!"}