summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex05SVG.m4
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex05SVG.m4')
-rw-r--r--Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex05SVG.m4115
1 files changed, 0 insertions, 115 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex05SVG.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex05SVG.m4
deleted file mode 100644
index 52284a3e334..00000000000
--- a/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex05SVG.m4
+++ /dev/null
@@ -1,115 +0,0 @@
-.PS
-# ex05SVG.m4
-darrow_init
-
-Kalman: [
- fillval = 0.8
-
- boxht = 0.35
- boxwid = 1.5*boxht
- dx = boxht/5
- circlerad = boxht*3/8
- extlen=4*dx
- indel = boxht/3
- define(`dlthick',dlthick*3/4)
-
-define(`overbar',`line right textht*0.8 \
- with .c at last box.c + ((`$1')*textht,0.7*textht)')
-
-COb: box fill_ "CO"; overbar(0.5)
-CO:box fill_ with .nw at last box.se+(dx,-dx) "CO"
-CbOb: box fill_ with .nw at last box.se+(dx,-dx) "CO"
- overbar(-0.5); overbar(0.5)
-CbO: box fill_ with .nw at last box.se+(dx,-dx) "CO"; overbar(-0.5)
-
- 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_;
-SB: shadebox(box wid NE.x-SW.x ht NE.y-SW.y with .sw at SW)
-
-U: COb.w-(3*dx+extlen,0)
- {"svg_it(U)" wid 0.1 rjust at U}
- dline(from U 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
- dline(to (CbOb.w,Here)); 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)
- dline(from Dum.w to (SB.w-(0.1,0),Dum)); darrow(to (U,Here))
- {"svg_it(Y)" rjust}
- move left 0.23
-
- 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)); "svg_it(a)" at last [].n above
- arrow from P[4] to Pa chop linewid/4
- Pd: dot(at Pa+(linewid,0)); "svg_it(d)" at last [].w rjust
- Pe: dot(at Pd+(linewid,0)); "svg_it(e)" at last [].n above
- Pf: dot(at Pe+(linewid,0)); "svg_it(f)" at last [].n above
- Pb: dot(at Pd+(Rect_(linewid,120))); "svg_it(b)" at last [].w rjust
- Pc: dot(at Pd+(Rect_(linewid,-120))); "svg_it(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)
- "svg_it(d)" at (linewid,linewid*2/3)
- customarc((2*linewid,-linewid/3), 25,155)
- "svg_it(e)" at (2*linewid,linewid*2/3)
- customarc((3*linewid,-linewid/3), 25,155)
- "svg_it(f)" at (3*linewid,linewid*2/3)
- customarc(Orig,130,230); "svg_it(a)" at (Rect_(linewid,180))
- customarc(Orig, 10,110); "svg_it(b)" at (Rect_(linewid, 60))
- customarc(Orig,-110,-10); "svg_it(c)" at (Rect_(linewid,-60))
-
- ] with .sw at Kalman.se+(15bp__,0)
-.PE