[occt.git] / tests / bugs / vis / bug24725

puts "============"
puts "CR24725"
puts "============"
puts ""

########################################################
#  Test texture color modulation for AIS_TexturedShape
########################################################

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 add ambient color white
vfit

set check_x 142
set check_y 352

vtexture b -modulate off

checkcolor $check_x $check_y 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 $check_x $check_y 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
d399d3c3	1	puts "============"
	2	puts "CR24725"
	3	puts "============"
	4	puts ""
	5
	6	########################################################
	7	# Test texture color modulation for AIS_TexturedShape
	8	########################################################
	9
	10	set aV "Driver1/Viewer1/View1"
	11	vinit name=$aV l=32 t=32 w=400 h=400
	12	vactivate $aV
	13	vclear
	14
	15	box b 1 2 3
	16	vdisplay b
	17	vsetdispmode 1
	18	vtexture b 0
	19	vlight clear
	20	vlight add ambient color white
	21	vfit
	22
	23	set check_x 142
	24	set check_y 352
	25
	26	vtexture b -modulate off
	27
	28	checkcolor $check_x $check_y 1 1 1
	29
	30	if { $stat != 1 } {
	31	puts "Error : color of non-modulated texture is incorrect"
	32	}
	33
	34	vdump $imagedir/${casename}_1.png
	35
	36	vtexture b -modulate on
	37
	38	checkcolor $check_x $check_y 0.329 0.224 0.027
	39
	40	if { $stat != 1 } {
	41	puts "Error : color of modulated texture is incorrect"
	42	}
	43
	44	vdump $imagedir/${casename}_2.png