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

puts "=================================="
puts "BUC60569"
puts "OCC597"
puts "=================================="
puts ""
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="
puts ""

restore [locate_data_file buc60569a.rle] result
tclean result
vinit

checkshape result

BUC60569 result
vfit

vselect 250 190
vselect 180 350 1
vmoveto 250 190
vmoveto 180 350
vselect 390 390
vselect 250 190 1
vselect 180 350 1
vmoveto 250 190
vmoveto 180 350

set x_coord 335
set y_coord 331

checkcolor $x_coord $y_coord 0.8 0.8 0.8

if {$stat != 1} {
   puts "Error : The right face is NOT highlighted by Move To command."
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
352ffd73	1	puts "=================================="
	2	puts "BUC60569"
	3	puts "OCC597"
	4	puts "=================================="
	5	puts ""
	6	puts "=================================="
	7	puts "It takes visual check for this BUG"
	8	puts "=================================="
	9	puts ""
	10
	11	restore [locate_data_file buc60569a.rle] result
	12	tclean result
	13	vinit
	14
	15	checkshape result
	16
	17	BUC60569 result
	18	vfit
	19
4754e164	20	vselect 250 190
	21	vselect 180 350 1
	22	vmoveto 250 190
	23	vmoveto 180 350
	24	vselect 390 390
	25	vselect 250 190 1
	26	vselect 180 350 1
	27	vmoveto 250 190
	28	vmoveto 180 350
352ffd73	29
	30	set x_coord 335
	31	set y_coord 331
	32
	33	checkcolor $x_coord $y_coord 0.8 0.8 0.8
	34
	35	if {$stat != 1} {
	36	puts "Error : The right face is NOT highlighted by Move To command."
	37	}
	38
5747059b	39	checkview -screenshot -3d -path ${imagedir}/${test_image}.png
352ffd73	40