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 |
47 | set y_coord 115 |
a87752f3 |
48 | |
f1aa2b62 |
49 | checkcolor $x_coord $y_coord 0.78 0.55 0.9 |
a87752f3 |
50 | |
51 | set only_screen 1 |
52 | |
53 | |
f1aa2b62 |
54 | |