diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/ex05.m4')
-rw-r--r-- | Master/texmf-dist/doc/latex/circuit-macros/examples/ex05.m4 | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/ex05.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/ex05.m4 new file mode 100644 index 00000000000..af26c787814 --- /dev/null +++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/ex05.m4 @@ -0,0 +1,65 @@ +.PS +# ex05.m4 +darrow_init + + fillval = 0.8 # environmental variable + + dx = boxht/5 # diagram parameters wrt scaled env variables + circlerad = boxht*3/8 + extlen=4*dx + indel = boxht/3 + +COb: box fill_ "C$\bar{\mbox{O}}$" +CO:box fill_ with .nw at last box.se+(dx,-dx) "CO" +CbOb: box fill_ with .nw at last box.se+(dx,-dx) \ + "$\bar{\mbox{C}}$$\bar{\mbox{O}}$" +CbO: box fill_ with .nw at last box.se+(dx,-dx) "$\bar{\mbox{C}}$O" + + dline(from CbO.s down_ dx,,t,,!-) + dright +{Sum: circle invis at (CO,Here)} + darrow(to Sum.e) + +SW: (COb.w,Sum.s)+(-3*dx-extlen/2,-dx) +NE: (CbO.e,COb.n)+(dx,dx) + right_; shadebox(box wid NE.x-SW.x ht NE.y-SW.y with .sw at SW) + +U: "\bf u$\,$" rjust at COb.w-(3*dx+extlen,0) + dline(right_ extlen+dx,,t,,|-) +TU: dtee(R) + {darrow(to COb.w,t)} + dline(to (Here,CO),t,t) +{Dum: circle invis at (Here,Sum)} + dtee(L) + {darrow(to CO.w,t)} +{D: box "D" wid boxwid/2 ht boxwid/2 at 0.5<Here,Dum.n>} + darrow(to D.n,t) + darrow(from D.s to Dum.n,,,,,,!-) + + dline(up_ from CO.n to (CO,COb)-(0,indel),,t,,!-) + dleft; darrow(to (COb.e,Here)) + + dline(up_ from CbOb.n to (CbOb,COb),,t,,!-) + dleft; darrow(to COb.e) + + dline(from CbO.n-(indel,0) up_ CbOb.y-CbO.n.y,,t,,!-) + dleft; darrow(to CbOb.e) + + dline(up_ from CbO.n to (CbO,CO),,t,,!-) + dleft + darrow(to CO.e) + + dline(up_ from CbO.n+(indel,0) to (CbO,COb)+(indel,indel),,t,,!-) + dleft; darrow(to (COb.e,Here)) + + darrow(from CO.s to Sum.n,,,,,,!-) + + darrow(left_ from Sum.w to Dum.e) + darrow(from Dum.w to (U,Dum)) + {"{\bf y$\,$}" rjust} + move left 0.23 + + circle at Sum + circle at Dum + +.PE |