|
|
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: ## figure 5 ! 9: B1: box "APPLICATION" ! 10: B2: boxit(PRESENTATION,B1) ! 11: B3: boxit(SESSION,B2) ! 12: B5: box with .nw at (B1.ne.x+linewid, B1.ne.y) height B1.ne.y-B3.se.y \ ! 13: width boxht/6 shaded ! 14: move to B5.e; "\ PURE ISO" ljust ! 15: B4: box "ISO TRANSPORT" "" "SERVICE IN A" "" "non-ISO NETWORK" \ ! 16: with .n at (B3.s.x, B3.s.y-lineht/2) height 3*boxht ! 17: line from B3.s to B4.n ! 18: ## ! 19: .PE
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.