summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/svg/ex09SVG.m4
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/circuit_macros/examples/svg/ex09SVG.m4')
-rw-r--r--graphics/circuit_macros/examples/svg/ex09SVG.m444
1 files changed, 23 insertions, 21 deletions
diff --git a/graphics/circuit_macros/examples/svg/ex09SVG.m4 b/graphics/circuit_macros/examples/svg/ex09SVG.m4
index 507245235e..b267c68ea0 100644
--- a/graphics/circuit_macros/examples/svg/ex09SVG.m4
+++ b/graphics/circuit_macros/examples/svg/ex09SVG.m4
@@ -65,7 +65,7 @@ define(`bdot',
move right 0.8
# Upper left diagram
- spacer
+ spacer
# Lower left diagram
[ define(`lwid',`29bp__')
@@ -76,18 +76,21 @@ Ctr: 0.5 between A and B
L: move left 0.85*sk from A
linethick_(1)
- dimension_(from A to B,0.5*sk,label,lwid,0.1*sk)
- "`dimension_(from A to B,0.5,label,29bp__,0.1)'" wid 90 \
- with .w at (L.end,A +(0,-9))
+ dimension_(from A to B,0.5*sk,svg_it(label),lwid,0.1*sk)
+ "`dimension_(from A to B,0.5,label,29bp__,0.1)'" wid 70 \
+ with .w at (L.end.x+2,A.y-10)
+ move down_ 4 from last ""
thinlines_
- arrow from A to B chop 0.05*sk "linespec" below
- dimension_(up_ 0.5*sk from A,0.2*sk,"offset" rjust,,,->)
- dimension_(up_ 0.1*sk from B,-0.2*sk," tic offset" ljust)
- dimension_(up_ 0.1*sk from B+(0,0.5*sk),-0.2*sk," tic offset" ljust)
+ arrow from A to B chop 0.05*sk "svg_it(linespec)" below
+ dimension_(up_ 0.5*sk from A,0.2*sk,"svg_it(offset)" rjust,,,->)
+ dimension_(up_ 0.1*sk from B,-0.2*sk," svg_it(tic offset)" ljust)
+ dimension_(up_ 0.1*sk from B+(0,0.5*sk),-0.2*sk,
+ " svg_it(tic offset)" ljust)
dimension_(from Ctr+(-lwid/2,0.5*sk) right lwid,0.2*sk,
- "blank width" above)
-] with .nw at last [].sw+(0,-0.7*sk)
+ "svg_it(blank width)" above)
+] with .nw at last [].sw+(0,-0.4*sk)
+#showbox_
# Upper right diagram
[ A: bdot(at (0,0),A, above rjust)
@@ -104,23 +107,22 @@ T: C+(-0.45*sk,-0.5*sk)
dimension_(from C to D chop dotrad_,,svg_it(T`'svg_sub(15)),15bp__)
arcdimension_(from C to D with .c at 0.5 between A and B,12bp__,
svg_it(C) to svg_it(D),34bp__)
-Q: C+(-9,-9)
+Q: C+(-9,-15)
`define' leftparagraph { [ baselineskip = textht*1.5; { move right $1 }
for i = 2 to $+ do {
move to Here+(0,-baselineskip)
- exec sprintf("{ `\"$%g \"' ljust }; ",i) } ] }
-
-define(`svg_comma',`svg_symbol(&`#'44;)')
-leftparagraph(5.7*scale; baselineskip = 1.5*textht,
- `dimension_(from A to B,0.3,svg_it(AB),20bp__)',
- `dimension_(from C to B,,svg_it(X),16bp__)',
- `dimension_(from C to A,0.3,svg_it(CA),14bp__,,->)',
- `dimension_(from D to B,-0.3,"svg_it(DB)" ljust)',
- `dimension_(from C to D chop dotrad_,,svg_it(T`'svg_sub(15)),15bp__)',
+ exec sprintf("{ `\"$%g \"' wid 4.5*scale ljust }; ",i) } ] }
+
+leftparagraph(1.7*scale; baselineskip = 1.5*textht,
+ `dimension_(from A to B,0.3,AB,20bp__)',
+ `dimension_(from C to B,,X,16bp__)',
+ `dimension_(from C to A,0.3,CA,14bp__,,->)',
+ `dimension_(from D to B,-0.3,"DB" ljust)',
+ `dimension_(from C to D chop dotrad_,,T`'svg_sub(15),15bp__)',
`arcdimension_'svg_symbol(&`#'40;)`from C to D with .c at 0.5 \
between A and B'svg_comma`12bp__'svg_comma,
- svg_ensp `svg_it(C) to svg_it(D)'svg_comma`34bp__'svg_symbol(&`#'41;)
+ svg_ensp `C to D'svg_comma`34bp__'svg_symbol(&`#'41;)
) with .nw at Q
] with .nw at 1st [].ne+(1.7*sk,0)