diff options
Diffstat (limited to 'graphics/circuit_macros/examples/ex06.m4')
-rw-r--r-- | graphics/circuit_macros/examples/ex06.m4 | 28 |
1 files changed, 8 insertions, 20 deletions
diff --git a/graphics/circuit_macros/examples/ex06.m4 b/graphics/circuit_macros/examples/ex06.m4 index 4f6986a133..1fb6b1bd7b 100644 --- a/graphics/circuit_macros/examples/ex06.m4 +++ b/graphics/circuit_macros/examples/ex06.m4 @@ -14,10 +14,13 @@ G: box invis wid 1i ht F.ht qmell = F.ht - ell kwid = F.wid-qmell-r + hatchbox(wid G.e.x-F.w.x ht F.ht,hatch) with .sw at F.sw + box invis fill_(1) ht ell wid E.e.x-F.w.x with .nw at F.nw + 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) + `B`'T: B.se + (-qmell,qmell) + line invis fill_(1) from B.se to (B.se,B`'T) then to B`'T then to B.se 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 @@ -27,28 +30,13 @@ G: box invis wid 1i ht F.ht "$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_ + hatchbox(wid kwid ht ell,hatch,,90) with .nw at B.nw + line from B.ne to B.se thick linethick*3/2 ',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_ + hatchbox(wid r ht r,hatch,,0) with .se at ET "$q$" at F.sw + (-offset,offset/3) "$\ell$" at (F.w,FT) + (-offset,offset/3) |