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

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

vinit
box b 10 20 30
GER61351 b RED2
vfit

set x_coord 89
set y_coord 363

checkcolor $x_coord $y_coord 0.93 0 0

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

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