|
|
1.1 root 1: .PS
2: .ps 20
3: boxwid = 2*boxwid
4: define boxit @
5: box "$1" with .n at ($2.s.x, $2.s.y-lineht/2)
6: arrow from last box.n to $2.s
7: @
8: ## figure 4
9: B1: box "APPLICATION"
10: B2: boxit(PRESENTATION,B1)
11: B3: boxit(SESSION,B2)
12: B4: box "TRANSPORT" with .n at (B3.s.x, B3.s.y-lineht)
13: arrow from B4.n to B3.s
14: B5: boxit(NETWORK,B4)
15: ##
16: B8: box with .n at (B1.n.x+boxwid+linewid, B1.n.y) height (B1.n.y-B3.s.y) \
17: "APPLICATION"
18: B9: box "TRANSPORT" with .n at (B8.s.x, B4.n.y)
19: arrow from B9.n to B8.s
20: B10: boxit(NETWORK,B9)
21: ##
22: move to (B5.s.x, B5.s.y-lineht); "ISO stack"
23: move to (B10.s.x, B10.s.y-lineht); "DDN stack"
24: ##
25: .PE
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.