3bea4c16 |
1 | puts "================" |
2 | puts "OCC22795" |
3 | puts "================" |
4 | puts "" |
5 | ######################################################################################################### |
6 | # Make possible to display some presentable objecys in overlay of others, groupped by display priority |
7 | ######################################################################################################### |
8 | |
9 | set BugNumber OCC22795 |
10 | |
11 | box b 10 10 10 |
12 | box s 10 10 10 |
13 | ttranslate s 10 0 0 |
14 | vdisplay b s |
15 | vsetdispmode b 1 |
16 | vsetdispmode s 1 |
17 | vfit |
18 | vzlayer add |
19 | vzlayer add |
20 | vzlayer add |
21 | set info1 [ vzlayer get ] |
22 | |
23 | vzlayer del 1 |
24 | |
25 | set info2 [ vzlayer get ] |
26 | |
27 | set status_vzlayer 0 |
28 | |
29 | if { [string compare $info1 "0 1 2 3"] == 0 && [string compare $info1 "0 2 3"] == 0 } { |
30 | set status_vzlayer 0 |
31 | } else { |
32 | set status_vzlayer 1 |
33 | } |
34 | |
35 | vobjzlayer set b 2 |
36 | set info3 [ vobjzlayer get b ] |
37 | set word8 [string compare ${info3} "Z layer id: 2"] |
38 | |
39 | vobjzlayer set s 3 |
40 | set info4 [ vobjzlayer get s ] |
41 | set word9 [string compare ${info4} "Z layer id: 3"] |
42 | |
43 | vzlayer del 3 |
44 | set info5 [ vobjzlayer get s ] |
45 | set word10 [string compare ${info5} "Z layer id: 0"] |
46 | |
47 | set status_vobjzlayer 0 |
48 | |
49 | if { ${word8} == 0 && ${word9} == 0 && ${word10} == 0 } { |
50 | set status_vobjzlayer 0 |
51 | } else { |
52 | set status_vobjzlayer 1 |
53 | } |
54 | |
55 | if { ${status_vzlayer} != 0 && ${status_vobjzlayer} != 0 } { |
56 | puts "Faulty ${BugNumber}" |
57 | } else { |
58 | puts "OK ${BugNumber}" |
59 | } |
60 | |
61 | |
62 | |
63 | |
64 | |
65 | |
66 | |