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
|
.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__,-5bp__) \
"-,1/4,-dimen\_/6," ljust "3/4,-dimen\_/6)" ljust
"\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
|