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


puts "========="
puts "BUC60587"
puts "========="
puts ""
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="

restore [locate_data_file buc60587a.brep] result
checkshape result
tclean result
vinit
vdisplay result
vfit
vsetdispmode 1
vselect 180 180
vsetcolor result CYAN3

set x_coord 120
set y_coord 180

checkcolor $x_coord $y_coord 0.7 1 0.9

if { $stat != 1 } {
   puts "Error : Model has NOT CYAN colour."
}

set only_screen 1
Commit	Line	Data
352ffd73	1
	2	puts "========="
	3	puts "BUC60587"
	4	puts "========="
	5	puts ""
	6	puts "=================================="
	7	puts "It takes visual check for this BUG"
	8	puts "=================================="
	9
	10	restore [locate_data_file buc60587a.brep] result
	11	checkshape result
	12	tclean result
	13	vinit
	14	vdisplay result
	15	vfit
	16	vsetdispmode 1
4754e164	17	vselect 180 180
352ffd73	18	vsetcolor result CYAN3
	19
	20	set x_coord 120
	21	set y_coord 180
	22
	23	checkcolor $x_coord $y_coord 0.7 1 0.9
	24
	25	if { $stat != 1 } {
	26	puts "Error : Model has NOT CYAN colour."
	27	}
	28
	29	set only_screen 1
	30