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

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

pcone a 5 0 10
box b 15 0 0 10 10 10
vinit
vdisplay a
vdisplay b
vrotate 35 0 0
vfit
vhlr on
vhlrtype algo a

set x_coord 290
set y_coord 170
vaspects -setwidth 5
if { "[vreadpixel $x_coord $y_coord rgb name]" != "YELLOW" } {
  puts "Error : color is not yellow"
}

set x_coord 86
set y_coord 221
checkcolor $x_coord $y_coord 0 0 0

set only_screen 1
Commit	Line	Data
0a768f56	1	puts "============"
	2	puts "OCC23709"
	3	puts "============"
	4	puts ""
	5	############################################################################
	6	# Redesign of hlrtest command
	7	############################################################################
	8
	9	pcone a 5 0 10
	10	box b 15 0 0 10 10 10
	11	vinit
	12	vdisplay a
	13	vdisplay b
	14	vrotate 35 0 0
	15	vfit
	16	vhlr on
	17	vhlrtype algo a
	18
	19	set x_coord 290
	20	set y_coord 170
ccadc126	21	vaspects -setwidth 5
	22	if { "[vreadpixel $x_coord $y_coord rgb name]" != "YELLOW" } {
	23	puts "Error : color is not yellow"
	24	}
0a768f56	25
	26	set x_coord 86
	27	set y_coord 221
	28	checkcolor $x_coord $y_coord 0 0 0
	29
	30	set only_screen 1