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

puts "TODO OCC12345 ALL: An exception was caught"
puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
puts "TODO OCC12345 ALL: TEST INCOMPLETE"

puts "==============="
puts "    GER61351   "
puts "     CASE 5    "
puts "==============="
puts ""
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="

vinit

box b 20 10 30
GER61351 b 0 255 255
vfit

set x_coord 89
set y_coord 363

checkcolor $x_coord $y_coord 0 1 1

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

set only_screen 1
Commit	Line	Data
352ffd73	1	puts "TODO OCC12345 ALL: An exception was caught"
	2	puts "TODO OCC12345 ALL: \\\\ Exception \\\\.*"
	3	puts "TODO OCC12345 ALL: TEST INCOMPLETE"
	4
	5	puts "==============="
	6	puts " GER61351 "
	7	puts " CASE 5 "
	8	puts "==============="
	9	puts ""
	10	puts "=================================="
	11	puts "It takes visual check for this BUG"
	12	puts "=================================="
	13
	14	vinit
	15
	16	box b 20 10 30
	17	GER61351 b 0 255 255
	18	vfit
352ffd73	19
	20	set x_coord 89
	21	set y_coord 363
	22
	23	checkcolor $x_coord $y_coord 0 1 1
	24
	25	if {$stat != 1} {
	26	puts "Error : Box color is NOT 0 1 1"
	27	}
	28
	29	set only_screen 1