0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug6145
1 puts "============"
2 puts "OCC6145"
3 puts "============"
4 puts ""
5 ##################################################################
6 # Incorrect rendering of a transparent object
7 ##################################################################
8
9 set BugNumber OCC6145
10
11 box b 200 100 100
12
13 plane p 20 20 50
14 pcylinder c1 p 10 80
15
16 tcopy c1 c2
17 ttranslate c2 40 0 0
18 tcopy c2 c3
19 ttranslate c3 40 0 0
20 tcopy c3 c4
21 ttranslate c4 40 0 0
22 tcopy c4 c5
23 ttranslate c5 40 0 0
24
25 compound c1 c2 c3 c4 c5 co
26 bcut r b co
27
28 vinit
29 vsetdispmode 1
30 vdisplay r
31 vfit
32
33 set x_coord 270
34 set y_coord 230
35
36 checkcolor $x_coord $y_coord 0.78 0.55 0.09
37
38 vsettransparency r 0.5
39
40 checkcolor $x_coord $y_coord 0.8 0.56 0.1
41
42 set RED_3 0.86274498701095581
43 set GREEN_3 0.61176401376724243
44 set BLUE_3 0.10196000337600708
45
46 checkview -screenshot -3d -path ${imagedir}/${test_image}.png