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

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

vinit
box b 0 0 0 10 10 10
pcylinder c 10 10
vdisplay b
vsetdispmode b 1
vdisplay c
vsetdispmode c 1
vfit
vsettransparency c 0.5

set x_coord 154
set y_coord 257


checkcolor $x_coord $y_coord 0.6 0.4 0.07

if {$stat != 1} {
   puts "Error :function vsettransparency works WRONGLY"
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
352ffd73	1	puts "==========="
	2	puts "BUC60740"
	3	puts "==========="
	4	puts "=================================="
	5	puts "It takes visual check for this BUG"
	6	puts "=================================="
	7
	8	vinit
	9	box b 0 0 0 10 10 10
	10	pcylinder c 10 10
	11	vdisplay b
	12	vsetdispmode b 1
	13	vdisplay c
	14	vsetdispmode c 1
	15	vfit
	16	vsettransparency c 0.5
	17
	18	set x_coord 154
	19	set y_coord 257
	20
352ffd73	21
	22	checkcolor $x_coord $y_coord 0.6 0.4 0.07
	23
	24	if {$stat != 1} {
	25	puts "Error :function vsettransparency works WRONGLY"
	26	}
	27
5747059b	28	checkview -screenshot -3d -path ${imagedir}/${test_image}.png