|
|
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.