summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/ex06.m4
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/circuit_macros/examples/ex06.m4')
-rw-r--r--graphics/circuit_macros/examples/ex06.m428
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)