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

puts "========"                                                                                   
puts "BUC60814"                                                                                   
puts "========"                                                                                   
puts ""                                                                                           

vinit
BUC60814
vfit

set x_coord 131
set y_coord 352

checkcolor $x_coord $y_coord 0 0 1

#AKI.111002.Against **Exception..-it's on lin.Changed coord of trihedron.

if {$stat != 1} {
   puts "Error : Circle has NOT blue color."
}

set x_coord 170
set y_coord 319

checkcolor $x_coord $y_coord 0 0 1

if {$stat != 1} {
   puts "Error : Trihedron has NOT blue color."
}

set only_screen 1
Commit	Line	Data
352ffd73	1	puts "========"
	2	puts "BUC60814"
	3	puts "========"
	4	puts ""
	5
	6	vinit
	7	BUC60814
	8	vfit
352ffd73	9
	10	set x_coord 131
	11	set y_coord 352
	12
	13	checkcolor $x_coord $y_coord 0 0 1
	14
	15	#AKI.111002.Against **Exception..-it's on lin.Changed coord of trihedron.
	16
	17	if {$stat != 1} {
	18	puts "Error : Circle has NOT blue color."
	19	}
	20
	21	set x_coord 170
	22	set y_coord 319
	23
	24	checkcolor $x_coord $y_coord 0 0 1
	25
	26	if {$stat != 1} {
	27	puts "Error : Trihedron has NOT blue color."
	28	}
	29
	30	set only_screen 1