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

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

set x_coord 101
set y_coord 347

checkcolor $x_coord $y_coord 0 1 1

if {$stat != 1} {
   puts "Error : The left face is 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
352ffd73	24
	25	set x_coord 101
	26	set y_coord 347
	27
	28	checkcolor $x_coord $y_coord 0 1 1
	29
	30	if {$stat != 1} {
	31	puts "Error : The left face is highlighted by Move To command"
	32	}
	33
5747059b	34	checkview -screenshot -3d -path ${imagedir}/${test_image}.png
352ffd73	35