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