|
|
1.1 root 1: .PS
2: .ps 20
3: ##
4: lineht = 2*lineht/3
5: ## figure A-6
6: B1: box "user-element" width 4*boxwid
7: B1a: box invis with .w at B1.w
8: B1b: box invis with .e at B1.e
9: B2: box "DASE" with .ne at (B1.se.x, B1.se.y-lineht)
10: B4: box "FTAM" with .nw at (B1.sw.x, B1.sw.y-lineht)
11: B6: box "ACSE" with .n at ((B4.n.x+B1.n.x)/2, B4.s.y-lineht)
12: B7: box "ROSE" with .n at (B2.s.x, B2.s.y-lineht)
13: B5: box with .n at (B1.n.x, B1.n.y+boxht/2) width 5*boxwid \
14: height boxht+B1.n.y-B6.s.y
15: ##
16: line from B1a.s to B4.n
17: line from (B4.s.x-boxwid/6, B4.s.y) to (B4.s.x-boxwid/6, B5.s.y)
18: line from B1b.s to B2.n
19: line from (B2.s.x+boxwid/6, B2.s.y) to B7.n
20: line from B7.s to (B7.s.x, B5.s.y)
21: line from (B4.s.x+boxwid/6, B4.s.y) to (B6.n.x-boxwid/6, B6.n.y)
22: line from (B2.s.x-boxwid/6, B2.s.y) to (B6.n.x+boxwid/6, B6.n.y)
23: line from B6.s to (B6.s.x, B5.s.y)
24: ##
25: line down from B5.s
26: line dashed from (B5.w.x-linewid/2, B5.s.y-lineht) \
27: to (B5.e.x+linewid/2, B5.s.y-lineht)
28: move to (B5.e.x+linewid/2 , B5.s.y-lineht); \
29: "\ \ presentation service" ljust
30: ##
31: .PE
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.