presentation/nutsstructure.mp

   1 prologues:=3;
   2 filenametemplate "%j.mps";
   3 input boxes;
   4 verbatimtex
   5 %&latex
   6 \documentclass[8pt]{article}
   7 \usepackage{times}
   8 \usepackage[T1]{fontenc}
   9 \begin{document}
  10 \small
  11 etex
  12
  13 beginfig(0);
  14   pair h;
  15   boxit.dm(btex Device Manager etex);
  16   h = dm.n - dm.s;
  17
  18   boxjoin(h = a.n-a.s = b.n-b.s; b.w - a.e = (8mm,0));
  19   boxit.d1(btex Device etex);
  20   boxit.d2(btex Device etex);
  21   boxit.d3(btex \huge ... etex);
  22   boxit.d4();
  23   ypart dm.s - 3mm = ypart d1.n;
  24   xpart d2.c = xpart dm.c;
  25
  26   boxjoin(h = a.n-a.s = b.n-b.s; b.w - a.e = (8mm,0));
  27   boxit.e1(btex Env. etex);
  28   boxit.e2(btex Env. etex);
  29   boxit.e3(btex \huge ... etex);
  30   boxit.e4();
  31   ypart d1.s - 3mm = ypart e1.n;
  32   xpart (1/2[e1.c,e2.c]) = xpart d1.c;
  33   xpart e3.c = xpart d2.c;
  34
  35   boxjoin(h = a.n-a.s = b.n-b.s; b.w - a.e = (5mm,0));
  36   boxit.i1(btex Interf. etex);
  37   boxit.i2(btex Interf. etex);
  38   boxit.i3(btex \huge ... etex);
  39   boxit.i4("");
  40   ypart e1.s - 3mm = ypart i1.n;
  41 %  xpart (1/2[i1.c,i2.c]) = xpart e1.c;
  42   xpart i2.c = xpart e1.c;
  43 %  xpart i3.c + 1cm = xpart e2.c;
  44
  45
  46   drawboxed(dm, d1, d2, e1, e2, i1, i2);
  47   drawunboxed(d3, e3, i3);
  48   drawarrow dm.c .. d1.c cutbefore bpath.dm cutafter bpath.d1;
  49   drawarrow dm.c .. d2.c cutbefore bpath.dm cutafter bpath.d2;
  50   drawarrow d1.c .. e1.c cutbefore bpath.d1 cutafter bpath.e1;
  51   drawarrow d1.c .. e2.c cutbefore bpath.d1 cutafter bpath.e2;
  52   drawarrow e1.c .. i1.c cutbefore bpath.e1 cutafter bpath.i1;
  53   drawarrow e1.c .. i2.c cutbefore bpath.e1 cutafter bpath.i2;
  54
  55   drawarrow dm.c .. d3.nw cutbefore bpath.dm;
  56
  57   drawarrow d2.c .. e3.n cutbefore bpath.d2;
  58   drawarrow d2.c .. (e3.n+(1cm,0)) cutbefore bpath.d2;
  59
  60   drawarrow e1.c .. i3.nw cutbefore bpath.e1;
  61   drawarrow e2.c .. (i3.n+(5mm,0)) cutbefore bpath.e2;
  62   drawarrow e2.c .. (i3.n+(15mm,0)) cutbefore bpath.e2;
  63 %  drawarrow b[i].c {up} .. a[i+1].c {down}  cutafter bpath.a[i+1];
  64 endfig;
  65
  66
  67
  68 end