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 | 51 |
1 files changed, 48 insertions, 3 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 index dbdacdab908..748a48ebe93 100644 --- a/Master/texmf-dist/doc/latex/circuit-macros/examples/ex05.m4 +++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/ex05.m4 @@ -1,7 +1,9 @@ .PS # ex05.m4 darrow_init +ifelse(ifpstricks(T)`'ifpgf(T)`'ifsvg(T)`'ifmpost(T),T,` +Kalman: [ fillval = 0.8 # environmental variable dx = boxht/5 # diagram parameters wrt scaled env variables @@ -11,9 +13,9 @@ darrow_init # Replacement for \bar, see # https://tex.stackexchange.com/questions/22100/the-bar-and-overline-commands -command "\newcommand{\ols}[1]{% +latexcommand(\newcommand{\ols}[1]{% \mskip.5\thinmuskip\overline{\mskip-.5\thinmuskip {#1} \mskip-.5\thinmuskip}% -\mskip.5\thinmuskip} % overline short " +\mskip.5\thinmuskip}) COb: box fill_ "C$\ols{\mbox{O}}$" CO:box fill_ with .nw at last box.se+(dx,-dx) "CO" @@ -67,5 +69,48 @@ TU: dtee(R) circle at Sum circle at Dum - + ] +Coxeter: [ +# Coxeter.m4 + + customlinethick = 1.5 + + linethick = customlinethick + define(`dotrad_',`(3/2*linethick pt__)') + + Orig: (0,0) + for i=0 to 4 do { P[i]: dot(at (i*linewid,0)) } + line from Orig to P[4] + P[-1]: dot(at (Rect_(linewid, 120))); line to Orig + P[-2]: dot(at (Rect_(linewid,-120))); line to Orig + + Pa: dot(at P[4]+(linewid,0)); "$a$" at last [].n above + arrow from P[4] to Pa chop linewid/4 + Pd: dot(at P[0]+(0,-2*linewid)); "$d$" at last [].w rjust + Pe: dot(at Pd+(linewid,0)); "$e$" at last [].n above + Pf: dot(at Pe+(linewid,0)); "$f$" at last [].n above + Pb: dot(at Pd+(Rect_(linewid,120))); "$b$" at last [].w rjust + Pc: dot(at Pd+(Rect_(linewid,-120))); "$c$" at last [].w rjust + line from Pb to Pd then to Pc + line from Pd to Pf + + define(`customarc', + `pushdef(`dfillcolor',`0.7,0.7,0.7') linethick_(0.4); dnl + Darc(`$1',linewid, (`$2')*dtor_, (`$3')*dtor_, + thick=linewid/6; wid=linewid*0.3; ht=linewid/6; ends=<->)dnl + linethick_(customlinethick); popdef(`dfillcolor')') + + customarc((linewid,-linewid/3), 25,155) + "$d$" at (linewid,linewid*2/3) + customarc((2*linewid,-linewid/3), 25,155) + "$e$" at (2*linewid,linewid*2/3) + customarc((3*linewid,-linewid/3), 25,155) + "$f$" at (3*linewid,linewid*2/3) + customarc(Orig,130,230); "$a$" at (Rect_(linewid,180)) + customarc(Orig, 10,110); "$b$" at (Rect_(linewid, 60)) + customarc(Orig,-110,-10); "$c$" at (Rect_(linewid,-60)) + + ] with .sw at Kalman.se+(15bp__,0) + +',` "This diagram requires LaTex" ') .PE |