0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug85_2
CommitLineData
a87752f3 1puts "==========="
2puts "BUC60918"
3puts "OCC85"
4puts "==========="
5puts ""
6###############################
7## Shape drawn in transparency mode does not always eclipse another shapes
8###############################
9
10puts "=================================="
11puts "It takes visual check for this BUG"
12puts "=================================="
13
14pload OCAF
15
16restore [locate_data_file buc60918-psm1.brep] psm1
17restore [locate_data_file buc60918-psm2.brep] psm2
18restore [locate_data_file buc60918-shl.brep] shl
19
20NewDocument D
21SetShape D 0:1:1 shl
22SetShape D 0:1:2 psm1
23SetShape D 0:1:3 psm2
24AISSet D 0:1:1 NS
25AISSet D 0:1:2 NS
26AISSet D 0:1:3 NS
27
28AISInitViewer D
29AISMaterial D 0:1:1 plastic
30AISMaterial D 0:1:2 plastic
31AISMaterial D 0:1:3 plastic
32AISTransparency D 0:1:1 0.6
33AISColor D 0:1:1 1
34AISDisplay D 0:1:1
35AISDisplay D 0:1:2
36AISDisplay D 0:1:3
37vsetdispmode 1
38
39box b 10 10 10
40SetShape D 0:1:4 b
41AISSet D 0:1:4 NS
42AISDisplay D 0:1:4
43vfit
44
f1aa2b62 45set x_coord 230
46set y_coord 160
a87752f3 47
f1aa2b62 48checkcolor $x_coord $y_coord 0.76 0.54 0.9
a87752f3 49
5747059b 50checkview -screenshot -3d -path ${imagedir}/${test_image}.png
a87752f3 51
52
d27ea0ef 53
f1aa2b62 54