summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/Inductors.m4
blob: d9db4df15306349ca405d6c9e9adbab61ac7a9d5 (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
45
46
47
48
.PS
# inductors.m4
cct_init
iflatex(command "{\tt")

movewid = 2 pt__
hm = 2.05
vm = 0.4
{ {I: inductor ; move ;"`{inductor}'" ljust}
   move right_ hm
   {inductor(,W); move ;"`{inductor(,W)}'" ljust}
   move right_ hm
   {inductor(,L); move ;"`{inductor(,L)}'" ljust}
}

   move down vm; right_
{ {inductor(,,3,M) ; move ;"`{...(,,3,M)}'" ljust}
   move right_ hm
   {inductor(,W,6,P1); variable; move
    "`...(,W,6,P1);'" ljust "`variable'" ljust}
   move right_ hm
   {inductor(,L,9,K); move ;"`{...(,L,9,K)}'" ljust}
}

   move down vm; right_
{ {inductor(,,,M3); addtaps(-,1/2,-dimen_/6); move; `"...(,{,},M3)"' ljust
    {`"addtaps(-,1/2,-dimen\_/6)"' ljust at (I.start,last ""+(0,-0.2)) }
    }
   move right_ hm
  {ebox(,,,0) ; move ;"`{ebox(,{,},0)}'" ljust}
   move right_ hm -10bp__
  {TI: tapped(`ebox(,,,0)',-,1/4,-dimen_/6,3/4,-dimen_/6) ; move ;
   "`tapped(\char96{}ebox(,{,},0)\char39,'" ljust at Here+(10bp__,3bp__)
   "`-,1/4,-dimen\_/6,'" ljust at last ""+(0,-11pt__)
   "`3/4,-dimen\_/6)'" ljust at last ""+(0,-11pt__)
   "\sl Tap1" at TI.Tap1 rjust below
   "\sl Tap2" at TI.Tap2 ljust below }
}

   move down vm*5/4; right_
{ {shielded(`inductor(,,,M)') ; move
   `"shielded("' ljust `"\char96inductor(,{,},M)\char39)"' ljust
   move to (3rd last line.start,Here)
   shielded(`ebox(,,,0)',R) ; move; `"shielded(`ebox(,{,},0)',R)"' ljust }
}

iflatex(command "}")
.PE