f2e267c84cced908ee55d1fcc52fc21308ca01e6
[occt.git] / tests / bugs / vis / bug85_2
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 restore [locate_data_file buc60918-psm1.brep] psm1
17 restore [locate_data_file buc60918-psm2.brep] psm2
18 restore [locate_data_file buc60918-shl.brep] shl
19
20 NewDocument D
21 SetShape D 0:1:1 shl
22 SetShape D 0:1:2 psm1
23 SetShape D 0:1:3 psm2
24 AISSet   D 0:1:1 NS
25 AISSet   D 0:1:2 NS
26 AISSet   D 0:1:3 NS
27
28 AISInitViewer D
29 AISMaterial D 0:1:1 plastic
30 AISMaterial D 0:1:2 plastic
31 AISMaterial D 0:1:3 plastic
32 AISTransparency D 0:1:1 0.6
33 AISColor   D 0:1:1 MATRABLUE
34 AISDisplay D 0:1:1
35 AISDisplay D 0:1:2
36 AISDisplay D 0:1:3
37 vsetdispmode 1
38
39 box b 10 10 10 
40 SetShape D 0:1:4 b
41 AISSet D 0:1:4 NS
42 AISDisplay D 0:1:4
43 vfit
44
45 set x_coord 230
46 set y_coord 160
47
48 checkcolor $x_coord $y_coord 0.76 0.54 0.9
49
50 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
51
52
53
54