|
|
1.1 ! root 1: .PS ! 2: .ps 20 ! 3: ## figure 3 ! 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: L1: line dashed from (B3.sw.x-boxwid/2,B3.sw.y-(B3.sw.y-B4.nw.y)/2) \ ! 24: to (B3.se.x+boxwid/2,B3.sw.y-(B3.sw.y-B4.nw.y)/2) ! 25: ## ! 26: .PE
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.