[occt.git] / tests / bugs / demo / bug23410

puts "============"
puts "CR23410"
puts "============"
puts ""
#######################################################################
# QA comamnds don't work properly in new testing system
#######################################################################
pload QAcommands

set x_coord 128
set y_coord 235

box result 100 100 100
vdisplay result
vsetdispmode 1
vfit
vsetcolor result GREEN

checkcolor $x_coord $y_coord 0.00 0.83 0.00

set 3dviewer 1
Commit	Line	Data
319e4241	1	puts "============"
	2	puts "CR23410"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# QA comamnds don't work properly in new testing system
	7	#######################################################################
	8	pload QAcommands
	9
f1aa2b62	10	set x_coord 128
	11	set y_coord 235
	12
319e4241	13	box result 100 100 100
	14	vdisplay result
	15	vsetdispmode 1
	16	vfit
	17	vsetcolor result GREEN
f1aa2b62	18
44c7c33e	19	checkcolor $x_coord $y_coord 0.00 0.83 0.00
f1aa2b62	20
319e4241	21	set 3dviewer 1
	22
	23
	24
	25
	26
f1aa2b62	27