|
|
1.1 root 1: .PS
2: .ps 20
3: boxwid = 3*boxwid
4: define boxit @
5: box "$1" with .n at ($2.s.x, $2.s.y-lineht/2)
6: line from $2.s to last box.n
7: @
8: define peer @
9: box "$1" with .n at ($3.s.x, $3.s.y-lineht/2)
10: line from $3.s to last box.n
11: line $4 from $2.e to last box.w
12: @
13: ## figure 0c
14: B1: box "APPLICATION"
15: B2: boxit(PRESENTATION,B1)
16: B3: boxit(SESSION,B2)
17: B4: boxit(TRANSPORT,B3)
18: B5: boxit(NETWORK,B4)
19: B6: boxit(DATA LINK,B5)
20: B7: boxit(PHYSICAL,B6)
21: ##
22: P1: box "APPLICATION" with .w at (B1.e.x+4*linewid, B1.e.y)
23: line dashed from B1.e to P1.w
24: P2: peer(PRESENTATION,B2,P1,dashed)
25: P3: peer(SESSION,B3,P2,dashed)
26: P4: peer(TRANSPORT,B4,P3,dashed)
27: P5: peer(NETWORK,B5,P4,dashed)
28: P6: peer(DATA LINK,B6,P5,dashed)
29: P7: peer(PHYSICAL,B7,P6,)
30: ##
31: .PE
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.