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

puts "==========="
puts "BUC60821"
puts "==========="
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="
puts ""

vinit

catch {BUC60821 100 200 300}

set x_coord 206
set y_coord 195

checkcolor $x_coord $y_coord 0 0 0

if {$stat != 1} {
   puts "Error : The texts have identical height"
}

set only_screen 1
Commit	Line	Data
352ffd73	1	puts "==========="
	2	puts "BUC60821"
	3	puts "==========="
	4	puts "=================================="
	5	puts "It takes visual check for this BUG"
	6	puts "=================================="
	7	puts ""
	8
	9	vinit
	10
	11	catch {BUC60821 100 200 300}
	12
	13	set x_coord 206
	14	set y_coord 195
	15
	16	checkcolor $x_coord $y_coord 0 0 0
	17
	18	if {$stat != 1} {
	19	puts "Error : The texts have identical height"
	20	}
	21
	22	set only_screen 1
	23