0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug85_1
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
46 set x_coord 273
47 set y_coord 115
48
49 checkcolor $x_coord $y_coord 0.78 0.55 0.9
50
51 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
52
53
54