summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/ex17DPV.m4
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/ex17DPV.m4')
-rw-r--r--Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/ex17DPV.m444
1 files changed, 44 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/ex17DPV.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/ex17DPV.m4
new file mode 100644
index 00000000000..d1017e02639
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/ex17DPV.m4
@@ -0,0 +1,44 @@
+.PS
+# ex17DPV.m4
+cct_init(svg_font(sans-serif,11bp__,0bp__))
+
+[
+nrows = 4
+ncols = 9
+linewid = linewid*0.6 # everything smaller
+define(`elen_',linewid) # shorter default length
+
+ for j = 1 to nrows do {
+ { for i = 1 to ncols do {
+ Point_(-120) resistor
+ Point_( 0) inductor
+ Point_( 120) capacitor
+ if i < ncols then {Point_(0) diode} }
+ }
+ Point_(-120) move to rvec_(elen_,0)
+ { for i = 1 to ncols do {
+ Point_(-60) capacitor
+ Point_( 60) resistor }
+ }
+ Point_(-60) move to rvec_(elen_,0)
+ }
+ Point_(0) for i = 1 to ncols-1 do { inductor }
+]
+
+[
+ down_
+ Point_(-80)
+
+ parallel_(Sep=1.75*dimen_;
+ parallel_(`capacitor(,C); rlabel(,,C`'svg_sub(2))',
+ `resistor; llabel(,R`'svg_sub(2))' ),
+ parallel_(`resistor; rlabel(,R`'svg_sub(1)); move to rvec_(-dimen_/5,0)
+ inductor(,W); rlabel(,L`'svg_sub(1))',
+ `reversed(`source',to rvec_(elen_,0),V,sourcerad_*2.5)
+ rlabel(,v`'svg_sub(s))' )
+ )
+ move left 0.2 from last [].w
+] with .sw at last [].se+(elen_,0)
+
+ command "</g>" # end font
+.PE