[occt.git] / tests / v3d / bugs / bug23709_1

puts "============"
puts "OCC23709: Redesign of hlrtest command"
puts "============"
puts ""

pload MODELING VISUALIZATION
pcone a 5 0 10
box b 15 0 0 10 10 10
vinit View1
vdisplay a
vdisplay b
vrotate 35 0 0
vfit
vhlr on
vhlrtype polyalgo b
vaspects -setwidth 5
if { "[vreadpixel 290 170 rgb name]" != "YELLOW" } {
  puts "Error : color is not yellow"
}
checkcolor 86 221 0 0 0

vdump $imagedir/${casename}.png
Commit	Line	Data
0d828ac8	1	puts "============"
	2	puts "OCC23709: Redesign of hlrtest command"
	3	puts "============"
	4	puts ""
	5
	6	pload MODELING VISUALIZATION
	7	pcone a 5 0 10
	8	box b 15 0 0 10 10 10
	9	vinit View1
	10	vdisplay a
	11	vdisplay b
	12	vrotate 35 0 0
	13	vfit
	14	vhlr on
	15	vhlrtype polyalgo b
	16	vaspects -setwidth 5
	17	if { "[vreadpixel 290 170 rgb name]" != "YELLOW" } {
	18	puts "Error : color is not yellow"
	19	}
	20	checkcolor 86 221 0 0 0
	21
	22	vdump $imagedir/${casename}.png