summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/ex05.m4
diff options
context:
space:
mode:
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.m451
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