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

puts "========"
puts "OCC591"
puts "========"
puts ""

restore [locate_data_file OCC591.brep] result
tclean result
vinit
vdisplay result
vfit
vsetdispmode result 1
vsettransparency result .5


set x_coord 250
set y_coord 115

checkcolor $x_coord $y_coord 0.58 0.41 0.07

if {$stat != 1} {
   puts "Error : Function VSETTRANSPARENCY works wrongly."
}

set only_screen 1
Commit	Line	Data
352ffd73	1	puts "========"
	2	puts "OCC591"
	3	puts "========"
	4	puts ""
	5
	6	restore [locate_data_file OCC591.brep] result
	7	tclean result
	8	vinit
	9	vdisplay result
	10	vfit
	11	vsetdispmode result 1
	12	vsettransparency result .5
	13
352ffd73	14
	15	set x_coord 250
	16	set y_coord 115
	17
	18	checkcolor $x_coord $y_coord 0.58 0.41 0.07
	19
	20	if {$stat != 1} {
	21	puts "Error : Function VSETTRANSPARENCY works wrongly."
	22	}
	23
	24	set only_screen 1