summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/ex17DPV.m4
blob: d1017e0263941b7e53ec0ed323a2d360491b65d3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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