[occt.git] / tests / v3d / materials / bug27617

puts "========"
puts "OCC27617: Visualization, TKOpenGl - apply highlighting color without disabling lighting"
puts "========"

pload MODELING VISUALIZATION
box b 1 2 3
vclear
vinit View1
vdisplay -highMode 1 -dispMode 1 b
vaxo
vfit
vrotate 1 0 0
vfit
vmoveto 250 150
set aColor [vreadpixel 200 150 name rgb]
if { "$aColor" != "TURQUOISE3" } { puts "Error: Wrong dynamic highlight color" }
vdump $imagedir/${casename}.png
Commit	Line	Data
f9ba5c4d	1	puts "========"
	2	puts "OCC27617: Visualization, TKOpenGl - apply highlighting color without disabling lighting"
	3	puts "========"
	4
	5	pload MODELING VISUALIZATION
	6	box b 1 2 3
	7	vclear
	8	vinit View1
	9	vdisplay -highMode 1 -dispMode 1 b
	10	vaxo
	11	vfit
	12	vrotate 1 0 0
	13	vfit
	14	vmoveto 250 150
	15	set aColor [vreadpixel 200 150 name rgb]
ba00aab7	16	if { "$aColor" != "TURQUOISE3" } { puts "Error: Wrong dynamic highlight color" }
0d828ac8	17	vdump $imagedir/${casename}.png