[occt.git] / tests / opengl / data / general / light_off

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!"}
Commit	Line	Data
4fe9ad57	1	puts "========"
06d40093	2	puts "Test to verify the lights are turned off after 'vlight -clear' (and scene is black)"
4fe9ad57	3	puts "========"
4fe9ad57	4
0d828ac8	5	pload MODELING VISUALIZATION
0d828ac8	6
4fe9ad57	7	# create box
	8	box b 1 2 3
	9
	10	# draw box
4fe9ad57	11	vclear
8e0a2b19	12	vclose ALL
8e0a2b19	13	vinit View1
4fe9ad57	14	vsetdispmode 1
	15	vdisplay b
	16	vfit
	17
06d40093	18	vlight -clear
4fe9ad57	19
4fe9ad57	20	set color [vreadpixel 100 100 rgb]
64c759f8	21	set black "0 0 0"
4fe9ad57	22	if {[string equal $color $black] != 1} {error "Lights do not seems to be cleared!"}