summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/quick.m4
blob: 7de2399601e72a6a063ac52cace35cd7f353ae37 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
.PS                            # Pic input begins with .PS
cct_init                       # Read in macro definitions and set defaults
elen = 0.75                    # Variables are allowed; default units are inches
Origin: Here                   # Position names are capitalized
   source(up_ elen); llabel(-,v_s,+)
   resistor(right_ elen);  rlabel(,R,)
   dot
   {                           # Save the current position and direction
      capacitor(down_ to (Here,Origin))     #(Here,Origin) = (Here.x,Origin.y)
      rlabel(+,v,-); llabel(,C,)
      dot
      }                        # Restore position and direction
   line right_ elen*2/3
   inductor(down_ Here.y-Origin.y); rlabel(,L,); b_current(i)
   line to Origin
.PE                            # Pic input ends