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

puts "==============="
puts "    GER61351   "
puts "=================================="
puts "CASE 1 :takes visual check        "
puts "=================================="

vinit
GER61351 RED2 
QAUpdateLights

set x_coord 200
set y_coord 200

checkcolor $x_coord $y_coord 0.93 0 0

if {$stat != 1} {
   puts "Error : Background color is NOT RED2."
}

set only_screen 1
Commit	Line	Data
352ffd73	1	puts "==============="
	2	puts " GER61351 "
	3	puts "=================================="
	4	puts "CASE 1 :takes visual check "
	5	puts "=================================="
	6
	7	vinit
	8	GER61351 RED2
	9	QAUpdateLights
	10
	11	set x_coord 200
	12	set y_coord 200
	13
	14	checkcolor $x_coord $y_coord 0.93 0 0
	15
	16	if {$stat != 1} {
	17	puts "Error : Background color is NOT RED2."
	18	}
	19
	20	set only_screen 1