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

puts "==========="
puts "BUC60918"
puts "OCC85"
puts "==========="
puts ""
###############################
## Shape drawn in transparency mode does not always eclipse another shapes
###############################

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

pload OCAF

box b2 20 20 20 5 5 5 
box b3 30 30 30
box b4 10 20 25 7 7 7 
explode b3 f

NewDocument D
SetShape D 0:1:1 b3_2
SetShape D 0:1:2 b2
SetShape D 0:1:3 b4
AISSet   D 0:1:1 NS
AISSet   D 0:1:2 NS
AISSet   D 0:1:3 NS

AISInitViewer D
AISMaterial D 0:1:1 plastic
AISMaterial D 0:1:2 plastic
AISMaterial D 0:1:3 plastic
AISTransparency D 0:1:1 0.6
AISColor D 0:1:1 1
AISDisplay D 0:1:1
AISDisplay D 0:1:2
AISDisplay D 0:1:3
vfit
vsetdispmode 1

box b 10 10 10 
SetShape D 0:1:4 b
AISSet D 0:1:4 NS
AISDisplay D 0:1:4

set x_coord 273
set y_coord 115

checkcolor $x_coord $y_coord 0.78 0.55 0.9

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
a87752f3	1	puts "==========="
	2	puts "BUC60918"
	3	puts "OCC85"
	4	puts "==========="
	5	puts ""
	6	###############################
	7	## Shape drawn in transparency mode does not always eclipse another shapes
	8	###############################
	9
	10	puts "=================================="
	11	puts "It takes visual check for this BUG"
	12	puts "=================================="
	13
	14	pload OCAF
	15
	16	box b2 20 20 20 5 5 5
	17	box b3 30 30 30
	18	box b4 10 20 25 7 7 7
	19	explode b3 f
	20
	21	NewDocument D
	22	SetShape D 0:1:1 b3_2
	23	SetShape D 0:1:2 b2
	24	SetShape D 0:1:3 b4
	25	AISSet D 0:1:1 NS
	26	AISSet D 0:1:2 NS
	27	AISSet D 0:1:3 NS
	28
	29	AISInitViewer D
	30	AISMaterial D 0:1:1 plastic
	31	AISMaterial D 0:1:2 plastic
	32	AISMaterial D 0:1:3 plastic
	33	AISTransparency D 0:1:1 0.6
	34	AISColor D 0:1:1 1
	35	AISDisplay D 0:1:1
	36	AISDisplay D 0:1:2
	37	AISDisplay D 0:1:3
	38	vfit
	39	vsetdispmode 1
	40
	41	box b 10 10 10
	42	SetShape D 0:1:4 b
	43	AISSet D 0:1:4 NS
	44	AISDisplay D 0:1:4
	45
f1aa2b62	46	set x_coord 273
f1aa2b62	47	set y_coord 115
a87752f3	48
f1aa2b62	49	checkcolor $x_coord $y_coord 0.78 0.55 0.9
a87752f3	50
5747059b	51	checkview -screenshot -3d -path ${imagedir}/${test_image}.png
a87752f3	52
a87752f3	53
f1aa2b62	54