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

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

set R_check 0.45098000764846802
set G_check 1
set B_check 0.066666000000000003
set x1 128
set y1 235
box result 100 100 100
vdisplay result
vsetdispmode 1
vfit
vsetcolor result GREEN
set color [ QAGetPixelColor ${x1} ${y1} ]
regexp {RED +: +([-0-9.+eE]+)} $color full rd
regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
regexp {BLUE +: +([-0-9.+eE]+)} $color full bl

if { $rd != $R_check || $gr != $G_check || $bl != $B_check} {
    puts "Error : color are not equal"
    puts "Error : QA command QAGetPixelColor doesn't work properly"
}
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
	10	set R_check 0.45098000764846802
	11	set G_check 1
	12	set B_check 0.066666000000000003
	13	set x1 128
	14	set y1 235
	15	box result 100 100 100
	16	vdisplay result
	17	vsetdispmode 1
	18	vfit
	19	vsetcolor result GREEN
	20	set color [ QAGetPixelColor ${x1} ${y1} ]
	21	regexp {RED +: +([-0-9.+eE]+)} $color full rd
	22	regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
	23	regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
	24
	25	if { $rd != $R_check \|\| $gr != $G_check \|\| $bl != $B_check} {
	26	puts "Error : color are not equal"
	27	puts "Error : QA command QAGetPixelColor doesn't work properly"
	28	}
	29	set 3dviewer 1
	30
	31
	32
	33
	34