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

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

vinit
GER61351 RED2 

set x_coord 200
set y_coord 200

if {"[vreadpixel $x_coord $y_coord rgb name]" != "RED2"} {
   puts "Error : Background color is NOT RED2."
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
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
352ffd73	9
	10	set x_coord 200
	11	set y_coord 200
	12
ccadc126	13	if {"[vreadpixel $x_coord $y_coord rgb name]" != "RED2"} {
352ffd73	14	puts "Error : Background color is NOT RED2."
	15	}
	16
5747059b	17	checkview -screenshot -3d -path ${imagedir}/${test_image}.png