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

puts "============"
puts "0031702: Visualization, TKOpenGl - hatching interior is ignored in second View within the Viewer"
puts "============"
puts ""

pload MODELING VISUALIZATION
vclear
vclose *
vinit v1/v1
box b1 100 200 300
vdisplay -dispMode 1 b1
vfit
vaspects b1 -interior hatch
if { [vreadpixel 201 200 -rgb -name] != "BLACK" } { puts "Error: no hatching in first view" }
vdump ${imagedir}/${casename}_v1.png

vinit v2/v1
box b2 100 200 300
vdisplay -dispMode 1 b2
vfit
vaspects b2 -interior hatch
if { [vreadpixel 201 200 -rgb -name] != "BLACK" } { puts "Error: no hatching in second view" }
vdump ${imagedir}/${casename}_v2.png
Commit	Line	Data
76fada68	1	puts "============"
	2	puts "0031702: Visualization, TKOpenGl - hatching interior is ignored in second View within the Viewer"
	3	puts "============"
	4	puts ""
	5
	6	pload MODELING VISUALIZATION
	7	vclear
	8	vclose *
	9	vinit v1/v1
	10	box b1 100 200 300
	11	vdisplay -dispMode 1 b1
	12	vfit
	13	vaspects b1 -interior hatch
	14	if { [vreadpixel 201 200 -rgb -name] != "BLACK" } { puts "Error: no hatching in first view" }
	15	vdump ${imagedir}/${casename}_v1.png
	16
	17	vinit v2/v1
	18	box b2 100 200 300
	19	vdisplay -dispMode 1 b2
	20	vfit
	21	vaspects b2 -interior hatch
	22	if { [vreadpixel 201 200 -rgb -name] != "BLACK" } { puts "Error: no hatching in second view" }
	23	vdump ${imagedir}/${casename}_v2.png