[occt.git] / tests / opengl / data / textures / bug24725

puts "============"
puts "CR24725: Test texture color modulation for AIS_TexturedShape"
puts "============"
puts ""

pload MODELING VISUALIZATION
set aV "Driver1/Viewer1/View1"
vinit name=$aV l=32 t=32 w=400 h=400
vactivate $aV
vclear

box b 1 2 3
vdisplay b
vsetdispmode 1
vtexture b 0
vlight -clear
vlight amblight -type AMBIENT -color WHITE
vfit

vtexture b -modulate off
checkcolor 142 352 1 1 1
if { $stat != 1 } { puts "Error : color of non-modulated texture is incorrect" }

vdump $imagedir/${casename}_1.png

vtexture b -modulate on
checkcolor 142 352 0.329 0.224 0.027
if { $stat != 1 } { puts "Error : color of modulated texture is incorrect" }

vdump $imagedir/${casename}_2.png
Commit	Line	Data
0d828ac8	1	puts "============"
	2	puts "CR24725: Test texture color modulation for AIS_TexturedShape"
	3	puts "============"
	4	puts ""
	5
	6	pload MODELING VISUALIZATION
	7	set aV "Driver1/Viewer1/View1"
	8	vinit name=$aV l=32 t=32 w=400 h=400
	9	vactivate $aV
	10	vclear
	11
	12	box b 1 2 3
	13	vdisplay b
	14	vsetdispmode 1
	15	vtexture b 0
06d40093	16	vlight -clear
06d40093	17	vlight amblight -type AMBIENT -color WHITE
0d828ac8	18	vfit
	19
	20	vtexture b -modulate off
	21	checkcolor 142 352 1 1 1
	22	if { $stat != 1 } { puts "Error : color of non-modulated texture is incorrect" }
	23
	24	vdump $imagedir/${casename}_1.png
	25
	26	vtexture b -modulate on
	27	checkcolor 142 352 0.329 0.224 0.027
	28	if { $stat != 1 } { puts "Error : color of modulated texture is incorrect" }
	29
	30	vdump $imagedir/${casename}_2.png