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

if { [array get env os_type] != "" } {
    set os $env(os_type)
}
if { [string compare $os "windows"] != 0 } {
}

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

restore [locate_data_file buc60569a.rle] result
tclean result
vinit
vhighlightselected 0
checkshape result

BUC60569 result
vfit
vselect 250 190
vselect 180 350 1
vmoveto 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 highlighted by Move To command."
}

set only_screen 1
Commit	Line	Data
352ffd73	1	if { [array get env os_type] != "" } {
	2	set os $env(os_type)
	3	}
	4	if { [string compare $os "windows"] != 0 } {
352ffd73	5	}
	6
	7	puts "=================================="
	8	puts "BUC60569"
	9	puts "OCC597"
	10	puts "=================================="
	11	puts "It takes visual check for this BUG"
	12	puts "=================================="
	13	puts ""
	14
	15	restore [locate_data_file buc60569a.rle] result
	16	tclean result
	17	vinit
c398b00e	18	vhighlightselected 0
352ffd73	19	checkshape result
	20
	21	BUC60569 result
	22	vfit
4754e164	23	vselect 250 190
	24	vselect 180 350 1
	25	vmoveto 250 190
352ffd73	26
	27	set x_coord 335
	28	set y_coord 331
	29
	30	checkcolor $x_coord $y_coord 0.8 0.8 0.8
	31
	32	if {$stat != 1} {
	33	puts "Error : The right face is highlighted by Move To command."
	34	}
	35
	36	set only_screen 1