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

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

restore [locate_data_file buc60569a.rle] result
tclean result
vinit

checkshape result

BUC60569 result
vfit
vselect 250 190

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 Selected by Select command."
}

vselect 180 350 1

set x_coord 101
set y_coord 347

checkcolor $x_coord $y_coord 0.8 0.8 0.8

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