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 | 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 1 |
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 | |
f1aa2b62 |
45 | set x_coord 230 |
46 | set y_coord 160 |
a87752f3 |
47 | |
f1aa2b62 |
48 | checkcolor $x_coord $y_coord 0.76 0.54 0.9 |
a87752f3 |
49 | |
50 | set only_screen 1 |
51 | |
52 | |
d27ea0ef |
53 | |
f1aa2b62 |
54 | |