diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/ex06.m4')
-rw-r--r-- | Master/texmf-dist/doc/latex/circuit-macros/examples/ex06.m4 | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/ex06.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/ex06.m4 new file mode 100644 index 00000000000..4f6986a1337 --- /dev/null +++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/ex06.m4 @@ -0,0 +1,67 @@ +.PS +# ex06.m4 +gen_init + +F: box invis wid 1.6i ht 1.8i +E: box invis wid F.wid ht F.ht +G: box invis wid 1i ht F.ht + + ell = F.ht-0.6i + r = 0.3i + offset = 8bp__ + hatch = 0.1i + dhs = hatch * sqrt(2) + qmell = F.ht - ell + kwid = F.wid-qmell-r + + box wid G.e.x-F.w.x ht F.ht with .sw at F.sw thick linethick*3/2 + Loopover_(`B', + `line from B.ne to B.se thick linethick*3/2 + B`'T: B.se + (-qmell,qmell) + line from (B.w,B`'T) to B`'T chop 0 chop -offset + line from B`'T up ell chop -offset chop 0 + line from B`'T + (-r,0) up ell + line dashed from B`'T to B.se + "\large $0$" at B`'T + (-r/2,ell/2) + "\large $0$" at B`'T + (qmell/2,ell/2) + "$t$" at (B`'T,B.n) + (-offset/2,offset) + sprintf("$\overbrace{\phantom{\hbox to %gin{}}}^{\hbox{$k$}}$",kwid) \ + at B.nw + (kwid/2,0) above + thinlines_ + for x = hatch to B`'T.x-B.w.x-r by hatch do {line down ell from B.nw+(x,0)} + for y = dhs to qmell by dhs do {line up y right y from (B.w,B`'T)+(0,-y)} + for x = y-qmell to B.wid-qmell*2 by dhs do { + line up qmell right qmell from B.sw+(x,0) } + for x = last line.start.x-B.w.x+dhs to B.wid by dhs do { + line up (B.wid-x)/2 right (B.wid-x)/2 from B.sw+(x,0) } + thicklines_ + ',F,E) + + line from (G.w,ET) right G.wid + line from ET + (0,r) left ET.x-E.w.x + + thinlines_ + for y = hatch to r by hatch do { line left r from ET+(0,r-y) } + for x = dhs to G.wid by dhs do { + line left x down x from G.nw+(x,0) } + for y=x-G.wid to G.ht-G.wid by dhs do { + line left G.wid down G.wid from G.ne+(0,-y) } + for x = y-(G.ht-G.wid) to G.wid by dhs do { + line right G.wid-x up G.wid-x from G.sw+(x,0) } + thicklines_ + + "$q$" at F.sw + (-offset,offset/3) + "$\ell$" at (F.w,FT) + (-offset,offset/3) + + "$n{+}p{+}m$" at G.ne + (0,offset) + + Loopover_(`B',`"\Large $B$" ht 0.2 with .n at B.s + (0,-offset/2)',F,E,G) + + # extra left brace to avoid a psfrag problem (bug?) + sprintf(\ + "$\vphantom{\{}\left.\vrule height %gin depth0pt width0pt\right\}r$",r/2) \ + at ET + (offset,r/2) + +# Adjust the bounding box without using s_box: + move from F.nw+(-12bp__,21bp__) to G.se+(20bp__,-15bp__) +.PE |