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

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

set x_coord 335
set y_coord 331

checkcolor $x_coord $y_coord 1 1 0

if {$stat != 1} {
   puts "Error : The right face is NOT deSelected."
}

set x_coord 101
set y_coord 347

checkcolor $x_coord $y_coord 1 1 0

if {$stat != 1} {
   puts "Error : The left face is NOT deSelected"
}

set only_screen 1
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
4754e164	19
	20	vselect 250 190
	21	vselect 180 350 1
	22	vmoveto 250 190
	23	vmoveto 180 350
	24	vselect 390 390
352ffd73	25
	26	set x_coord 335
	27	set y_coord 331
	28
	29	checkcolor $x_coord $y_coord 1 1 0
	30
	31	if {$stat != 1} {
	32	puts "Error : The right face is NOT deSelected."
	33	}
	34
	35	set x_coord 101
	36	set y_coord 347
	37
	38	checkcolor $x_coord $y_coord 1 1 0
	39
	40	if {$stat != 1} {
	41	puts "Error : The left face is NOT deSelected"
	42	}
	43
	44	set only_screen 1
	45