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